Advertisement
Guest User

Untitled

a guest
Jul 22nd, 2017
58
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.47 KB | None | 0 0
  1. 'kobac
  2.  
  3. Imports System
  4. Imports System.Runtime.ConstrainedExecution
  5. Imports System.Windows.Forms
  6. Imports Microsoft.VisualBasic.Interaction
  7. Imports Microsoft.VisualBasic.Devices
  8. Imports System.Text
  9. Imports System.Resources.ResourceManager
  10.  
  11. Namespace Program
  12. Public Class Main
  13.  
  14.  
  15.  
  16.  
  17. #Region " Designer "
  18.  
  19. Inherits Form
  20. Friend WithEvents Button1 As System.Windows.Forms.Button
  21. Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
  22.  
  23. Private Components As System.ComponentModel.IContainer
  24. Public Sub New()
  25. MyBase.New()
  26. Application.EnableVisualStyles()
  27. InitializeComponent()
  28. Me.Button1 = New System.Windows.Forms.Button()
  29. Me.TextBox1 = New System.Windows.Forms.TextBox()
  30. Me.SuspendLayout()
  31. '
  32. 'Button1
  33. '
  34. Me.Button1.Location = New System.Drawing.Point(314, 382)
  35. Me.Button1.Name = "Button1"
  36. Me.Button1.Size = New System.Drawing.Size(75, 23)
  37. Me.Button1.TabIndex = 0
  38. Me.Button1.Text = "Count"
  39. Me.Button1.UseVisualStyleBackColor = True
  40. '
  41. 'TextBox1
  42. '
  43. Me.TextBox1.Location = New System.Drawing.Point(12, 12)
  44. Me.TextBox1.MaxLength = 327670000
  45. Me.TextBox1.Multiline = True
  46. Me.TextBox1.Name = "TextBox1"
  47. Me.TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Both
  48. Me.TextBox1.Size = New System.Drawing.Size(683, 351)
  49. Me.TextBox1.TabIndex = 1
  50. Me.TextBox1.Text = ""
  51. Me.TextBox1.WordWrap = True
  52. '
  53. 'Form1
  54. '
  55. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
  56. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
  57. Me.ClientSize = New System.Drawing.Size(707, 417)
  58. Me.Controls.Add(Me.TextBox1)
  59. Me.Controls.Add(Me.Button1)
  60. Me.Name = "TexTer"
  61. Me.Text = "TexTer"
  62. Me.ResumeLayout(False)
  63. Me.PerformLayout()
  64. End Sub
  65. Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
  66. If Disposing Then If Not Components Is Nothing Then Components.Dispose()
  67. MyBase.Dispose(Disposing)
  68. End Sub
  69. <System.Diagnostics.DebuggerStepThrough()> _
  70. Private Sub InitializeComponent()
  71. End Sub
  72. #End Region
  73.  
  74.  
  75.  
  76. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  77. textbox1.text="Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum.Duis egestas metus eget nunc imperdiet id lacinia risus volutpat. Cras in mi id nisi posuere iaculis ut non arcu. Sed sagittis facilisis bibendum. Ut diam lorem, gravida id ultricies at, pulvinar ac est. Sed risus justo, ultricies eu commodo eget, pulvinar vitae elit. In magna turpis, ultricies sit amet feugiat a, sodales quis mauris. Pellentesque commodo dolor non tortor pretium aliquet. Morbi nec lacus diam. Nunc non luctus sapien. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Ut eget nunc rutrum ligula gravida cursus fermentum a mi. Praesent ut sollicitudin leo. Mauris eu condimentum purus. Nam sit amet augue congue urna volutpat euismod. Sed ultricies risus vitae ipsum sollicitudin nec dignissim mauris mattis. Donec viverra luctus interdum."
  78. msgbox("This TextBox contains: " & TextBox1.Text.Length & " letters")
  79. End Sub
  80.  
  81.  
  82.  
  83. End Class
  84. End Namespace
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement