vb编程，怎样实现mousedown窗体失效，mouseup窗体有效？
2个回答
展开全部
你只能后台 全局hook鼠标消息 判断是按下 或弹起，再去执行
Form1.Enabled = False 或 Form1.Enabled = true
Form1.Enabled = False 或 Form1.Enabled = true
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Form1.Enabled = False
追问
问题是，mouseup怎么让他有效
追答
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "*"
Form1.Enabled = False
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Form1.Enabled = True
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
