diff options
| author | Jamie Mansfield <[email protected]> | 2015-03-01 10:50:24 +0000 |
|---|---|---|
| committer | Jamie Mansfield <[email protected]> | 2015-03-01 10:50:24 +0000 |
| commit | dfac3489c438f5c54bff088a354815e79675b531 (patch) | |
| tree | dafec547b0e8592e34d8aa756c9500407ebc3c1b /windows 95/volume control.vb | |
| download | histacom-dfac3489c438f5c54bff088a354815e79675b531.tar.gz histacom-dfac3489c438f5c54bff088a354815e79675b531.tar.bz2 histacom-dfac3489c438f5c54bff088a354815e79675b531.zip | |
Initial commit
Diffstat (limited to 'windows 95/volume control.vb')
| -rwxr-xr-x | windows 95/volume control.vb | 122 |
1 files changed, 122 insertions, 0 deletions
diff --git a/windows 95/volume control.vb b/windows 95/volume control.vb new file mode 100755 index 0000000..44add41 --- /dev/null +++ b/windows 95/volume control.vb @@ -0,0 +1,122 @@ +Public Class volume_control
+
+ Private Sub volume_control_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+ look.Start()
+ End Sub
+
+ Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
+ Me.Close()
+ 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 |