一.輸入對話框:
制作輸入對話框相對信息提示框來相對簡單,在Visual Basic .Net,輸入對話框是通過InputBox函數來完成的。以下是InputBox函數在Visual Basic .Net中的語法:
Public Function InputBox (ByVal Prompt As String ,Optional ByVal Title As String = "" , _
Optional ByVal DefaultResponse As String = "" ,Optional ByVal XPos As Integer = -1 , _
Optional ByVal YPos As Integer = -1) As String
參數說明:
Prompt:
必選項。以消息形式顯示在對話框中的String表達式。Prompt的最大長度大約為1024個字符,具體取決於所用字符的寬度。如果 Prompt 中包含多個行,則可在各行之間用回車符(Chr(13))、換行符(Chr(10))或回車換行符的組合(Chr(13)&Chr(10))分隔各行。
Title:
可選項。顯示在對話框標題欄中的String表達式。如果省略Title則將應用程序名放在標題欄中。
DefaultResponse:
可選項。顯示在文本框中的String表達式,在沒有提供其他輸入時作為默認響應。如果省略DefaultResponse,則顯示的文本框為空。
XPos:
可選項。數值表達式,以缇為單位指定對話框的左邊與屏幕左邊的距離。如省略XPos,對話框將水平居中。
YPos:
可選項。數值表達式,以缇為單位指定對話框的上邊與屏幕上邊的距離。如果省略ypos,則對話框位於在屏幕垂直方向距下邊緣大約三分之一處。
以下就是在Visual Basic .Net中使用InputBox函數制作如圖01所示對話框的具體代碼:
Dim message , title , defaultValue As String
Dim myValue As Object
message = "請輸入數值,數值在1-3之間!" '設定對話框提示信息
title = "輸入提示框!" '設置對話框標題
defaultValue = "1" '設定對話框中缺省的數值
myValue = InputBox ( message , title , defaultValue , 100 , 100 )
'設定對話框在左上角坐標位於桌面(100,100)區域顯示
圖01:通過InputBox函數制作的提示對話框