vb中如何将MsgBoX函数返回值输出到窗体上

Question

如题所述

Answer 1

返回值

常数 值 描述
vbOK 1 OK
vbCancel 2 Cancel
vbAbort 3 Abort
vbRetry 4 Retry
vbIgnore 5 Ignore
vbYes 6 Yes
vbNo 7 No

textbox1.text=msgbox（......）
或 form1.text=msgbox（......）

或
Dim g As Graphics = Me.CreateGraphics()

'Graphics 对象的 DrawString 方法替换 Visual Basic 6.0 的 Print 方法。Print 方法只使用一个 Text 参数，而 DrawString 还需使用指定下列各项的参数：Font、用于指定 Color 对象的 Brush 对象以及绘制文本的起始坐标。

g.DrawString(MsgBox（。。。。）, Me.Font, Brushes.Black, 0, 0)

'释放与 Graphics 对象关联的内存资源。

g.Dispose()

Answer 2

如果想把用户输入的值输出到窗体上应该使用inputbox函数，那个才是接受输入的函数。而mdgbox只返回MsgBox 常数值

Answer 3

MsgBox是弹出窗体，若要输出在窗体上可直接用Form.print******

Answer 4

Private Sub Command1_Click()
Me.AutoRedraw = True
Me.Cls
Me.Print MsgBox("???", vbQuestion + vbYesNo, "!!!")
End Sub

Me.Print 语句就是用来在窗体上输出的~

Answer 5

Private Sub Command1_Click()
Print MsgBox("是与否", vbYesNo, "提示")
End Sub