UC知道vb这段代码放到哪里才能运行啊
来源：百度知道 编辑：UC知道 时间：2024/05/30 11:33:10
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim MouseEnter As Boolean
MouseEnter = (0 <= X) And (X <= Command1.Width) And (0 <= Y) And (Y <= Command1.Height)
If MouseEnter Then
Me.Caption = "进入"
Command1.BackColor = &HFFC0FF
SetCapture Command1.hwnd
Else
Me.Caption = "退出"
Command1.BackColor = &H8000000F
ReleaseCapture
End If
End Sub
主要就是最上面两句话不知道放到哪里。高手给点拨一下吧
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim MouseEnter As Boolean
MouseEnter = (0 <= X) And (X <= Command1.Width) And (0 <= Y) And (Y <= Command1.Height)
If MouseEnter Then
Me.Caption = "进入"
Command1.BackColor = &HFFC0FF
SetCapture Command1.hwnd
Else
Me.Caption = "退出"
Command1.BackColor = &H8000000F
ReleaseCapture
End If
End Sub
主要就是最上面两句话不知道放到哪里。高手给点拨一下吧
下面就是你想要的答案~测试通过~
代码放在代码栏里~并在窗体里添加一个按钮控件~
实现的功能是鼠标放在按钮上面窗体的标题为进入，否则为退出~
什么都别动，放到一起就行了
放在通用声明中
创建一个按钮，叫 Command1。右击窗体，查看代码，考上就来……
===================================
按我的去做：
双击窗体，把上面所有代码 放到 原来所有代码（包括系统生成的代码）的最前面
即可