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

    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来），
			   
			   

                       标签：
                   
                   
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com

特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有