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
|
Public Class TextPad
Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click
file_skimmer.mode = "open"
file_skimmer.application = "textpad"
file_skimmer.Show()
End Sub
Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click
file_skimmer.mode = "save"
file_skimmer.application = "textpad"
file_skimmer.Show()
End Sub
Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewToolStripMenuItem.Click
txtfilebody.Text = ""
End Sub
Private Sub CutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CutToolStripMenuItem.Click
txtfilebody.Cut()
End Sub
Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click
txtfilebody.Copy()
End Sub
Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click
txtfilebody.Paste()
End Sub
Private Sub UndoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UndoToolStripMenuItem.Click
txtfilebody.Undo()
End Sub
Private Sub RedoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RedoToolStripMenuItem.Click
txtfilebody.Redo()
End Sub
Private Sub SelectAllToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SelectAllToolStripMenuItem.Click
txtfilebody.SelectAll()
End Sub
Private Sub FindToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FindToolStripMenuItem.Click
basicwm_infobox.showinfo("Find", "Please specify a phrase to find:", True)
txtfilebody.Find(basicwm_infobox.userinput)
End Sub
Private Sub ReplaceToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReplaceToolStripMenuItem.Click
basicwm_infobox.showinfo("Find", "Please specify a phrase to find:", True)
Dim whattofind As String = basicwm_infobox.userinput
basicwm_infobox.showinfo("Replace", "What shall we replace """ & whattofind & """ with?", True)
txtfilebody.Text = txtfilebody.Text.Replace(whattofind, basicwm_infobox.userinput)
End Sub
Private Sub TextPad_Load(sender As Object, e As EventArgs) Handles Me.Load
MenuStrip1.Renderer = New basicwm_renderer()
setupmenufonts()
Me.WindowState = FormWindowState.Maximized
End Sub
Public Sub setupmenufonts()
For Each item In MenuStrip1.Items
item.ForeColor = Color.White
item.Font = New Font("Courier New", 8.25)
For Each SubItem In item.DropDownItems
SubItem.ForeColor = Color.White
SubItem.font = New Font("Courier New", 8.25)
Next
Next
End Sub
End Class
|
