Question

VB 子程序或函数未定义

Private Sub Command1_Click()
If Text1.Text = "" Then
msg ("注意,你的1号框里没有任何内空请加入.")
Else
Text2.Text = Text1.Text
End If
End Sub

请问高手错哪里了?要怎样做才能对.我是新手请你们细心的回答下..谢谢..

Answer 1

msg错了吧，要显示用于输出显示的对话框是用msgbox语句或msgbox()函数，
msgbox作为语句用时不需要括号，作为函数用时当然就要括号了，作为函数用他还有返回值，所以要用一变量来存储返回值(整型变量As Integer)

Answer 2

子程序是指你程序里面调用的程序，来看一下你的程序，Command1_Click() 里面哪里是子程序或者函数，可以发现你调用了一个VB的内置函数MSG,你想用这个函数来输出提示信息，不错。但是，想法很好，函数却用错了，你看一下MSDn会发现根本没有MSG()，近似的有MSGBOX()，这个函数正是输出内容的函数。调用之:
msgbox ("注意,你的1号框里没有任何内空请加入.")
这样没有内容输入的时候，这个提示“注意,你的1号框里没有任何内空请加入.”的对话框旧出来了，学一个函数一定要搞清出他的来历，用法

Answer 3

第三行该成 K=msgbox() 括号里输出你要提示的内容
开始的时候最好也定义一下K

Answer 4

Private
Sub
Commandok_Click
()
If
Txtname.Text
=
"lx"
And
Txtpassword.Text
=
"1234"
Then
Form2.Show
Me.Hide
Else
Form3.Show
Unload
Me
End
If
End
Sub

Answer 5

你是不是没有在界面添加你的Label和Text控件数组啊~