论坛: 编程破解 标题: 大家可以教教我吗,我是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号