Visual Basic

david-gee@hotmail.com

Option Explicit<br />
<br />
Private PointX() As Single<br />
Private PointY() As Single<br />
Private NumPoints As Integer<br />
Public c, j, c1, c2<br />
Private Drawing As Boolean<br />
<br />
<pre>
Private Sub Form_Activate()
c1 = vbBlack
c2 = vbBlack
c = 1
End Sub
</pre><br />
Private Sub Form_KeyPress(KeyAscii As Integer)<br />
    Timer3.Interval = 1<br />
    Timer4.Interval = 1<br />
If KeyAscii = 97 Then<br />
    frmAbout.Visible = True<br />
    frmAbout.Timer1.Interval = 500<br />
End If<br />
If KeyAscii = 49 Then<br />
    Form1.cdbDialog.ShowColor<br />
    c1 = Form1.cdbDialog.Color<br />
    Form1.Enabled = True<br />
    Form1.Visible = True<br />
    Form1.WindowState = 2<br />
End If<br />
If KeyAscii = 50 Then<br />
    Form1.CommonDialog1.ShowColor<br />
    c2 = Form1.CommonDialog1.Color<br />
    Form1.Enabled = True<br />
    Form1.Visible = True<br />
    Form1.WindowState = 2<br />
End If<br />
If KeyAscii = 32 Then<br />
    NumPoints = 0<br />
    Cls<br />
End If<br />
If KeyAscii = 43 Then<br />
    If c = 1300 Then c = 1299<br />
    DrawWidth = DrawWidth + 1<br />
    c = c + 1<br />
    Label1.Caption = c<br />
    If c = 1300 Then c = 1299<br />
End If<br />
If KeyAscii = 45 Then<br />
    If c = 1 Then<br />
    Else<br />
        DrawWidth = DrawWidth - 1<br />
        c = c - 1<br />
        If c = 0 Then c = 1<br />
        Label1.Caption = c<br />
    End If<br />
End If<br />
If KeyAscii = 48 Then<br />
    DrawWidth = 1<br />
    Label1.Caption = "1"<br />
    c = 1<br />
End If<br />
If KeyAscii = 63 Then<br />
    j = InputBox("Input a line width 1 - 1300", "Line Width", c)<br />
    If j > 1300 Or j = 0 Then<br />
        j = InputBox("Input a line width 1 - 1300", "Line Width", c)<br />
        KeyAscii = 63<br />
    Else<br />
        c = j<br />
        Label1.Caption = j<br />
        Form1.DrawWidth = j<br />
    End If<br />
End If<br />
End Sub<br />
<pre>
Private Sub Form_Load()
Label1.Caption = "1"
c = 1
    Timer3.Interval = 1
    Timer4.Interval = 1
    AutoRedraw = True
End Sub</pre><br />
<br />
<br />
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)<br />
    ' Let MouseMove know we are drawing.<br />
    Drawing = True<br />
<br />
    ' Start from scratch<br />
    Timer3.Interval = 1<br />
    Timer4.Interval = 1<br />
    ' Start drawing here.<br />
    CurrentX = X<br />
    CurrentY = Y<br />
End Sub<br />
<br />
<pre>Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' Make sure we are drawing.
    If Not Drawing Then Exit Sub

    ' Save the new point.
    NumPoints = NumPoints + 1
    ReDim Preserve PointX(1 To NumPoints)
    ReDim Preserve PointY(1 To NumPoints)
    PointX(NumPoints) = X
    PointX(NumPoints) = X
    Timer3.Interval = 1
    Timer4.Interval = 1
    
    ' Draw to the point.
    Line -(X, Y)
End Sub

</pre><br />
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)<br />
    ' Stop drawing.<br />
    Drawing = False<br />
<br />
End Sub<br />
<br />
<br />
Private Sub Option2_Click()<br />
End Sub<br />
<br />
Private Sub Form_Terminate()<br />
c1 = vbBlack<br />
c2 = vbBlack<br />
Unload Me<br />
End<br />
End Sub<br />
<br />
<pre>Private Sub Form_Unload(Cancel As Integer)
Unload Me
End
End Sub
Private Sub Label2_Click()
Form2.Visible = True
Form1.Enabled = False
End Sub</pre><br />
<br />
Private Sub Timer1_Timer()<br />
frmSplash.Visible = True<br />
frmSplash.Enabled = True<br />
Timer2.Interval = 1<br />
Timer1.Interval = 0<br />
End Sub<br />
<br />
<pre>Private Sub Timer2_Timer()
Timer1.Interval = 0
frmSplash.Timer1.Interval = 0
Form1.DrawWidth = Label1.Caption
Label1.Caption = Form1.DrawWidth
End Sub</pre><br />
<br />
<br />
Private Sub Timer3_Timer()<br />
If c1 = Form1.ForeColor Then<br />
    Form1.ForeColor = c2<br />
    Timer3.Enabled = False<br />
    Timer4.Enabled = True<br />
End If<br />
End Sub<br />
<br />
<pre>Private Sub Timer4_Timer()
If c2 = Form1.ForeColor Then
    Form1.ForeColor = c1
    Timer4.Enabled = False
    Timer3.Enabled = True
End If
End Sub</pre><br />
<big>if you find an answer or you need or would like either programs, just emai me on;</big> <br />
<br />
<div class="ForumSig">David Gee - david-gee@hotmail.com</div>