form4.frm

模拟驾驶员上机考试,实现单机自动随机出题,批卷,纠错.

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form4 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   9045
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   15360
   LinkTopic       =   "Form1"
   ScaleHeight     =   9045
   ScaleWidth      =   15360
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "Command2"
      Height          =   345
      Left            =   6960
      TabIndex        =   6
      Top             =   1575
      Visible         =   0   'False
      Width           =   1005
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   465
      Left            =   930
      TabIndex        =   5
      Top             =   1305
      Visible         =   0   'False
      Width           =   1110
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   450
      Top             =   1950
   End
   Begin MSFlexGridLib.MSFlexGrid MG1 
      Height          =   5190
      Left            =   -15
      TabIndex        =   0
      Top             =   4650
      Width           =   15300
      _ExtentX        =   26988
      _ExtentY        =   9155
      _Version        =   393216
      Rows            =   100
      Cols            =   7
      FixedRows       =   0
      FixedCols       =   0
      BackColorBkg    =   16777215
      WordWrap        =   -1  'True
      BorderStyle     =   0
      Appearance      =   0
   End
   Begin VB.Image Image1 
      Height          =   465
      Left            =   13020
      Top             =   3105
      Width           =   1935
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "28"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   11685
      TabIndex        =   4
      Top             =   3150
      Width           =   765
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "C1"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   4395
      TabIndex        =   3
      Top             =   3195
      Width           =   405
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "2007年10月26日"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      Left            =   255
      TabIndex        =   2
      Top             =   3165
      Width           =   2295
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   315
      Left            =   6975
      TabIndex        =   1
      Top             =   555
      Width           =   1230
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Const PM_REMOVE = &H1
Private Type POINTAPI
    x As Long
    y As Long
End Type
Private Type Msg
    hWnd As Long
    Message As Long
    wParam As Long
    lParam As Long
    time As Long
    pt As POINTAPI
End Type
Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
Private Declare Function WaitMessage Lib "user32" () As Long
Private bCancel As Boolean
Private Const WM_MOUSEWHEEL = 522
Private Sub Form_Load()
Me.Picture = LoadPicture(App.Path & "\gck.dll")
Me.Left = 0
Me.Top = 0
Me.Width = Screen.Width
Me.Height = Screen.Height
MG1.Left = 0
MG1.Width = Me.Width
MG1.Height = Me.Height
MG1.Height = MG1.Height - MG1.Top
MG1.ColWidth(0) = 500
MG1.ColWidth(1) = 4470
MG1.ColWidth(2) = 4470
MG1.ColWidth(3) = 2955
MG1.ColWidth(4) = 900
MG1.ColWidth(5) = 900
MG1.ColWidth(6) = 800
MG1.Row = 0
        MG1.Col = 3
        'Set MG1.CellPicture = LoadPicture(App.Path & "")
        For i = 0 To 99
        MG1.RowHeight(i) = 1800
        Next
        For i = 0 To 99
          MG1.Row = i
          MG1.Col = 0
          MG1.TextMatrix(i, 0) = i + 1
          MG1.CellFontSize = 15
          MG1.CellAlignment = 4
          MG1.Col = 4
          MG1.CellFontSize = 15
          MG1.CellAlignment = 4
          MG1.Col = 5
          MG1.CellFontSize = 15
          MG1.CellAlignment = 4
          MG1.Col = 3
          MG1.CellPictureAlignment = 4
          MG1.Col = 6
          MG1.CellPictureAlignment = 4
          Next
         For i = 0 To 99
           MG1.Row = i
           MG1.Col = 1
           MG1.CellAlignment = 1
           MG1.CellFontSize = 12
           MG1.Col = 2
           MG1.CellFontSize = 12
          Next
          
' For i = 0 To 99

 Timer1.Enabled = True

          
'MG1.TextMatrix(1, 2) = "uieoufjdjfdsjfj" & Chr(13) & "jhgfjhfg" & Chr(13) & "jhseryrtytrhaof" & Chr(13) & "754ugeurgurhaof"
'MG1.TextMatrix(0, 1) = "遇高速公路遇高速公路遇高速公路遇高速公路遇高速公路"
'MG1.CellAlignment = 1
End Sub

Private Sub Label1_Click()
Unload Me
End Sub

 
Private Sub ProcessMessages()
    Dim Message As Msg
    Do While Not bCancel
        WaitMessage 'Wait For message and...
        If PeekMessage(Message, Me.hWnd, WM_MOUSEWHEEL, WM_MOUSEWHEEL, PM_REMOVE) Then '...when the mousewheel is used...
            If Message.wParam < 0 Then '...scroll up...
                keybd_event VK_DOWN, MapVirtualKey(VK_DOWN, 0), 0, 0    '按下A键
                Sleep 100
                keybd_event VK_DOWN, MapVirtualKey(VK_DOWN, 0), KEYEVENTF_KEYUP, 0    '释放A键
            Else '... or scroll down
                keybd_event VK_UP, MapVirtualKey(VK_UP, 0), 0, 0    '按下A键
                Sleep 100
                keybd_event VK_UP, MapVirtualKey(VK_UP, 0), KEYEVENTF_KEYUP, 0    '释放A键
            End If
        End If
        DoEvents
        Loop
    End Sub
 
'Private Sub Form_Load()
   ' Me.AutoRedraw = True
   ' Me.Print "Please use now mouse wheel to move this form."

'End Sub
 
Private Sub Form_Unload(Cancel As Integer)
Timer1.Enabled = False
    'bCancel = True
    start.Show
End Sub

Private Sub Timer1_Timer()

ProcessMessages
Timer1.Enabled = False

End Sub