📄 plan.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form plan
Caption = "Game Dates"
ClientHeight = 4875
ClientLeft = 60
ClientTop = 345
ClientWidth = 6135
Icon = "plan.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 4875
ScaleWidth = 6135
Begin VB.CommandButton Command3
BackColor = &H00E0E0E0&
Caption = "&Close"
Height = 255
Left = 1560
Style = 1 'Graphical
TabIndex = 5
Top = 4080
Width = 1100
End
Begin VB.CommandButton Command2
BackColor = &H00E0E0E0&
Caption = "&Print"
Height = 255
Left = 240
Style = 1 'Graphical
TabIndex = 4
Top = 4080
Width = 1100
End
Begin VB.TextBox Text1
Alignment = 2 'Center
Height = 285
Left = 240
Locked = -1 'True
TabIndex = 3
Top = 3360
Width = 2415
End
Begin VB.CommandButton Command1
BackColor = &H00E0E0E0&
Caption = "&Show"
Height = 255
Left = 720
Style = 1 'Graphical
TabIndex = 2
Top = 2880
Width = 1575
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "tennis.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = -240
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "dates"
Top = 0
Visible = 0 'False
Width = 1215
End
Begin MSComCtl2.MonthView MonthView1
Height = 2370
Left = 240
TabIndex = 0
Top = 360
Width = 2490
_ExtentX = 4392
_ExtentY = 4180
_Version = 393216
ForeColor = -2147483630
BackColor = -2147483633
Appearance = 1
StartOfWeek = 23003138
CurrentDate = 36955
End
Begin MSFlexGridLib.MSFlexGrid grid
Bindings = "plan.frx":0442
Height = 4275
Left = 2880
TabIndex = 1
Top = 360
Width = 2955
_ExtentX = 5212
_ExtentY = 7541
_Version = 393216
Rows = 6
Cols = 6
FixedRows = 0
FixedCols = 0
BackColor = 14737632
ForeColor = 0
BackColorFixed = 8421504
ForeColorFixed = 12632256
ForeColorSel = 14737632
BackColorBkg = 12632256
GridColor = 0
GridColorFixed = 8421504
AllowBigSelection= 0 'False
FillStyle = 1
GridLines = 2
ScrollBars = 2
SelectionMode = 1
Appearance = 0
End
Begin VB.Line Line27
X1 = 2800
X2 = 2900
Y1 = 4550
Y2 = 4550
End
Begin VB.Line Line26
X1 = 2800
X2 = 2900
Y1 = 4300
Y2 = 4300
End
Begin VB.Line Line25
X1 = 2800
X2 = 2800
Y1 = 4300
Y2 = 4550
End
Begin VB.Line Line24
X1 = 2800
X2 = 2900
Y1 = 2400
Y2 = 2400
End
Begin VB.Line Line23
X1 = 2800
X2 = 2800
Y1 = 2400
Y2 = 2670
End
Begin VB.Line Line22
X1 = 2800
X2 = 2900
Y1 = 2670
Y2 = 2670
End
Begin VB.Line Line21
X1 = 2800
X2 = 2900
Y1 = 3170
Y2 = 3170
End
Begin VB.Line Line20
X1 = 2800
X2 = 2800
Y1 = 2870
Y2 = 3175
End
Begin VB.Line Line19
X1 = 2800
X2 = 2900
Y1 = 2870
Y2 = 2870
End
Begin VB.Line Line18
X1 = 2800
X2 = 2900
Y1 = 3595
Y2 = 3595
End
Begin VB.Line Line17
X1 = 2800
X2 = 2800
Y1 = 3350
Y2 = 3600
End
Begin VB.Line Line16
X1 = 2800
X2 = 2900
Y1 = 3350
Y2 = 3350
End
Begin VB.Line Line15
X1 = 2800
X2 = 2900
Y1 = 4105
Y2 = 4105
End
Begin VB.Line Line14
X1 = 2800
X2 = 2800
Y1 = 3850
Y2 = 4100
End
Begin VB.Line Line13
X1 = 2800
X2 = 2900
Y1 = 3850
Y2 = 3850
End
Begin VB.Line Line12
X1 = 2800
X2 = 2900
Y1 = 1950
Y2 = 1950
End
Begin VB.Line Line11
X1 = 2800
X2 = 2800
Y1 = 1950
Y2 = 2200
End
Begin VB.Line Line10
X1 = 2860
X2 = 2800
Y1 = 2200
Y2 = 2200
End
Begin VB.Line Line9
X1 = 2800
X2 = 2900
Y1 = 1440
Y2 = 1440
End
Begin VB.Line Line8
X1 = 2800
X2 = 2800
Y1 = 1440
Y2 = 1740
End
Begin VB.Line Line7
X1 = 2800
X2 = 2900
Y1 = 1740
Y2 = 1740
End
Begin VB.Line Line6
X1 = 2800
X2 = 2900
Y1 = 960
Y2 = 960
End
Begin VB.Line Line5
X1 = 2800
X2 = 2800
Y1 = 960
Y2 = 1260
End
Begin VB.Line Line4
X1 = 2800
X2 = 2900
Y1 = 1260
Y2 = 1260
End
Begin VB.Line Line3
X1 = 2800
X2 = 2900
Y1 = 750
Y2 = 750
End
Begin VB.Line Line2
X1 = 2800
X2 = 2800
Y1 = 450
Y2 = 750
End
Begin VB.Line Line1
X1 = 2800
X2 = 2900
Y1 = 450
Y2 = 450
End
End
Attribute VB_Name = "plan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
MonthView1 = Text1
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.FontBold = True
End Sub
Private Sub Command2_Click()
Dim rep
plan.PrintForm
rep = MsgBox("Do you want to close this window?", vbYesNo, "PRINT")
If rep = vbYes Then
Unload Me
End If
End Sub
Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command3.FontBold = False
Command2.FontBold = True
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command3.FontBold = True
Command2.FontBold = False
End Sub
Private Sub Form_Load()
grid.ColWidth(0) = 1840
plan.Width = 6255
plan.Height = 5280
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.FontBold = False
Command3.FontBold = False
Command2.FontBold = False
End Sub
Private Sub grid_Click()
grid.ColSel = 1
grid.Col = 1
Text1 = grid.text
End Sub
Private Sub MonthView1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.FontBold = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -