可以按shuift或者ctrl多選,再右鍵選刪除,也可單擊單個item右鍵選擇刪除。
創(chuàng)新互聯(lián)作為成都網(wǎng)站建設公司,專注成都網(wǎng)站建設公司、網(wǎng)站設計,有關(guān)成都定制網(wǎng)頁設計方案、改版、費用等問題,行業(yè)涉及成都發(fā)電機回收等多個領(lǐng)域,已為上千家企業(yè)服務,得到了客戶的尊重與認可。
如果附件代碼有問題,試試下面這個,我沒時間改了。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
? With ListView1
? ? ? Dim i As Integer
? ? ? .Items.Clear()'清空
? ? ? .View = View.Details'用報表模式顯示
? ? ? .FullRowSelect = True'整行選擇
? ? ? .ContextMenuStrip = ContextMenuStrip1'指定右鍵菜單的控件
? ? ? .Columns.Add("ID", 100)'添加列頭
? ? ? .Columns.Add("啦啦啦", 200)
'加入15個數(shù)據(jù)方便測試
? ? ? For i = 0 To 15
? ? ? ? ? .Items.Add("項目" i)
? ? ? ? ? .Items(i).SubItems.Add("我是第" i "個項目")
? ? ? Next
? End With
End Sub
'菜單中刪除的click事件
Private Sub menu_del_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menu_del.Click
? If ListView1.SelectedItems.Count 1 Then
? ? ? '但選中的item數(shù)量不足一個
? ? ? MessageBox.Show("至少選擇一個")
? Else
? ? ? '刪除選中的那個item
? ? ? ListView1.SelectedItems(0).Remove()
? End If
End Sub
工具箱里有ContextMenu(.NET2.0以后名字有點變化,大概差不多),你加入窗體后就可以像編輯普通菜單那樣編輯。
編輯好后,選中你要添加菜單的控件。屬性窗口里有個ContextMenu屬性,在里面選你剛才建立的ContextMenu
這就是普通的菜單,向上彈出,還是向下彈出,是操作系統(tǒng)自動判斷的(根據(jù)可視的空間區(qū)域大?。┐蚬?,很簡單,只要將菜單的CheckOnClick設為True就可以了
添加工具欄
添加彈出菜單
打上名稱 ?如果想加上 下劃線 快捷功能 ?以+字符 ?就可以了
eg 文件(F)
設置圖標 ? 完成
Vb不是人機對話窗口,而是編程工具,可以編寫代碼進行調(diào)試執(zhí)行或者生成可執(zhí)行文件。
用Visual Studio .Net開發(fā)"Hello World!"程序:
我們知道"Hello World"一般是命令行程序,而這種程序在Visual Studio .Net中被稱為"控制臺程序"。下面是Visual Studio .Net編寫控制臺"Hello World!"程序的具體步驟:
(1)、啟動Visual Studio .Net。
(2)、選擇菜單【文件】|【新建】|【項目】后,彈出【新建項目】對話框。
(3)、將【項目類型】設置為【Visual Basic項目】。
(4)、將【模板】設置為【控制臺應用程序】。
(5)、在【名稱】文本框中輸入【Hello World】。
(6)、在【位置】的文本框中輸入【E:VS.NET項目】,然后單擊【確定】按鈕,則Visual Studio .Net會按照上面設定的參數(shù)創(chuàng)建一個控制臺應用程序項目,具體如圖01所示。
圖01:"Hello World"控制臺程序的【新建項目】界面
(7)、在【解決方案資源管理器】窗口中,雙擊Module1.vb文件,進入Module1.vb文件的編輯界面。
(8)、Visual Studio .Net已經(jīng)為產(chǎn)生Main()函數(shù)。在系統(tǒng)創(chuàng)建的Main()函數(shù)中加入下面一行代碼就可以了:
Console.WriteLine ("Hello World!")
(9)、選擇【文件】|【保存Module1.vb】菜單或者按快捷鍵Ctrl+S,保存所做的修改。
(10)、此時單擊快捷鍵Ctrl+F5運行程序就可以得到圖02所示運行界面:
用MouseUp事件里的 Button參數(shù) 1表示左鍵 2表示右鍵
建一個菜單 vbFile 子菜單vbRight:
(右鍵點擊窗體 就會彈出 vbFile下的幾個子菜單了)
Private Sub Form_Load()
vbFile.Visible = False
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Button
Case 1
Print "點擊了左鍵"
Case 2
Print "點擊了右鍵"
PopupMenu vbFile
End Select
End Sub
----------------------------
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
PopupMenu color, 4 Or 0
End If
End Sub
是對的。 建議改成MouseUp事件,因為你看正常的彈出菜單 都是鼠標鍵彈起來出現(xiàn)的
才發(fā)現(xiàn) 你是想要把系統(tǒng)的右鍵彈出式菜單屏蔽吧
如下代碼即可(把相應代碼改成你想要的)
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
PopupMenu color, 0 Or 4'左鍵所觸發(fā)的內(nèi)容
End If
If Button = 2 Then'右鍵所觸發(fā)的內(nèi)容
Text1.Enabled = False
Text1.Enabled = True
PopupMenu color, 0 Or 4
End If
End Sub