i-tech

برای شمارش خطوط تایپ شده در یک 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 را بروی قرار دهید

۹۳/۰۱/۰۹

نظرات  (۱)

راهه دیگه ای نیسن

ارسال نظر

ارسال نظر آزاد است، اما اگر قبلا در بیان ثبت نام کرده اید می توانید ابتدا وارد شوید.
شما میتوانید از این تگهای html استفاده کنید:
<b> یا <strong>، <em> یا <i>، <u>، <strike> یا <s>، <sup>، <sub>، <blockquote>، <code>، <pre>، <hr>، <br>، <p>، <a href="" title="">، <span style="">، <div align="">
تجدید کد امنیتی