''''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 Sub

End Class  

  这个程序如果要在别的系统上运行，一定要制作安装程序（当然先要升级系统组件并安装SDK），请参考前面的几篇文章，因为需要支持数据，VB.Net与VB6不同的是安装的支持组件一般会在当前目录，而不是在系统目录。

          VB.Net中文站网址：http://vbnetcn.126.com

上一页  [1] [2] [3]