No.1只让一个窗体显示
这种方法不推荐使用,比较繁琐,另外还出现了一个Bug,无论第一个窗体显示什么,都会出现“没有记录”,继续点击其他的窗体则无误
No.2文本框禁止粘贴功能
1、直接禁止
2、间接禁止
在文本框获得焦点的时候清空剪切板(有待研究)
No.3 MSFlexGrid显示一行
With myFlexgrid .Rows = 1说明总行数只有一行,而MSFlexGrid1从第0行开,第0行即你看到第一行
故首先设置MSFlexGrid属性行为1,固定行和固定列为0,然后如下图
With myFlexgrid
.CellAlignment = 4
.TextMatrix(0, 0) = "考试编号"
.TextMatrix(0, 1) = "学号"
.TextMatrix(0, 2) = "姓名"
.TextMatrix(0, 3) = "班号"
.TextMatrix(0, 4) = "课程名称"
.TextMatrix(0, 5) = "分数"
End With
No.4修改信息无记录时关闭窗体
Private Sub modifycinfoMenu_Click()
Dim txtSQL As String
Dim MsgText As String
txtSQL = "select * from class_Info"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF And mrc.BOF Then
MsgBox "当前没有记录,请添加记录后再修改!", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
frmModifyclassinfo.Show
End Sub
No.5MSFlexGrid显示全部日期
With myFlexgrid '初始化flexgrid控件的行标题
.CellAlignment = 4 'flexAlignCenter
.ColWidth(3) = 1130
.ColWidth(6) = 1130