?? gostudent.frm
字號:
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Left = 1440
TabIndex = 10
Top = 1440
Width = 1935
End
Begin VB.TextBox Text4
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Left = 4920
TabIndex = 9
Top = 720
Width = 1935
End
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 4920
TabIndex = 8
Top = 240
Width = 1935
End
Begin VB.TextBox Text5
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Left = 4920
TabIndex = 7
Top = 1440
Width = 1935
End
Begin VB.CommandButton Command5
Caption = "..."
Height = 495
Left = 6960
TabIndex = 6
Top = 1440
Width = 495
End
Begin VB.Label Label12
Caption = "詳細描述"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 32
Top = 3720
Width = 1095
End
Begin VB.Label Label1
Caption = "學號"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 18
Top = 360
Width = 975
End
Begin VB.Label Label2
Caption = "姓名 "
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 17
Top = 960
Width = 855
End
Begin VB.Label Label3
Caption = "班級"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 16
Top = 1560
Width = 1095
End
Begin VB.Label Label4
Caption = "性別 "
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3720
TabIndex = 15
Top = 240
Width = 1215
End
Begin VB.Label Label5
Caption = "年級 "
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3720
TabIndex = 14
Top = 840
Width = 855
End
Begin VB.Label Label6
Caption = "時間"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3720
TabIndex = 13
Top = 1440
Width = 735
End
End
Begin VB.Frame Frame2
Height = 3615
Left = 7800
TabIndex = 0
Top = 120
Width = 1815
Begin VB.CommandButton Command1
Caption = "確 定(&Y)"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 120
TabIndex = 4
Top = 240
Width = 1575
End
Begin VB.CommandButton Command2
Caption = "打印檔案(&P)"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 120
TabIndex = 3
Top = 1080
Width = 1575
End
Begin VB.CommandButton Command3
Caption = "重 置(&E)"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 120
TabIndex = 2
Top = 1920
Width = 1575
End
Begin VB.CommandButton Command4
Caption = "關 閉(&C)"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 120
TabIndex = 1
Top = 2760
Width = 1575
End
End
End
Attribute VB_Name = "gostudent"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Calendar1_Click()
Text5.Text = Calendar1.Value
Calendar1.Visible = False
End Sub
Private Sub Command4_Click()
gostudent.Caption = "轉出學籍關系[" + Format(Date, "yyyy年mm月dd日]")
studentmdi.StatusBar1.Panels.Item(1).Text = " "
Unload Me
End Sub
Private Sub Command5_Click()
Calendar1.Visible = True
End Sub
Private Sub Form_Load()
Calendar1.Visible = False
gostudent.Caption = "轉出學籍關系[" + Format(Date, "yyyy年mm月dd日]")
studentmdi.StatusBar1.Panels.Item(1).Text = "轉出學籍關系"
gostudent.Height = 6345
gostudent.Width = 9855
Combo1.AddItem "男"
Combo1.AddItem "女"
Combo2.AddItem "是"
Combo2.AddItem "否"
Combo3.AddItem "是"
Combo3.AddItem "否"
Combo4.AddItem "是"
Combo4.AddItem "否"
Combo5.AddItem "是"
Combo5.AddItem "否"
Combo6.AddItem "是"
Combo6.AddItem "否"
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -