假設你的listview的名稱為listview1,變量為a(3)
創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供攸縣網(wǎng)站建設、攸縣做網(wǎng)站、攸縣網(wǎng)站設計、攸縣網(wǎng)站制作等企業(yè)網(wǎng)站建設、網(wǎng)頁設計與制作、攸縣企業(yè)網(wǎng)站模板建站服務,十余年攸縣做網(wǎng)站經(jīng)驗,不只是建網(wǎng)站,更提供有價值的思路和整體網(wǎng)絡服務。
代碼為
for i=1 to listview1.ListItems.count
k=0
if listview1.ListItems(i).Checked=True then
k=k+1
a(k)=listview1.ListItems(i).SubItems(1)
end f
next
把ListBox的SelectionMode 屬性設置為MultiExtended就可以了
如果是代碼控制就是
ListBox1.SelectionMode=SelectionMode.MultiExtended
首先,在datagridview的CurrentCellDirtyStateChanged事件中判斷下是不是點擊的第一列復選框列,如果是,就立即將修改復選框狀態(tài)提交,然后再判斷,
如果是選中的,剛將當前行的,指定單元格的value值賦值給需要的文本框!不明白。。。。+ 企鵝
Private Sub DataGridView1_CurrentCellDirtyStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.CurrentCellDirtyStateChanged
If DataGridView1.CurrentCell.ValueType Is GetType(Boolean) Then
DataGridView1.CommitEdit(DataGridViewDataErrorContexts.Commit)
End If
If DataGridView1.CurrentCell.ColumnIndex = 0 And DataGridView1.CurrentRow.Cells(0).FormattedValue.ToString() = "True" Then
TextBox1.Text = DataGridView1.CurrentRow.Cells(3).Value.ToString()
End If
End Sub
841526269
點擊“開始”-“Excel選項”,在“基本設置”選項卡中勾選右側的“在功能區(qū)上顯示‘開發(fā)工具’”,使其顯示出來。
切換到“開發(fā)工具”功能區(qū),點擊插入”下拉列表框,在彈出的列表中選擇“復選框(ActiveX控件)”。
然后在文檔區(qū)域拖動以繪制一個復選框。 并在該復選框上右鍵單擊,在彈出的菜單中選擇“屬性”以打開“屬性對話框”。
在打開的“屬性對話框”中將“Caption”設置為空,”BackStyle“設置為透明,邊框效果設置為0類型,完成后關閉”屬性對話框“。