vb.net的彈出式菜單怎么做

工具箱里有ContextMenu（.NET2.0以后名字有點(diǎn)變化，大概差不多），你加入窗體后就可以像編輯普通菜單那樣編輯。

創(chuàng)新互聯(lián)主要從事成都網(wǎng)站制作、網(wǎng)站設(shè)計(jì)、網(wǎng)頁設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)天祝藏族自治,10多年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):13518219792

編輯好后，選中你要添加菜單的控件。屬性窗口里有個(gè)ContextMenu屬性，在里面選你剛才建立的ContextMenu

求大神用VB編寫一個(gè)隨機(jī)彈球。。急急急。。。。

'一個(gè)timer1控件，一個(gè)picture1控件，在picture1控件中再加入一個(gè)shape1控件。單擊picture1控件可以暫停或繼續(xù)

Option?Explicit

Const?offset?=?200

Dim?flag?As?Boolean,?u,?r

Private?Sub?Form_Load()

With?Timer1

.Enabled?=?False

.Interval?=?30

End?With

Randomize

u?=?Int(Rnd?*?2):?r?=?Int(Rnd?*?2)

Print

End?Sub

Private?Sub?Form_Resize()

With?Picture1

.Top?=?10

.Left?=?10

.Height?=?Me.ScaleHeight?-?2?*?.Top

.Width?=?Me.ScaleWidth?-?2?*?.Left

End?With

With?Shape1

.Width?=?Picture1.Width?/?20

.Left?=?(Picture1.Width?-?.Width)?/?2

.Top?=?(Picture1.Height?-?.Height)?/?2

.Shape?=?3

.FillStyle?=?0

.FillColor?=?vbRed

End?With

End?Sub

Private?Sub?Picture1_Click()

flag?=?Not?flag

If?flag?Then?Timer1.Enabled?=?True

End?Sub

Private?Sub?Timer1_Timer()

If?Not?flag?Then

Timer1.Enabled?=?False

Exit?Sub

End?If

With?Shape1

If?r?=?1?And?u?=?1?Then?'右上

.Left?=?.Left?+?offset

If?.Left?+?.Width?=?Picture1.Width?Then

.Left?=?Picture1.Width?-?.Width

r?=?0

End?If

.Top?=?.Top?-?offset

If?.Top?=?0?Then

.Top?=?0

u?=?0

End?If

End?If

If?r?=?1?And?u?=?0?Then?'右下

.Left?=?.Left?+?offset

If?.Left?+?.Width?=?Picture1.Width?Then

.Left?=?Picture1.Width?-?.Width

r?=?0

End?If

.Top?=?.Top?+?offset

If?.Top?+?.Height?=?Picture1.Height?Then

.Top?=?Picture1.Height?-?.Height

u?=?1

End?If

End?If

If?r?=?0?And?u?=?1?Then?'左上

.Left?=?.Left?-?offset

If?.Left?=?0?Then

.Left?=?0

r?=?1

End?If

.Top?=?.Top?-?offset

If?.Top?=?0?Then

.Top?=?0

u?=?0

End?If

End?If

If?r?=?0?And?u?=?0?Then?'左下

.Left?=?.Left?-?offset

If?.Left?=?0?Then

.Left?=?0

r?=?1

End?If

.Top?=?.Top?+?offset

If?.Top?+?.Height?=?Picture1.Height?Then

.Top?=?Picture1.Height?-?.Height

u?=?1

End?If

End?If

End?With

End?Sub

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

可以利用msgbox 實(shí)現(xiàn)，也可以通過另外的窗體上畫出表格實(shí)現(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

方法二，利用窗體實(shí)現(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

VB.NET如何讓彈出的窗體顯示在所有的窗體的最前面（包括其他程序打開的窗體）

你可以這樣做，設(shè)置窗體的TopMost 屬性為真！

Me.TopMost = True

Form.TopMost 屬性

獲取或設(shè)置一個(gè)值，指示該窗體是否應(yīng)顯示為最頂層窗體。

名稱欄目：vb.net實(shí)現(xiàn)桌面彈球的簡(jiǎn)單介紹
鏈接分享：http://www.chinadenli.net/article34/ddohise.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供電子商務(wù)、全網(wǎng)營銷推廣、網(wǎng)站導(dǎo)航、品牌網(wǎng)站制作、App設(shè)計(jì)、靜態(tài)網(wǎng)站

廣告

聲明：本網(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í)需注明來源： 創(chuàng)新互聯(lián)