''''mousedown的事件中窗体中的下拉列表是找不到的,自己写一个吧,加上(ByVal eventSender As Object, ByVal e As System.WinForms.MouseEventArgs)即可
''''下面的代码使窗体可以拖动
Me.Capture() = False ''''释放鼠标捕获,等同于API的ReleaseCapture()
Me.SendMessage(&HA1S, 2, 0) ''''唔,这个就是哪个sendmessage的API了,只是第一个句柄参数不再用了。
End Sub
Protected Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
End Class
这个程序如果要在别的系统上运行,一定要制作安装程序(当然先要升级系统组件并安装SDK),请参考前面的几篇文章,因为需要支持数据,VB.Net与VB6不同的是安装的支持组件一般会在当前目录,而不是在系统目录。
VB.Net中文站网址:http://vbnetcn.126.com
上一页 [1] [2] [3]
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18