?? mainfrm.frm
字號:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Mainfrm
ClientHeight = 3780
ClientLeft = 60
ClientTop = 345
ClientWidth = 5970
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 3780
ScaleWidth = 5970
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid
Bindings = "Mainfrm.frx":0000
Height = 3255
Left = 0
TabIndex = 0
Top = 0
Width = 5895
_ExtentX = 10398
_ExtentY = 5741
_Version = 393216
FixedCols = 0
End
Begin VB.Data Data
Caption = "Data"
Connect = "Access 2000;"
DatabaseName = "I:\VB\course.mdb"
DefaultCursorType= 0 '缺省游標
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "課程"
Top = 3360
Width = 1215
End
End
Attribute VB_Name = "Mainfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
'初始化窗體位置
With Mainfrm
.Top = Screen.Hight / 2 - .Hight / 2
.Left = Screen.width / 2 - width / 2
End With
'初始化MSFlexGrid控件位置和大小
With MSFlexGridl
.Top = 0
.Left = 0
.width = Mainfrm.ScaleWidth
.Height = Mainfrm.ScaleHeight
End With
End Sub
'當調用窗體大小時,調整其上控件的大小
Private Sub Form_Resize()
With MSFlexGridl
.Top = 0
.Left = 0
.width = Mainfrm.ScaleWidth
.Height = Mainfrm.ScaleHeight
End With
Call tuneSize '調用函數調整MSFlexGrid控件的尺寸
End Sub
'調整MSFlexGrid控件的尺寸
Private Sub tuneSize()
Dim width
width = MSFlexGridl.CellWidth * MSFlexGridl.Cols
If width < MSFlexGridl.width Then
MSFlexGridl.ColWidth(MSFlexGridl.Cols - 1) = MSFlexGridl.width - MSFlexGridl.CellWidth * (MSFlexGridl.Cols - 1)
End If
End Sub
Private Sub MSFlexGrid_Click()
Dim courseID, courseName As String
'如果是學生且選中一門課程
If (MSFlexGridl.Row > 0 And Not admin) Then
'讀取課程編號和課程名稱
courseID = CStr(MSFlexGridl.TextMatrix(MSFlexGridl.Row, 0))
courseName = CStr(MSFlexGridl.TextMatrix(MSFlexGridl.Row, 1))
'調用模塊函數,提交選課要求
Call commitForm(courseID, courseName)
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -