请教,如何判断picturebox中载入的是某个图像,谢谢

chinazzj 2003-10-07 11:38:57
CmdPause是一个pictureBox,载入图像作为暂停、继续的图像按钮,在点击时先作判断来决定载入的图像,即如果当时是“暂停”图像,点击后被“继续”图像代替,与之相反。
我作如下处理,无效,肯定是不能这样判断,但实在毫无办法,请指教,谢谢
Private Sub CmdPause_Click()
If CmdPause.Picture = LoadPicture(App.Path +"\images\pause.gif"then'暂停
Timer1.Enabled = False
CmdPause.Picture = LoadPicture(App.Path + "\images\go.gif") '继续
Picture1.Enabled = False
Else
Timer1.Enabled = True
CmdPause.Picture = LoadPicture(App.Path + "\images\pause.gif '暂停
Picture1.Enabled = True
Text1(TextIndex).SetFocus
End If
End Sub
...全文
52 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
chinazzj 2003-10-07
  • 打赏
  • 举报
回复
谢谢,我在以背景色来判断,暂时有小问题
xzp1030 2003-10-07
  • 打赏
  • 举报
回复
我觉得你不应该借助这句话来判断。If CmdPause.Picture = LoadPicture(App.Path +"\images\pause.gif") then'

你可以用timer1的有效无效来判断。
wangchong 2003-10-07
  • 打赏
  • 举报
回复
你可以设置一个数值型变量,如果“暂停”就设置为1,如果“继续”就设置为2,这样根据
变量来判断加载的是那一副图片。
chinazzj 2003-10-07
  • 打赏
  • 举报
回复
//sorry,几处笔误,纠正如下,但不是出错原因
Private Sub CmdPause_Click()
If CmdPause.Picture = LoadPicture(App.Path +"\images\pause.gif") then'暂停
Timer1.Enabled = False
CmdPause.Picture = LoadPicture(App.Path + "\images\go.gif") '继续
Picture1.Enabled = False
Else
Timer1.Enabled = True
CmdPause.Picture = LoadPicture(App.Path + "\images\pause.gif") '暂停
Picture1.Enabled = True
Text1(TextIndex).SetFocus
End If
End Sub
射天狼 2003-10-07
  • 打赏
  • 举报
回复
TO: kmzs(.:RNPA:.山水岿濛)
不是理论上比变量慢,实际上就是比变量慢(访问属性要寻址,变量是直接在内存中,肯定慢了),不过如果是单条语句的话没什么影响,如果是在循环中,则一定要用变量~~
kmzs 2003-10-07
  • 打赏
  • 举报
回复
可以用TAG属性来判断,有见地,不过理论上访问属性比访问变量要慢一点
射天狼 2003-10-07
  • 打赏
  • 举报
回复
麻烦死了,用变量可以,但多余,可以用TAG属性来判断.

7,789

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧