📄 full.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Begin VB.Form full
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 10440
ClientLeft = 0
ClientTop = 0
ClientWidth = 13620
LinkTopic = "Form1"
ScaleHeight = 10440
ScaleWidth = 13620
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
WindowState = 2 'Maximized
Begin VB.CheckBox Sort_check
Caption = "Check7"
Height = 195
Left = 1080
TabIndex = 11
Top = 2280
Visible = 0 'False
Width = 135
End
Begin VB.CommandButton sort
BackColor = &H00E0E0E0&
Caption = "&Sort"
Height = 375
Left = 200
Style = 1 'Graphical
TabIndex = 10
Top = 1320
Width = 1335
End
Begin VB.CheckBox Check2
Height = 375
Left = 1080
TabIndex = 9
Top = 1560
Visible = 0 'False
Width = 375
End
Begin VB.CommandButton Print_button
BackColor = &H00E0E0E0&
Caption = "&Print"
Height = 375
Left = 200
Style = 1 'Graphical
TabIndex = 1
Top = 720
Width = 1335
End
Begin VB.CommandButton Close_Button
BackColor = &H00E0E0E0&
Caption = "&close"
Height = 375
Left = 200
Style = 1 'Graphical
TabIndex = 0
Top = 200
Width = 1335
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "tennis.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = -120
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "Participant"
Top = 0
Visible = 0 'False
Width = 1140
End
Begin MSFlexGridLib.MSFlexGrid grdOther
Bindings = "full.frx":0000
Height = 9435
Left = 2760
TabIndex = 2
Top = 720
Width = 9870
_ExtentX = 17410
_ExtentY = 16642
_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
BorderStyle = 0
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label6
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Nationality"
Height = 375
Left = 10630
TabIndex = 8
Top = 360
Width = 1740
End
Begin VB.Label Label5
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Sponsor"
Height = 375
Left = 8560
TabIndex = 7
Top = 360
Width = 2070
End
Begin VB.Label Label4
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Sexe"
Height = 375
Left = 7410
TabIndex = 6
Top = 360
Width = 1150
End
Begin VB.Label Label3
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Rank"
Height = 375
Left = 6440
TabIndex = 5
Top = 360
Width = 970
End
Begin VB.Label Label2
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Surname"
Height = 375
Left = 4600
TabIndex = 4
Top = 360
Width = 1840
End
Begin VB.Label Label1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Name"
Height = 375
Left = 2760
TabIndex = 3
Top = 360
Width = 1840
End
End
Attribute VB_Name = "full"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Close_button_Click()
Unload Me
End Sub
Private Sub Close_button_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Close_Button.FontBold = True
End Sub
Private Sub Form_Load()
grdOther.ColWidth(1) = 1840
grdOther.ColWidth(4) = 2070
grdOther.ColWidth(5) = 1740
grdOther.ColWidth(0) = 1840
grdOther.ColWidth(2) = 970
grdOther.RowHeight(0) = 500
End Sub
Private Sub grdOther_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Close_Button.FontBold = False
Print_button.FontBold = False
sort.FontBold = False
If Sort_check = 1 Then
frmSort.Show
End If
End Sub
Private Sub Label1_Click()
grdOther.ColSel = 0
grdOther.Col = 0
If Check2 = False Then
grdOther.sort = flexSortStringAscending
Check2.Value = 1
Else
grdOther.sort = flexSortStringDescending
Check2 = 0
End If
End Sub
Private Sub Label2_Click()
grdOther.ColSel = 1
grdOther.Col = 1
If Check2 = False Then
grdOther.sort = flexSortStringAscending
Check2.Value = 1
Else
grdOther.sort = flexSortStringDescending
Check2 = 0
End If
End Sub
Private Sub Label3_Click()
grdOther.ColSel = 2
grdOther.Col = 2
If Check2 = False Then
grdOther.sort = flexSortNumericAscending
Check2.Value = 1
Else
grdOther.sort = flexSortNumericDescending
Check2 = 0
End If
End Sub
Private Sub Label4_Click()
grdOther.ColSel = 3
grdOther.Col = 3
If Check2 = False Then
grdOther.sort = flexSortStringAscending
Check2.Value = 1
Else
grdOther.sort = flexSortStringDescending
Check2 = 0
End If
End Sub
Private Sub Label5_Click()
grdOther.ColSel = 4
grdOther.Col = 4
If Check2 = False Then
grdOther.sort = flexSortStringAscending
Check2.Value = 1
Else
grdOther.sort = flexSortStringDescending
Check2 = 0
End If
End Sub
Private Sub Label6_Click()
grdOther.ColSel = 5
grdOther.Col = 5
If Check2 = False Then
grdOther.sort = flexSortStringAscending
Check2.Value = 1
Else
grdOther.sort = flexSortStringDescending
Check2 = 0
End If
End Sub
Private Sub print_button_Click()
On Error GoTo era:
full.PrintForm
Exit Sub
era:
MsgBox "printer error!!!", 48, "error"
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Close_Button.FontBold = False
Print_button.FontBold = False
sort.FontBold = False
If Sort_check = 1 Then
frmSort.Show
End If
End Sub
Private Sub Print_button_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print_button.FontBold = True
sort.FontBold = False
End Sub
Private Sub sort_Click()
frmSort.Show
Sort_check = 1
End Sub
Private Sub sort_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
sort.FontBold = True
Print_button.FontBold = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -