home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / SCROLVB / SCROLVB.ZIP / SCROLL-2.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-02-01  |  1.8 KB  |  54 lines
  1. VERSION 2.00
  2. Begin MDIForm frmMain 
  3.    Caption         =   "Scroll-2 Demo"
  4.    Height          =   2220
  5.    Icon            =   SCROLL-2.FRX:0000
  6.    Left            =   1080
  7.    LinkTopic       =   "MDIForm1"
  8.    Top             =   1200
  9.    Width           =   5535
  10.    Begin PictureBox picMenuBar 
  11.       Align           =   1  'Align Top
  12.       AutoRedraw      =   -1  'True
  13.       BackColor       =   &H00808080&
  14.       BorderStyle     =   0  'None
  15.       Height          =   495
  16.       Left            =   0
  17.       ScaleHeight     =   33
  18.       ScaleMode       =   3  'Pixel
  19.       ScaleWidth      =   361
  20.       TabIndex        =   0
  21.       Top             =   0
  22.       Width           =   5415
  23.       Begin CommandButton cmdExit 
  24.          Caption         =   "E&xit"
  25.          Height          =   375
  26.          Left            =   0
  27.          TabIndex        =   1
  28.          Top             =   0
  29.          Width           =   1815
  30.       End
  31.    End
  32. ' SCROLL-2.FRM - Declarations.
  33.     DefInt A-Z
  34. ' End Of Declarations.
  35. Sub cmdExit_Click ()
  36. ' What does this do?
  37.     End
  38. End Sub
  39. Sub MDIForm_Load ()
  40. ' In design mode, the frmScroll caption is set to "frmScroll", just to help
  41. ' identify it. However, when the program runs, it's important to set the
  42. ' caption to "" (null) so the form will NOT have a title bar.
  43.     frmScroll.Caption = ""
  44. ' Go ahead and show the scrolling form.
  45.     frmScroll.Show
  46. End Sub
  47. Sub picMenuBar_Resize ()
  48. ' When picMenuBar is automatically "stretched" by a form resize,
  49. ' then you have to fix the command button size to match.
  50. ' This control is not necessary for form scrolling. It's just
  51. ' included to show "controls in a top aligned picture box".
  52.     cmdExit.Move 0, 0, picMenuBar.ScaleWidth, picMenuBar.ScaleHeight
  53. End Sub
  54.