- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于复选框 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85850)
-- 发布时间：2016/6/3 17:52:00
-- 关于复选框
红袍老师，我想问一下，这个复选框有没有办法调大一点，看起来好小啊
此主题相关图片如下：复选框.png
-- 发布时间：2016/6/3 18:01:00
--
不行，不可以......如果要做，只能用图片来做，点一下换一个图片。
-- 发布时间：2016/6/3 20:03:00
--
怎么实现点一下换个图片呢？用PICTUREBOX控件吗？在哪写入代码？
-- 发布时间：2016/6/3 21:05:00
--
你可以用button控件，设置button的样式属性为flat,边框宽度设为0，默认加载未选择的复选框图片，单击的时候替换为选中的图片
-- 发布时间：2016/6/4 9:16:00
--
比如按钮事件或者PICTUREBOX控件Click事件：
If 选中 Then
e.Sender.Image = GetImage("选中.Ico")
Else
e.Sender.Image = GetImage("不选中.Ico")
End If
-- 发布时间：2016/6/5 10:52:00
--
参考代码
If e.sender.basecontrol.tag = Nothing OrElse e.sender.basecontrol.tag = "选中" Then
e.sender.image = getimage("d:\\test.jpg")
e.sender.basecontrol.tag = "不选中"
Else
e.sender.image = getimage("d:\\test.png")
e.sender.basecontrol.tag = "选中"
End If