home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Quiz_Softw2029431162006.psc / frmDirection.frm < prev    next >
Text File  |  2003-07-13  |  5KB  |  142 lines
  1. VERSION 5.00
  2. Begin VB.Form frmDirection 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00FAFFFF&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    ClientHeight    =   4275
  7.    ClientLeft      =   45
  8.    ClientTop       =   45
  9.    ClientWidth     =   3720
  10.    ControlBox      =   0   'False
  11.    BeginProperty Font 
  12.       Name            =   "Arial"
  13.       Size            =   9.75
  14.       Charset         =   0
  15.       Weight          =   400
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H00000000&
  21.    KeyPreview      =   -1  'True
  22.    LinkTopic       =   "Form1"
  23.    LockControls    =   -1  'True
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   285
  27.    ScaleMode       =   3  'Pixel
  28.    ScaleWidth      =   248
  29.    ShowInTaskbar   =   0   'False
  30.    StartUpPosition =   1  'CenterOwner
  31.    Tag             =   "Direction"
  32.    Begin VB.Label lblExit 
  33.       BackStyle       =   0  'Transparent
  34.       Caption         =   "<<< Exit >>>"
  35.       BeginProperty Font 
  36.          Name            =   "Arial"
  37.          Size            =   9.75
  38.          Charset         =   0
  39.          Weight          =   700
  40.          Underline       =   0   'False
  41.          Italic          =   0   'False
  42.          Strikethrough   =   0   'False
  43.       EndProperty
  44.       ForeColor       =   &H00FF0000&
  45.       Height          =   315
  46.       Left            =   1260
  47.       MousePointer    =   99  'Custom
  48.       TabIndex        =   0
  49.       Top             =   3900
  50.       Width           =   1335
  51.    End
  52. End
  53. Attribute VB_Name = "frmDirection"
  54. Attribute VB_GlobalNameSpace = False
  55. Attribute VB_Creatable = False
  56. Attribute VB_PredeclaredId = True
  57. Attribute VB_Exposed = False
  58. Option Explicit
  59.  
  60. Private Sub Form_KeyPress(KeyAscii As Integer)
  61.     If KeyAscii = vbKeyEscape Then Unload Me
  62. End Sub
  63.  
  64. Private Sub Form_Load()
  65.     Dim lhDC As Long
  66.     Dim tRECT As RECT, tBM As BITMAP
  67.     Dim i As Integer, step As Integer
  68.     Dim Temp As Picture
  69.     On Error Resume Next
  70.     
  71.     Set Temp = LoadPicture(ImagePath & "notebook.bmp")
  72.     GetClientRect Me.hwnd, tRECT
  73.     GetObjectAPI Temp, Len(tBM), tBM
  74.     step = 0
  75.     For i = 0 To tRECT.Right / tBM.bmWidth
  76.         Me.PaintPicture Temp, step, 0, tBM.bmWidth, tBM.bmHeight
  77.         step = step + tBM.bmWidth
  78.     Next i
  79.     If Not (lhDC = 0) Then DeleteDC lhDC
  80.     
  81.     Dim PencilTailWidth As Long, PencilHeadWidth As Long
  82.     Dim OffsetPencilX As Long, OffsetPencilY As Long
  83.     Dim Sprite As Picture, Mask As Picture
  84.     
  85.     Set Sprite = LoadPicture(ImagePath & "pheadsprite.bmp")
  86.     Set Mask = LoadPicture(ImagePath & "pheadmask.bmp")
  87.     GetObjectAPI Sprite.Handle, Len(tBM), tBM
  88.     OffsetPencilX = 10
  89.     OffsetPencilY = tBM.bmHeight + 5
  90.     PencilHeadWidth = tBM.bmWidth
  91.     Me.PaintPicture Mask, tRECT.Right - tBM.bmWidth - OffsetPencilX, OffsetPencilY, tBM.bmWidth, tBM.bmHeight, , , , , vbSrcAnd
  92.     Me.PaintPicture Sprite, tRECT.Right - tBM.bmWidth - OffsetPencilX, OffsetPencilY, tBM.bmWidth, tBM.bmHeight, , , , , vbSrcInvert
  93.     
  94.     Set Sprite = LoadPicture(ImagePath & "ptailsprite.bmp")
  95.     Set Mask = LoadPicture(ImagePath & "ptailmask.bmp")
  96.     GetObjectAPI Sprite.Handle, Len(tBM), tBM
  97.     PencilTailWidth = tBM.bmWidth
  98.     ' create transparent bitmap
  99.     Me.PaintPicture Mask, OffsetPencilX, OffsetPencilY, tBM.bmWidth, tBM.bmHeight, , , , , vbSrcAnd
  100.     Me.PaintPicture Sprite, OffsetPencilX, OffsetPencilY, tBM.bmWidth, tBM.bmHeight, , , , , vbSrcInvert
  101.     
  102.     Set Temp = LoadPicture(ImagePath & "pbody.bmp")
  103.     GetObjectAPI Temp.Handle, Len(tBM), tBM
  104.     step = 0
  105.     For i = 0 To (tRECT.Right - PencilHeadWidth - PencilTailWidth - OffsetPencilX * 2) / tBM.bmWidth
  106.         Me.PaintPicture Temp, step + OffsetPencilX + PencilTailWidth, OffsetPencilY, tBM.bmWidth, tBM.bmHeight, , , , , vbSrcCopy
  107.         step = step + tBM.bmWidth
  108.     Next i
  109.     
  110.     Dim tSize As SIZE, OldTextColor As Long
  111.     Dim hFont As Long, tLf As LOGFONT, OldFont As Long
  112.     
  113.     tLf.lfWeight = &H2BC ' Bold
  114.     tLf.lfWidth = &HE
  115.     tLf.lfHeight = &H1A
  116.     hFont = CreateFontIndirect(tLf)
  117.     OldFont = SelectObject(Me.hdc, hFont)
  118.     GetTextExtentPoint32 Me.hdc, Me.Tag, Len(Me.Tag), tSize
  119.     OldTextColor = SetTextColor(Me.hdc, &HC0C0FF)
  120.     TextOut Me.hdc, (tRECT.Right - tSize.cx) / 2, OffsetPencilY + 2, Me.Tag, Len(Me.Tag)
  121.     SetTextColor Me.hdc, OldTextColor
  122.     SelectObject Me.hdc, OldFont
  123.     If Not (hFont = 0) Then DeleteObject hFont
  124.     Rectangle Me.hdc, 0, 0, tRECT.Right, tRECT.Bottom
  125.     lblExit.Left = (tRECT.Right - lblExit.Width) / 2
  126.     lblExit.Top = tRECT.Bottom - lblExit.Height - 5
  127.     Set lblExit.MouseIcon = LoadResPicture(101, vbResCursor)
  128.     
  129.     tRECT.Left = tRECT.Left + 10
  130.     tRECT.Top = tRECT.Top + 85
  131.     tRECT.Right = tRECT.Right - 10
  132.     tRECT.Bottom = tRECT.Bottom - 35
  133.     
  134.     DrawText Me.hdc, MyExam.Direction, Len(MyExam.Direction), _
  135.         tRECT, DT_LEFT Or DT_WORDBREAK
  136. End Sub
  137.  
  138. Private Sub lblExit_Click()
  139.     Unload Me
  140. End Sub
  141.  
  142.