程序设计基础——VisualBasic教程第2版工业和信息化普通高等教育“十二五”规划教材立项项目课件作者周黎钱瑛周阳花第3章节基本控件.pptVIP

第3章 基本控件 Private Sub CmdLeft_Click() 左移 Dim s As String s = List1.List(List1.ListIndex) 选中项的内容赋给变量s s = Mid(s, Len(……) + 1) 去除该项内容左侧的一组省略号 List1.List(List1.ListIndex) = s 在原来位置显示更改后的内容 End Sub Private Sub CmdRight_Click() 右移 Dim s As String s = List1.List(List1.ListIndex) 选中项的内容赋给变量s List1.List(List1.ListIndex) = …… s 在该项内容左侧增加一组省略号 End Sub Private Sub CmdUp_Click() 上移 Dim s As String, i As Integer i = List1.ListIndex 选中项的索引号赋给变量i s = List1.List(i - 1) 选中项上一行内容赋给变量s List1.List(i - 1) = List1.List(i) 选中项内容上移 List1.List(i) = s 原上一项的内容下移 List1.Selected(i - 1) = True 蓝色条同步上移 End Sub Private Sub CmdDown_Click() 下移 Dim s As String, i As String i = List1.ListIndex 选中项的索引号赋给变量i s = List1.List(i + 1) 选中项下一行内容赋给变量s List1.List(i + 1) = List1.List(i) 选中项内容下移 List1.List(i) = s 原下一项的内容上移 List1.Selected(i + 1) = True 蓝色条同步下移 End Sub Private Sub CmdNext_Click() 下一个 Dim i As Integer i = List1.ListIndex + 1 选中项下一行索引号赋给变量i If List1.List(i) = Then 下一项无内容 List1.AddItem 添加一项空行 List1.Selected(i) = True 选中该项 Text1.Text = 文本框清空 Else 下一项有内容 Text1.Text = List1.List(i + 1) 在文本框中显示改项内容 List1.Selected(i) = True 选中该项 End If Text1.SetFocus 文本框获得焦点 End Sub Private Sub CmdInsert_Click() 插入 List1.AddItem , List1.ListIndex List1.Selected(List1.ListIndex - 1) = True End Sub Private Sub CmdDelete_Click() 删除 Dim i As Integer i = List1.ListIndex If i -1 Then If i = List1.ListCount - 1 Then List1.List(i) = i = i – 1 Else List1.RemoveItem List1.ListIndex End If List1.Selected(i) = True End If End Sub * （3）Selected(运行态属性) ：当选中多个列表项时，列表框名.Selected(列表项序号)形式，值为True表示该序号所对应的列表项选中， “False”表示未选中 （4）SelCount (运行态属性) ：用户同时选中列表项的数目。 （5）Style：控制列表框的外观，取值可以为0(标准形式)和1(复选框形式) Style (风格属性)