API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Dec 22nd, 2014
153
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 11.91 KB | None | 0 0
raw download clone embed print report
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Form1
  3. Inherits System.Windows.Forms.Form
  4.  
  5. 'Form overrides dispose to clean up the component list.
  6. <System.Diagnostics.DebuggerNonUserCode()> _
  7. Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8. Try
  9. If disposing AndAlso components IsNot Nothing Then
  10. components.Dispose()
  11. End If
  12. Finally
  13. MyBase.Dispose(disposing)
  14. End Try
  15. End Sub
  16.  
  17. 'Required by the Windows Form Designer
  18. Private components As System.ComponentModel.IContainer
  19.  
  20. 'NOTE: The following procedure is required by the Windows Form Designer
  21. 'It can be modified using the Windows Form Designer.
  22. 'Do not modify it using the code editor.
  23. <System.Diagnostics.DebuggerStepThrough()> _
  24. Private Sub InitializeComponent()
  25. Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
  26. Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
  27. Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
  28. Me.NewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
  29. Me.SaveToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
  30. Me.OpenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
  31. Me.EditToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
  32. Me.CutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
  33. Me.CopyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
  34. Me.PasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
  35. Me.UndoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
  36. Me.RedoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
  37. Me.TestOptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
  38. Me.FontToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
  39. Me.ColorToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
  40. Me.Button1 = New System.Windows.Forms.Button()
  41. Me.MenuStrip1.SuspendLayout()
  42. Me.SuspendLayout()
  43. '
  44. 'RichTextBox1
  45. '
  46. Me.RichTextBox1.Location = New System.Drawing.Point(0, 58)
  47. Me.RichTextBox1.Name = "RichTextBox1"
  48. Me.RichTextBox1.Size = New System.Drawing.Size(765, 328)
  49. Me.RichTextBox1.TabIndex = 0
  50. Me.RichTextBox1.Text = ""
  51. '
  52. 'MenuStrip1
  53. '
  54. Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.EditToolStripMenuItem, Me.TestOptionsToolStripMenuItem})
  55. Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
  56. Me.MenuStrip1.Name = "MenuStrip1"
  57. Me.MenuStrip1.Size = New System.Drawing.Size(764, 24)
  58. Me.MenuStrip1.TabIndex = 1
  59. Me.MenuStrip1.Text = "MenuStrip1"
  60. '
  61. 'FileToolStripMenuItem
  62. '
  63. Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripMenuItem, Me.SaveToolStripMenuItem, Me.OpenToolStripMenuItem})
  64. Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem"
  65. Me.FileToolStripMenuItem.Size = New System.Drawing.Size(37, 20)
  66. Me.FileToolStripMenuItem.Text = "File"
  67. '
  68. 'NewToolStripMenuItem
  69. '
  70. Me.NewToolStripMenuItem.Name = "NewToolStripMenuItem"
  71. Me.NewToolStripMenuItem.Size = New System.Drawing.Size(103, 22)
  72. Me.NewToolStripMenuItem.Text = "New"
  73. '
  74. 'SaveToolStripMenuItem
  75. '
  76. Me.SaveToolStripMenuItem.Name = "SaveToolStripMenuItem"
  77. Me.SaveToolStripMenuItem.Size = New System.Drawing.Size(103, 22)
  78. Me.SaveToolStripMenuItem.Text = "Save"
  79. '
  80. 'OpenToolStripMenuItem
  81. '
  82. Me.OpenToolStripMenuItem.Name = "OpenToolStripMenuItem"
  83. Me.OpenToolStripMenuItem.Size = New System.Drawing.Size(103, 22)
  84. Me.OpenToolStripMenuItem.Text = "Open"
  85. '
  86. 'EditToolStripMenuItem
  87. '
  88. Me.EditToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CutToolStripMenuItem, Me.CopyToolStripMenuItem, Me.PasteToolStripMenuItem, Me.UndoToolStripMenuItem, Me.RedoToolStripMenuItem})
  89. Me.EditToolStripMenuItem.Name = "EditToolStripMenuItem"
  90. Me.EditToolStripMenuItem.Size = New System.Drawing.Size(39, 20)
  91. Me.EditToolStripMenuItem.Text = "Edit"
  92. '
  93. 'CutToolStripMenuItem
  94. '
  95. Me.CutToolStripMenuItem.Name = "CutToolStripMenuItem"
  96. Me.CutToolStripMenuItem.Size = New System.Drawing.Size(103, 22)
  97. Me.CutToolStripMenuItem.Text = "Cut"
  98. '
  99. 'CopyToolStripMenuItem
  100. '
  101. Me.CopyToolStripMenuItem.Name = "CopyToolStripMenuItem"
  102. Me.CopyToolStripMenuItem.Size = New System.Drawing.Size(103, 22)
  103. Me.CopyToolStripMenuItem.Text = "Copy"
  104. '
  105. 'PasteToolStripMenuItem
  106. '
  107. Me.PasteToolStripMenuItem.Name = "PasteToolStripMenuItem"
  108. Me.PasteToolStripMenuItem.Size = New System.Drawing.Size(103, 22)
  109. Me.PasteToolStripMenuItem.Text = "Paste"
  110. '
  111. 'UndoToolStripMenuItem
  112. '
  113. Me.UndoToolStripMenuItem.Name = "UndoToolStripMenuItem"
  114. Me.UndoToolStripMenuItem.Size = New System.Drawing.Size(103, 22)
  115. Me.UndoToolStripMenuItem.Text = "Undo"
  116. '
  117. 'RedoToolStripMenuItem
  118. '
  119. Me.RedoToolStripMenuItem.Name = "RedoToolStripMenuItem"
  120. Me.RedoToolStripMenuItem.Size = New System.Drawing.Size(103, 22)
  121. Me.RedoToolStripMenuItem.Text = "Redo"
  122. '
  123. 'TestOptionsToolStripMenuItem
  124. '
  125. Me.TestOptionsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FontToolStripMenuItem, Me.ColorToolStripMenuItem})
  126. Me.TestOptionsToolStripMenuItem.Name = "TestOptionsToolStripMenuItem"
  127. Me.TestOptionsToolStripMenuItem.Size = New System.Drawing.Size(86, 20)
  128. Me.TestOptionsToolStripMenuItem.Text = "Test Options"
  129. '
  130. 'FontToolStripMenuItem
  131. '
  132. Me.FontToolStripMenuItem.Name = "FontToolStripMenuItem"
  133. Me.FontToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
  134. Me.FontToolStripMenuItem.Text = "Font"
  135. '
  136. 'ColorToolStripMenuItem
  137. '
  138. Me.ColorToolStripMenuItem.Name = "ColorToolStripMenuItem"
  139. Me.ColorToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
  140. Me.ColorToolStripMenuItem.Text = "Color"
  141. '
  142. 'Button1
  143. '
  144. Me.Button1.Location = New System.Drawing.Point(0, 27)
  145. Me.Button1.Name = "Button1"
  146. Me.Button1.Size = New System.Drawing.Size(77, 25)
  147. Me.Button1.TabIndex = 2
  148. Me.Button1.Text = "Button1"
  149. Me.Button1.UseVisualStyleBackColor = True
  150. '
  151. 'Form1
  152. '
  153. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
  154. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
  155. Me.ClientSize = New System.Drawing.Size(764, 346)
  156. Me.Controls.Add(Me.Button1)
  157. Me.Controls.Add(Me.RichTextBox1)
  158. Me.Controls.Add(Me.MenuStrip1)
  159. Me.MainMenuStrip = Me.MenuStrip1
  160. Me.Name = "Form1"
  161. Me.Text = "Test Notepad"
  162. Me.MenuStrip1.ResumeLayout(False)
  163. Me.MenuStrip1.PerformLayout()
  164. Me.ResumeLayout(False)
  165. Me.PerformLayout()
  166.  
  167. End Sub
  168. Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
  169. Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
  170. Friend WithEvents FileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
  171. Friend WithEvents NewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
  172. Friend WithEvents SaveToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
  173. Friend WithEvents OpenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
  174. Friend WithEvents EditToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
  175. Friend WithEvents CutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
  176. Friend WithEvents CopyToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
  177. Friend WithEvents PasteToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
  178. Friend WithEvents UndoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
  179. Friend WithEvents RedoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
  180. Friend WithEvents TestOptionsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
  181. Friend WithEvents FontToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
  182. Friend WithEvents ColorToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
  183. Friend WithEvents Button1 As System.Windows.Forms.Button
  184.  
  185. Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
  186. Try
  187. Dim dlg As SaveFileDialog = New SaveFileDialog
  188. dlg.Title = "Save"
  189. dlg.Filter = "Rich Text Files (*.rtf)|*.rtf"
  190. If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
  191. RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)
  192. End If
  193. Catch ex As Exception : End Try
  194. End Sub
  195.  
  196. Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
  197. Try
  198. Dim dlg As OpenFileDialog = New OpenFileDialog
  199. dlg.Title = "Open"
  200. dlg.Filter = "Rich Text Files (*.rtf)|*.rtf"
  201. If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
  202. RichTextBox1.LoadFile(dlg.FileName)
  203. End If
  204. Catch ex As Exception : End Try
  205. End Sub
  206.  
  207. Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
  208. RichTextBox1.Clear()
  209. End Sub
  210.  
  211. Private Sub CutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripMenuItem.Click
  212. RichTextBox1.Cut()
  213. End Sub
  214.  
  215. Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click
  216. RichTextBox1.Copy()
  217. End Sub
  218.  
  219. Private Sub PasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripMenuItem.Click
  220. RichTextBox1.Paste()
  221. End Sub
  222.  
  223. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  224. RichTextBox1.SelectAll()
  225. End Sub
  226.  
  227. Private Sub UndoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UndoToolStripMenuItem.Click
  228. RichTextBox1.Undo()
  229. End Sub
  230.  
  231. Private Sub RedoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedoToolStripMenuItem.Click
  232. RichTextBox1.Redo()
  233. End Sub
  234.  
  235. Private Sub FontToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontToolStripMenuItem.Click
  236. Dim dlg As FontDialog = New FontDialog
  237. dlg.Font = RichTextBox1.Font
  238. If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
  239. RichTextBox1.Font = dlg.Font
  240. End If
  241. Catch ex As Exception : End Try
  242. End Sub
  243.  
  244. Private Sub ColorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColorToolStripMenuItem.Click
  245. Try
  246. Dim dlg As ColorDialog = New ColorDialog
  247. dlg.Color = RichTextBox1.ForeColor
  248. If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
  249. RichTextBox1.ForeColor = dlg.Color
  250. End If
  251. Catch ex As Exception : End Try
  252. End Sub
  253. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!