VB中,按钮单击了则按钮背景图片换成已经单击了图片,单击了其它按钮又将前一个已经单击的按钮图片变为原来没有单击的图片
解决方案 »
- vb 在调用窗体时出现“跳跃式”调用?
- listview 的 listitem 对象的操作
- Srl_Skin的一些技术不够成熟,目前作者无法再做完善和开发工作,现公开所有代码!!!!!
- 调用拨号程序
- 怎样获取网络流量?
- 怎么实现在DataGrid控件中删除多行?
- 文件大小问题
- TDBGrid1当属性DataMode设置为4-Storage时TDBGrid1的属性Array为什么只能用在Form_Load中?
- 请求程序运行时错误解答!
- 请教:服务端在ConnectionRequest子程序中如何得到远程连接过来的主机名???
- 一个局域网中的c/s程序,如何实现互联网访问呢?
- VB中的TreeView,怎样得到父节点
设置按钮的Style属性为1
Option Explicit
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Command1.Picture = LoadPicture(App.Path & "\Down.ico")
End If
End SubPrivate Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Command1.Picture = LoadPicture(App.Path & "\Up.ico")
End If
End Sub