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/formDisplayproperties.vb | 285 +++++++++++++++++++++++++++++ 1 file changed, 285 insertions(+) create mode 100755 Backup/windows 95/formDisplayproperties.vb (limited to 'Backup/windows 95/formDisplayproperties.vb') diff --git a/Backup/windows 95/formDisplayproperties.vb b/Backup/windows 95/formDisplayproperties.vb new file mode 100755 index 0000000..322ad14 --- /dev/null +++ b/Backup/windows 95/formDisplayproperties.vb @@ -0,0 +1,285 @@ +Public Class formDisplayproperties + + + Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click + Me.Close() + End Sub + + Private Sub ComboBox5_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox5.SelectedIndexChanged + If ComboBox5.SelectedItem = "Small Fonts" Then + fontsizeinfo.Text = "Normal size (96 dpi)" + End If + If ComboBox5.SelectedItem = "Large Fonts" Then + fontsizeinfo.Text = "125% Normal size (120 dpi)" + End If + End Sub + Private Sub TrackBarscreenres_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBarscreenres.Scroll + If TrackBarscreenres.Value = 1 Then + screenreslabel.Text = "640 by 480 pixels" + End If + If TrackBarscreenres.Value = 2 Then + screenreslabel.Text = "800 by 512 pixels" + End If + If TrackBarscreenres.Value = 3 Then + screenreslabel.Text = "800 by 600 pixels" + End If + If TrackBarscreenres.Value = 4 Then + screenreslabel.Text = "896 by 600 pixels" + End If + If TrackBarscreenres.Value = 5 Then + screenreslabel.Text = "912 by 642 pixels" + End If + If TrackBarscreenres.Value = 6 Then + screenreslabel.Text = "1024 by 768 pixels" + End If + If TrackBarscreenres.Value = 7 Then + screenreslabel.Text = "1152 by 768 pixels" + End If + If TrackBarscreenres.Value = 8 Then + screenreslabel.Text = "1152 by 864 pixels" + End If + If TrackBarscreenres.Value = 9 Then + screenreslabel.Text = "1280 by 1024 pixels" + End If + If TrackBarscreenres.Value = 10 Then + screenreslabel.Text = "1440 by 900 pixels" + End If + If TrackBarscreenres.Value = 11 Then + screenreslabel.Text = "1600 by 1024 pixels" + End If + If TrackBarscreenres.Value = 12 Then + screenreslabel.Text = "1600 by 1200 pixels" + End If + End Sub + + Private Sub colorpalettecbox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles colorpalettecbox.SelectedIndexChanged + If colorpalettecbox.SelectedItem = "16 Color" Then + colourpaletepicturebox.Image = My.Resources._16_color + End If + If colorpalettecbox.SelectedItem = "256 Color" Then + colourpaletepicturebox.Image = My.Resources._256_color + End If + If colorpalettecbox.SelectedItem = "High Color (16 bit)" Then + colourpaletepicturebox.Image = My.Resources.high_color + End If + If colorpalettecbox.SelectedItem = "True Color (32 bit)" Then + colourpaletepicturebox.Image = My.Resources.true_color + End If + End Sub + Private Sub Button39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles form1.Click + colourselectorexample.Hide() + End Sub + + Private Sub Whitecs_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Whitecs.Click + If cboxitemselect.SelectedItem = "Desktop" Then + appearencesettingspanel.BackColor = Color.White + End If + If cboxitemselect.SelectedItem = "Active Title Bar" Then + exampletopbaractivewindow.BackColor = Color.White + End If + End Sub + + Private Sub blackcs_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles blackcs.MouseClick + If cboxitemselect.SelectedItem = "Desktop" Then + appearencesettingspanel.BackColor = Color.Black + End If + If cboxitemselect.SelectedItem = "Active Title Bar" Then + exampletopbaractivewindow.BackColor = Color.Black + End If + End Sub + + Private Sub lightgreycs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lightgreycs.Click + If cboxitemselect.SelectedItem = "Desktop" Then + appearencesettingspanel.BackColor = Color.LightGray + End If + If cboxitemselect.SelectedItem = "Active Title Bar" Then + exampletopbaractivewindow.BackColor = Color.LightGray + End If + End Sub + + Private Sub greycs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles greycs.Click + If cboxitemselect.SelectedItem = "Desktop" Then + appearencesettingspanel.BackColor = Color.Gray + End If + If cboxitemselect.SelectedItem = "Active Title Bar" Then + exampletopbaractivewindow.BackColor = Color.Gray + End If + End Sub + + Private Sub redcs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles redcs.Click + If cboxitemselect.SelectedItem = "Desktop" Then + appearencesettingspanel.BackColor = Color.Red + End If + If cboxitemselect.SelectedItem = "Active Title Bar" Then + exampletopbaractivewindow.BackColor = Color.Red + End If + End Sub + + Private Sub darkredcs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles darkredcs.Click + If cboxitemselect.SelectedItem = "Desktop" Then + appearencesettingspanel.BackColor = Color.DarkRed + End If + If cboxitemselect.SelectedItem = "Active Title Bar" Then + exampletopbaractivewindow.BackColor = Color.DarkRed + End If + End Sub + + Private Sub yellowcs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles yellowcs.Click + If cboxitemselect.SelectedItem = "Desktop" Then + appearencesettingspanel.BackColor = Color.Yellow + End If + If cboxitemselect.SelectedItem = "Active Title Bar" Then + exampletopbaractivewindow.BackColor = Color.Yellow + End If + End Sub + + Private Sub olivecs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles olivecs.Click + If cboxitemselect.SelectedItem = "Desktop" Then + appearencesettingspanel.BackColor = Color.Olive + End If + If cboxitemselect.SelectedItem = "Active Title Bar" Then + exampletopbaractivewindow.BackColor = Color.Olive + End If + End Sub + + Private Sub limecs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles limecs.Click + If cboxitemselect.SelectedItem = "Desktop" Then + appearencesettingspanel.BackColor = Color.Lime + End If + If cboxitemselect.SelectedItem = "Active Title Bar" Then + exampletopbaractivewindow.BackColor = Color.Lime + End If + End Sub + + Private Sub forestgreencs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles forestgreencs.Click + If cboxitemselect.SelectedItem = "Desktop" Then + appearencesettingspanel.BackColor = Color.ForestGreen + End If + If cboxitemselect.SelectedItem = "Active Title Bar" Then + exampletopbaractivewindow.BackColor = Color.ForestGreen + End If + End Sub + + Private Sub cyancs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cyancs.Click + If cboxitemselect.SelectedItem = "Desktop" Then + appearencesettingspanel.BackColor = Color.Cyan + End If + If cboxitemselect.SelectedItem = "Active Title Bar" Then + exampletopbaractivewindow.BackColor = Color.Cyan + End If + End Sub + + Private Sub tealcs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tealcs.Click + If cboxitemselect.SelectedItem = "Desktop" Then + appearencesettingspanel.BackColor = Color.Teal + End If + If cboxitemselect.SelectedItem = "Active Title Bar" Then + exampletopbaractivewindow.BackColor = Color.Teal + End If + End Sub + + Private Sub bluecs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bluecs.Click + If cboxitemselect.SelectedItem = "Desktop" Then + appearencesettingspanel.BackColor = Color.Blue + End If + If cboxitemselect.SelectedItem = "Active Title Bar" Then + exampletopbaractivewindow.BackColor = Color.Blue + End If + End Sub + + Private Sub darkbluecs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles darkbluecs.Click + If cboxitemselect.SelectedItem = "Desktop" Then + appearencesettingspanel.BackColor = Color.DarkBlue + End If + If cboxitemselect.SelectedItem = "Active Title Bar" Then + exampletopbaractivewindow.BackColor = Color.DarkBlue + End If + End Sub + + Private Sub DarkMagentacs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DarkMagentacs.Click + If cboxitemselect.SelectedItem = "Desktop" Then + appearencesettingspanel.BackColor = Color.DarkMagenta + End If + If cboxitemselect.SelectedItem = "Active Title Bar" Then + exampletopbaractivewindow.BackColor = Color.DarkMagenta + End If + End Sub + + Private Sub palegreencs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles palegreencs.Click + If cboxitemselect.SelectedItem = "Desktop" Then + appearencesettingspanel.BackColor = Color.PaleGreen + End If + If cboxitemselect.SelectedItem = "Active Title Bar" Then + exampletopbaractivewindow.BackColor = Color.PaleGreen + End If + End Sub + + Private Sub lightbluecs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lightbluecs.Click + If cboxitemselect.SelectedItem = "Desktop" Then + appearencesettingspanel.BackColor = Color.LightBlue + End If + If cboxitemselect.SelectedItem = "Active Title Bar" Then + exampletopbaractivewindow.BackColor = Color.LightBlue + End If + End Sub + + Private Sub whitesmokecs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles whitesmokecs.Click + If cboxitemselect.SelectedItem = "Desktop" Then + appearencesettingspanel.BackColor = Color.WhiteSmoke + End If + If cboxitemselect.SelectedItem = "Active Title Bar" Then + exampletopbaractivewindow.BackColor = Color.WhiteSmoke + End If + End Sub + + Private Sub darkgraycs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles darkgraycs.Click + If cboxitemselect.SelectedItem = "Desktop" Then + appearencesettingspanel.BackColor = Color.DarkGray + End If + If cboxitemselect.SelectedItem = "Active Title Bar" Then + exampletopbaractivewindow.BackColor = Color.DarkGray + End If + End Sub + + Private Sub magentacs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles magentacs.Click + If cboxitemselect.SelectedItem = "Desktop" Then + appearencesettingspanel.BackColor = Color.Magenta + End If + If cboxitemselect.SelectedItem = "Active Title Bar" Then + exampletopbaractivewindow.BackColor = Color.Magenta + End If + End Sub + + Private Sub applysettings_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles applysettings.Click + Windows95.BackColor = appearencesettingspanel.BackColor + Windows95.exampleprogramtopbar.BackColor = exampletopbaractivewindow.BackColor + Me.programtopbar.BackColor = exampletopbaractivewindow.BackColor + End Sub + + Private Sub PictureBox13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox13.Click + colourselectorexample.Show() + End Sub + + Private Sub formDisplayproperties_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + look.Start() + End Sub + + 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 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