?? frmprint.frm
字號:
VERSION 5.00
Begin VB.Form frmprint
Caption = "中小學通用排課系統 PK1.0-----------打 印------------設計：朱慶春"
ClientHeight = 6720
ClientLeft = 60
ClientTop = 345
ClientWidth = 9480
Icon = "Frmprint.frx":0000
LinkTopic = "Form1"
PaletteMode = 1 'UseZOrder
ScaleHeight = 6720
ScaleWidth = 9480
Begin VB.Frame fram
Caption = "打印臨時課表"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2895
Left = 5760
TabIndex = 35
Top = 120
Width = 1695
Begin VB.CommandButton Cmdlsb
Caption = " 開 始。。。"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 240
TabIndex = 36
Top = 1320
Width = 1215
End
End
Begin VB.CommandButton Cmdpcut
Caption = " 終止打印 返回主屏"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1335
Left = 5880
TabIndex = 29
Top = 4920
Width = 1335
End
Begin VB.CommandButton Cmdphelp
Caption = "幫 助"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Left = 5880
TabIndex = 28
Top = 3480
Width = 1335
End
Begin VB.Frame Frajsm
Caption = "打印教師名單"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2895
Left = 7440
TabIndex = 20
Top = 3360
Width = 1815
Begin VB.OptionButton Optnjjsm
Caption = "按年級分組"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 26
Top = 840
Width = 1215
End
Begin VB.CommandButton cmdpjsmok
Caption = "開始打印"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 390
TabIndex = 25
Top = 2040
Width = 1095
End
Begin VB.OptionButton Optkcjsm
Caption = "按課程分組"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 22
Top = 1320
Width = 1215
End
Begin VB.OptionButton Optbzm
Caption = "班主任名單"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 21
Top = 480
Width = 1215
End
End
Begin VB.TextBox Text1
Height = 285
Left = 9360
TabIndex = 14
Text = "Text5"
Top = 840
Visible = 0 'False
Width = 255
End
Begin VB.TextBox Text4
Height = 285
Left = 9360
TabIndex = 13
Text = "Text4"
Top = 600
Visible = 0 'False
Width = 255
End
Begin VB.TextBox Text3
Height = 285
Left = 9360
TabIndex = 12
Text = "Text3"
Top = 360
Visible = 0 'False
Width = 255
End
Begin VB.TextBox Text2
Height = 285
Left = 9360
TabIndex = 11
Text = "Text2"
Top = 120
Visible = 0 'False
Width = 255
End
Begin VB.Frame Frame4
Caption = "打印時間表"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2895
Left = 7560
TabIndex = 3
Top = 120
Width = 1695
Begin VB.CommandButton Cmdpsjbok
Caption = "開始打印"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 24
Top = 2160
Width = 975
End
Begin VB.TextBox Text5
Height = 285
Left = 360
TabIndex = 23
Text = "Text5"
Top = 1440
Width = 855
End
Begin VB.Label Label2
Caption = "（每頁四份表）"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 27
Top = 480
Width = 1335
End
Begin VB.Label Label4
Caption = "打印頁數："
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 6
Top = 960
Width = 975
End
End
Begin VB.Frame Frame3
Caption = "打印總課表"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2895
Left = 3240
TabIndex = 2
Top = 120
Width = 2295
Begin VB.CheckBox Check1
Caption = "帶教師名"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 480
TabIndex = 34
Top = 480
Width = 1575
End
Begin VB.CommandButton Cmdpzkbok
Caption = "開始打印"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 600
TabIndex = 19
Top = 2280
Width = 975
End
Begin VB.ListBox Lstpzkb
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1185
ItemData = "Frmprint.frx":030A
Left = 480
List = "Frmprint.frx":031D
TabIndex = 18
Top = 960
Width = 1215
End
Begin VB.Label Label1
Caption = "選定星期幾："
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 17
Top = 240
Width = 1095
End
End
Begin VB.Frame Frame2
Caption = " 打印教師課表"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2895
Left = 360
TabIndex = 1
Top = 3360
Width = 5295
Begin VB.OptionButton Option2
Caption = "兩教師合并"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1800
TabIndex = 33
Top = 2400
Width = 1455
End
Begin VB.OptionButton Option1
Caption = "每教師一表"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 32
Top = 2400
Width = 1455
End
Begin VB.CommandButton Cmdjsok
Caption = "開 始。。。"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 3360
TabIndex = 31
Top = 2400
Width = 1335
End
Begin VB.CheckBox Chkpjs
Caption = "全選"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1320
TabIndex = 16
Top = 240
Width = 1215
End
Begin VB.ListBox Lstpjs
Columns = 4
Height = 1680
Left = 240
MultiSelect = 2 'Extended
TabIndex = 8
Top = 480
Width = 4695
End
Begin VB.CommandButton Cmdpjsok
Caption = "開始打印"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3120
TabIndex = 10
Top = 1890
Width = 975
End
Begin VB.Label Labpjs
Caption = "選定教師："
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 5
Top = 240
Width = 975
End
End
Begin VB.Frame Frabj
Caption = "打印班級課表"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2895
Left = 360
TabIndex = 0
Top = 120
Width = 2775
Begin VB.CommandButton Cmdbjok
Caption = " 開 始。。。"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -