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 < prev    next >
Text File  |  1995-08-12  |  3KB  |  126 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. End
  55. Attribute VB_Name = "Form1"
  56. Attribute VB_Creatable = False
  57. Attribute VB_Exposed = False
  58. Option Explicit
  59.  
  60. Private Sub Form_Load()
  61.     OLE1.SizeMode = vbOLESizeAutoSize
  62.     OLE1.InsertObjDlg
  63. End Sub
  64.  
  65. Private Sub Form_Resize()
  66.     ' Skip first Resize on Load.
  67.     Static bFlag As Boolean
  68.     If bFlag Then
  69.         ' If form resizes, trigger OLE control resize behavior.
  70.         OLE1_Resize OLE1.Height, OLE1.Width
  71.     Else
  72.         bFlag = True
  73.     End If
  74.     AdjustScrollBars Me
  75. End Sub
  76.  
  77. Private Sub HScroll1_Change()
  78.     OLE1.Left = 0 - HScroll1.VALUE
  79. End Sub
  80.  
  81. Private Sub mnuClose_Click()
  82.     OLE1.Close
  83. End Sub
  84.  
  85. Private Sub mnuExit_Click()
  86.     End
  87. End Sub
  88.  
  89.  
  90. Private Sub mnuNew_Click()
  91.     OLE1.InsertObjDlg
  92. End Sub
  93.  
  94. Private Sub VScroll1_Change()
  95.     OLE1.TOP = 0 - VScroll1.VALUE
  96. End Sub
  97.  
  98. Private Sub OLE1_Resize(HeightNew As Single, WidthNew As Single)
  99.     If HeightNew > Form1.Height Then
  100.         VScroll1.Visible = True
  101.         VScroll1.MAX = HeightNew
  102.         VScroll1.LargeChange = HeightNew / (HeightNew / OLE1.Height)
  103.         VScroll1.SmallChange = VScroll1.LargeChange / 10
  104.     Else
  105.         VScroll1.Visible = False
  106.         Form1.ScaleHeight = OLE1.Height
  107.     End If
  108.     If WidthNew > Form1.Width Then
  109.         HScroll1.Visible = True
  110.         HScroll1.MAX = WidthNew
  111.         HScroll1.LargeChange = WidthNew / (WidthNew / OLE1.Width)
  112.         HScroll1.SmallChange = HScroll1.LargeChange / 10
  113.     Else
  114.         HScroll1.Visible = False
  115.         Form1.ScaleWidth = OLE1.Width
  116.     End If
  117. End Sub
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.