home *** CD-ROM | disk | FTP | other *** search
/ Discovering Windows 98 / WinExpert9.iso / features / VisualBasic / Vb05 / frmDoodler.frm (.txt) < prev    next >
Visual Basic Form  |  1998-04-14  |  4KB  |  137 lines
  1. VERSION 5.00
  2. Begin VB.Form frmDoodler 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Doodler"
  5.    ClientHeight    =   4725
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   7725
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   4725
  13.    ScaleWidth      =   7725
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.PictureBox picDrawingArea 
  16.       AutoRedraw      =   -1  'True
  17.       BackColor       =   &H00FFFFFF&
  18.       Height          =   4215
  19.       Left            =   2160
  20.       ScaleHeight     =   4155
  21.       ScaleWidth      =   5355
  22.       TabIndex        =   5
  23.       Top             =   360
  24.       Width           =   5415
  25.    End
  26.    Begin VB.ListBox lstColours 
  27.       Height          =   1230
  28.       Left            =   120
  29.       TabIndex        =   4
  30.       Top             =   3360
  31.       Width           =   1935
  32.    End
  33.    Begin VB.CheckBox chkContinuousDrawing 
  34.       Caption         =   "Continuous Drawing"
  35.       Height          =   255
  36.       Left            =   120
  37.       TabIndex        =   2
  38.       Top             =   2760
  39.       Width           =   1935
  40.    End
  41.    Begin VB.CommandButton cmdClear 
  42.       Caption         =   "Clear"
  43.       Height          =   375
  44.       Left            =   120
  45.       TabIndex        =   1
  46.       Top             =   2280
  47.       Width           =   1935
  48.    End
  49.    Begin VB.Frame fraShape 
  50.       Caption         =   "Shape"
  51.       Height          =   2055
  52.       Left            =   120
  53.       TabIndex        =   0
  54.       Top             =   120
  55.       Width           =   1935
  56.       Begin VB.OptionButton optShape 
  57.          Caption         =   "Vertical Line"
  58.          Height          =   255
  59.          Index           =   3
  60.          Left            =   240
  61.          TabIndex        =   10
  62.          Top             =   1560
  63.          Width           =   1455
  64.       End
  65.       Begin VB.OptionButton optShape 
  66.          Caption         =   "Horizontal Line"
  67.          Height          =   255
  68.          Index           =   2
  69.          Left            =   240
  70.          TabIndex        =   9
  71.          Top             =   1200
  72.          Width           =   1455
  73.       End
  74.       Begin VB.OptionButton optShape 
  75.          Caption         =   "Square"
  76.          Height          =   255
  77.          Index           =   1
  78.          Left            =   240
  79.          TabIndex        =   8
  80.          Top             =   840
  81.          Width           =   1455
  82.       End
  83.       Begin VB.OptionButton optShape 
  84.          Caption         =   "Circle"
  85.          Height          =   255
  86.          Index           =   0
  87.          Left            =   240
  88.          TabIndex        =   7
  89.          Top             =   480
  90.          Width           =   1455
  91.       End
  92.    End
  93.    Begin VB.Label Label2 
  94.       Caption         =   "Drawing Area"
  95.       Height          =   255
  96.       Left            =   2160
  97.       TabIndex        =   6
  98.       Top             =   120
  99.       Width           =   1935
  100.    End
  101.    Begin VB.Label Label1 
  102.       Caption         =   "Colour"
  103.       Height          =   255
  104.       Left            =   120
  105.       TabIndex        =   3
  106.       Top             =   3120
  107.       Width           =   1935
  108.    End
  109. Attribute VB_Name = "frmDoodler"
  110. Attribute VB_GlobalNameSpace = False
  111. Attribute VB_Creatable = False
  112. Attribute VB_PredeclaredId = True
  113. Attribute VB_Exposed = False
  114. Option Explicit
  115. Private Sub Form_Load()
  116.     With lstColours
  117.         .AddItem "Black"
  118.         .ItemData(.NewIndex) = RGB(0, 0, 0)
  119.         .AddItem "Red"
  120.         .ItemData(.NewIndex) = RGB(255, 0, 0)
  121.         .AddItem "Green"
  122.         .ItemData(.NewIndex) = RGB(0, 255, 0)
  123.         .AddItem "Blue"
  124.         .ItemData(.NewIndex) = RGB(0, 0, 255)
  125.         .AddItem "Yellow"
  126.         .ItemData(.NewIndex) = RGB(255, 255, 0)
  127.         .AddItem "Cyan"
  128.         .ItemData(.NewIndex) = RGB(0, 255, 255)
  129.         .AddItem "Magenta"
  130.         .ItemData(.NewIndex) = RGB(255, 0, 255)
  131.         .AddItem "White"
  132.         .ItemData(.NewIndex) = RGB(255, 255, 255)
  133.         .ListIndex = 0
  134.     End With
  135.     optShape(0).Value = True
  136. End Sub
  137.