怎样在触发窗体中的MOVE事件?

jeff__lueny 2004-11-05 05:33:39
比方说,我点一个BUTTON然后出发MOVE事件,类似与右键窗体左上角选择MOVE的效果.
...全文
262 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
jeff__lueny 2004-11-19
  • 打赏
  • 举报
回复
我是要点下MOVE(我自己定义的菜单里的MOVE),然后我就能按着鼠标的左键,然后拖动,窗体就随着鼠标的移动而移动
earlsen 2004-11-09
  • 打赏
  • 举报
回复
up
jeff__lueny 2004-11-09
  • 打赏
  • 举报
回复
也就是说,我在Tray里面设置个图表,右键图标,点MOVE然后就会触发MOVE事件,我知道VB里面怎么用,但是我不会在VB.NET里面调用API所以想问问大家具体怎么写这样一个东西...
楼上的写的差不多了,但是还是有点不对,希望全面点,谢谢了

Private Sub MoveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MoveToolStripMenuItem.Click
SendMessage(Me.Handle, , , ) '这里面应该用什么参数,可以让我激活MOVE事件?
End Sub
龍过鸡年 2004-11-09
  • 打赏
  • 举报
回复
this.Left += 1; this.Left -= 1; 就是有点抖动 :p
Montaque 2004-11-06
  • 打赏
  • 举报
回复
不知道搂主啥意思。
看一下这段代码
Public Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Private Declare Sub ReleaseCapture Lib "User32" ()



Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown

ReleaseCapture()
SendMessage(Me.Handle, &HA1, 2, 0)
End Sub
淡蓝色2 2004-11-06
  • 打赏
  • 举报
回复
SendMessage
龍过鸡年 2004-11-06
  • 打赏
  • 举报
回复
定位鼠标并设置 Cursor
youlongzaitian 2004-11-05
  • 打赏
  • 举报
回复
用委托!
haoztao 2004-11-05
  • 打赏
  • 举报
回复
你可以再button按钮的move事件里写.....

16,554

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧