📄 6486.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>
  <head>
    <title>高手帮我忙，这是一个LISTBOX的程式</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>高手帮我忙，这是一个LISTBOX的程式</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:ez03ab78@ms23.hinet.net">小ＥＺ</a> on October 15, 1998 at 02:48:50:<p>
删除钮<br>Private Sub Command1_Click()<br> For i = List3.ListCount - 1 To 0 Step -1<br>  If List3.Selected(i) Then<br>   List3.RemoveItem i<br>  End If<br> Next i<br>End Sub<br>-----------------------------------------------------------------<br>新增钮<br>Private Sub Command2_Click()<br> For i = List1.ListCount - 1 To 0 Step -1<br>  If List1.Selected(i) Then<br>   List3.AddItem List1.List(i) & "*" & List2<br>  End If<br>Next i<br>End Sub<br>-------------------------------------------------------------<br>Private Sub Form_Load()<br> List1.AddItem "土司"<br>  List1.AddItem "牛肉"<br>   List1.AddItem "猪肉"<br>    List1.AddItem "火腿"<br>     List1.AddItem "青瓜"<br>      List1.AddItem "青丝"<br>       List2.AddItem "1"<br>        List2.AddItem "2"<br>         List2.AddItem "3"<br>        List2.AddItem "4"<br>       List2.AddItem "5"<br>      List2.AddItem "6"<br>   <br>End Sub<br>......................................<br>　以上是我的程式码内容，我做了三个LISTBOX，而我在LIST1和LIST3BOX内，我将MultSelect<br>设成１的简易多重选取，因此我在点选许多List1Box和一个的List2box，就产生在List3box内，<br>可是我在List1box点选的顺序跟在list3box的不一样，不知程式内还少了些什么，可以改善，谢<br>谢高手出面解围．．．．
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 6486-->
<!--top: 6487--><li><a href="6487.html">Sorted 设为 True</a> <b>小吴</b> <i>07:27:17 10/15/98</i>
(<!--responses: 6487-->0)
<ul><!--insert: 6487-->
</ul><!--end: 6487-->
</ul><!--end: 6486-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -