永发信息网

vb的编程题

答案:3  悬赏:50  手机版
解决时间 2021-05-10 04:09

最佳答案

Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = False
Text1 = ""
Text1.Text = "你当前点击的是“移动”命令按钮"
End Sub



Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Text1 = ""
Text1.Text = "你当前点击的是“停止”命令按钮"
End Sub


Private Sub Command3_Click()
Timer2.Enabled = True
Timer1.Enabled = False
Text1.Text = "你当前点击的是“加快”命令按钮"
End Sub


Private Sub Command4_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Image1.Left = 7560
Text1.Text = "你当前点击的是“还原”命令按钮"
End Sub


Private Sub Command5_Click()
Image1.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\1.JPEG")
Text1.Text = "你当前点击的是“更换图标”命令按钮"
End Sub


Private Sub Form_Load()
Image1.Left = 7560
End Sub


Private Sub Timer1_Timer()
Image1.Left = Image1.Left - 100
End Sub


Private Sub Timer2_Timer()
Image1.Left = Image1.Left - 200
End Sub

全部回答
是啊,你是遇到什么问题了啊

晕倒什么意思。

起码给点文字说明把?

给张图没能完全明白你啥意思

我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
为什么我老和我对象没话说?
关于在机箱上加第二个光驱后,提示“出错”的
怎么在自家安装QQ音乐播放器
1990年正五月二十八是什么星座?塔诺牌又是什
我的电脑出现什么也没有的情况怎么
形容山水美景的句子
模仿不声不响写句子,写一年四季的句子
求视频的背景音乐~
锅子烧穿了怎么办
汉朝的罐子问价
有什么恐怖的的歌曲?
边锋斗地主向乃有得下载,要地址
梦古只能在帮派里学采矿技能么
成吉思汗显存过底请问怎么解决?
怎么用自己照片做空间皮肤?
推荐资讯
珠海机场有到桂林的航班吗?
名家写春天的现代诗歌,有关亲情的短篇现代诗
惠普笔记本驱动问题
有什么好听的韩歌,要09的
请问有没有关于保险之类的信息呢?
友友些吖、、怎样上课才不会想睡觉噢??我每
罗斯TS CUT CREATOR专卖店要多少钱
电脑5.1声卡和电容麦克风在浙江衢州那有销售
电脑本地连接是好的 网线 路由什么的没问题
热爱篮球的短句子,有什么关于篮球的经典话语
一首英文曲 song d....什么的
彼岸花开在哪里?
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?