建站
咨詢
售后
建站咨詢
新聞中心
vb.net中的listview控件使用問題
可以按shuift或者ctrl多選，再右鍵選刪除，也可單擊單個item右鍵選擇刪除。
創(chuàng)新互聯(lián)作為成都網(wǎng)站建設(shè)公司，專注成都網(wǎng)站建設(shè)公司、網(wǎng)站設(shè)計(jì)，有關(guān)成都定制網(wǎng)頁設(shè)計(jì)方案、改版、費(fèi)用等問題，行業(yè)涉及成都發(fā)電機(jī)回收等多個領(lǐng)域，已為上千家企業(yè)服務(wù)，得到了客戶的尊重與認(rèn)可。
如果附件代碼有問題，試試下面這個，我沒時間改了。
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'用報(bào)表模式顯示
? ? ? .FullRowSelect = True'整行選擇
? ? ? .ContextMenuStrip = ContextMenuStrip1'指定右鍵菜單的控件
? ? ? .Columns.Add("ID", 100)'添加列頭
? ? ? .Columns.Add("啦啦啦", 200)
'加入15個數(shù)據(jù)方便測試
? ? ? For i = 0 To 15
? ? ? ? ? .Items.Add("項(xiàng)目" i)
? ? ? ? ? .Items(i).SubItems.Add("我是第" i "個項(xiàng)目")
? ? ? 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
vb.net的彈出式菜單怎么做
工具箱里有ContextMenu（.NET2.0以后名字有點(diǎn)變化，大概差不多），你加入窗體后就可以像編輯普通菜單那樣編輯。
編輯好后，選中你要添加菜單的控件。屬性窗口里有個ContextMenu屬性，在里面選你剛才建立的ContextMenu
vb.net2010 menustrip控件下拉菜單屬性
這就是普通的菜單，向上彈出，還是向下彈出，是操作系統(tǒng)自動判斷的（根據(jù)可視的空間區(qū)域大小）打勾，很簡單，只要將菜單的CheckOnClick設(shè)為True就可以了
vb .net中怎么做出Excel中的彈出式菜單？請看附檔圖片，謝謝！
添加工具欄
添加彈出菜單
打上名稱 ?如果想加上 下劃線 快捷功能 ?以+字符 ?就可以了
eg 文件(F)
設(shè)置圖標(biāo) ? 完成
VB.NET命令窗口
Vb不是人機(jī)對話窗口，而是編程工具，可以編寫代碼進(jìn)行調(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）、選擇菜單【文件】|【新建】|【項(xiàng)目】后，彈出【新建項(xiàng)目】對話框。
（3）、將【項(xiàng)目類型】設(shè)置為【Visual Basic項(xiàng)目】。
（4）、將【模板】設(shè)置為【控制臺應(yīng)用程序】。
（5）、在【名稱】文本框中輸入【Hello World】。
（6）、在【位置】的文本框中輸入【E:VS.NET項(xiàng)目】，然后單擊【確定】按鈕，則Visual Studio .Net會按照上面設(shè)定的參數(shù)創(chuàng)建一個控制臺應(yīng)用程序項(xiàng)目，具體如圖01所示。
圖01："Hello World"控制臺程序的【新建項(xiàng)目】界面
（7）、在【解決方案資源管理器】窗口中，雙擊Module1.vb文件，進(jìn)入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運(yùn)行程序就可以得到圖02所示運(yùn)行界面：
在VB中調(diào)用彈出式菜單應(yīng)使用什么方法
用MouseUp事件里的 Button參數(shù) 1表示左鍵 2表示右鍵
建一個菜單 vbFile 子菜單vbRight:
(右鍵點(diǎn)擊窗體 就會彈出 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 "點(diǎn)擊了左鍵"
Case 2
Print "點(diǎn)擊了右鍵"
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事件，因?yàn)槟憧凑５膹棾霾藛?都是鼠標(biāo)鍵彈起來出現(xiàn)的
才發(fā)現(xiàn) 你是想要把系統(tǒng)的右鍵彈出式菜單屏蔽吧
如下代碼即可（把相應(yī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
網(wǎng)站名稱：關(guān)于vb.net彈出式菜單的信息
網(wǎng)頁地址：http://fisionsoft.com.cn/article/hpojhp.html
