From dfac3489c438f5c54bff088a354815e79675b531 Mon Sep 17 00:00:00 2001 From: Jamie Mansfield Date: Sun, 1 Mar 2015 10:50:24 +0000 Subject: Initial commit --- windows 95/paint.vb | 747 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 747 insertions(+) create mode 100755 windows 95/paint.vb (limited to 'windows 95/paint.vb') diff --git a/windows 95/paint.vb b/windows 95/paint.vb new file mode 100755 index 0000000..ac05d7b --- /dev/null +++ b/windows 95/paint.vb @@ -0,0 +1,747 @@ +Public Class paint + Dim selectedtool As String + + 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 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 + Dim moveable As Boolean = True + Dim mexlocation, meylocation As Integer + Dim mewidth, meheight As Integer + Dim maximize As Boolean + + Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown + If moveable = True Then + 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 + Else + End If + 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 pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick + Me.Width = Cursor.Position.X - Me.Location.X + End Sub + + Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick + Me.Height = Cursor.Position.Y - Me.Location.Y + End Sub + + Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick + Me.Width = Cursor.Position.X - Me.Location.X + Me.Height = Cursor.Position.Y - Me.Location.Y + End Sub + + Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles right.MouseDown + pullside.Start() + End Sub + + Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles right.MouseUp + pullside.Stop() + End Sub + + Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottom.MouseDown + pullbottom.Start() + End Sub + + Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottom.MouseUp + pullbottom.Stop() + End Sub + + Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottomrightcorner.MouseDown + pullbs.Start() + End Sub + + Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottomrightcorner.MouseUp + pullbs.Stop() + End Sub + + Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click + If maximize = False Then + meylocation = Windows95.desktopicons.Height - Me.Height + mexlocation = Windows95.desktopicons.Width - Me.Width + mewidth = Me.Width + meheight = Me.Height + toprightcorner.Hide() + topleftcorner.Hide() + bottomrightcorner.Hide() + bottomleftcorner.Hide() + left.Hide() + top.Hide() + bottom.Hide() + right.Hide() + Dim w, h As Integer + w = Windows95.desktopicons.Width + h = Windows95.desktopicons.Height + Me.Location = New Point(0, 0) + Me.Size = New Size(w, h) + moveable = False + maximizebutton.Image = My.Resources.unmaximizebutton + maximize = True + Else + toprightcorner.Show() + topleftcorner.Show() + bottomrightcorner.Show() + bottomleftcorner.Show() + left.Show() + top.Show() + bottom.Show() + right.Show() + Me.Location = New Point(mexlocation, meylocation) + Me.Size = New Size(mewidth, meheight) + moveable = True + maximizebutton.Image = My.Resources.Maximize + maximize = False + End If + 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 + + Private Sub minimizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles minimizebutton.Click + Me.Hide() + End Sub +End Class \ No newline at end of file -- cgit v1.2.3