重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
'在窗体上添加一个按钮测试
新乐ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景,ssl证书未来市场广阔!成为创新互联公司的ssl证书销售渠道,可以享受市场价格4-6折优惠!如果有意向欢迎电话联系或者加微信:028-86922220(备注:SSL证书合作)期待与您的合作!
Private
m_PlayFlag
As
Boolean
=
False
'是否正在播放
Private
Sub
Button1_Click(ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
Button1.Click
If
m_PlayFlag
=
False
Then
Button1.Image
=
Image.FromFile("d:\play.jpg")
'更换为播放图标
m_PlayFlag
=
True
'改变标志
Else
Button1.Image
=
Image.FromFile("d:\pause.jpg")
'更换为暂停图标
m_PlayFlag
=
False
'改变标志
End
If
End
Sub
Private
Sub
Form1_Load(ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
MyBase.Load
'窗体加载时使用暂停图标
Button1.Image
=
Image.FromFile("d:\pause.jpg")
End
Sub
您好,看到您的问题很久没有人回答,但是问题过期无人回答会被扣分并且你的悬赏分也会被没收!所以我给你提几条建议: 1,提问要尽量完整清晰不要有生僻的字,回答者一点都不知道你的情况如果你的问题也不清楚的话回答者就不知道你说的是什么,就谈不上回答你的问题了。 2,提问时不要一次性提很多相同的问题,提相同的问提让人看着很有压力很烦恼,甚至会认为你作弊的。所以一个问题提一次请出简明即可。 3,提问者应该尊重回答者,别人不是你的奴隶必须为你解决问题,所以提问时请注意文明用语!尊重他人的劳动。 4,不要问一些太简单的问题,不要明知故问,这是浪费回答者宝贵的时间啊!且不要问一些涉嫌违规的问题。 5,不要涉及尖端科学 ,问问里只是一些普通的人,如果你提得问题连科学家都没有答案,很难在这里问出答案来 ? 6,可以多交一些知识渊博的网友,以前的一些较难的题,如果有人回答对了,可以和回答者成为好朋友,经常保留着联系,有问题了可以互相探讨的! 您可以不采纳我的答案,但请您一定要考虑下我的建议哦! 谢谢采纳!祝你得到满意的结果!
和IMAGELIST一起使用,用它的INDEX的值来确定TREEVIEW和LISTVIEW的图标