یک مجموعه کد من درآوردی_خلاقیت یعنی این!

[hemmattby]

سلام.
این برنامه، فقط به یک textbox نیاز داره. و می شه از اون در برنامه های
مختلف استفاده کرد.

اگه کسی بتونه بهینش بکنه برام، که خیلی ازش ممنون میشم.
ولی بیشتر برای این گذاشتم که نظرتون رو بگید.

برنامه ی محاسبه ی تعداد کل کاراکتر های وارد شده در تکست باکس و درآوردن
متن آخرین خط وارد شده در تکست باکس.
(من، این کد رو برای یک پروژه ی ساخت کامپایلر نوشتم.)

Visual Basic Code:

Option Explicit
Dim a As Boolean
Dim b As Long
Dim c As Long
Dim line_ As String
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
a = False
b = 0
Do
a = Len(Text1.Text) = b
If a = True Then
Print a
Print b
Else
Print a
b = b + 1
End If
Loop Until a = True
End If
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text1.SelStart = c
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
line_ = Text1.SelText
Text1.SelText = Text1.SelText
Print line_
c = b + 2
Print c
End If
End Sub
​