- 帖子
- 62
- 主題
- 10
- 精華
- 0
- 積分
- 253
- 點名
- 0
- 作業系統
- xp , win7
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 人心
- 註冊時間
- 2010-5-21
- 最後登錄
- 2012-8-3
|
- Private Sub CommandButton1_Click()
- With aa.ListBox1
- 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
-
- .Selected(e) = False
-
- End If
-
- Next
-
- aa.TextBox1 = EhStr
- [b2] = EhStr
-
- End With
- End Sub
|
|
發表於 2010-9-27 08:42
| 