返回列表 上一主題 發帖

[發問] 表單_listbox選項

solely

帖子
92 
主題
18 
精華
0 
積分
195 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
女 
來自
台北 
註冊時間
2010-8-15 
最後登錄
2011-8-11 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-9-27 00:55 | 只看該作者

[發問] 表單_listbox選項

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


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

暗黑

帖子
62 
主題
10 
精華
0 
積分
253 
點名
0  
作業系統
xp , win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
人心 
註冊時間
2010-5-21 
最後登錄
2012-8-3 
2#
發表於 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
複製代碼
是學程式而不是要程式，是進步的基礎

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
3#
發表於 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

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
4#
發表於 2010-9-27 10:20 | 只看該作者
咦，一模一樣的代碼及時間，真是有志一同。

TOP

暗黑

帖子
62 
主題
10 
精華
0 
積分
253 
點名
0  
作業系統
xp , win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
人心 
註冊時間
2010-5-21 
最後登錄
2012-8-3 
5#
發表於 2010-9-27 11:09 | 只看該作者
呵呵，oobird大大...我還是有很多要向您學習的
是學程式而不是要程式，是進步的基礎

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2010-9-27 19:49 | 只看該作者
咦，一模一樣的代碼及時間，真是有志一同。
oobird 發表於 2010-9-27 10:20

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

TOP

solely

帖子
92 
主題
18 
精華
0 
積分
195 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
女 
來自
台北 
註冊時間
2010-8-15 
最後登錄
2011-8-11 
7#
發表於 2010-9-28 00:29 | 只看該作者
感謝各位~
(我把Selected(e) = False擺錯地方了XDD)

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題