Board logo

標題: [發問] 表單_listbox選項 [打印本頁]
作者: solely    時間: 2010-9-27 00:55     標題: 表單_listbox選項

本帖最後由 solely 於 2011-6-5 22:17 編輯

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

  1. Private Sub CommandButton1_Click()

  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    時間: 2010-9-27 08:48

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    時間: 2010-9-27 10:20

咦，一模一樣的代碼及時間，真是有志一同。
作者: 暗黑    時間: 2010-9-27 11:09

呵呵，oobird大大...我還是有很多要向您學習的
作者: GBKEE    時間: 2010-9-27 19:49

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

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

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)