home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD71996272000.psc / BackGround.frm (.txt) next >
Encoding:
Visual Basic Form  |  2000-06-21  |  1.4 KB  |  43 lines
  1. VERSION 5.00
  2. Begin VB.Form BackGround 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Form4"
  5.    ClientHeight    =   6495
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   9105
  9.    LinkTopic       =   "Form4"
  10.    ScaleHeight     =   433
  11.    ScaleMode       =   3  'Pixel
  12.    ScaleWidth      =   607
  13.    ShowInTaskbar   =   0   'False
  14.    StartUpPosition =   3  'Windows Default
  15.    WindowState     =   2  'Maximized
  16. Attribute VB_Name = "BackGround"
  17. Attribute VB_GlobalNameSpace = False
  18. Attribute VB_Creatable = False
  19. Attribute VB_PredeclaredId = True
  20. Attribute VB_Exposed = False
  21. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  22.     If KeyCode = vbKeyRight Then
  23.         BGPosition = BGPosition + 5
  24.     End If
  25.     If KeyCode = vbKeyLeft Then
  26.         BGPosition = BGPosition - 5
  27.     End If
  28.     If KeyCode = vbKeyEscape Then
  29.         DeleteGeneratedDC (BG)
  30.         Unload Me
  31.         End
  32.     End If
  33.     BitBlt BackGround.hdc, 0, 0, BackGround.ScaleWidth, BackGround.ScaleHeight, BG, BGPosition, 0, vbSrcCopy
  34. End Sub
  35. Private Sub Form_Load()
  36.     While BG <= 0                                           '
  37.         BG = GenerateDC(App.Path & "\bgbigh.bmp")           '
  38.     Wend
  39. End Sub
  40. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  41.     MsgBox (BGPosition + X)
  42. End Sub
  43.