home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch13code / scroll.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-08-12  |  3.0 KB  |  108 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   4212
  6.    ClientLeft      =   1128
  7.    ClientTop       =   1788
  8.    ClientWidth     =   6696
  9.    Height          =   4764
  10.    Left            =   1080
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4212
  13.    ScaleWidth      =   6696
  14.    Top             =   1284
  15.    Width           =   6792
  16.    Begin VB.HScrollBar HScroll1 
  17.       Height          =   255
  18.       Left            =   0
  19.       TabIndex        =   1
  20.       Top             =   3960
  21.       Width           =   6495
  22.    End
  23.    Begin VB.VScrollBar VScroll1 
  24.       Height          =   3975
  25.       Left            =   6480
  26.       TabIndex        =   0
  27.       Top             =   0
  28.       Width           =   255
  29.    End
  30.    Begin VB.OLE OLE1 
  31.       BackColor       =   &H00C0C0C0&
  32.       Height          =   3975
  33.       Left            =   0
  34.       TabIndex        =   2
  35.       Top             =   0
  36.       Width           =   6495
  37.    End
  38.    Begin VB.Menu mnuFile 
  39.       Caption         =   "&File"
  40.       NegotiatePosition=   1  'Left
  41.       Begin VB.Menu mnuNew 
  42.          Caption         =   "&New Object"
  43.       End
  44.       Begin VB.Menu mnuClose 
  45.          Caption         =   "&Close Object"
  46.       End
  47.       Begin VB.Menu mnuSep1 
  48.          Caption         =   "-"
  49.       End
  50.       Begin VB.Menu mnuExit 
  51.          Caption         =   "E&xit"
  52.       End
  53.    End
  54. Attribute VB_Name = "Form1"
  55. Attribute VB_Creatable = False
  56. Attribute VB_Exposed = False
  57. Option Explicit
  58. Private Sub Form_Load()
  59.     OLE1.SizeMode = vbOLESizeAutoSize
  60.     OLE1.InsertObjDlg
  61. End Sub
  62. Private Sub Form_Resize()
  63.     ' Skip first Resize on Load.
  64.     Static bFlag As Boolean
  65.     If bFlag Then
  66.         ' If form resizes, trigger OLE control resize behavior.
  67.         OLE1_Resize OLE1.Height, OLE1.Width
  68.     Else
  69.         bFlag = True
  70.     End If
  71.     AdjustScrollBars Me
  72. End Sub
  73. Private Sub HScroll1_Change()
  74.     OLE1.Left = 0 - HScroll1.VALUE
  75. End Sub
  76. Private Sub mnuClose_Click()
  77.     OLE1.Close
  78. End Sub
  79. Private Sub mnuExit_Click()
  80.     End
  81. End Sub
  82. Private Sub mnuNew_Click()
  83.     OLE1.InsertObjDlg
  84. End Sub
  85. Private Sub VScroll1_Change()
  86.     OLE1.TOP = 0 - VScroll1.VALUE
  87. End Sub
  88. Private Sub OLE1_Resize(HeightNew As Single, WidthNew As Single)
  89.     If HeightNew > Form1.Height Then
  90.         VScroll1.Visible = True
  91.         VScroll1.MAX = HeightNew
  92.         VScroll1.LargeChange = HeightNew / (HeightNew / OLE1.Height)
  93.         VScroll1.SmallChange = VScroll1.LargeChange / 10
  94.     Else
  95.         VScroll1.Visible = False
  96.         Form1.ScaleHeight = OLE1.Height
  97.     End If
  98.     If WidthNew > Form1.Width Then
  99.         HScroll1.Visible = True
  100.         HScroll1.MAX = WidthNew
  101.         HScroll1.LargeChange = WidthNew / (WidthNew / OLE1.Width)
  102.         HScroll1.SmallChange = HScroll1.LargeChange / 10
  103.     Else
  104.         HScroll1.Visible = False
  105.         Form1.ScaleWidth = OLE1.Width
  106.     End If
  107. End Sub
  108.