vb中怎么做出圆形按钮
方法:
1 用图形控件(如img,pic),自己在事件中处理,一般采用三幅图,分别表示Normal,Mouse In以及Mouse Down;
2 用其它控件,如Sheriden_ActiveThreed_Plus3。 0等,事件已帮你做好,只需加入图形即可,非常方便。
3 在一个Form中定义两个按钮,cmd1和command2,书写以下代码:
Private Sub cmd1_Click()
MsgBox "ok"
End Sub
Private Sub Command2_Click()
Dim crgn As Long
Dim ret As Long
crgn = CreateEl...全部
方法:
1 用图形控件(如img,pic),自己在事件中处理,一般采用三幅图,分别表示Normal,Mouse In以及Mouse Down;
2 用其它控件,如Sheriden_ActiveThreed_Plus3。
0等,事件已帮你做好,只需加入图形即可,非常方便。
3 在一个Form中定义两个按钮,cmd1和command2,书写以下代码:
Private Sub cmd1_Click()
MsgBox "ok"
End Sub
Private Sub Command2_Click()
Dim crgn As Long
Dim ret As Long
crgn = CreateEllipticRgn(5, 5, cmd1。
Width - 5, cmd1。Height - 5)
ret = SetWindowRgn(cmd1。hwnd, crgn, True)
cmd1。Caption = "ok"
cmd1。
Visible = True
End Sub
API函数:
Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long。
收起