آموزش ویژوال بیسیک : شمارش تعداد خطوط تایپ شده در یک TextBox

برای شمارش خطوط تایپ شده در یک TextBox با ویژوال بیسک ابتدا یک کنترل Textbox با Multiline = true بر روی فرم قرار میدهیم و همچنین

کنترل CommandButton و یک Label جهت نمایش تعداد خطوط

برای شمارش نیاز به فراخوانی توابع API داریم کد زیر را در قسمت General قرار دهید:

Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA"
 (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long,
 ByVal lParam As Long) As Long

و همچنین در قمست مربوط به کدهای commandButton ، کد زیر که مربوط به شمارش با تابع API مربوطه و همچنین نمایش آن در label میباشد

را قرار دهید

Dim count As Long
On Error Resume Next
count = SendMessageLong(Text1.hwnd, &HBA, 0&, 0&)
Label1.Caption = count

با استفاده از کلید F5 یا از طریق منو Run > Start برنامه را اجرا کنید

نکته : حتما از قسمت propertise مربوط به TextBox خاصیت MultiLine را بروی قرار دهید