剛查了全文,沒找到類似的文章
我想問就是
我有一個ListBox
當每收到一筆資料後,我就....AddItem .....
所以資料會累加上去
那麼有辦法說,之前已經增加進去的資料,再做修改,位置不變
比方說,我現在的ListBox裡面,有5筆資料
111
000
666
333
555
我可以將000修改變010後(不是用手動,而是用程式將它改變),然後再加入到ListBox裡變
111
010
666
333
555
這樣行嗎,謝謝各位
我想問就是
我有一個ListBox
當每收到一筆資料後,我就....AddItem .....
所以資料會累加上去
那麼有辦法說,之前已經增加進去的資料,再做修改,位置不變
比方說,我現在的ListBox裡面,有5筆資料
111
000
666
333
555
我可以將000修改變010後(不是用手動,而是用程式將它改變),然後再加入到ListBox裡變
111
010
666
333
555
這樣行嗎,謝謝各位
文章標籤
全站熱搜
:::您可以利用原始的方法: 1.將目前要改變的位置記錄下來 2.將位置之後的值搬到另一個地方,順便刪除要改變的值和之後的值 3.利用ADDITEM加入新的值 4.利用ADDITEM加入之前在2.搬到另一個地方的值
找到要更改項目的 ListIndex, 以您的例子是 1 List1.list(1) = "010" 就可以改掉了...
好的,我試試看,謝謝你
可以了,我用List1.List(1)的方式去做,可以修改了,謝謝二位的幫忙 另外,ListBox有辦法做到無框的顯示嗎 就是說,ListBox是一個框框,然後資料再把它AddItem進去 那麼我不想看到框框,或是它整個框框變透明 是這樣的,我的畫面有個底圖,如果加入ListBox,那麼底圖就被ListBox檔住了 我想要讓資料也能加進去,然後又想看到底圖,請問VB有辦法做到嗎,謝謝各位
把listbox隱藏，用label設成透明同步顯示.
謝謝你的幫忙 請問你指的是,不用ListBox,改用Label顯示嗎 我詳述一下 假設我的底圖是3cm*3cm 那麼我希望那些筆數的資料全放在這個底圖上,不要超過 因為我想的到的,就是ListBox,它有捲軸可以上下移動, 即使資料筆數很多,也不怕它會超過這個底圖 之前試過用Label,但是因為筆數不一定,有時很少,有時很多 很難控制將資料全放在那個底圖裡, 不知有其它的好方法嗎 謝謝各位
label可以設成autosize 管它資料多還是少~再試試看~
好的,我試試看,謝謝你
謝謝你 我剛試了一下 假設我的筆數有10筆,那麼我的Label的高度,大約只設了3筆的高度 也就是說,我那10筆,在畫面上,只要看到3筆(因為Label高度我就設和底圖一樣高) 剛試了,它將10筆資料全部顯示出來,超過了那個底圖的高度 我是想要它旁邊有捲軸,它顯示3筆,其它用捲軸來移動這樣看,不知道這樣能不能做的到,謝謝你
你的ListBox都用透明Label來代替了 你還會想放上醜醜的不透明捲軸嗎? 試試自己加入以下程式碼需要的物件 並執行測試看看 應該就是你要的結果了 試過之後其餘的你自己視需要修改囉~^^~ Dim k As Integer Private Sub Form_Load() 'Form1.Picture = LoadPicture("xxx.bmp") Label1.Move 0, 0, 1000, 0: Label1.BackStyle = 0: Label1.BorderStyle = 0 Label2(0).BackStyle = 0: Label2(0).BorderStyle = 1 Label2(0).Caption = "▲": Label2(0).AutoSize = True Label2(1).BackStyle = 0: Label2(1).BorderStyle = 1 Label2(1).Caption = "▼": Label2(1).AutoSize = True Label2(0).Move 1000, 0 Label2(1).Move 1000, Label2(0).Height + Screen.TwipsPerPixelY List1.Visible = False Command1.Caption = "新增列表" Command1.Move 1000 + Label2(0).Width, 0 End Sub Private Sub Label2_Click(Index As Integer) Select Case Index Case 0: If List1.ListIndex ＞ 0 Then List1.ListIndex = List1.ListIndex - 1 Case 1: If List1.ListIndex ＜ List1.ListCount - 1 Then List1.ListIndex = List1.ListIndex + 1 End Select Call LVshowinLB End Sub Private Sub Command1_Click() List1.AddItem k: k = k + 1: Call LVshowinLB End Sub Sub LVshowinLB() If List1.ListIndex ＜ 0 Then List1.ListIndex = 0 Label1.AutoSize = True: Label1.Caption = "" g = 0 For i = IIf(List1.ListIndex ＞= 0, List1.ListIndex, 0) To IIf(List1.ListIndex + 2 ＜= List1.ListCount - 1, List1.ListIndex + 2, List1.ListCount - 1) g = g + 1: Label1.Caption = Label1.Caption & List1.List(i) & IIf(g ＜ 3, vbCrLf, "") Next i 'Label1.Width = 1000 End Sub
好的,我試試看,謝謝你