1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
|
Public Class Windows98
Dim count As Integer
Dim txtcount As Integer
Dim usersave As String
Private Sub startbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
startmenu.Show()
End Sub
Private Sub windows98_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
startmenu.Hide()
End Sub
Private Sub windows98Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
If My.Resources.windows98bootsound.CanRead Then
Dim bStr(My.Resources.windows98bootsound.Length) As Byte
My.Resources.windows98bootsound.Read(bStr, 0, My.Resources.windows98bootsound.Length)
My.Computer.Audio.Play(bStr, AudioPlayMode.Background)
End If
startmenu.Hide()
program.Hide()
Timer1.Start()
exampleprogramtopbar.Show()
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.WindowState = FormWindowState.Maximized
End Sub
Private Sub NotePadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NotePadToolStripMenuItem.Click
Dim opennotepad As New formnotepad
opennotepad.Show()
startmenu.Hide()
End Sub
Private Sub Closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
program.Hide()
exampleprogramtext.Text = ""
program.Size = New Size(367, 253)
End Sub
Private Sub fullscreen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
program.Dock = DockStyle.Fill
End Sub
Private Sub minimize_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
program.Dock = DockStyle.None
End Sub
Private Sub HelpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripMenuItem.Click
Dim windowshelpopen As New formwindowshelp
windowshelpopen.Show()
startmenu.Hide()
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
program.Hide()
End Sub
Private Sub CalculatorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculatorToolStripMenuItem.Click
Dim opencalc As New formcalculator
opencalc.Show()
startmenu.Hide()
End Sub
Private Sub Desktop_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If e.Button = Windows.Forms.MouseButtons.Right Then
rightclickbackproperties.Show()
rightclickbackproperties.BringToFront()
rightclickbackproperties.Location = MousePosition
End If
If e.Button = Windows.Forms.MouseButtons.Left Then
End If
If e.Button = Windows.Forms.MouseButtons.Middle Then
End If
End Sub
Private Sub minimizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
program.Dock = DockStyle.None
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
program.Dock = DockStyle.Fill
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles startbutton.Click
startmenu.Show()
End Sub
Private Sub PropertiesToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PropertiesToolStripMenuItem1.Click
Dim oform As New formDisplayproperties
oform.Show()
startmenu.Hide()
End Sub
Private Sub ShutdownToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShutdownToolStripMenuItem1.Click
Me.Close()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
desktopicons.BackColor = Me.BackColor
taskbartime.Text = TimeOfDay
End Sub
Private Sub PhoneDialerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim openphonedialer As New phone_dialer
openphonedialer.Show()
startmenu.Hide()
End Sub
Private Sub AddressBookToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddressBookToolStripMenuItem.Click
Dim openaddressbook As New Address_Book
openaddressbook.Show()
startmenu.Hide()
End Sub
Private Sub VolumeControlToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VolumeControlToolStripMenuItem.Click
Dim openvolumecontrol As New volume_control
openvolumecontrol.Show()
startmenu.Hide()
End Sub
Private Sub RunToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RunToolStripMenuItem.Click
Dim openrun As New run
openrun.Show()
startmenu.Hide()
End Sub
Private Sub PaintToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PaintToolStripMenuItem.Click
Dim openpaint As New paint
openpaint.Show()
startmenu.Hide()
End Sub
Private Sub WindowsExplorerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsExplorerToolStripMenuItem.Click
Dim openinternetexplorer As New internet_explorer_5
openinternetexplorer.Show()
startmenu.Hide()
End Sub
Private Sub FolderToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FolderToolStripMenuItem.Click
desktopicons.Items.Add("New Folder")
End Sub
Private Sub desktopicons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles desktopicons.MouseDown
startmenu.Hide()
End Sub
Private Sub WindowsExplorerToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsExplorerToolStripMenuItem1.Click
Dim openexplorer As New windows_explorer
openexplorer.Show()
startmenu.Hide()
End Sub
Private Sub GuessTheNumberToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GuessTheNumberToolStripMenuItem.Click
Dim openguessnumber As New Guess_The_Number_app()
openguessnumber.Show()
startmenu.Hide()
End Sub
Private Sub StartRunnerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartRunnerToolStripMenuItem.Click
Dim openstartrunner As New Start_Runner
openstartrunner.Show()
startmenu.Hide()
End Sub
Private Sub ErrorBlasterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ErrorBlasterToolStripMenuItem.Click
Dim openerror As New errorblaster
openerror.Show()
startmenu.Hide()
End Sub
Private Sub desktopicons_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub SkindowsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SkindowsToolStripMenuItem.Click
Dim openskin As New Skindows_95
openskin.Show()
startmenu.Hide()
End Sub
Private Sub WebChatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WebChatToolStripMenuItem.Click
Dim openchat As New Webchat
openchat.Show()
startmenu.Hide()
End Sub
Private Sub TimeDistorterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimeDistorterToolStripMenuItem.Click
Dim opentimedistorter As New time_distorter
opentimedistorter.Show()
startmenu.Hide()
End Sub
End Class
|
