| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 862 人关注过本帖
标题:貌似简单的问题,可我就是想不出解决的方法,高手速来救救我啊~!!!
取消只看楼主 加入收藏
以往情深
Rank: 1
来 自:中国
等 级:新手上路
帖 子:23
专家分:0
注 册:2008-1-2
收藏
 问题点数:0 回复次数:2 
貌似简单的问题,可我就是想不出解决的方法,高手速来救救我啊~!!!
在如图的VB程序中,若我想点击一下Tty agaist按钮,使程序重新开始运行,该怎样实现?
小弟不才,望各位高手多多指点!
  谢谢!!!

vb1.GIF (15.63 KB)
图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: Tty agaist 
2008-03-14 16:14
以往情深
Rank: 1
来 自:中国
等 级:新手上路
帖 子:23
专家分:0
注 册:2008-1-2
收藏
得分:0 
代码如下:
我就是想做一个随机的抽奖程序~,
代码如下:
Private Sub Form_Load()
Randomize
Label1.Visible = False
Label1.Caption = 1 + Int(Rnd * 10)
End Sub
Private Sub Command2_Click()
Dim i As Integer

If Text1.Text = Label1.Caption Then

 MsgBox "恭喜你~!"
    Text1.Text = " "
    Text1.SetFocus
Else
i = MsgBox("很遗憾", 5 + 48)
   Text1.Text = " "
    Text1.SetFocus
      End If
  
End Sub

Private Sub Command1_Click()
Label1.Visible = True
Text1.SetFocus
End Sub

Private Sub Command3_Click()   ' 想通过这个按钮来重新运行程序,反正就是想输完一次之后能继续进行下去,
     Form_Load                       该如何实现呢?
 Text1.SetFocus
 
 End Sub

只需拼命前走.只有这样才能得救!
2008-03-14 16:52
以往情深
Rank: 1
来 自:中国
等 级:新手上路
帖 子:23
专家分:0
注 册:2008-1-2
收藏
得分:0 
谢谢各位啦
感谢各位高手为我提出宝贵的建议,我已经把问题解决了,再次谢谢各位的热情帮助!!!

只需拼命前走.只有这样才能得救!
2008-03-15 16:08
快速回复:貌似简单的问题,可我就是想不出解决的方法,高手速来救救我啊~!!!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025907 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved