From dfac3489c438f5c54bff088a354815e79675b531 Mon Sep 17 00:00:00 2001 From: Jamie Mansfield Date: Sun, 1 Mar 2015 10:50:24 +0000 Subject: Initial commit --- Backup/windows 95/paint.vb | 662 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 662 insertions(+) create mode 100755 Backup/windows 95/paint.vb (limited to 'Backup/windows 95/paint.vb') diff --git a/Backup/windows 95/paint.vb b/Backup/windows 95/paint.vb new file mode 100755 index 0000000..71a3392 --- /dev/null +++ b/Backup/windows 95/paint.vb @@ -0,0 +1,662 @@ +Public Class paint + Dim selectedtool As String + + + Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown + If e.Button = MouseButtons.Left Then + programtopbar.Capture = False + + Const WM_NCLBUTTONDOWN As Integer = &HA1S + Const HTCAPTION As Integer = 2 + Dim msg As Message = _ + Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _ + New IntPtr(HTCAPTION), IntPtr.Zero) + Me.DefWndProc(msg) + End If + End Sub + + Private Sub toolfreeformslect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolfreeformslect.Click + selectedtool = "freeformselect" + toolfreeformslect.Image = My.Resources.windows95paintfreeselectpush + toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector + toolerracer.Image = My.Resources.windows95painteracer + toolfillcan.Image = My.Resources.windows95paintfill + toolcolorpick.Image = My.Resources.windows95paintcolorpick + toolmagnify.Image = My.Resources.windows95zoom + toolpencil.Image = My.Resources.windows95paintpencil + toolbrush.Image = My.Resources.windows95painbrush + toolspraycan.Image = My.Resources.windows95spraycan + tooltext.Image = My.Resources.windows95painttext + toolline.Image = My.Resources.windows95paintline + toolcurvyline.Image = My.Resources.windows95paintcurvyline + toolrectangle.Image = My.Resources.windows95paintrectangle + toolpolygon.Image = My.Resources.windows95paintpolygon + toolovel.Image = My.Resources.windows95painoval + toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle + End Sub + + + Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click + Me.Close() + End Sub + + + Private Sub toolrectanglarselect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolrectanglarselect.Click + selectedtool = "rectanglarselect" + toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon + toolrectanglarselect.Image = My.Resources.windows95paintrectangleselectpress + toolerracer.Image = My.Resources.windows95painteracer + toolfillcan.Image = My.Resources.windows95paintfill + toolcolorpick.Image = My.Resources.windows95paintcolorpick + toolmagnify.Image = My.Resources.windows95zoom + toolpencil.Image = My.Resources.windows95paintpencil + toolbrush.Image = My.Resources.windows95painbrush + toolspraycan.Image = My.Resources.windows95spraycan + tooltext.Image = My.Resources.windows95painttext + toolline.Image = My.Resources.windows95paintline + toolcurvyline.Image = My.Resources.windows95paintcurvyline + toolrectangle.Image = My.Resources.windows95paintrectangle + toolpolygon.Image = My.Resources.windows95paintpolygon + toolovel.Image = My.Resources.windows95painoval + toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle + End Sub + + Private Sub toolerracer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolerracer.Click + selectedtool = "rubber" + toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon + toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector + toolerracer.Image = My.Resources.windows95paintrubberpress + toolfillcan.Image = My.Resources.windows95paintfill + toolcolorpick.Image = My.Resources.windows95paintcolorpick + toolmagnify.Image = My.Resources.windows95zoom + toolpencil.Image = My.Resources.windows95paintpencil + toolbrush.Image = My.Resources.windows95painbrush + toolspraycan.Image = My.Resources.windows95spraycan + tooltext.Image = My.Resources.windows95painttext + toolline.Image = My.Resources.windows95paintline + toolcurvyline.Image = My.Resources.windows95paintcurvyline + toolrectangle.Image = My.Resources.windows95paintrectangle + toolpolygon.Image = My.Resources.windows95paintpolygon + toolovel.Image = My.Resources.windows95painoval + toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle + End Sub + + Private Sub toolfillcan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolfillcan.Click + selectedtool = "fillcan" + toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon + toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector + toolerracer.Image = My.Resources.windows95painteracer + toolfillcan.Image = My.Resources.windows95paintfillpress + toolcolorpick.Image = My.Resources.windows95paintcolorpick + toolmagnify.Image = My.Resources.windows95zoom + toolpencil.Image = My.Resources.windows95paintpencil + toolbrush.Image = My.Resources.windows95painbrush + toolspraycan.Image = My.Resources.windows95spraycan + tooltext.Image = My.Resources.windows95painttext + toolline.Image = My.Resources.windows95paintline + toolcurvyline.Image = My.Resources.windows95paintcurvyline + toolrectangle.Image = My.Resources.windows95paintrectangle + toolpolygon.Image = My.Resources.windows95paintpolygon + toolovel.Image = My.Resources.windows95painoval + toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle + End Sub + + Private Sub toolcolorpick_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolcolorpick.Click + selectedtool = "colorpick" + toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon + toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector + toolerracer.Image = My.Resources.windows95painteracer + toolfillcan.Image = My.Resources.windows95paintfill + toolcolorpick.Image = My.Resources.windows95paintcolorselectpress + toolmagnify.Image = My.Resources.windows95zoom + toolpencil.Image = My.Resources.windows95paintpencil + toolbrush.Image = My.Resources.windows95painbrush + toolspraycan.Image = My.Resources.windows95spraycan + tooltext.Image = My.Resources.windows95painttext + toolline.Image = My.Resources.windows95paintline + toolcurvyline.Image = My.Resources.windows95paintcurvyline + toolrectangle.Image = My.Resources.windows95paintrectangle + toolpolygon.Image = My.Resources.windows95paintpolygon + toolovel.Image = My.Resources.windows95painoval + toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle + End Sub + + Private Sub toolmagnify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolmagnify.Click + selectedtool = "magnify" + toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon + toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector + toolerracer.Image = My.Resources.windows95painteracer + toolfillcan.Image = My.Resources.windows95paintfill + toolcolorpick.Image = My.Resources.windows95paintcolorpick + toolmagnify.Image = My.Resources.windows95paintmagnifypress + toolpencil.Image = My.Resources.windows95paintpencil + toolbrush.Image = My.Resources.windows95painbrush + toolspraycan.Image = My.Resources.windows95spraycan + tooltext.Image = My.Resources.windows95painttext + toolline.Image = My.Resources.windows95paintline + toolcurvyline.Image = My.Resources.windows95paintcurvyline + toolrectangle.Image = My.Resources.windows95paintrectangle + toolpolygon.Image = My.Resources.windows95paintpolygon + toolovel.Image = My.Resources.windows95painoval + toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle + End Sub + + Private Sub toolpencil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolpencil.Click + selectedtool = "pencil" + toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon + toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector + toolerracer.Image = My.Resources.windows95painteracer + toolfillcan.Image = My.Resources.windows95paintfill + toolcolorpick.Image = My.Resources.windows95paintcolorpick + toolmagnify.Image = My.Resources.windows95zoom + toolpencil.Image = My.Resources.windows95paintpencilpress + toolbrush.Image = My.Resources.windows95painbrush + toolspraycan.Image = My.Resources.windows95spraycan + tooltext.Image = My.Resources.windows95painttext + toolline.Image = My.Resources.windows95paintline + toolcurvyline.Image = My.Resources.windows95paintcurvyline + toolrectangle.Image = My.Resources.windows95paintrectangle + toolpolygon.Image = My.Resources.windows95paintpolygon + toolovel.Image = My.Resources.windows95painoval + toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle + End Sub + + Private Sub toolbrush_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolbrush.Click + selectedtool = "brush" + toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon + toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector + toolerracer.Image = My.Resources.windows95painteracer + toolfillcan.Image = My.Resources.windows95paintfill + toolcolorpick.Image = My.Resources.windows95paintcolorpick + toolmagnify.Image = My.Resources.windows95zoom + toolpencil.Image = My.Resources.windows95paintpencil + toolbrush.Image = My.Resources.windows95paintbrushpress + toolspraycan.Image = My.Resources.windows95spraycan + tooltext.Image = My.Resources.windows95painttext + toolline.Image = My.Resources.windows95paintline + toolcurvyline.Image = My.Resources.windows95paintcurvyline + toolrectangle.Image = My.Resources.windows95paintrectangle + toolpolygon.Image = My.Resources.windows95paintpolygon + toolovel.Image = My.Resources.windows95painoval + toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle + End Sub + + Private Sub toolspraycan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolspraycan.Click + selectedtool = "spraycan" + toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon + toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector + toolerracer.Image = My.Resources.windows95painteracer + toolfillcan.Image = My.Resources.windows95paintfill + toolcolorpick.Image = My.Resources.windows95paintcolorpick + toolmagnify.Image = My.Resources.windows95zoom + toolpencil.Image = My.Resources.windows95paintpencil + toolbrush.Image = My.Resources.windows95painbrush + toolspraycan.Image = My.Resources.windows95paintspraycanpress + tooltext.Image = My.Resources.windows95painttext + toolline.Image = My.Resources.windows95paintline + toolcurvyline.Image = My.Resources.windows95paintcurvyline + toolrectangle.Image = My.Resources.windows95paintrectangle + toolpolygon.Image = My.Resources.windows95paintpolygon + toolovel.Image = My.Resources.windows95painoval + toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle + End Sub + + Private Sub tooltext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tooltext.Click + selectedtool = "text" + toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon + toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector + toolerracer.Image = My.Resources.windows95painteracer + toolfillcan.Image = My.Resources.windows95paintfill + toolcolorpick.Image = My.Resources.windows95paintcolorpick + toolmagnify.Image = My.Resources.windows95zoom + toolpencil.Image = My.Resources.windows95paintpencil + toolbrush.Image = My.Resources.windows95painbrush + toolspraycan.Image = My.Resources.windows95spraycan + tooltext.Image = My.Resources.windows95painttextpress + toolline.Image = My.Resources.windows95paintline + toolcurvyline.Image = My.Resources.windows95paintcurvyline + toolrectangle.Image = My.Resources.windows95paintrectangle + toolpolygon.Image = My.Resources.windows95paintpolygon + toolovel.Image = My.Resources.windows95painoval + toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle + End Sub + + Private Sub toolline_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolline.Click + selectedtool = "line" + toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon + toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector + toolerracer.Image = My.Resources.windows95painteracer + toolfillcan.Image = My.Resources.windows95paintfill + toolcolorpick.Image = My.Resources.windows95paintcolorpick + toolmagnify.Image = My.Resources.windows95zoom + toolpencil.Image = My.Resources.windows95paintpencil + toolbrush.Image = My.Resources.windows95painbrush + toolspraycan.Image = My.Resources.windows95spraycan + tooltext.Image = My.Resources.windows95painttext + toolline.Image = My.Resources.windows95paintlinepress + toolcurvyline.Image = My.Resources.windows95paintcurvyline + toolrectangle.Image = My.Resources.windows95paintrectangle + toolpolygon.Image = My.Resources.windows95paintpolygon + toolovel.Image = My.Resources.windows95painoval + toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle + End Sub + + Private Sub toolcurvyline_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolcurvyline.Click + selectedtool = "curvyline" + toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon + toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector + toolerracer.Image = My.Resources.windows95painteracer + toolfillcan.Image = My.Resources.windows95paintfill + toolcolorpick.Image = My.Resources.windows95paintcolorpick + toolmagnify.Image = My.Resources.windows95zoom + toolpencil.Image = My.Resources.windows95paintpencil + toolbrush.Image = My.Resources.windows95painbrush + toolspraycan.Image = My.Resources.windows95spraycan + tooltext.Image = My.Resources.windows95painttext + toolline.Image = My.Resources.windows95paintline + toolcurvyline.Image = My.Resources.windows95paintcurvylinepress + toolrectangle.Image = My.Resources.windows95paintrectangle + toolpolygon.Image = My.Resources.windows95paintpolygon + toolovel.Image = My.Resources.windows95painoval + toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle + End Sub + + Private Sub toolrectangle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolrectangle.Click + selectedtool = "rectangle" + toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon + toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector + toolerracer.Image = My.Resources.windows95painteracer + toolfillcan.Image = My.Resources.windows95paintfill + toolcolorpick.Image = My.Resources.windows95paintcolorpick + toolmagnify.Image = My.Resources.windows95zoom + toolpencil.Image = My.Resources.windows95paintpencil + toolbrush.Image = My.Resources.windows95painbrush + toolspraycan.Image = My.Resources.windows95spraycan + tooltext.Image = My.Resources.windows95painttext + toolline.Image = My.Resources.windows95paintline + toolcurvyline.Image = My.Resources.windows95paintcurvyline + toolrectangle.Image = My.Resources.windows95rectanglepress + toolpolygon.Image = My.Resources.windows95paintpolygon + toolovel.Image = My.Resources.windows95painoval + toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle + End Sub + + Private Sub toolpolygon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolpolygon.Click + selectedtool = "polygon" + toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon + toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector + toolerracer.Image = My.Resources.windows95painteracer + toolfillcan.Image = My.Resources.windows95paintfill + toolcolorpick.Image = My.Resources.windows95paintcolorpick + toolmagnify.Image = My.Resources.windows95zoom + toolpencil.Image = My.Resources.windows95paintpencil + toolbrush.Image = My.Resources.windows95painbrush + toolspraycan.Image = My.Resources.windows95spraycan + tooltext.Image = My.Resources.windows95painttext + toolline.Image = My.Resources.windows95paintline + toolcurvyline.Image = My.Resources.windows95paintcurvyline + toolrectangle.Image = My.Resources.windows95paintrectangle + toolpolygon.Image = My.Resources.windows95paintpolygonepress + toolovel.Image = My.Resources.windows95painoval + toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle + End Sub + + Private Sub toolovel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolovel.Click + selectedtool = "ovel" + toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon + toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector + toolerracer.Image = My.Resources.windows95painteracer + toolfillcan.Image = My.Resources.windows95paintfill + toolcolorpick.Image = My.Resources.windows95paintcolorpick + toolmagnify.Image = My.Resources.windows95zoom + toolpencil.Image = My.Resources.windows95paintpencil + toolbrush.Image = My.Resources.windows95painbrush + toolspraycan.Image = My.Resources.windows95spraycan + tooltext.Image = My.Resources.windows95painttext + toolline.Image = My.Resources.windows95paintline + toolcurvyline.Image = My.Resources.windows95paintcurvyline + toolrectangle.Image = My.Resources.windows95paintrectangle + toolpolygon.Image = My.Resources.windows95paintpolygon + toolovel.Image = My.Resources.windows95paintovelpress + toolroundedrectangle.Image = My.Resources.windows95paintroundedcircle + End Sub + + Private Sub toolroundedrectangle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolroundedrectangle.Click + selectedtool = "roundedrectangle" + toolfreeformslect.Image = My.Resources.windows95paintfreeselectoricon + toolrectanglarselect.Image = My.Resources.windows95paintrectangleselector + toolerracer.Image = My.Resources.windows95painteracer + toolfillcan.Image = My.Resources.windows95paintfill + toolcolorpick.Image = My.Resources.windows95paintcolorpick + toolmagnify.Image = My.Resources.windows95zoom + toolpencil.Image = My.Resources.windows95paintpencil + toolbrush.Image = My.Resources.windows95painbrush + toolspraycan.Image = My.Resources.windows95spraycan + tooltext.Image = My.Resources.windows95painttext + toolline.Image = My.Resources.windows95paintline + toolcurvyline.Image = My.Resources.windows95paintcurvyline + toolrectangle.Image = My.Resources.windows95paintrectangle + toolpolygon.Image = My.Resources.windows95paintpolygon + toolovel.Image = My.Resources.windows95painoval + toolroundedrectangle.Image = My.Resources.windows95roundedrectanglepress + End Sub + + Private Sub csblack_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csblack.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.Black + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.Black + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub cswhite_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles cswhite.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.White + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.White + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub csgray_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csgray.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.Gray + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.Gray + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub cssilver_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles cssilver.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.Silver + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.Silver + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub csdarkred_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csdarkred.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.DarkRed + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.DarkRed + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub csred_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csred.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.Red + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.Red + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub csolive_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csolive.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.Olive + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.Olive + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub csyellow_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csyellow.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.Yellow + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.Yellow + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub csseagreen_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csseagreen.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.SeaGreen + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.SeaGreen + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub cslime_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles cslime.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.Lime + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.Lime + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub csdarkcyan_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csdarkcyan.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.DarkCyan + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.DarkCyan + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub cscyan_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles cscyan.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.Cyan + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.Cyan + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub csdarkblue_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csdarkblue.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.DarkBlue + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.DarkBlue + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub csblue_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csblue.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.Blue + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.Blue + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub cspurple_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles cspurple.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.Purple + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.Purple + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub csmagenta_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csmagenta.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.Magenta + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.Magenta + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub csdarkgoldenrod_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csdarkgoldenrod.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.DarkGoldenrod + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.DarkGoldenrod + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + + Private Sub cskhaki_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles cskhaki.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.Khaki + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.Khaki + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub csdarkgreen_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csdarkgreen.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.DarkGreen + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.DarkGreen + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub csspringgreen_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csspringgreen.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.SpringGreen + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.SpringGreen + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub csdodgerblue_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csdodgerblue.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.DodgerBlue + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.DodgerBlue + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub csdarkslategray_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csdarkslategray.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.DarkSlateGray + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.DarkSlateGray + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub csslateblue_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csslateblue.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.DarkSlateBlue + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.DarkSlateBlue + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub csblueviolet_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csblueviolet.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.BlueViolet + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.BlueViolet + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub csdeeppink_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csdeeppink.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.DeepPink + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.DeepPink + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub cssaddlebrown_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles cssaddlebrown.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.SaddleBrown + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.SaddleBrown + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub csdarkorange_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csdarkorange.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.DarkOrange + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.DarkOrange + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub csaquamarine_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles csaquamarine.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + bottomcolor.BackColor = Color.Aquamarine + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + topcolor.BackColor = Color.Aquamarine + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + End Sub + + Private Sub paint_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + look.Start() + End Sub + + Private Sub look_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles look.Tick + Me.programtopbar.BackColor = Windows95.exampleprogramtopbar.BackColor + Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage + Me.programname.BackColor = Windows95.exampleprogramtext.BackColor + End Sub +End Class \ No newline at end of file -- cgit v1.2.3