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

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

創新互聯主要從事成都網站制作、網站設計、網頁設計、企業做網站、公司建網站等業務。立足成都服務天祝藏族自治,10多年網站建設經驗,價格優惠、服務專業,歡迎來電咨詢建站服務:13518219792

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

求大神用VB編寫一個隨機彈球。。急急急。。。。

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

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怎么彈出如下類似的對話框（看圖）？

可以利用msgbox 實現，也可以通過另外的窗體上畫出表格實現

方法一，利用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

方法二，利用窗體實現：

’新建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.NET如何讓彈出的窗體顯示在所有的窗體的最前面（包括其他程序打開的窗體）

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

Me.TopMost = True

Form.TopMost 屬性

獲取或設置一個值，指示該窗體是否應顯示為最頂層窗體。