程序出错怎么解决 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 程序出错怎么解决

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 932 人关注过本帖

标题：程序出错怎么解决

只看楼主加入收藏

zl2210

等　级：新手上路
帖　子：25
专家分：0
注　册：2006-1-10

楼主

问题点数：0 回复次数：14

程序出错怎么解决

Private Sub Command1_Click()
If Text1.Text > Text2.Text Then
Text3.Text = Text1.Text
Else
Text3.Text = Text2.Text
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
有谁帮我看看这哪有问题，谢了！！！

2006-01-11 14:38

purana

来　自：广东-广州
等　级：版主
威　望：66
帖　子：6039
专家分：0
注　册：2005-6-17

第 2 楼

得分:0

用VAL函数进行类型转换.
Private Sub Command1_Click()
If val(Text1.Text) > val(Text2.Text) Then
Text3.Text = Text1.Text
Else
Text3.Text = Text2.Text
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

我的msn: myfend@

2006-01-11 16:03

leon2

等　级：新手上路
威　望：7
帖　子：731
专家分：0
注　册：2005-3-18

第 3 楼

得分:0

这种代码不能保证两个文本框的内容都是数字，应加上一句:

Private Sub Command1_Click()
If (Not IsNumeric(Text1.Text)) Or (Not IsNumeric(Text2.Text)) Then
MsgBox "所输的内容不是数字!"
Exit Sub
End If
If val(Text1.Text) > val(Text2.Text) Then
Text3.Text = Text1.Text
Else
Text3.Text = Text2.Text
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

IsNumeric(expression) 可用来检测 expression 参数是否为数字(是返回 True，否则返回 False)。

2006-01-11 21:12

xinfresh

等　级：贵宾
威　望：13
帖　子：594
专家分：0
注　册：2006-1-13

第 4 楼

得分:0

三楼说的比较全面，支持

E-mail:xinfresh@QQ:383094053校内:http:///getuser.do?id=234719042

2006-01-13 13:12

zl2210

等　级：新手上路
帖　子：25
专家分：0
注　册：2006-1-10

第 5 楼

得分:0

我试了谢谢你们！！！

新手上路希望大家照顾．

2006-01-13 15:46

zl2210

等　级：新手上路
帖　子：25
专家分：0
注　册：2006-1-10

第 6 楼

得分:0

你能告诉我用程序把声音和动画怎么连接再一起吗？

新手上路希望大家照顾．

2006-01-13 15:53

leon2

等　级：新手上路
威　望：7
帖　子：731
专家分：0
注　册：2005-3-18

第 7 楼

得分:0

播放声音，最简单的是用 Windows Media Player 控件(在工程-部件里找)，然后使用

WindowsMediaPlayer1.Filename = "播放文件名"
WindowsMediaPlayer1.Play

播放动画，使用 Shockwave 控件(也在部件里找)，因为没用过，具体使用方法我就不清楚了，不过你可以仔细琢磨一下。

2006-01-13 16:28