print.frm

彩票查询

VERSION 5.00
Begin VB.Form Form2 
   Appearance      =   0  'Flat
   AutoRedraw      =   -1  'True
   BackColor       =   &H80000005&
   BorderStyle     =   0  'None
   ClientHeight    =   855
   ClientLeft      =   120
   ClientTop       =   420
   ClientWidth     =   1665
   ControlBox      =   0   'False
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   7.5
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   NegotiateMenus  =   0   'False
   ScaleHeight     =   855
   ScaleWidth      =   1665
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Visible         =   0   'False
   Begin VB.Timer Timer1 
      Interval        =   20
      Left            =   600
      Top             =   0
   End
   Begin VB.ListBox List1 
      Appearance      =   0  'Flat
      CausesValidation=   0   'False
      Columns         =   3
      Height          =   270
      IntegralHeight  =   0   'False
      Left            =   0
      TabIndex        =   0
      TabStop         =   0   'False
      Top             =   0
      Width           =   1455
   End
   Begin VB.Menu file 
      Caption         =   "文件"
      Begin VB.Menu print1 
         Caption         =   "打印"
         Shortcut        =   ^P
      End
      Begin VB.Menu font1 
         Caption         =   "设置字体"
         Begin VB.Menu fname 
            Caption         =   "粗字体"
         End
         Begin VB.Menu inta 
            Caption         =   "斜字体"
         End
         Begin VB.Menu colo 
            Caption         =   "字体颜色"
         End
         Begin VB.Menu d 
            Caption         =   "字体大小"
         End
      End
      Begin VB.Menu clo 
         Caption         =   "关闭"
         Shortcut        =   ^C
      End
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Const WM_SYSCOMMAND = &H112
Private Const SC_MOVE = &HF010&
Private Const HTCAPTION = 2

Private Sub clo_Click()
Unload Me
End Sub

Private Sub colo_Click()
Form1.CommonDialog1.ShowColor
List1.ForeColor = Form1.CommonDialog1.Color
End Sub

Private Sub d_Click()
temp = InputBox("请输入字体大小!", "字体", 8)
If Val(temp) < 1 Or temp = "" Then Exit Sub
If temp > 12 Then temp = 12
If temp < 5 Then temp = 5
If temp > 11 Then List1.Columns = 2
List1.FontSize = temp
End Sub

Private Sub fname_Click()
If fname.Checked = False Then
fname.Checked = True
List1.FontBold = True
Else
fname.Checked = False
List1.FontBold = False
End If
End Sub

Private Sub Form_Load()
file.Visible = False
Me.Height = Screen.Height + 200
Me.Width = Screen.Width - 900
List1.Top = 10
List1.Left = 10
List1.Height = Me.Height - 60
List1.Width = Me.Width - 60
List1.AddItem Form1.Label4.ToolTipText
For i = 1 To Form1.List1.ListCount
j = j + 1
Form1.List1.ListIndex = i - 1
List1.AddItem Form1.List1.Text
Next
List1.FontSize = 8
Form1.List1.Visible = True
End Sub

Private Sub inta_Click()
If inta.Checked = False Then
inta.Checked = True
List1.FontItalic = True
Else
inta.Checked = False
List1.FontItalic = False
End If
End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu file
End Sub

Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
ReleaseCapture
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0
End If
End Sub

Private Sub print1_Click()
List1.ListIndex = 0
Me.PrintForm
print1.Enabled = False
End Sub

Private Sub Timer1_Timer()
List1.ToolTipText = List1.Text
End Sub