Kyrillische Tastatur mit CopyToClipboard

    • VB.NET

      Kyrillische Tastatur mit CopyToClipboard

      Hier stelle ich euch den Source-Code für meine Kyrillische Tastatur zur Verfügung
      Zuerst der Code für den Designer:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
      2. Partial Class Form1
      3. Inherits System.Windows.Forms.Form
      5. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
      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
      17. 'Wird vom Windows Form-Designer benötigt.
      18. Private components As System.ComponentModel.IContainer
      20. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
      21. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
      22. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
      23. <System.Diagnostics.DebuggerStepThrough()> _
      24. Private Sub InitializeComponent()
      25. Me.z = New System.Windows.Forms.TextBox()
      26. Me.Button1 = New System.Windows.Forms.Button()
      27. Me.Button2 = New System.Windows.Forms.Button()
      28. Me.Button3 = New System.Windows.Forms.Button()
      29. Me.Button4 = New System.Windows.Forms.Button()
      30. Me.Button5 = New System.Windows.Forms.Button()
      31. Me.Button6 = New System.Windows.Forms.Button()
      32. Me.Button7 = New System.Windows.Forms.Button()
      33. Me.Button8 = New System.Windows.Forms.Button()
      34. Me.Button9 = New System.Windows.Forms.Button()
      35. Me.Button10 = New System.Windows.Forms.Button()
      36. Me.Button11 = New System.Windows.Forms.Button()
      37. Me.Button12 = New System.Windows.Forms.Button()
      38. Me.Button13 = New System.Windows.Forms.Button()
      39. Me.Button14 = New System.Windows.Forms.Button()
      40. Me.Button15 = New System.Windows.Forms.Button()
      41. Me.Button16 = New System.Windows.Forms.Button()
      42. Me.Button17 = New System.Windows.Forms.Button()
      43. Me.Button18 = New System.Windows.Forms.Button()
      44. Me.Button19 = New System.Windows.Forms.Button()
      45. Me.Button20 = New System.Windows.Forms.Button()
      46. Me.Button21 = New System.Windows.Forms.Button()
      47. Me.Button22 = New System.Windows.Forms.Button()
      48. Me.Button23 = New System.Windows.Forms.Button()
      49. Me.Button24 = New System.Windows.Forms.Button()
      50. Me.Button25 = New System.Windows.Forms.Button()
      51. Me.Button26 = New System.Windows.Forms.Button()
      52. Me.Panel1 = New System.Windows.Forms.Panel()
      53. Me.CheckBox1 = New System.Windows.Forms.CheckBox()
      54. Me.Button29 = New System.Windows.Forms.Button()
      55. Me.Button27 = New System.Windows.Forms.Button()
      56. Me.Button28 = New System.Windows.Forms.Button()
      57. Me.Button30 = New System.Windows.Forms.Button()
      58. Me.Panel1.SuspendLayout()
      59. Me.SuspendLayout()
      60. '
      61. 'z
      62. '
      63. Me.z.Location = New System.Drawing.Point(12, 12)
      64. Me.z.Name = "z"
      65. Me.z.Size = New System.Drawing.Size(346, 20)
      66. Me.z.TabIndex = 0
      67. '
      68. 'Button1
      69. '
      70. Me.Button1.Location = New System.Drawing.Point(0, 3)
      71. Me.Button1.Name = "Button1"
      72. Me.Button1.Size = New System.Drawing.Size(26, 36)
      73. Me.Button1.TabIndex = 1
      74. Me.Button1.Text = "А"
      75. Me.Button1.UseVisualStyleBackColor = True
      76. '
      77. 'Button2
      78. '
      79. Me.Button2.Location = New System.Drawing.Point(32, 3)
      80. Me.Button2.Name = "Button2"
      81. Me.Button2.Size = New System.Drawing.Size(26, 36)
      82. Me.Button2.TabIndex = 2
      83. Me.Button2.Text = "Б"
      84. Me.Button2.UseVisualStyleBackColor = True
      85. '
      86. 'Button3
      87. '
      88. Me.Button3.Location = New System.Drawing.Point(64, 3)
      89. Me.Button3.Name = "Button3"
      90. Me.Button3.Size = New System.Drawing.Size(26, 36)
      91. Me.Button3.TabIndex = 3
      92. Me.Button3.Text = "Ц"
      93. Me.Button3.UseVisualStyleBackColor = True
      94. '
      95. 'Button4
      96. '
      97. Me.Button4.Location = New System.Drawing.Point(96, 3)
      98. Me.Button4.Name = "Button4"
      99. Me.Button4.Size = New System.Drawing.Size(26, 36)
      100. Me.Button4.TabIndex = 4
      101. Me.Button4.Text = "Д"
      102. Me.Button4.UseVisualStyleBackColor = True
      103. '
      104. 'Button5
      105. '
      106. Me.Button5.Location = New System.Drawing.Point(128, 3)
      107. Me.Button5.Name = "Button5"
      108. Me.Button5.Size = New System.Drawing.Size(26, 36)
      109. Me.Button5.TabIndex = 5
      110. Me.Button5.Text = "Е"
      111. Me.Button5.UseVisualStyleBackColor = True
      112. '
      113. 'Button6
      114. '
      115. Me.Button6.Location = New System.Drawing.Point(160, 3)
      116. Me.Button6.Name = "Button6"
      117. Me.Button6.Size = New System.Drawing.Size(26, 36)
      118. Me.Button6.TabIndex = 6
      119. Me.Button6.Text = "Ф"
      120. Me.Button6.UseVisualStyleBackColor = True
      121. '
      122. 'Button7
      123. '
      124. Me.Button7.Location = New System.Drawing.Point(192, 3)
      125. Me.Button7.Name = "Button7"
      126. Me.Button7.Size = New System.Drawing.Size(26, 36)
      127. Me.Button7.TabIndex = 7
      128. Me.Button7.Text = "Г"
      129. Me.Button7.UseVisualStyleBackColor = True
      130. '
      131. 'Button8
      132. '
      133. Me.Button8.Location = New System.Drawing.Point(224, 3)
      134. Me.Button8.Name = "Button8"
      135. Me.Button8.Size = New System.Drawing.Size(26, 36)
      136. Me.Button8.TabIndex = 8
      137. Me.Button8.Text = "Х"
      138. Me.Button8.UseVisualStyleBackColor = True
      139. '
      140. 'Button9
      141. '
      142. Me.Button9.Location = New System.Drawing.Point(256, 3)
      143. Me.Button9.Name = "Button9"
      144. Me.Button9.Size = New System.Drawing.Size(26, 36)
      145. Me.Button9.TabIndex = 9
      146. Me.Button9.Text = "И"
      147. Me.Button9.UseVisualStyleBackColor = True
      148. '
      149. 'Button10
      150. '
      151. Me.Button10.Location = New System.Drawing.Point(288, 3)
      152. Me.Button10.Name = "Button10"
      153. Me.Button10.Size = New System.Drawing.Size(26, 36)
      154. Me.Button10.TabIndex = 10
      155. Me.Button10.Text = "Ј"
      156. Me.Button10.UseVisualStyleBackColor = True
      157. '
      158. 'Button11
      159. '
      160. Me.Button11.Location = New System.Drawing.Point(320, 3)
      161. Me.Button11.Name = "Button11"
      162. Me.Button11.Size = New System.Drawing.Size(26, 36)
      163. Me.Button11.TabIndex = 11
      164. Me.Button11.Text = "К"
      165. Me.Button11.UseVisualStyleBackColor = True
      166. '
      167. 'Button12
      168. '
      169. Me.Button12.Location = New System.Drawing.Point(17, 45)
      170. Me.Button12.Name = "Button12"
      171. Me.Button12.Size = New System.Drawing.Size(26, 36)
      172. Me.Button12.TabIndex = 12
      173. Me.Button12.Text = "Л"
      174. Me.Button12.UseVisualStyleBackColor = True
      175. '
      176. 'Button13
      177. '
      178. Me.Button13.Location = New System.Drawing.Point(49, 45)
      179. Me.Button13.Name = "Button13"
      180. Me.Button13.Size = New System.Drawing.Size(26, 36)
      181. Me.Button13.TabIndex = 13
      182. Me.Button13.Text = "М"
      183. Me.Button13.UseVisualStyleBackColor = True
      184. '
      185. 'Button14
      186. '
      187. Me.Button14.Location = New System.Drawing.Point(81, 45)
      188. Me.Button14.Name = "Button14"
      189. Me.Button14.Size = New System.Drawing.Size(26, 36)
      190. Me.Button14.TabIndex = 14
      191. Me.Button14.Text = "Н"
      192. Me.Button14.UseVisualStyleBackColor = True
      193. '
      194. 'Button15
      195. '
      196. Me.Button15.Location = New System.Drawing.Point(114, 45)
      197. Me.Button15.Name = "Button15"
      198. Me.Button15.Size = New System.Drawing.Size(26, 36)
      199. Me.Button15.TabIndex = 15
      200. Me.Button15.Text = "О"
      201. Me.Button15.UseVisualStyleBackColor = True
      202. '
      203. 'Button16
      204. '
      205. Me.Button16.Location = New System.Drawing.Point(146, 45)
      206. Me.Button16.Name = "Button16"
      207. Me.Button16.Size = New System.Drawing.Size(26, 36)
      208. Me.Button16.TabIndex = 16
      209. Me.Button16.Text = "П"
      210. Me.Button16.UseVisualStyleBackColor = True
      211. '
      212. 'Button17
      213. '
      214. Me.Button17.Location = New System.Drawing.Point(178, 45)
      215. Me.Button17.Name = "Button17"
      216. Me.Button17.Size = New System.Drawing.Size(26, 36)
      217. Me.Button17.TabIndex = 17
      218. Me.Button17.Text = "Q"
      219. Me.Button17.UseVisualStyleBackColor = True
      220. '
      221. 'Button18
      222. '
      223. Me.Button18.Location = New System.Drawing.Point(210, 45)
      224. Me.Button18.Name = "Button18"
      225. Me.Button18.Size = New System.Drawing.Size(26, 36)
      226. Me.Button18.TabIndex = 18
      227. Me.Button18.Text = "Р"
      228. Me.Button18.UseVisualStyleBackColor = True
      229. '
      230. 'Button19
      231. '
      232. Me.Button19.Location = New System.Drawing.Point(242, 45)
      233. Me.Button19.Name = "Button19"
      234. Me.Button19.Size = New System.Drawing.Size(26, 36)
      235. Me.Button19.TabIndex = 19
      236. Me.Button19.Text = "С"
      237. Me.Button19.UseVisualStyleBackColor = True
      238. '
      239. 'Button20
      240. '
      241. Me.Button20.Location = New System.Drawing.Point(274, 45)
      242. Me.Button20.Name = "Button20"
      243. Me.Button20.Size = New System.Drawing.Size(26, 36)
      244. Me.Button20.TabIndex = 20
      245. Me.Button20.Text = "Т"
      246. Me.Button20.UseVisualStyleBackColor = True
      247. '
      248. 'Button21
      249. '
      250. Me.Button21.Location = New System.Drawing.Point(306, 45)
      251. Me.Button21.Name = "Button21"
      252. Me.Button21.Size = New System.Drawing.Size(26, 36)
      253. Me.Button21.TabIndex = 21
      254. Me.Button21.Text = "У"
      255. Me.Button21.UseVisualStyleBackColor = True
      256. '
      257. 'Button22
      258. '
      259. Me.Button22.Location = New System.Drawing.Point(97, 87)
      260. Me.Button22.Name = "Button22"
      261. Me.Button22.Size = New System.Drawing.Size(26, 36)
      262. Me.Button22.TabIndex = 22
      263. Me.Button22.Text = "V"
      264. Me.Button22.UseVisualStyleBackColor = True
      265. '
      266. 'Button23
      267. '
      268. Me.Button23.Location = New System.Drawing.Point(129, 87)
      269. Me.Button23.Name = "Button23"
      270. Me.Button23.Size = New System.Drawing.Size(26, 36)
      271. Me.Button23.TabIndex = 23
      272. Me.Button23.Text = "В"
      273. Me.Button23.UseVisualStyleBackColor = True
      274. '
      275. 'Button24
      276. '
      277. Me.Button24.Location = New System.Drawing.Point(161, 87)
      278. Me.Button24.Name = "Button24"
      279. Me.Button24.Size = New System.Drawing.Size(26, 36)
      280. Me.Button24.TabIndex = 24
      281. Me.Button24.Text = "Џ"
      282. Me.Button24.UseVisualStyleBackColor = True
      283. '
      284. 'Button25
      285. '
      286. Me.Button25.Location = New System.Drawing.Point(193, 87)
      287. Me.Button25.Name = "Button25"
      288. Me.Button25.Size = New System.Drawing.Size(26, 36)
      289. Me.Button25.TabIndex = 25
      290. Me.Button25.Text = "Ѕ"
      291. Me.Button25.UseVisualStyleBackColor = True
      292. '
      293. 'Button26
      294. '
      295. Me.Button26.Location = New System.Drawing.Point(225, 87)
      296. Me.Button26.Name = "Button26"
      297. Me.Button26.Size = New System.Drawing.Size(26, 36)
      298. Me.Button26.TabIndex = 26
      299. Me.Button26.Text = "З"
      300. Me.Button26.UseVisualStyleBackColor = True
      301. '
      302. 'Panel1
      303. '
      304. Me.Panel1.Controls.Add(Me.Button1)
      305. Me.Panel1.Controls.Add(Me.Button2)
      306. Me.Panel1.Controls.Add(Me.Button3)
      307. Me.Panel1.Controls.Add(Me.Button26)
      308. Me.Panel1.Controls.Add(Me.Button4)
      309. Me.Panel1.Controls.Add(Me.Button25)
      310. Me.Panel1.Controls.Add(Me.Button5)
      311. Me.Panel1.Controls.Add(Me.Button24)
      312. Me.Panel1.Controls.Add(Me.Button6)
      313. Me.Panel1.Controls.Add(Me.Button23)
      314. Me.Panel1.Controls.Add(Me.Button7)
      315. Me.Panel1.Controls.Add(Me.Button22)
      316. Me.Panel1.Controls.Add(Me.Button8)
      317. Me.Panel1.Controls.Add(Me.Button21)
      318. Me.Panel1.Controls.Add(Me.Button9)
      319. Me.Panel1.Controls.Add(Me.Button20)
      320. Me.Panel1.Controls.Add(Me.Button10)
      321. Me.Panel1.Controls.Add(Me.Button19)
      322. Me.Panel1.Controls.Add(Me.Button11)
      323. Me.Panel1.Controls.Add(Me.Button18)
      324. Me.Panel1.Controls.Add(Me.Button12)
      325. Me.Panel1.Controls.Add(Me.Button17)
      326. Me.Panel1.Controls.Add(Me.Button13)
      327. Me.Panel1.Controls.Add(Me.Button16)
      328. Me.Panel1.Controls.Add(Me.Button14)
      329. Me.Panel1.Controls.Add(Me.Button15)
      330. Me.Panel1.Location = New System.Drawing.Point(12, 34)
      331. Me.Panel1.Name = "Panel1"
      332. Me.Panel1.Size = New System.Drawing.Size(346, 124)
      333. Me.Panel1.TabIndex = 29
      334. '
      335. 'CheckBox1
      336. '
      337. Me.CheckBox1.AutoSize = True
      338. Me.CheckBox1.Location = New System.Drawing.Point(12, 164)
      339. Me.CheckBox1.Name = "CheckBox1"
      340. Me.CheckBox1.Size = New System.Drawing.Size(97, 17)
      341. Me.CheckBox1.TabIndex = 30
      342. Me.CheckBox1.Text = "Kleine Zeichen"
      343. Me.CheckBox1.UseVisualStyleBackColor = True
      344. '
      345. 'Button29
      346. '
      347. Me.Button29.Location = New System.Drawing.Point(108, 160)
      348. Me.Button29.Name = "Button29"
      349. Me.Button29.Size = New System.Drawing.Size(154, 23)
      350. Me.Button29.TabIndex = 31
      351. Me.Button29.UseVisualStyleBackColor = True
      352. '
      353. 'Button27
      354. '
      355. Me.Button27.Location = New System.Drawing.Point(318, 160)
      356. Me.Button27.Name = "Button27"
      357. Me.Button27.Size = New System.Drawing.Size(40, 23)
      358. Me.Button27.TabIndex = 32
      359. Me.Button27.Text = "Entf"
      360. Me.Button27.UseVisualStyleBackColor = True
      361. '
      362. 'Button28
      363. '
      364. Me.Button28.Location = New System.Drawing.Point(292, 160)
      365. Me.Button28.Name = "Button28"
      366. Me.Button28.Size = New System.Drawing.Size(26, 23)
      367. Me.Button28.TabIndex = 33
      368. Me.Button28.Text = "<"
      369. Me.Button28.UseVisualStyleBackColor = True
      370. '
      371. 'Button30
      372. '
      374. Me.Button30.Font = New System.Drawing.Font("Microsoft Sans Serif",
      375. 5.25!, System.Drawing.FontStyle.Regular,
      376. System.Drawing.GraphicsUnit.Point, CType(0, Byte))
      377. Me.Button30.Location = New System.Drawing.Point(332, 12)
      378. Me.Button30.Name = "Button30"
      379. Me.Button30.Size = New System.Drawing.Size(26, 20)
      380. Me.Button30.TabIndex = 34
      381. Me.Button30.Text = "CTC"
      382. Me.Button30.UseVisualStyleBackColor = True
      383. '
      384. 'Form1
      385. '
      386. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
      387. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
      388. Me.ClientSize = New System.Drawing.Size(372, 189)
      389. Me.Controls.Add(Me.Button30)
      390. Me.Controls.Add(Me.Button28)
      391. Me.Controls.Add(Me.Button27)
      392. Me.Controls.Add(Me.Button29)
      393. Me.Controls.Add(Me.CheckBox1)
      394. Me.Controls.Add(Me.z)
      395. Me.Controls.Add(Me.Panel1)
      396. Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
      397. Me.Name = "Form1"
      398. Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
      399. Me.Text = "kyrillische Tastatur"
      400. Me.Panel1.ResumeLayout(False)
      401. Me.ResumeLayout(False)
      402. Me.PerformLayout()
      404. End Sub
      405. Friend WithEvents z As System.Windows.Forms.TextBox
      406. Friend WithEvents Button1 As System.Windows.Forms.Button
      407. Friend WithEvents Button2 As System.Windows.Forms.Button
      408. Friend WithEvents Button3 As System.Windows.Forms.Button
      409. Friend WithEvents Button4 As System.Windows.Forms.Button
      410. Friend WithEvents Button5 As System.Windows.Forms.Button
      411. Friend WithEvents Button6 As System.Windows.Forms.Button
      412. Friend WithEvents Button7 As System.Windows.Forms.Button
      413. Friend WithEvents Button8 As System.Windows.Forms.Button
      414. Friend WithEvents Button9 As System.Windows.Forms.Button
      415. Friend WithEvents Button10 As System.Windows.Forms.Button
      416. Friend WithEvents Button11 As System.Windows.Forms.Button
      417. Friend WithEvents Button12 As System.Windows.Forms.Button
      418. Friend WithEvents Button13 As System.Windows.Forms.Button
      419. Friend WithEvents Button14 As System.Windows.Forms.Button
      420. Friend WithEvents Button15 As System.Windows.Forms.Button
      421. Friend WithEvents Button16 As System.Windows.Forms.Button
      422. Friend WithEvents Button17 As System.Windows.Forms.Button
      423. Friend WithEvents Button18 As System.Windows.Forms.Button
      424. Friend WithEvents Button19 As System.Windows.Forms.Button
      425. Friend WithEvents Button20 As System.Windows.Forms.Button
      426. Friend WithEvents Button21 As System.Windows.Forms.Button
      427. Friend WithEvents Button22 As System.Windows.Forms.Button
      428. Friend WithEvents Button23 As System.Windows.Forms.Button
      429. Friend WithEvents Button24 As System.Windows.Forms.Button
      430. Friend WithEvents Button25 As System.Windows.Forms.Button
      431. Friend WithEvents Button26 As System.Windows.Forms.Button
      432. Friend WithEvents Panel1 As System.Windows.Forms.Panel
      433. Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
      434. Friend WithEvents Button29 As System.Windows.Forms.Button
      435. Friend WithEvents Button27 As System.Windows.Forms.Button
      436. Friend WithEvents Button28 As System.Windows.Forms.Button
      437. Friend WithEvents Button30 As System.Windows.Forms.Button
      439. End Class

      Und dann der Code für die Anwendung
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class Form1
      3. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      4. z.AppendText(Button1.Text)
      5. End Sub
      7. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
      8. z.AppendText(Button2.Text)
      9. End Sub
      11. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
      12. z.AppendText(Button3.Text)
      13. End Sub
      15. Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click
      16. z.Text = z.Text.Remove(z.Text.Length - 1, 1)
      17. End Sub
      19. Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.Click
      20. z.Text = ""
      21. End Sub
      23. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
      24. z.AppendText(Button4.Text)
      25. End Sub
      27. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
      28. z.AppendText(Button5.Text)
      29. End Sub
      31. Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
      32. z.AppendText(Button6.Text)
      33. End Sub
      35. Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
      36. z.AppendText(Button7.Text)
      37. End Sub
      39. Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
      40. z.AppendText(Button8.Text)
      41. End Sub
      43. Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
      44. z.AppendText(Button9.Text)
      45. End Sub
      47. Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
      48. z.AppendText(Button10.Text)
      49. End Sub
      51. Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
      52. z.AppendText(Button11.Text)
      53. End Sub
      55. Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
      56. z.AppendText(Button12.Text)
      57. End Sub
      59. Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
      60. z.AppendText(Button13.Text)
      61. End Sub
      63. Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
      64. z.AppendText(Button14.Text)
      65. End Sub
      67. Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
      68. z.AppendText(Button15.Text)
      69. End Sub
      71. Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
      72. z.AppendText(Button16.Text)
      73. End Sub
      75. Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
      76. z.AppendText(Button17.Text)
      77. End Sub
      79. Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
      80. z.AppendText(Button18.Text)
      81. End Sub
      83. Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
      84. z.AppendText(Button19.Text)
      85. End Sub
      87. Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
      88. z.AppendText(Button20.Text)
      89. End Sub
      91. Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
      92. z.AppendText(Button21.Text)
      93. End Sub
      95. Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
      96. z.AppendText(Button22.Text)
      97. End Sub
      99. Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
      100. z.AppendText(Button23.Text)
      101. End Sub
      103. Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
      104. z.AppendText(Button24.Text)
      105. End Sub
      107. Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click
      108. z.AppendText(Button25.Text)
      109. End Sub
      111. Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click
      112. z.AppendText(Button26.Text)
      113. End Sub
      115. Private Sub Button29_Click(sender As Object, e As EventArgs) Handles Button29.Click
      116. z.AppendText(" ")
      117. End Sub
      119. Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
      120. If CheckBox1.Checked = True Then
      121. Button1.Text = "а"
      122. Button2.Text = "б"
      123. Button3.Text = "ц"
      124. Button4.Text = "д"
      125. Button5.Text = "е"
      126. Button6.Text = "ф"
      127. Button7.Text = "г"
      128. Button8.Text = "х"
      129. Button9.Text = "и"
      130. Button10.Text = "ј"
      131. Button11.Text = "к"
      132. Button12.Text = "л"
      133. Button13.Text = "м"
      134. Button14.Text = "н"
      135. Button15.Text = "о"
      136. Button16.Text = "п"
      137. Button17.Text = "q"
      138. Button18.Text = "р"
      139. Button19.Text = "с"
      140. Button20.Text = "т"
      141. Button21.Text = "у"
      142. Button22.Text = "v"
      143. Button23.Text = "в"
      144. Button24.Text = "џ"
      145. Button25.Text = "ѕ"
      146. Button26.Text = "з"
      147. ElseIf CheckBox1.Checked = False Then
      148. Button1.Text = "А"
      149. Button2.Text = "Б"
      150. Button3.Text = "Ц"
      151. Button4.Text = "Д"
      152. Button5.Text = "Е"
      153. Button6.Text = "Ф"
      154. Button7.Text = "Г"
      155. Button8.Text = "Х"
      156. Button9.Text = "И"
      157. Button10.Text = "Ј"
      158. Button11.Text = "К"
      159. Button12.Text = "Л"
      160. Button13.Text = "М"
      161. Button14.Text = "Н"
      162. Button15.Text = "О"
      163. Button16.Text = "П"
      164. Button17.Text = "Q"
      165. Button18.Text = "Р"
      166. Button19.Text = "С"
      167. Button20.Text = "Т"
      168. Button21.Text = "У"
      169. Button22.Text = "V"
      170. Button23.Text = "В"
      171. Button24.Text = "Џ"
      172. Button25.Text = "Ѕ"
      173. Button26.Text = "З"
      174. End If
      175. End Sub
      177. Private Sub Button30_Click(sender As Object, e As EventArgs) Handles Button30.Click
      178. z.SelectAll()
      179. z.Copy()
      180. End Sub
      181. End Class

      Vielleicht ist er nicht auf dem höchsten Niveau aber auf jeden Fall hilfreich und Zeitsparend für alle die so etwas z.B. für die Kommunikation in dieser Schriftart benötigen.
      Alternativ einfach die Dateien gleich so herunterladen.
      Dateien

      • Form1.Designer.vb

        (17,62 kB, 87 mal heruntergeladen, zuletzt: )

      • Form1.vb

        (6,21 kB, 173 mal heruntergeladen, zuletzt: )

    Facebook
    Telefonspende