Chinaunix首页 | 论坛 | 博客
  • 博客访问: 41797
  • 博文数量: 58
  • 博客积分: 10
  • 博客等级: 民兵
  • 技术积分: 520
  • 用 户 组: 普通用户
  • 注册时间: 2011-01-23 14:08
文章分类

全部博文(58)

文章存档

2024年(14)

2023年(22)

2022年(22)

我的朋友

发布时间:2024-04-29 10:12:48

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)'''取消关闭功能If UnloadMode = 0 Then    Cancel = TrueEnd If'''取消关闭功能End Sub......【阅读全文】

阅读(59) | 评论(0) | 转发(0)

发布时间:2024-04-08 12:41:19

事实上 KeyPress、KeyDown、KeyUp、Change这四种事件过程都可以判断是否按了回车键:123Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer).........【阅读全文】

阅读(154) | 评论(0) | 转发(0)

发布时间:2024-03-30 16:27:38

    dr1.PrintReport 'False  '''自定义纸张不要预览直接打印,否则出现横向打印怪事。false不显示打印机对话框    ''''因为VB默认宽度小的为报表头。正常的22*28,22是报表头;自定义的22*14,VB就会默认14为报表头,所以预览打印就会变成横向!!!.........【阅读全文】

阅读(91) | 评论(0) | 转发(0)

发布时间:2024-03-29 17:23:25

Private Sub Form_Load()    Combo1.AddItem "test"    Combo1.Text = Combo1.List(0)End Sub......【阅读全文】

阅读(136) | 评论(0) | 转发(0)

发布时间:2023-08-31 14:49:41

Private Sub txt_dh_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 ThenCall Command3_ClickEnd IfEnd SubPrivate Sub txt_dh_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCall Command3_ClickEnd IfEnd Sub......【阅读全文】

阅读(161) | 评论(0) | 转发(0)
给主人留下些什么吧!~~
留言热议
请登录后留言。

登录 注册