none
VB2005图片按扭如何制作? RRS feed

答案

  •     Private Sub pic1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pic1.MouseDown
            pic1.BorderStyle = BorderStyle.Fixed3D
        End Sub

        Private Sub pic1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pic1.MouseUp
            pic1.BorderStyle = BorderStyle.FixedSingle
        End Sub

    2008年8月18日 0:55