Question

vb如何改变msgbox的标题?

我想把"工程1"改成别的什么,比如"张三李四",
请问如何修改呢?
为什么
msgbox("123",vbokonly,"张三李四") 不行呢?
我用的是visual basic 6.0企业版

Answer 1

msgbox可以作为函数调用也可以作为过程调用，有两种使用方法：

1，以函数格式使用，就是你的那种方法加括号，我们知道所谓函数，就是会返回一个值的，所以用了括号，句要这样调用；
x = msgbox("123",vbokonly,"张三李四")
不必去关心，返回给x是什么值。
2，如果不加括号就是作为过程调用，格式如下：
MsgBox "123", vbOKOnly, "张三李四"
3，过程调用可以用Call 语句，这时候又要加括号了，格式如下：
Call MsgBox("123", vbOKOnly, "张三李四")

这里讲述了调用函数和调用过程的不同3种格式。

Answer 2

MsgBox 函数
在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。
语法
MsgBox(prompt[, buttons] [, title] [, helpfile, context])

Title 可选的。在对话框标题栏中显示的字符串表达式。如果省略 title，则将应用程序名放在标题栏中。
改变title的赋值即可改变msgbox的标题。
示例：

Private Sub Command1_Click()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?" ' 定义信息。
Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定义按钮。
Title = "MsgBox 标题" ' 定义标题。
Help = "DEMO.HLP" ' 定义帮助文件。
Ctxt = 1000 ' 定义标题
' 上下文。
' 显示信息。
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用户按下“是”。
MyString = "Yes" ' 完成某操作。
Else ' 用户按下“否”。
MyString = "No" ' 完成某操作。
End If
End Sub

Answer 3

你要返回直可以那么写，不要返回值就 msgbox 内容,vbokonly,标题

追问

msgbox "123",vbokonly,"张三李四" 把括号去掉就可以了,不知道为什么不能有括号!

追答

vb6里，有括号就把函数当作函数（除非你用Call），会有返回直，也就是说赋直号左边必须有变量或属性，否则会出错。而当不叫括号是，就把函数当作语句（就是子程序Sub）来用。同样的，SUb加括号Vb就会认为它是函数，不用Call也会出错，尽管他不可能返回值。这司因为VB无法判断他是子程序还是函数。但VB.net就不同了，无论是Sub还是Function，都要加括号。度娘不让打了•••

Answer 4

把括号去掉应该就可以了