注册 登录
编程论坛 → VB6论坛

关于窗体事件的疑问。

VB丶小宇 发布于 2014-03-20 21:46， 610 次点击
窗体事件：
只有本站会员才能查看附件，请 登录

控件：1个Command按钮
核心代码：
程序代码：
Option Explicit
Dim a As String                 '设置全局变量a为字符串型（这样叫不知道对不对。。）
Private Sub Command1_Click()
Print a                         '单击Command1按钮，在Form1窗体上输出a
End Sub
Private Sub Form_Click()
Print "这是窗体的单击事件"      '单击窗体的空白区域，在Form1的窗体上输出：这是窗体的单击事件
End Sub
Private Sub Form_DblClick()
Print "这是窗体的双击事件"      '单击窗体的空白区域，在Form1的窗体上输出：这是窗体的双击事件
End Sub
Private Sub Form_Load()
a = "这是窗体的Load事件"  
      '将"这是窗体的Load事件"这句话赋值给a
End Sub
3个问题：
Q1：在Option Explicit声明一个变量，是不是得叫全局变量？平常在过程中声明的变量，叫过程变量？或者简单点就是变量？
A1：
Q2：Form_Clikc也就是单击事件，如何用代码判断是按的鼠标左键还是右键？双击事件同样的问题。
A2：
Q3：将
a = "这是窗体的Load事件"
这句代码改为：
print "这是窗体的Load事件"
之后，为何窗体加载到内存时，也就是触发Load事件的时候，并没有在窗体上输出那句话？
A3：
8 回复
#2
w3609894262014-03-20 22:49
问题1：全局变量 是public，过程变量：在过程开始之前 dim，模块变量 private
问题2：一般窗体只提供左键单击事件，不提供右键单击。右键点击为菜单弹出，你可以去菜单编辑器看看
问题3，将 print 改为msgbox
#3
owenlu19812014-03-20 23:12
A2: Click事件都是按左键才会执行，如果非要判断左右键就用 Mouse_Down事件
A3：在Print前增加一条 Form1.Show就OK了
#4
风吹过b2014-03-21 00:33
1、vb里的变量分全局变量和局部变量。全局变量是使用 public 在 模块文件(bas)定义的，整个工程范围内可见。其它变量都有作用范围，在范围内可见，使用dim 在窗体定义的变量等同于pritave定义的，整个窗体可见，而在窗体使用 public 定义的变量 理解为给窗体增加 属性 ，可以使用 窗体.变量名 进行全局访问，但还不是全局变量。
2、区分左右键，使用 mousedown 、mouseup 事件。
3、窗体自动重绘默认情况下是关闭，所以在窗体未显示之前在窗体上的绘图操作会无法看到结果。有两种方法：一是自动重绘开，另一种是让窗体先显示出来，再绘 图。可以使用命令 me.show 让窗体在load 阶段就显示出来。
#5
VB丶小宇2014-03-21 18:22
非常感谢楼上的所有回答，对本人VB编程知识的积累非常有帮助！再次表示感谢！
对1.2楼的回答无异议，感谢你们的回答。
3L版主，第二条“区分左右键，使用mousedown、mouseup事件。”这个总感觉不对呢？
Mousedown事件即，鼠标按下时发生的事件，Mouseup事件是鼠标按下然后弹起时发生的事件。这个怎么能区分左右键呢？
我按您的方法修改了代码。
修改后的程序：
只有本站会员才能查看附件，请 登录

核心代码：
程序代码：
[color=#0000FF]Option Explicit
Dim a As String
Private Sub Command1_Click()
Print a
End Sub
Private Sub Form_Click()
Print "这是窗体的单击事件"
End Sub
Private Sub Form_DblClick()
Print "这是窗体的双击事件"
End Sub
Private Sub Form_Load()
a = "这是窗体的Load事件"
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "左击？"                              '在鼠标按键（不管是左右）按下时，在窗体上输出“左击？”
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "右击？"                              '在鼠标按键（不管是左右）按下然后弹起时，在窗体上输出“右击？”
End Sub
故，实际测试，您的所说并不能判断是按下的鼠标左键还是右键。[/color]
#6
lowxiong2014-03-21 18:40
回复 5楼 VB丶小宇
通过判断button值；来区分左右键，button=1左键，button=2右键，button=4中键
#7
VB丶小宇2014-03-21 19:28
回复 6楼 lowxiong
非常感谢您的回答。。这个帖子给不了分了，其他帖子给分把。再次感谢！
按照您的代码解决了我的问题：
只有本站会员才能查看附件，请 登录

核心代码：
程序代码：
Option Explicit
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then             '使用If语句进行判断，如果在满足Button值为1的情况下，执行后面的代码
Print "您按下了左键"           '在窗体上输出“您按下了左键”
ElseIf Button = 2 Then         '使用Elseif语句再进行判断，如果在满足Button值为2的情况下，执行后面的代码
Print "您按下了右键"           '在窗体上输出“您按下了右键”
Else                           '否则，即在以上条件均不满足的情况下，执行后面的代码。
Print "您按下了中键"           '在窗体上输出“您按下了中键”
End If                         '结束If语句
End Sub
PS：鼠标不就3个键吗？左右中，Button的值分别对应的是1,2,4。。中干嘛是4啊..3多好
#8
风吹过b2014-03-22 12:41
因为还有同时按下左右键的情况。



-------

其它是开关位转为10进制的问题，
第1位  1   2^0
第2位  2   2^1
第3位  4   2^2
第4位  8   2^3
........
#9
VB丶小宇2014-03-22 21:03
回复 8楼 风吹过b
感谢您的回答，问题集解决，谢谢。
1
©2025, BC-CN.NET
电脑版