谁都不相信这个会成为问题,但却就是一点解决思路都没有.

[zzhsbyzrz]

同样的代码,在不同的窗体中就是呈现不同的结果
如下代码中:
form2中的label1显示为:鼠标位置:171,121 (当然数字是随鼠标的移动而变化的)
form1中的label1显示为:label1 (也就是说没有变化)

问题是:form2中的label1随鼠标的移动而变化caption,为什么form1中的label1的caption却没有反应?
form2 和 form1 中的代码是一样的,两个窗体的控件也是一样的,控件的属性也是一样的,也都没有默认的引用或调用部件,
●　为什么运行的结果不同?
●　到底问题在哪里?
●　什么样的解决思路才有效?

要求达到目的是: 同样的代码复制到哪一个窗体中运行都应该是一样的结果(label1随鼠标的移动而变化caption)

代码如下:(form2 和 form1 代码完全相同)

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type

Private Sub Timer2_Timer()
Dim P1 As POINTAPI
GetCursorPos P1
Label1.Caption = "鼠标位置： " & P1.x & "," & P1.y
End Sub

Private Sub Form_Load()
Me.WindowState = vbMaximized
Me.Top = (Screen.Height - Me.Height) / 2
Me.Left = (Screen.Width - Me.Width) / 2

Timer1.Interval = 1000
Timer1.Enabled = False
End Sub

[贝隆]

Timer2？有没有这个控件？是不是你搞错了？

[zzhsbyzrz]

lz回复一楼:
绝对没错的,timer放多几个都行的
我都测试成功了的,问题是为什么同样的代码放在不同的窗体就会有不同的情况

[liguicd]

楼猪测到微软的大BUG了

[特别]

楼主的Timer2的Interval为0或者Enabled为false吧
要不怎么可能出现这种情况呢

[特别]

[Quote=引用 1 楼 veron_04 的回复:]

Timer2？有没有这个控件？是不是你搞错了？
[/Quote]
+1

[chinaboyzyq]

form1中的timer2的Interval初值没有设置，定时器当然不会跑起来。
设置form1中的timer2.Interval=500再试

[zzhsbyzrz]

再次确认一下,这是刚在form1中测试成功的结果代码
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type

Private Sub Timer2_Timer()
Dim P1 As POINTAPI
GetCursorPos P1
Label1.Caption = "鼠标位置： " & P1.x & "," & P1.y
End Sub


Private Sub Form_Paint() ''''★★★窗体自动最大化
Me.WindowState = vbMaximized
End Sub


Private Sub Form_Load()
Form1.Top = (Screen.Height - Form1.Height) / 2 '模拟鼠标点击必须使窗体居中显示 或最大化显示
Form1.Left = (Screen.Width - Form1.Width) / 2 '模拟鼠标点击必须使窗体居中显示 或最大化显示
End Sub


但将代码复制到form2就不行了,其他控件属性全部一样

[yuyang7615]

学习了