Vb6 在文本框中接受名称,当有人单击“打印”按钮时打印它
我在VB中有一个文本框和一个命令按钮。我想在单击命令按钮时打印字符串。 我正在使用以下代码,请告诉我做错了什么:-Vb6 在文本框中接受名称,当有人单击“打印”按钮时打印它,vb6,Vb6,我在VB中有一个文本框和一个命令按钮。我想在单击命令按钮时打印字符串。 我正在使用以下代码,请告诉我做错了什么:- Dim name As String name = Val(Text1.Text) MsgBox ("Welcome" & Str(name)) 当我在文本框中输入字符串并单击命令按钮时,结果是: 欢迎0 在Text1周围省去val()。看。我猜您在文本字段的字符串中使用了0,或者根本没有数字,两者都将返回0 此外,没有必要将字符串名称强制转换为字符串,因为它已经是字
Dim name As String
name = Val(Text1.Text)
MsgBox ("Welcome" & Str(name))
当我在文本框中输入字符串并单击命令按钮时,结果是:
欢迎0
在Text1周围省去val()。看。我猜您在文本字段的字符串中使用了0
,或者根本没有数字,两者都将返回0
此外,没有必要将字符串名称
强制转换为字符串
,因为它已经是字符串
,因此您也可以省去Str()
,因此您声明了一个字符串变量名称
,希望用文本1
框中的文本填充该字符串。因此,您需要备用val(…)
部分。
其次,由于name
已经表示一个字符串,因此在消息框中省略str
:
name = Text1.Text
MsgBox ("Welcome " & name)
val
函数返回其参数的数值表示形式,否则返回“0”。现在要找到VB6官方文档有点困难,但您可能需要检查:
因此,在您的示例中,如果在Text1
textbox控件中输入任何数字,您将在消息框中看到它。如果您输入任何文本,您将得到“欢迎0”,就像您现在所做的那样。因此,必须从代码中删除val
函数,如:
Dim name As String
name = Text1.Text
MsgBox ("Welcome " & name)
甚至可以简化为:
MsgBox("Welcome " & Text1.Text)
您是否尝试指定文本框所在的工作表?例如,工作表(1).文本框1.文本。不要使用Val,因为它指定了一个数字。您需要的是字符串,而不是数字。BA是Office和VB6的语言。但是,不能将VB6标记为VBA,因为它们具有不同的表单包。VBScript可以粘贴到VBA/VB6中,但很少以其他方式粘贴。因此,您的两个标记是错误的。您链接的文档是VBA,但OP没有说明它们是否使用VB、VBA(在主机应用程序、Excel、Word等内部)。请在代码片段周围添加一些上下文,解释OP面临问题的原因以及您的代码如何解决给定问题