تعداد خطوط textbox

[vahid_d_0101]

ایا راهی وجو داره که تعداد خطوط textbox را بفهمیم
نمیدونم شاید یه راه خیلی ساده داشته باشه و ما بلد نباشیم
این کد .net


RichTextBox1.Lines.Length()
TextBox1.Lines.Length()

یه سوال دیگه ایا میشه داخل خط های Textbox جستجو کنیم و اگر کلمه مورد نظر وجود داشت کل اون خط را داخل یه Textbox دیگه نمایش بدیم

[مهران رسا]

جزئیات کار به این صورت هست . در مورد کاراکتر های 10 و 13 اسکی تحقیق کنید


Static J As Long
Dim I As Long, C As String
J = 0
For I = 1 To Len(Text1.Text)
C = Mid(Text1.Text, I, 1)
If C = Chr(13) Then
J = J + 1
End If
Next
MsgBox "Lines : " & J

[vahid_d_0101]

برای قسمت دوم جوابی نبود

[shask00l]

سلام دوست عزیز

همونطوری که جناب M8SPY. گفتن یکی از روش ها کاراکتر های 10 و 13 هستش . این دو کاراکتر نماینده کلید enter توی متن هستن . تعداد این دو کاراکتر توی یک textbox میتونه تعداد خط ها رو نشون بده .

در مورد سوال دومتون هم وقتی کلمه ی مورد نظر رو پیدا کردید از سمت چپ و راست شروع کنید به کپی کردن کلمات تا برسید به کد 10 یا 13.
چیز سختی نیست برای پیدا کردن کلمه هم خود کلاس textbox متد داره.

خوش باشی .

[vahid_d_0101]

ایا روشی دیگه برای جستجو در text box وجود داره این روش سرعت زیادی میگیره

[xxxxx_xxxxx]

با استفاده از تابع SendMessage و پیغام EM_GETLINECOUNT


Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
فراخوانی:


MsgBox SendMessage(Text1.hwnd, &HBA, 0&, 0&)
در اینجا HBA& همان پیغام EM_GETLINECOUNT است که میتونید برای خوانایی بیشتر اونو به صورت Const تعریف کنید:


Const EM_GETLINECOUNT = &HBA
موفق باشید/