论坛: 编程破解 标题: 大家可以教教我吗，我是VB刚入门的，急啊！！！！在线等待！！！ 复制本贴地址    
作者: xuruijun [xuruijun]    论坛用户   登录
Private Sub Command1_Click()
Dim x As Double
Dim y As Double
Dim result As Double

On Error GoTo errstep（ 为什么这里会出现标签未定义
）
x = CDbl(text1st.Text)
y = CDbl(text2nd.Text)



End Sub

Private Sub Label1_Click()
labellst.Caption = "第一个数据:"


End Sub

Private Sub Label2_Click()
labellst.capion = "第二个数据:"
End Sub

Private Sub Label3_Click()
labelreult.capion = "结果值:"
End Sub

Private Sub Label4_Click()
optionadd.capion = "加"
End Sub

Private Sub Label5_Click()
optionsub.Caption = "减"

End Sub

Private Sub Label6_Click()
opion mult.capion = "乘"

End Sub

Private Sub Label7_Click()
optiondiv.Caption = "除"

End Sub

Private Sub Option1_Click()
If optionadd.Value = True Then result = x + y

End Sub

Private Sub Option2_Click()
If optionsub.Value = True Then result = x - y

End Sub

Private Sub Option3_Click()
If optionmult.Value = True Then sesult = x * y

End Sub

Private Sub Option4_Click()
result = x / y

End Sub

Private Sub Text1_Change()
text1st.Text = ""
End Sub

Private Sub Text2_Change()
text2nd.Text = ""

End Sub

Private Sub Text3_Change()
textbresult.Text = ""

End Sub
我需要一份详细的解释。。。谁可以帮我吗？


[此贴被 珍惜雨(xuruijun) 在 06月24日13时37分 编辑过]

地主 发表时间: 04-06-19 00:15
回复: Frankiez [frankiez84]   论坛用户   登录
text1.text是控件的属性,将他赋值string时,string两边加"",前面不用加
改成这样text1.text="显示信息"
下面也一样改
不过你这些代码执行起来无论按哪个按钮,text1.text显示的都是visual basic 6.0 培训教程
因为你的text1的change事件中将text1.text又改回来了(你的text1写成了tex1,不知指的是不是另一个控件还是写错了)


B1层 发表时间: 04-06-19 14:57
回复: xuruijun [xuruijun]   论坛用户   登录
老大~！！~！可以帮我改好先吗，晕哦，我才刚入门啊，，，
哎~
还不是很了解你这样的解释啊。。。。
最好是像我那样。，帮我先改掉错误的，帮我填上正确的给我研究好吗

B2层 发表时间: 04-06-19 16:34
回复: Frankiez [frankiez84]   论坛用户   登录
Private Sub Command1_Click()
text1.text="显示信息"
End Sub

Private Sub Command2_Click()
text1.text=" 取消信息"
End Sub

Private Sub Text1_Change()
msgbox "visual basic 6.0 培训教程"          '这里因为你如果改成text1.text按钮事件是无效的,所以我改成了信息框
End Sub


B3层 发表时间: 04-06-19 18:57
回复: ghame [ghame]   论坛用户   登录


B4层 发表时间: 04-06-19 21:48
回复: Frankiez [frankiez84]   论坛用户   登录
笑什么？你有什么高见你回答

B5层 发表时间: 04-06-20 15:01
回复: xuruijun [xuruijun]   论坛用户   登录
谢谢你，我已经参考你的，已经搞定了我原来想的那种效果。。。。
！！！


B6层 发表时间: 04-06-20 20:33
回复: Frankiez [frankiez84]   论坛用户   登录
不客气，不过你似乎应该在理解的基础上再来写代码
那样的话是不会出现"text之类的错误的

B7层 发表时间: 04-06-20 22:08
回复: Titians [flyfalcon]      登录
老大，已经解决了，俺就不费话了。
286 ，实在有耐心。
俺得多学学

B8层 发表时间: 04-06-21 13:54
回复: xuruijun [xuruijun]   论坛用户   登录
在此可以多认识点懂VB的朋友吗。。。。。
我很需要多点朋友，一起学习！！！
也希望大家可以互相帮忙好吗
我的QQ是150272533

B9层 发表时间: 04-06-21 14:42
回复: hongliubo1 [hongliubo1]   论坛用户   登录
Private Sub Command1_Click()
  text1.text="显示信息"
End Sub

Private Sub Command2_Click()
  text1.text=" 取消信息"
End Sub

Private Sub Text1_Change()
  tex1.text="visual basic 6.0 培训教程"
End Sub
完了


B10层 发表时间: 04-06-22 22:03
回复: bcliangzi [bcliangzi]   论坛用户   登录
呵呵！

B11层 发表时间: 04-06-24 09:42
回复: justobq [justobq]   论坛用户   登录
前面加上“ option explicit ”
这样就会有没有定义变量你不知道了。

B12层 发表时间: 04-06-26 16:48
回复: shanshan [shanshan]   论坛用户   登录
我也是初学者，很想找位志同道合的朋友

B13层 发表时间: 04-06-28 18:42
回复: vc_java [vc_java]   论坛用户   登录
看样子，
也是个初学者。
交个朋友。
QQ：8474881

B14层 发表时间: 04-06-29 18:42

论坛: 编程破解

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon

粤ICP备05087286号