vb點虐 對話框事件

MessageBox.Show("text")

成都創(chuàng)新互聯(lián)成立十多年來，這條路我們正越走越好，積累了技術與客戶資源，形成了良好的口碑。為客戶提供做網站、網站設計、網站策劃、網頁設計、域名注冊、網絡營銷、VI設計、網站改版、漏洞修補等服務。網站是否美觀、功能強大、用戶體驗好、性價比高、打開快等等，這些對于網站建設都非常重要，成都創(chuàng)新互聯(lián)通過對建站技術性的掌握、對創(chuàng)意設計的研究為客戶提供一站式互聯(lián)網解決方案，攜手廣大客戶，共同發(fā)展進步。

MessageBox.Show ( "text", MessageBoxButtons.YesNoCancel)

MessageBox.Show ( "text", MessageBoxIcon.Question)

MessageBox.Show ( "text",MessageBoxDefaultButton.Button2 )

注意：使用?Show?方法的重載，可以利用該重載來指定所有者窗口。否則，消息框由當前處于活動狀態(tài)的窗口所有。

MessageBox顯示一個模態(tài)對話框，其中包含一個系統(tǒng)圖標、 一組按鈕和一個簡短的特定于應用程序消息，如狀態(tài)或錯誤的信息。消息框中返回一個整數(shù)值，該值指示用戶單擊了哪個按鈕。

以上均為一些基本方法，其他可參照MSDN?

VB點虐 怎么彈出如下類似的對話框（看圖）？

可以利用msgbox 實現(xiàn)，也可以通過另外的窗體上畫出表格實現(xià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窗體‘將以下代碼復制到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‘將以下代碼復制在form1窗體中Private Sub Command1_Click()Form2.ShowEnd Sub

vb點虐 中怎么向excel表中添加個復選框

點擊“開始”-“Excel選項”，在“基本設置”選項卡中勾選右側的“在功能區(qū)上顯示‘開發(fā)工具’”，使其顯示出來。

切換到“開發(fā)工具”功能區(qū)，點擊插入”下拉列表框，在彈出的列表中選擇“復選框（ActiveX控件）”。

然后在文檔區(qū)域拖動以繪制一個復選框。 并在該復選框上右鍵單擊，在彈出的菜單中選擇“屬性”以打開“屬性對話框”。

在打開的“屬性對話框”中將“Caption”設置為空，”BackStyle“設置為透明，邊框效果設置為0類型，完成后關閉”屬性對話框“。

vb點虐 中用什么方法顯示對話框？

用msgbox（）顯示對話框

msgbox的用法很多，基礎的就是msgbox（“你要顯示的內容”）

或者msgbox（“你要顯示的內容”,16,"對話框名稱"）'16是對話框的類型，還有幾個鍵的組合代碼，這個你可以

查查

，很多，或者你也可以用提示給出的類型，比如MsgBoxStyle.Exclamation就是顯示錯誤對話框，