home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / rprint_1 / scrollfo.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-07-17  |  7.8 KB  |  241 lines
  1. VERSION 5.00
  2. Begin VB.Form ListFrm 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "ScrollFrm"
  5.    ClientHeight    =   5685
  6.    ClientLeft      =   1575
  7.    ClientTop       =   1155
  8.    ClientWidth     =   6585
  9.    ClipControls    =   0   'False
  10.    LinkTopic       =   "Form1"
  11.    MDIChild        =   -1  'True
  12.    ScaleHeight     =   5685
  13.    ScaleWidth      =   6585
  14.    WindowState     =   2  'Maximized
  15.    Begin VB.PictureBox Corner 
  16.       BackColor       =   &H00C0C0C0&
  17.       BorderStyle     =   0  'None
  18.       DrawStyle       =   3  'Dash-Dot
  19.       DrawWidth       =   2
  20.       FillColor       =   &H000000FF&
  21.       FillStyle       =   5  'Downward Diagonal
  22.       Height          =   435
  23.       Left            =   10695
  24.       ScaleHeight     =   435
  25.       ScaleWidth      =   375
  26.       TabIndex        =   11
  27.       Top             =   7485
  28.       Width           =   375
  29.    End
  30.    Begin VB.HScrollBar HScroll1 
  31.       Height          =   225
  32.       LargeChange     =   1000
  33.       Left            =   15
  34.       SmallChange     =   100
  35.       TabIndex        =   2
  36.       Top             =   5490
  37.       Width           =   6300
  38.    End
  39.    Begin VB.VScrollBar VScroll1 
  40.       Height          =   5295
  41.       LargeChange     =   1000
  42.       Left            =   6360
  43.       SmallChange     =   100
  44.       TabIndex        =   1
  45.       Top             =   390
  46.       Value           =   100
  47.       Width           =   240
  48.    End
  49.    Begin VB.Frame Frame1 
  50.       BackColor       =   &H80000005&
  51.       BorderStyle     =   0  'None
  52.       Height          =   9060
  53.       Left            =   30
  54.       TabIndex        =   0
  55.       Top             =   -540
  56.       Width           =   10290
  57.       Begin VB.FileListBox File1 
  58.          Height          =   1845
  59.          Left            =   225
  60.          TabIndex        =   9
  61.          Top             =   6720
  62.          Width           =   2220
  63.       End
  64.       Begin VB.ListBox List1 
  65.          BackColor       =   &H00FFFFFF&
  66.          Columns         =   2
  67.          BeginProperty Font 
  68.             Name            =   "MS Sans Serif"
  69.             Size            =   9.75
  70.             Charset         =   177
  71.             Weight          =   400
  72.             Underline       =   0   'False
  73.             Italic          =   0   'False
  74.             Strikethrough   =   0   'False
  75.          EndProperty
  76.          Height          =   3300
  77.          Left            =   165
  78.          Style           =   1  'Checkbox
  79.          TabIndex        =   6
  80.          Top             =   2895
  81.          Width           =   8685
  82.       End
  83.       Begin VB.CheckBox Yes 
  84.          BackColor       =   &H00FFFFFF&
  85.          Caption         =   "Yes"
  86.          Height          =   255
  87.          Left            =   150
  88.          TabIndex        =   5
  89.          Top             =   2370
  90.          Width           =   855
  91.       End
  92.       Begin VB.CheckBox Not 
  93.          BackColor       =   &H00FFFFFF&
  94.          Caption         =   "Not"
  95.          Height          =   255
  96.          Left            =   2070
  97.          TabIndex        =   4
  98.          Top             =   2370
  99.          Width           =   975
  100.       End
  101.       Begin VB.Label Label2 
  102.          BackStyle       =   0  'Transparent
  103.          Caption         =   "FileListBox"
  104.          BeginProperty Font 
  105.             Name            =   "Times New Roman"
  106.             Size            =   11.25
  107.             Charset         =   177
  108.             Weight          =   700
  109.             Underline       =   0   'False
  110.             Italic          =   0   'False
  111.             Strikethrough   =   0   'False
  112.          EndProperty
  113.          Height          =   210
  114.          Left            =   300
  115.          TabIndex        =   10
  116.          Top             =   6330
  117.          Width           =   1635
  118.       End
  119.       Begin VB.Label Label1 
  120.          Alignment       =   2  'Center
  121.          AutoSize        =   -1  'True
  122.          BackColor       =   &H00FFFFFF&
  123.          BackStyle       =   0  'Transparent
  124.          Caption         =   "Some Performances of Roboprint"
  125.          BeginProperty Font 
  126.             Name            =   "Times New Roman"
  127.             Size            =   15.75
  128.             Charset         =   177
  129.             Weight          =   700
  130.             Underline       =   0   'False
  131.             Italic          =   0   'False
  132.             Strikethrough   =   0   'False
  133.          EndProperty
  134.          ForeColor       =   &H000000FF&
  135.          Height          =   360
  136.          Index           =   0
  137.          Left            =   1920
  138.          TabIndex        =   7
  139.          Top             =   1490
  140.          Width           =   4485
  141.       End
  142.       Begin VB.Label Label1 
  143.          Alignment       =   2  'Center
  144.          BackColor       =   &H00C0FFFF&
  145.          Caption         =   "Scroll Frame by Robocx"
  146.          BeginProperty Font 
  147.             Name            =   "MS Sans Serif"
  148.             Size            =   24
  149.             Charset         =   177
  150.             Weight          =   700
  151.             Underline       =   0   'False
  152.             Italic          =   0   'False
  153.             Strikethrough   =   0   'False
  154.          EndProperty
  155.          Height          =   1095
  156.          Index           =   1
  157.          Left            =   2775
  158.          TabIndex        =   3
  159.          Top             =   -15
  160.          Width           =   3930
  161.          WordWrap        =   -1  'True
  162.       End
  163.       Begin VB.Label Label1 
  164.          Alignment       =   2  'Center
  165.          AutoSize        =   -1  'True
  166.          BackColor       =   &H00FFFFFF&
  167.          BackStyle       =   0  'Transparent
  168.          Caption         =   $"ScrollForm.frx":0000
  169.          BeginProperty Font 
  170.             Name            =   "Times New Roman"
  171.             Size            =   15.75
  172.             Charset         =   177
  173.             Weight          =   700
  174.             Underline       =   0   'False
  175.             Italic          =   0   'False
  176.             Strikethrough   =   0   'False
  177.          EndProperty
  178.          ForeColor       =   &H00404040&
  179.          Height          =   720
  180.          Index           =   2
  181.          Left            =   1665
  182.          TabIndex        =   8
  183.          Top             =   1140
  184.          Width           =   4725
  185.       End
  186.    End
  187. Attribute VB_Name = "ListFrm"
  188. Attribute VB_GlobalNameSpace = False
  189. Attribute VB_Creatable = False
  190. Attribute VB_PredeclaredId = True
  191. Attribute VB_Exposed = False
  192. Const inch = 1440 'Twips per Inch
  193. Private Sub Form_Load()
  194. Frame1.Move 0, 0, 8.5 * inch, 11 * inch
  195. Scroll_Resize
  196.   Dim i   As Integer
  197.    List1.AddItem "FontSize"
  198.    List1.AddItem "ForeColor"
  199.    List1.AddItem "ListBox Checked"
  200.    List1.AddItem "TextBox MultiPage"
  201.    List1.AddItem "ListBox MultiPage"
  202.    List1.AddItem "DBGrid MultiPage"
  203.    List1.AddItem "DBGrid Expanded"
  204.    List1.AddItem "MsFlexGrid MulTiPage"
  205.    List1.AddItem "MsFlexGrid Expanded"
  206.    List1.AddItem "MsFlexGrid MergeCells"
  207.    List1.AddItem "ListView"
  208.    List1.AddItem "RichText"
  209.    List1.AddItem "OptionButton Value"
  210.    List1.AddItem "CheckBox Value"
  211.    List1.AddItem "Zoom"
  212.    List1.AddItem "Orientation"
  213.    List1.AddItem "MaskEd Edit"
  214.    List1.AddItem "MSChart"
  215.    List1.AddItem "Label.BackStyle Transparent"
  216.    For i = 0 To 18
  217.    List1.Selected(i) = True
  218.    Next i
  219.     List1.Selected(4) = False
  220.     Yes.Value = 1
  221. End Sub
  222. Private Sub Scroll_Resize()
  223. VScroll1.Move Width - 380, 0, 250, Height - 650
  224. HScroll1.Move 0, Height - 650, Width - 380, 250
  225. VScroll1.Max = Frame1.Height - Height + 700
  226. HScroll1.Max = Frame1.Width - Width
  227. Corner.Move HScroll1.Width, VScroll1.Height
  228. End Sub
  229. Private Sub Form_Resize()
  230. Scroll_Resize
  231. End Sub
  232. Private Sub Frame1_Click()
  233. Corner.AutoRedraw = True
  234. End Sub
  235. Private Sub HScroll1_Change()
  236. Frame1.Left = -HScroll1.Value
  237. End Sub
  238. Private Sub VScroll1_Change()
  239. Frame1.Top = -VScroll1.Value
  240. End Sub
  241.