diff options
| author | Jamie Mansfield <[email protected]> | 2015-03-03 15:40:38 +0000 |
|---|---|---|
| committer | Jamie Mansfield <[email protected]> | 2015-03-03 15:40:38 +0000 |
| commit | 00a5f71b30a80ba0deac09986261244e043103ec (patch) | |
| tree | a888214b53cae2e913dbd3f5de19f20f691f9585 /windows 95/Windows98.vb | |
| parent | 3ad025e3d28827c7a2491ba450766302618c8210 (diff) | |
| parent | 3c9ecd0c0bea92954876af9adfd8f6296403e572 (diff) | |
| download | histacom-00a5f71b30a80ba0deac09986261244e043103ec.tar.gz histacom-00a5f71b30a80ba0deac09986261244e043103ec.tar.bz2 histacom-00a5f71b30a80ba0deac09986261244e043103ec.zip | |
Merge pull request #5 from TheUltimateHacker/master
Add shutdown sounds
Diffstat (limited to 'windows 95/Windows98.vb')
| -rwxr-xr-x | windows 95/Windows98.vb | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/windows 95/Windows98.vb b/windows 95/Windows98.vb index e86f07b..4b484d3 100755 --- a/windows 95/Windows98.vb +++ b/windows 95/Windows98.vb @@ -163,8 +163,16 @@ startmenu.Hide()
End Sub
- Private Sub ShutdownToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShutdownToolStripMenuItem1.Click
- Title_Screen.Close()
+ Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShutdownToolStripMenuItem1.Click
+ startmenu.Hide()
+ desktopicons.Hide()
+ taskbar.Hide()
+ startbutton.Hide()
+
+ Dim bStr(My.Resources.Windows_98_Shutdown.Length) As Byte
+ My.Resources.Windows_98_Shutdown.Read(bStr, 0, My.Resources.Windows_98_Shutdown.Length)
+ My.Computer.Audio.Play(bStr, AudioPlayMode.WaitToComplete)
+ Me.Close()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
|