可以利用msgbox 實現(xiàn),也可以通過另外的窗體上畫出表格實現(xiàn)
新和網(wǎng)站制作公司哪家好,找創(chuàng)新互聯(lián)!從網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、響應(yīng)式網(wǎng)站等網(wǎng)站項目制作,到程序開發(fā),運營維護。創(chuàng)新互聯(lián)2013年開創(chuàng)至今到現(xiàn)在10年的時間,我們擁有了豐富的建站經(jīng)驗和運維經(jīng)驗,來保證我們的工作的順利進行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)。
方法一,利用msgbox:
Private Sub Command1_Click()Dim a As Long, b As Long, c As LongMsgBox "┌────┬────┬────┐" vbCrLf _ "│ 庫存1 │ 庫存2 │ 庫存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function
方法二,利用窗體實現(xiàn):
’新建form2窗體‘將以下代碼復(fù)制到form2窗體中Private Sub Form_Load()ShowPrint "┌────┬────┬────┐" vbCrLf _ "│ 庫存1 │ 庫存2 │ 庫存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function‘將以下代碼復(fù)制在form1窗體中Private Sub Command1_Click()Form2.ShowEnd Sub
MessageBox.Show("text")
MessageBox.Show ( "text", MessageBoxButtons.YesNoCancel)
MessageBox.Show ( "text", MessageBoxIcon.Question)
MessageBox.Show ( "text",MessageBoxDefaultButton.Button2 )
注意:使用?Show?方法的重載,可以利用該重載來指定所有者窗口。否則,消息框由當前處于活動狀態(tài)的窗口所有。
MessageBox顯示一個模態(tài)對話框,其中包含一個系統(tǒng)圖標、 一組按鈕和一個簡短的特定于應(yīng)用程序消息,如狀態(tài)或錯誤的信息。消息框中返回一個整數(shù)值,該值指示用戶單擊了哪個按鈕。
以上均為一些基本方法,其他可參照MSDN?
用msgbox()顯示對話框
msgbox的用法很多,基礎(chǔ)的就是msgbox(“你要顯示的內(nèi)容”)
或者msgbox(“你要顯示的內(nèi)容”,16,"對話框名稱")'16是對話框的類型,還有幾個鍵的組合代碼,這個你可以查查,很多,或者你也可以用提示給出的類型,比如MsgBoxStyle.Exclamation就是顯示錯誤對話框,
Filter 屬性設(shè)置當前文件名篩選字符串,該字符串確定出現(xiàn)在對話框的“文件類型”框中的選項。
openFileDialog1.InitialDirectory = "c:\\" ;
openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" ;
openFileDialog1.FilterIndex = 1 ; // 獲取或設(shè)置文件對話框中當前選定篩選器的索引;
openFileDialog1.RestoreDirectory = true ;
對于每個篩選選項,篩選器字符串都包含篩選器說明,后接一垂直線條 (|) 和篩選器模式。不同篩選選項的字符串由垂直線條隔開。