home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / aapain1a / toolbar.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1998-10-10  |  6.2 KB  |  215 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Begin VB.Form Form2 
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "Tools"
  6.    ClientHeight    =   7170
  7.    ClientLeft      =   45
  8.    ClientTop       =   285
  9.    ClientWidth     =   930
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   7170
  14.    ScaleWidth      =   930
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin VB.Timer Timer1 
  18.       Interval        =   1000
  19.       Left            =   480
  20.       Top             =   6360
  21.    End
  22.    Begin VB.TextBox Text3 
  23.       Height          =   285
  24.       Left            =   0
  25.       TabIndex        =   12
  26.       Text            =   "1"
  27.       ToolTipText     =   "To Change, type in a new number!"
  28.       Top             =   3600
  29.       Width           =   375
  30.    End
  31.    Begin VB.CommandButton Command3 
  32.       Caption         =   "Large"
  33.       Height          =   255
  34.       Left            =   23
  35.       TabIndex        =   6
  36.       Top             =   3000
  37.       Width           =   855
  38.    End
  39.    Begin VB.CommandButton Command6 
  40.       Caption         =   "Medium"
  41.       Height          =   255
  42.       Left            =   23
  43.       TabIndex        =   11
  44.       Top             =   2760
  45.       Width           =   855
  46.    End
  47.    Begin VB.CommandButton Command5 
  48.       Caption         =   "Small"
  49.       Height          =   255
  50.       Left            =   23
  51.       TabIndex        =   10
  52.       Top             =   2520
  53.       Width           =   855
  54.    End
  55.    Begin VB.CommandButton Command4 
  56.       Caption         =   "Large"
  57.       Height          =   255
  58.       Left            =   23
  59.       TabIndex        =   9
  60.       Top             =   1920
  61.       Width           =   855
  62.    End
  63.    Begin VB.CommandButton Command2 
  64.       Caption         =   "Medium"
  65.       Height          =   255
  66.       Left            =   23
  67.       TabIndex        =   5
  68.       Top             =   1680
  69.       Width           =   855
  70.    End
  71.    Begin VB.CommandButton Command1 
  72.       Caption         =   "Small"
  73.       Height          =   255
  74.       Left            =   23
  75.       TabIndex        =   4
  76.       Top             =   1440
  77.       Width           =   855
  78.    End
  79.    Begin VB.TextBox Text2 
  80.       Height          =   285
  81.       Left            =   23
  82.       MousePointer    =   1  'Arrow
  83.       TabIndex        =   2
  84.       ToolTipText     =   "Click to change back color!"
  85.       Top             =   840
  86.       Width           =   855
  87.    End
  88.    Begin MSComDlg.CommonDialog CommonDialog1 
  89.       Left            =   0
  90.       Top             =   6360
  91.       _ExtentX        =   847
  92.       _ExtentY        =   847
  93.       _Version        =   393216
  94.    End
  95.    Begin VB.TextBox Text1 
  96.       Height          =   285
  97.       Left            =   23
  98.       MousePointer    =   1  'Arrow
  99.       TabIndex        =   0
  100.       ToolTipText     =   "Click to change fore color!"
  101.       Top             =   240
  102.       Width           =   855
  103.    End
  104.    Begin VB.Label Label6 
  105.       Caption         =   "Info"
  106.       Height          =   2175
  107.       Left            =   45
  108.       TabIndex        =   14
  109.       Top             =   3960
  110.       Width           =   855
  111.    End
  112.    Begin VB.Label Label5 
  113.       Caption         =   "Draw Width"
  114.       Height          =   255
  115.       Left            =   0
  116.       TabIndex        =   13
  117.       Top             =   3360
  118.       Width           =   855
  119.    End
  120.    Begin VB.Label Label4 
  121.       Caption         =   "Star Brush"
  122.       Height          =   255
  123.       Left            =   0
  124.       TabIndex        =   8
  125.       Top             =   2280
  126.       Width           =   855
  127.    End
  128.    Begin VB.Label Label3 
  129.       Caption         =   "Block Brush"
  130.       Height          =   255
  131.       Left            =   23
  132.       TabIndex        =   7
  133.       Top             =   1200
  134.       Width           =   975
  135.    End
  136.    Begin VB.Label Label2 
  137.       Caption         =   "Back Color"
  138.       Height          =   255
  139.       Left            =   23
  140.       TabIndex        =   3
  141.       Top             =   600
  142.       Width           =   975
  143.    End
  144.    Begin VB.Label Label1 
  145.       Caption         =   "Fore Color"
  146.       Height          =   255
  147.       Left            =   23
  148.       TabIndex        =   1
  149.       Top             =   0
  150.       Width           =   735
  151.    End
  152. Attribute VB_Name = "Form2"
  153. Attribute VB_GlobalNameSpace = False
  154. Attribute VB_Creatable = False
  155. Attribute VB_PredeclaredId = True
  156. Attribute VB_Exposed = False
  157. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  158. 'Paint v1.0 - toolbar
  159. 'Author: Dustin Davis
  160. 'Bootleg Software Inc.
  161. 'This is the toolbar for paint! Nothing fancy, very simple
  162. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  163. Private Sub Command1_Click()
  164. 'set brush to small block
  165. Form1.pBrush = 1
  166. End Sub
  167. Private Sub Command2_Click()
  168. 'set brush to medium block
  169. Form1.pBrush = 2
  170. End Sub
  171. Private Sub Command3_Click()
  172. 'set brush to large star
  173. Form1.pBrush = 6
  174. End Sub
  175. Private Sub Command4_Click()
  176. 'set brush to large block
  177. Form1.pBrush = 3
  178. End Sub
  179. Private Sub Command5_Click()
  180. 'set brush to small star
  181. Form1.pBrush = 4
  182. End Sub
  183. Private Sub Command6_Click()
  184. 'set brush to medium star
  185. Form1.pBrush = 5
  186. End Sub
  187. Private Sub Form_Load()
  188. 'get settings
  189. Me.Top = Form1.Top
  190. Me.Left = Form1.Left - Me.Width
  191. Text1.BackColor = Form1.pColor
  192. Text2.BackColor = Form1.BackColor
  193. End Sub
  194. Private Sub Text1_Click()
  195. 'changes paint color
  196. CommonDialog1.ShowColor
  197. Form1.pColor = CommonDialog1.Color
  198. Text1.BackColor = CommonDialog1.Color
  199. End Sub
  200. Private Sub Text2_Click()
  201. 'changes back color
  202. CommonDialog1.ShowColor
  203. Form1.bColor = CommonDialog1.Color
  204. Text2.BackColor = CommonDialog1.Color
  205. Form1.BackColor = CommonDialog1.Color
  206. End Sub
  207. Private Sub Text3_Change()
  208. 'changes draw width
  209. Form1.DrawWidth = Text3.Text
  210. End Sub
  211. Private Sub Timer1_Timer()
  212. 'give info on brush stuff
  213. Label6.Caption = "Info" & vbCrLf & "Brush: " & Form1.pBrush & vbCrLf & "Width: " & Form1.DrawWidth & vbCrLf & "Left click to Draw" & vbCrLf & "Right click to erase"
  214. End Sub
  215.