【VB】Bookmark和listbox，还有限制特殊字符

        对代码的理解是相当重要的，如果你只是知道而并不能进一步去了解代码，那么你将无法独立完成一个程序，并且无法知道每段代码存在的含义。
1、Bookmark

Bookmark在英语中的含义是：书签     
在VB中Bookmark属性又有什么作用呢？
Bookmark是返回唯一标识recordset对象中当前记录的标签，或者将recordset对象的当前记录设置为由有效书签所标识的记录。返回值为变体类型。
Bookmark属性可保存当前记录的位置并随时返回到该记录。书签只能在支持书签的recordset对象中使用。

2、限制特殊字符

当限制的字符不同时，可以运用不同的语句。在这里可以运用case，if以及自定义这几种

1）自定义的方法

 

Private Sub txtResult_KeyPress(KeyAscii As Integer)
      Dim Schar As String
      Schar = "@#$%^&*();<>" '禁止输入的字符
      If InStr(1, cTemp, Chr(KeyAscii)) <> 0 Then
        KeyAscii = 0    
End Sub

2）使用Select case

Private Sub txtResult_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
       Case 8
       '无变化,退格键不屏蔽
       Case Asc("0") To Asc("9")
       Case Else ' 除了以上的 都屏蔽
        KeyAscii = 0
    End Select     
End Sub

3）使用if语句

Private Sub txtResult_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
       Case 8
       '无变化,退格键不屏蔽
       Case Asc("0") To Asc("9")
       Case Else ' 除了以上的 都屏蔽
        KeyAscii = 0
    End Select     
End Sub

ps：如果是数字限制还可运用IsNumeric函数

If Not IsNumeric(txtSID.Text) Then
       MsgBox "请输入数字!", vbOKOnly + vbExclamation, "警告"
       txtSID.SetFocus
       Exit Sub
End If

3、列表框（listbox）

用户是无法向清单中输入数据的

常用属性：

BackColor 属性：用于显示ListBox控件中的文本和图形的背景颜色，默认为白色

BorderStyle 属性：控制在列表框ListBox周围绘制的边框的类型

ScrollAlwaysVisible 属性：指示无论列表框中有多少个项都始终显示滚动条，默认为False 

HorizontalScrollbar 属性：指示是否为超过列表框右边缘的项目显示滚动条默认为False。该属性在列表框以单列显示列表的时候比较有用，与之配合使用的还有HorizontalExtent 属性。

List 属性：在设计时可向列表框中添加新项目，输人时用Ctrl+Enter组合键换行；在代码中可用来访问列表框中的所有项目，它包含了一个字符串数组，列表框中的每个项目都是这个数组的元素。
ListBox控件名．List(索引值)
其中：<索引值>为数值表达式，指定项目在列表中的位置，它是从0开始的。

ListCount属性：返回列表框中项目的总数，只在运行时可用。
ListIndex属性：返回在列表框中当前选定项目的位置，只在运行时可用。未选定任何项目时，其值为-l。
Text属性：存放当前在列表框中选定的项目，即List(ListIndex)的值。
Columns属性：指定列表框中的列数。其值为0时，列表框以垂直滚动的单列方式显示；为l时，列表框以水平滚动的单列方式显示；大于l时，列表框以水平滚动的多列方式显示
MultiSelect属性：表明是否允许用户从列表框中选定多个项目以及选定的方式。其值为0时，只允许选择一个项目，不允许复选；为1时，允许用户通过单击或按下空格键选定或撤消多个项目；为2时，允许用户使用Shift和Ctrl组合操作来选定或撤消多个项目。
语法结构： object.MultiSelect = [ Number ] 
Sorted属性：当它为True时，自动将列表按字母顺序重新排列，排序时不区分大小写。 
Style属性：表示列表框中项目的显示形式，运行时只读。其值为0时，为标准方式显示；为1时，在每个项目前加上一个复选框。 
Selected属性：该属性实际上是一个数组，各个元素的值为True或False，表明是否选择了该项。

常用方法：

AddItem：表示列表框中添加项目

ListBox控件名.AddItem＜项目＞[＜索引值＞]
<项目>为字符串表达式，表示添加到列表框中的新项目。
<索引值>为数值表达式，指定在列表框中插入新项目的位置。若为0，则插入到第一个项目位置；若缺省且Sorted属性为False，则插入到最后一个项目位置；若缺省且Sorted属性为True，则插入到合适的排序位置。

RemoveItem：表示从列表框中删除项目
ListBox控件名．RemoveItem＜索引值＞
Clear：表示清除列表框中所有项目
ListBox控件名.Clear