visual studio 2010中我想把按钮改成圆形按钮,怎么更改这段
1个回答
展开全部
用PictureBox,图片存在文件路径下的pictures文件夹里
1.bmp
2.bmp
代码:
Private Sub Check1_Click()
If Check1.Value = 1 Then
Picture1.Picture = LoadPicture(App.Path & "\pictures\1.bmp")
Picture1.Enabled = True
Else
Picture1.Picture = LoadPicture(App.Path & "\pictures\3.bmp")
Picture1.Enabled = False
End If
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Picture = LoadPicture(App.Path & "\pictures\2.bmp")
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Picture = LoadPicture(App.Path & "\pictures\1.bmp")
End Sub
Private Sub Picture1Click()
'代码
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询