Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/shell/5.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb6 在文本框中接受名称,当有人单击“打印”按钮时打印它_Vb6 - Fatal编程技术网

Vb6 在文本框中接受名称,当有人单击“打印”按钮时打印它

Vb6 在文本框中接受名称,当有人单击“打印”按钮时打印它,vb6,Vb6,我在VB中有一个文本框和一个命令按钮。我想在单击命令按钮时打印字符串。 我正在使用以下代码,请告诉我做错了什么:- Dim name As String name = Val(Text1.Text) MsgBox ("Welcome" & Str(name)) 当我在文本框中输入字符串并单击命令按钮时,结果是: 欢迎0 在Text1周围省去val()。看。我猜您在文本字段的字符串中使用了0,或者根本没有数字,两者都将返回0 此外,没有必要将字符串名称强制转换为字符串,因为它已经是字

我在VB中有一个文本框和一个命令按钮。我想在单击命令按钮时打印字符串。 我正在使用以下代码,请告诉我做错了什么:-

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面临问题的原因以及您的代码如何解决给定问题