home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / ch_code / ch06 / scrolpic / scrolpic.frm (.txt) next >
Encoding:
Visual Basic Form  |  1997-02-20  |  2.8 KB  |  87 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "PictureScroll"
  4.    ClientHeight    =   5595
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   10755
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   5595
  10.    ScaleWidth      =   10755
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.VScrollBar VScroll1 
  13.       Height          =   2205
  14.       Left            =   10260
  15.       TabIndex        =   3
  16.       Top             =   1260
  17.       Width           =   240
  18.    End
  19.    Begin VB.HScrollBar HScroll1 
  20.       Height          =   225
  21.       Left            =   7065
  22.       TabIndex        =   2
  23.       Top             =   3480
  24.       Width           =   3210
  25.    End
  26.    Begin VB.PictureBox Picture2 
  27.       Height          =   2235
  28.       Left            =   7065
  29.       ScaleHeight     =   2175
  30.       ScaleWidth      =   3150
  31.       TabIndex        =   1
  32.       Top             =   1245
  33.       Width           =   3210
  34.    End
  35.    Begin VB.PictureBox Picture1 
  36.       AutoSize        =   -1  'True
  37.       Height          =   5160
  38.       Left            =   195
  39.       Picture         =   "scrolpic.frx":0000
  40.       ScaleHeight     =   340
  41.       ScaleMode       =   3  'Pixel
  42.       ScaleWidth      =   406
  43.       TabIndex        =   0
  44.       Top             =   135
  45.       Width           =   6150
  46.    End
  47. Attribute VB_Name = "Form1"
  48. Attribute VB_GlobalNameSpace = False
  49. Attribute VB_Creatable = False
  50. Attribute VB_PredeclaredId = True
  51. Attribute VB_Exposed = False
  52. Option Explicit
  53. Private Sub Form_Load()
  54.     HScroll1.Min = 0
  55.     HScroll1.Max = ScaleX(Picture1.Picture.Width, 8, vbTwips) - Picture2.Width
  56.     HScroll1.LargeChange = 10 * Screen.TwipsPerPixelX
  57.     HScroll1.SmallChange = Screen.TwipsPerPixelX
  58.     VScroll1.Min = 0
  59.     VScroll1.Max = ScaleX(Picture1.Picture.Height, 8, vbTwips) - Picture2.Height
  60.     VScroll1.LargeChange = 10 * Screen.TwipsPerPixelY
  61.     VScroll1.SmallChange = Screen.TwipsPerPixelY
  62. End Sub
  63. Private Sub HScroll1_Change()
  64.     Picture2.PaintPicture Picture1.Picture, 0, 0, _
  65.     Picture2.Width, Picture2.Height, _
  66.     HScroll1.Value, VScroll1.Value, _
  67.     Picture2.Width, Picture2.Height
  68. End Sub
  69. Private Sub HScroll1_Scroll()
  70.     Picture2.PaintPicture Picture1.Picture, 0, 0, _
  71.     Picture2.Width, Picture2.Height, _
  72.     HScroll1.Value, VScroll1.Value, _
  73.     Picture2.Width, Picture2.Height
  74. End Sub
  75. Private Sub VScroll1_Change()
  76.     Picture2.PaintPicture Picture1.Picture, 0, 0, _
  77.     Picture2.Width, Picture2.Height, _
  78.     HScroll1.Value, VScroll1.Value, _
  79.     Picture2.Width, Picture2.Height
  80. End Sub
  81. Private Sub VScroll1_Scroll()
  82.     Picture2.PaintPicture Picture1.Picture, 0, 0, _
  83.     Picture2.Width, Picture2.Height, _
  84.     HScroll1.Value, VScroll1.Value, _
  85.     Picture2.Width, Picture2.Height
  86. End Sub
  87.