[發問] 表單_listbox選項

solely

下載 (34.78 KB)

2010-9-27 00:40

如圖所示
請問要如何設定，才能在選取的資料傳至textbox之後
消除listbox反藍的現象?
其次是，當資料轉至textbox為什麼第一列是空白列
有方法可以消除空白列嗎?
[attach]2880[/attach]

暗黑

1. Private Sub CommandButton1_Click()
   
2. 
   
3.   With aa.ListBox1
   
4.     For e = 0 To .ListCount - 1
   
5.       If .Selected(e) = True Then
   
6.       
   
7.         If EhStr = "" Then
   
8.            EhStr = .List(e)
   
9.         Else
   
10.           EhStr = EhStr & vbCrLf & .List(e)
    
11.         End If
    
12.         
    
13.       .Selected(e) = False
    
14.       
    
15.       End If
    
16.       
    
17.     Next
    
18.    
    
19.     aa.TextBox1 = EhStr
    
20.     [b2] = EhStr
    
21.    
    
22.   End With
    
23. End Sub

複製代碼

oobird

For e = 0 To .ListCount - 1
If .Selected(e) = True Then
If Ehstr = "" Then
Ehstr = .List(e)
Else
Ehstr = Ehstr & vbCrLf & .List(e)
End If
End If
Next
aa.TextBox1 = Ehstr

oobird

咦，一模一樣的代碼及時間，真是有志一同。

暗黑

呵呵，oobird大大...我還是有很多要向您學習的

GBKEE

咦，一模一樣的代碼及時間，真是有志一同。
oobird 發表於 2010-9-27 10:20

樓主有說:   如何設定，才能在選取的資料傳至textbox之後 消除listbox反藍的現象?
oobird 前輩你少了       .Selected(e) = False

solely

感謝各位~
(我把Selected(e) = False擺錯地方了XDD)