走近VB.Net(三) 源码详解—运用颜色的初步探讨

    Private Sub Form1_MouseDown(ByVal eventSender As Object, ByVal e As System.WinForms.MouseEventArgs)

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

    Public Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave

        apr = False ''''这个很有用的了，就是鼠标离开一个控件时以生的事件，这样的话，做一个动态3D按钮就很方便了

    End Sub

End Class

本文是面向对象的（对于VB。Net的入门者），我不保证在基于传统的面向对象的理论有曲解的地方（我从来没有面向对象过，我也并不是很喜欢面向对象,起码再怎么面向也面向不出第二个windows来），


文章整理：西部数码--专业提供域名注册、虚拟主机服务

http://www.west263.com

以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!