shiftos-archive/Histacom
1
0
Fork 0
mirror of https://github.com/Histacom/Histacom.git synced 2025-01-22 09:02:00 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Bug fixing, mainly for the Internet Explorer icon on Windows ME's desktop, as well as adding a shutdown sound to both ME and 2000.

Browse source
This commit is contained in:
TheUltimateHacker 2015-03-02 15:48:34 -05:00
parent 886804440e
commit 70be688142
3 changed files with 24 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
windows 95/Resources/Windows ME Shutdown.wav Normal file
View file

Binary file not shown.

10
windows 95/Windows2000.vb
View file

@ -258,7 +258,15 @@
End Sub End Sub
Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
Title_Screen.Close() startmenu.Hide()
desktopicons.Hide()
taskbar.Hide()
startbutton.Hide()
Dim bStr(My.Resources.Windows_ME_Shutdown.Length) As Byte
My.Resources.Windows_ME_Shutdown.Read(bStr, 0, My.Resources.Windows_ME_Shutdown.Length)
My.Computer.Audio.Play(bStr, AudioPlayMode.WaitToComplete)
Me.Close()
End Sub End Sub

18
windows 95/windows me.vb
View file

@ -72,8 +72,8 @@
If Not IsNothing(objListViewItem) Then If Not IsNothing(objListViewItem) Then
If objListViewItem.Text = "Internet Explorer" Then If objListViewItem.Text = "Internet Explorer" Then
Dim openerror As New windows2000messagebox Dim IE As New Internet_Explorer_52001
openerror.infomessage.Text = "You have reached the End of Histcom 1.9, Please save your game now by clicking on the time in the start menu so that you can continue your game from here when the next version of histacom comes out." IE.Show()
End If End If
If objListViewItem.Text = "Guess The Number 2 Setup" Then If objListViewItem.Text = "Guess The Number 2 Setup" Then
@ -255,7 +255,19 @@
End Sub End Sub
Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
Title_Screen.Close() startmenu.Hide()
desktopicons.Hide()
taskbar.Hide()
startbutton.Hide()
Dim bStr(My.Resources.Windows_ME_Shutdown.Length) As Byte
My.Resources.Windows_ME_Shutdown.Read(bStr, 0, My.Resources.Windows_ME_Shutdown.Length)
My.Computer.Audio.Play(bStr, AudioPlayMode.WaitToComplete)
Me.Close()
End Sub
Private Sub Form_IsClosing(sender As Object, e As EventArgs) Handles MyBase.FormClosing
End Sub End Sub
Private Sub WindowsExplorerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsExplorerToolStripMenuItem.Click Private Sub WindowsExplorerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsExplorerToolStripMenuItem.Click