在VB中怎么用代码弹出输入对话框

Posted 2023-03-22

输入数值后，并在文本框中显示出来

实现的操作方法和步骤如下：

1、首先，打开“易语言”，然后选择“Windows窗口程序”选项，如下图所示，然后进入下一步。

2、其次，完成上述步骤后，将编辑框、按钮和常用对话框从基本组件栏拖放到程序中，如下图所示，然后进入下一步。

3、接着，完成上述步骤后，单击以选中“通用对话框”，然后在左侧的属性列中看到“过滤器”。根据图片上的要求输入文本，如下图所示，然后进入下一步。

4、然后，完成上述步骤后，输入以下图中红框内的代码，如下图所示，然后进入下一步。

5、随后，完成上述步骤后，就可以点击工具栏中的运行按钮了，如下图所示，然后进入下一步。

6、最后，完成上述步骤后，可以单击编译保存，如下图所示。这样，问题就解决了。

参考技术A

1、首先打开VB软件。

2、双击要编写代码的窗体或者控件，就会弹出代码窗口。

3、要编辑“确定”命令按钮的编码，可以双击“确定”命令按钮。

4、鼠标右击窗体或者控件，在弹出页面中选择“查看代码”。

5、点击“视图”，在“视图”页面中，选择“代码窗口”。

6、在工程资源管理器窗口中点击“查看代码”按钮。

7、选中工程资源管理器窗口中的窗体或者模块文件，右击弹出页面，选择“查看代码”。

参考技术B

用InputBox函数，功能是弹出一个对话框，在其中显示提示，等待用户输入文字并按下按钮，然后返回用户输入的文字。

示例：

Text1 = InputBox("请在下面输入内容：", "输入框", "默认值")

不输入，直接确定，会直接使用默认值:

参考技术C Dim temp
temp = InputBox("请输入数字", "标题", "1111")

然后
text1.text=val(temp)追问

那文本框最后显示的是
1111吗？

追答

你输入多少就是多少了，但一定是数字哦，因为有val(temp)限制必须是数字

追问

那个1111是什么作用

追答

呵呵，那个是默认值，你可以改成你经常要用的数字了。

追问

那可以不写默认值吗？

追答

可以啊

本回答被提问者采纳

vb怎么实现弹出对话框选择文件路径

可生成ocx的

VB6.0使用CommonDialog 控件弹出对话框选择文件路径。

通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave
方法可显示“打开”和“另存为”对话框。

两个对话框均可用以指定驱动器，目录，文件扩展名和文件名。除对话的标题不同外，另存为对话外观上与打开对话相似。

下例显示“打开”对话框然后在信息框中显示所选的文件名：

Private Sub Command1_Click()
    \' 设置“CancelError”为 True
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    \' 设置标志
    CommonDialog1.Flags = cdlOFNHideReadOnly
    \' 设置过滤器
    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
    "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
    \' 指定缺省的过滤器
    CommonDialog1.FilterIndex = 2
    \' 显示“打开”对话框
    CommonDialog1.ShowOpen
    \' 显示选定文件的名字
    MsgBox CommonDialog1.FileName \'显示路径
    Exit Sub
ErrHandler:
    \' 用户按了“取消”按钮
    Exit Sub
End Sub 参考技术A 勾选 部件micorsoft commom dialog contorl 6.0添加控件 CommonDialog1 CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName 参考技术B 勾选 部件micorsoft commom dialog contorl 6.0添加控件
.showopen