vb.net彈出信息 vbnet doevent

VB.net怎么彈出如下類似的對(duì)話框（看圖）？

可以利用msgbox 實(shí)現(xiàn)，也可以通過(guò)另外的窗體上畫(huà)出表格實(shí)現(xiàn)

創(chuàng)新互聯(lián)建站專業(yè)提供西信服務(wù)器托管服務(wù)，為用戶提供五星數(shù)據(jù)中心、電信、雙線接入解決方案，用戶可自行在線購(gòu)買西信服務(wù)器托管服務(wù)，并享受7*24小時(shí)金牌售后服務(wù)。

方法一，利用msgbox：

Private Sub Command1_Click()Dim a As Long, b As Long, c As LongMsgBox "┌────┬────┬────┐" vbCrLf _ "│ 庫(kù)存1 │ 庫(kù)存2 │ 庫(kù)存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

方法二，利用窗體實(shí)現(xiàn)：

’新建form2窗體‘將以下代碼復(fù)制到form2窗體中Private Sub Form_Load()ShowPrint "┌────┬────┬────┐" vbCrLf _ "│ 庫(kù)存1 │ 庫(kù)存2 │ 庫(kù)存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

如何 在 vb.net 中 按下鍵盤A與W 兩個(gè)按鍵組合時(shí)彈出 MsgBox("你按下了A+W鍵")，最好有例子程序。

樓上的按了一次A+W后,接下來(lái)單按W鍵就會(huì)彈出信息框

Public Class Form1

Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal keyCode As Integer) As Short

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

If GetAsyncKeyState(Keys.A) And GetAsyncKeyState(Keys.W) Then

MsgBox("你按下了A+W鍵")

End If

End Sub

End Class

按照順序的話,這樣寫:

Public Class Form1

Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal keyCode As Integer) As Short

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

If GetAsyncKeyState(Keys.A) And e.KeyCode = Keys.W Then

MsgBox("你按下了A+W鍵")

End If

End Sub

End Class

望采納~

vb.net 怎么讓 win10 彈出系統(tǒng)通知

自己創(chuàng)建個(gè)無(wú)邊框窗體 控制下顯示位置 不就好了

樣式圖標(biāo)隨你設(shè)計(jì)

VB.NET 窗口彈出問(wèn)題

你在第一個(gè)窗口里寫 Form2.ShowDialog()

這樣就可以了，關(guān)掉form2的時(shí)候form1的代碼就會(huì)繼續(xù)執(zhí)行

網(wǎng)站題目：vb.net彈出信息 vbnet doevent
本文路徑：http://www.muchs.cn/article44/dohchee.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè)、服務(wù)器托管、云服務(wù)器、虛擬主機(jī)、標(biāo)簽優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)