這個錯誤消息的提示是“不能在非用戶界面的狀態下使用模態對話框”,你的這個程序是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