十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
这个错误消息的提示是“不能在非用户界面的状态下使用模态对话框”,你的这个程序是console(命令行)或者是无界面的?只能在有界面的程序中使用对话框的。
成都创新互联-专业网站定制、快速模板网站建设、高性价比潘集网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式潘集网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖潘集地区。费用合理售后完善,10多年实体公司更值得信赖。
Dim tmp = InputBox("输入你需要的文字", "我是标题", "我是默认值")
不仅是打开文件对话对话框,也可以打开保存文件对话框和颜色对话框,字体对话框,打印机对话框等。
如:
'打开文件对话框
CommonDialog1.ShowOpen
'打开字体对话框
CommonDialog1.ShowFont
'打开颜色对话框
CommonDialog1.ShowColor
具体可参考中国VB网:
可以利用font 设置。设置方法如下:
TextBox1.Font = New System.Drawing.Font("宋体", 10)
也可以通过字体对话框来实现 如:
Private Sub myButton_Click(sender As Object, e As EventArgs)
Dim myFontDialog As FontDialog
myFontDialog = New FontDialog()
If myFontDialog.ShowDialog() = DialogResult.OK Then
' Set the control's font.
myDateTimePicker.Font = myFontDialog.Font
End If
End Sub