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/notepad.vb | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100755 Backup/windows 95/notepad.vb (limited to 'Backup/windows 95/notepad.vb') diff --git a/Backup/windows 95/notepad.vb b/Backup/windows 95/notepad.vb new file mode 100755 index 0000000..d1c24eb --- /dev/null +++ b/Backup/windows 95/notepad.vb @@ -0,0 +1,37 @@ +Public Class formnotepad + + Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click + Me.Close() + End Sub + + Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click + Me.Close() + End Sub + + Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click + + End Sub + + Private Sub formnotepad_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