学生管理系统总结——代码分析

版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/LYN_xj94512/article/details/78064889
                 对代码的理解是相当重要的,如果你只是知道而并不能进一步去了解代码,那么你将无法独立完成一个程序,并且无法知道每段代码存在的含义。
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


阅读更多
换一批

没有更多推荐了,返回首页