111.frm

主要用于学校机房考试,主要包括选择题,问答题,WORD操作题,WINDOWS操作题.学生做完后,可立即得到考试分数.

VERSION 5.00
Begin VB.Form Form15 
   Appearance      =   0  'Flat
   AutoRedraw      =   -1  'True
   BackColor       =   &H000000FF&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   3765
   ClientLeft      =   2175
   ClientTop       =   3375
   ClientWidth     =   8970
   BeginProperty Font 
      Name            =   "Arial"
      Size            =   12
      Charset         =   0
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "111.frx":0000
   ScaleHeight     =   3765
   ScaleWidth      =   8970
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   3885
      Top             =   1635
   End
End
Attribute VB_Name = "Form15"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function BeginPath Lib "gdi32" _
                (ByVal hdc As Long) _
                As Long

Private Declare Function SetBkMode Lib "gdi32" _
                (ByVal hdc As Long, _
                ByVal nBkMode As Long) _
                As Long

Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" _
                (ByVal hdc As Long, _
                ByVal X As Long, _
                ByVal Y As Long, _
                ByVal lpString As String, _
                ByVal nCount As Long) _
                As Long

Private Declare Function EndPath Lib "gdi32" _
                (ByVal hdc As Long) _
                As Long

Private Declare Function PathToRegion Lib "gdi32" _
                (ByVal hdc As Long) _
                As Long

Private Declare Function SetWindowRgn Lib "user32" _
                (ByVal hwnd As Long, _
                ByVal hRgn As Long, _
                ByVal bRedraw As Boolean) _
                As Long

Private Declare Function SelectObject Lib "gdi32" _
                (ByVal hdc As Long, _
                ByVal hObject As Long) _
                As Long
                
Private Declare Function CreateFont Lib "gdi32" _
                Alias "CreateFontA" _
                (ByVal H As Long, _
                ByVal W As Long, _
                ByVal E As Long, _
                ByVal O As Long, _
                ByVal W As Long, _
                ByVal i As Long, _
                ByVal u As Long, _
                ByVal S As Long, _
                ByVal C As Long, _
                ByVal OP As Long, _
                ByVal CP As Long, _
                ByVal Q As Long, _
                ByVal PAF As Long, _
                ByVal F As String) _
                As Long
                
Private Const OPAQUE = 2
Private Const TRANSPARENT = 1

Private Const ANSI_CHARSET = 10
Private Const FW_HEAVY = 1200
Private Const OUT_DEFAULT_PRECIS = 0
Private Const CLIP_DEFAULT_PRECIS = 0
Private Const DEFAULT_QUALITY = 0
Private Const DEFAULT_PITCH = 0
Private Const FF_SWISS = 90      '  Variable stroke width, sans-serifed.
Dim a As Integer
Private Sub Form_Load()
    Dim dc As Long
    Dim m_wndRgn As Long
    Dim m_Font As Long
    Dim m_OldFont As Long
    
    dc = Me.hdc
    m_Font = CreateFont(140, 23, 0, 0, FW_HEAVY, 1, 0, _
                       0, ANSI_CHARSET, OUT_DEFAULT_PRECIS, _
                       CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, _
                       DEFAULT_PITCH Or FF_SWISS, "华文隶书")
    BeginPath dc
    '开始记录窗体轮廓路径
    SetBkMode dc, 2
    '设置背景为透明模式,这是必须有的
    m_OldFont = SelectObject(dc, m_Font)
    TextOut dc, 100, 0, "濮阳县第三中学", 14
    TextOut dc, 110, 100, "教学管理系统", 14
    SelectObject dc, m_OldFont
    EndPath dc
    '结束记录窗体轮廓路径
    m_wndRgn = PathToRegion(dc)
    '把所记录的路径转化为窗体轮廓句柄
    SetWindowRgn Me.hwnd, m_wndRgn, True
    '赋予窗体指定的轮廓形状
End Sub

Private Sub Timer1_Timer()

a = a + 1
If a = 5 Then
Unload Me
Form2.Show
End If
End Sub