frmhelp.frm

VB编写的中小学监考老师排表软件

VERSION 5.00
Begin VB.Form frmhelp 
   Caption         =   "中小学通用排课软件PK10使用说明书"
   ClientHeight    =   5550
   ClientLeft      =   3450
   ClientTop       =   990
   ClientWidth     =   5685
   Icon            =   "frmhelp.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   5550
   ScaleWidth      =   5685
   Begin VB.TextBox text1 
      Height          =   5775
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Text            =   "frmhelp.frx":030A
      Top             =   0
      Width           =   8055
   End
   Begin VB.Menu mnuziti 
      Caption         =   "显示"
      Begin VB.Menu mnuda 
         Caption         =   "大字"
      End
      Begin VB.Menu mnuzhong 
         Caption         =   "中字"
      End
      Begin VB.Menu mnuxiao 
         Caption         =   "小字"
      End
   End
   Begin VB.Menu mnudayin 
      Caption         =   "打印"
      Begin VB.Menu mnudda 
         Caption         =   "大字"
      End
      Begin VB.Menu mnucchong 
         Caption         =   "中字"
      End
      Begin VB.Menu mnuxxiao 
         Caption         =   "小字"
      End
   End
   Begin VB.Menu munfaihui 
      Caption         =   "返回"
   End
End
Attribute VB_Name = "frmhelp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
ans = MsgBox("真的要打印说明书（十多页）吗？", vbYesNo)
If ans = 6 Then
Printer.Print text1.Text
End If
End Sub


Private Sub Command2_Click()
Unload frmhelp

End Sub


Private Sub Form_Resize()
text1.Width = Me.Width * 0.98
text1.Height = Me.Height * 0.87
text1.Left = 0
text1.Top = 0

End Sub


Private Sub mnucchong_Click()
Printer.Print text1.Text
Printer.EndDoc
End Sub

Private Sub mnuda_Click()
text1.FontSize = 20
End Sub


Private Sub mnudda_Click()
oldsize = Printer.FontSize
Printer.FontSize = oldsize + 3
Printer.Print text1.Text
Printer.FontSize = oldsize
Printer.Print text1.Text
Printer.EndDoc
End Sub

Private Sub mnuxiao_Click()
text1.FontSize = 6

End Sub

Private Sub mnuxxiao_Click()
oldsize = Printer.FontSize
Printer.FontSize = oldsize - 2
Printer.Print text1.Text
Printer.FontSize = oldsize
Printer.EndDoc
End Sub

Private Sub mnuzhong_Click()
text1.FontSize = 12

End Sub


Private Sub munfaihui_Click()
Unload Me
End Sub