[µo°Ý] ªí³æ_listbox¿ï¶µ

solely

¤U¸ü (34.78 KB)

2010-9-27 00:40

¦p¹Ï©Ò¥Ü
½Ð°Ý­n¦p¦ó³]©w¡A¤~¯à¦b¿ï¨úªº¸ê®Æ¶Ç¦Ütextbox¤§«á
®ø°£listbox¤ÏÂŪº²{¶H?
¨ä¦¸¬O¡A·í¸ê®ÆÂà¦Ütextbox¬°¤°»ò²Ä¤@¦C¬OªÅ¥Õ¦C
¦³¤èªk¥i¥H®ø°£ªÅ¥Õ¦C¶Ü?
[attach]2880[/attach]

solely

·PÁ¦U¦ì~
(§Ú§âSelected(e) = FalseÂ\¿ù¦a¤è¤FXDD)

GBKEE

«x¡A¤@¼Ò¤@¼Ëªº¥N½X¤Î®É¶¡¡A¯u¬O¦³§Ó¤@¦P¡C
oobird µoªí©ó 2010-9-27 10:20

¼Ó¥D¦³»¡:   ¦p¦ó³]©w¡A¤~¯à¦b¿ï¨úªº¸ê®Æ¶Ç¦Ütextbox¤§«á ®ø°£listbox¤ÏÂŪº²{¶H?
oobird «e½ú§A¤Ö¤F       .Selected(e) = False

·t¶Â

¨þ¨þ¡Aoobird¤j¤j...§ÚÁÙ¬O¦³«Ü¦h­n¦V±z¾Ç²ßªº

oobird

«x¡A¤@¼Ò¤@¼Ëªº¥N½X¤Î®É¶¡¡A¯u¬O¦³§Ó¤@¦P¡C

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

·t¶Â

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

½Æ»s¥N½X