vb0102.htm

VB6.0全称为VisualBasic 6.0

Private Sub List2ClearCmd_Click()
    
    '清空列表
    List2.Clear
    
End Sub

Private Sub List2MoveCmd_Click()
    
    Dim i As Integer
    '判断所选 元素是否只有一个
    If List2.SelCount = 1 Then
    
        List2.RemoveItem List2.ListIndex
        '如果所选 元素大于1，则按下列操作进行
        ElseIf List2.ListCount > 1 Then
        For i = List2.ListCount - 1 To 0 Step -1
            
            If List2.Selected(i) Then
                List2.RemoveItem i
            End If
        Next i
    End If
    
End Sub

Private Sub RighttoLeftCmd_Click()
    
    Dim i As Integer
    '判断选中的元素有几个
    If List2.SelCount = 1 Then
    
        List1.AddItem List2.Text
        List2.RemoveItem List2.ListIndex
        '当选中的元素大于一个时
        ElseIf List2.SelCount > 1 Then
        
        For i = List2.ListCount - 1 To 0 Step -1
            '如果该元素被选中，则将其从右边移至左边
            If List2.Selected(i) Then
                
                List1.AddItem List2.List(i)
                List2.RemoveItem i
            End If
        Next i
    End If
    
End Sub


</textarea> </div>
                
            <div align="center"><br>
              (<a href="/pc/program/tutors/vb/zip/vb0105.zip">源程序下载</a>) </div>
            <p align="left"><span class="p2" style="line-height:17pt">　　这个例子包含一个窗体，窗体中有两个列表框（List1、List2）和八个按钮，界面如下：</span></p>
          </td></tr><tr><td>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr align="center"> 
                <td><img src="img/010501.gif" width="413" height="346" vspace="10" hspace="10" alt="列表框应用程序"></td>
              </tr>
              <tr> 
                <td align="center"> 
                  <p class="p2" style="line-height:17pt"> 窗体（FormListBox）</p>
                </td>
              </tr>
            </table>
          </td></tr><tr>
          <td> 
            <p class="p2" style="line-height:17pt"><br>
              　　我们首先新建一个标准的EXE工程，添加一个窗体，并把列表框和按钮控件添加到窗体上。各按钮控件的名称如下表：<br>
            </p>
          </td></tr><tr>
          <td>
            <table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolor="#CCCCFF">
              <tr> 
                <td width="150"> 
                  <p class="p2" style="line-height:17pt">按钮名称</p>
                </td>
                <td width="150"> 
                  <p class="p2" style="line-height:17pt">名称属性</p>
                </td>
                <td width="150"> 
                  <p class="p2" style="line-height:17pt">按钮名称</p>
                </td>
                <td width="150"> 
                  <p class="p2" style="line-height:17pt">名称属性</p>
                </td>
              </tr>
              <tr> 
                <td> 
                  <p class="p2" style="line-height:17pt"> 删除所选项目（左）</p>
                </td>
                <td> 
                  <p class="p2" style="line-height:17pt"> List1movecmd</p>
                </td>
                <td> 
                  <p class="p2" style="line-height:17pt"> 删除所选项目（右）</p>
                </td>
                <td> 
                  <p class="p2" style="line-height:17pt"> List2movecmd</p>
                </td>
              </tr>
              <tr> 
                <td> 
                  <p class="p2" style="line-height:17pt"> 增加新项目（左）</p>
                </td>
                <td> 
                  <p class="p2" style="line-height:17pt"> List1addcmd</p>
                </td>
                <td> 
                  <p class="p2" style="line-height:17pt"> 增加新项目（右）</p>
                </td>
                <td> 
                  <p class="p2" style="line-height:17pt"> List2addcmd</p>
                </td>
              </tr>
              <tr> 
                <td> 
                  <p class="p2" style="line-height:17pt"> 清除弄表（左）</p>
                </td>
                <td> 
                  <p class="p2" style="line-height:17pt"> List1clearcmd</p>
                </td>
                <td> 
                  <p class="p2" style="line-height:17pt">清除列表（右）</p>
                </td>
                <td> 
                  <p class="p2" style="line-height:17pt"> List2clearcmd</p>
                </td>
              </tr>
              <tr>
                <td>右箭头</td>
                <td>lefttorightcmd</td>
                <td>左箭头</td>
                <td>Righttoleftcmd</td>
              </tr>
            </table>
          </td>
        </tr>
		<tr>
          <td> 
            <p align="left"><span class="p2" style="line-height:17pt"><br>
              ' List1列表框 Sorted属性设为“False” ' List2列表框 Sorted属性设为“True” ' MultiSelect属性设置为2 
              ' 即List2控件中的项目总是排序的 </span></p>
            <p align="left"><span class="p2" style="line-height:17pt">　　在属性窗口中，将List1列表框 
              Sorted属性设为“False”；</span><span class="p2" style="line-height:17pt">List2列表框 
              Sorted属性设为“True”，MultiSelect属性设置为2，即List2控件中的项目总是排序的。</span></p>
            <p align="left"><span class="p2" style="line-height:17pt"> 　　下一步我们为各控件添加相应的程序。</span></p>
            <p align="left"><span class="p2" style="line-height:17pt">　　其中：</span></p>
            <p align="left"><span class="p2" style="line-height:17pt">　　List1.AddItem 
              "China" 是将“China”添加到列表框中。</span></p>
            <p align="left"><span class="p2" style="line-height:17pt">　　List1.ListIndex 
              返回的是列表框List1中当前选择项目的索引号码。 </span></p>
            <p align="left"><span class="p2" style="line-height:17pt">　　List1.ListCount 
              返回的是列表框List1中项目总数。</span></p>
            <p align="left"><span class="p2" style="line-height:17pt">　　List1.ListCount 
              - 1 返回列表框List1中最后一个项目的索引号。</span></p>
            <p align="left"><span class="p2" style="line-height:17pt">　　</span>List1.Selected() 
              返回的是一个项目的选择状态，返回的是布尔值。</p>
            <p align="left"><span class="p2" style="line-height:17pt">　　代码写好之后，我们就可以保存工程，然后按“Ctrl+F5”键，测试检验一下我们的程序了。在这个小程序中，包含了列表框中的一般常用属性和方法。<br>
             </span></p>
            </td>
        </tr>
        <tr> 
          <td bgcolor="FF9700" height="2" width="5%"><img src="/pc/img/blank.gif" width="1" height="2"></td>
        </tr>
      </table>
      
      <table width="95%" align="center" class="p1" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="16%"> 
            <div align="center"><a href="/pc/program/index.htm">程序设计首页</a></div>
          </td>
          <td width="16%"> 
            <div align="center"><a href="/pc/program/tutors/index.htm" color="#009999">编程入门首页</a></div>
          </td>
          <td width="41%"> 
            <div align="left">相关链接：　　　<a href="/pc/program/codtutor/index.htm">VB趣味程序讲解</a></div>
          </td>
          <td width="16%"> 
            <div align="right"><a href="/pc/program/tutors/vb/vb0101.htm">上一节</a>　　<a href="/pc/program/tutors/vb/vb0103.htm">下一节</a></div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<!--底部开始--> 
<script language="Javascript" src="/pub/js/foot.js"></script>
<!--底部结束--></HTML>