پیدا کردن طول رشته بر حسب ....

[Fagat_tanhaie]

سلام
یه رشته با طول متغیر داریم حالا چطوری میتونیم طول رشته رو بر حسب
سانتیمتر یا میلیمتر بدست بیاریم و اینکه بدونیم تو سطر چندم textbox هستیم ؟
خیلی ممنون از راه حل هایی که ارایه خواهید داد :wink:

در ضمن چطوری میشه adodb رو به datagrid وصل کرد :oops:

[Hamedm]

تو سطر چندم textbox هستیم ؟

سلام
بوسیله توابع API براحتی میتوانید این کارو انجام دهید ولی روشی هم الان بنظرم رسید که بدون توابع API میتوانیم این کارو هم انجام داد.

بدون توابع API:
بوسیله SelStart براحتی میتوانیم بفهمیم که مکان مکانمای کیبورد روی کاراکتر چندم است.
از اول رشته تا اون کاراکتر را جدا میکنیم سپس Enterهای قسمت جداشده را میشماریم. حتما میدانید که کد اسکی 10 و 13 پشت سر هم(ابتدا13 بعد 10) Enter میباشد.

موفق باشید و پرتوان :)

[حامد مصافی]

Public Function GetRow(txt As TextBox)
Dim tmpText As String
Dim Rows() As String
tmpText = Left(txt, txt.SelStart)
Rows = Split(tmpText, vbCrLf)
GetRow = UBound(Rows) + 1
End Function

[Fagat_tanhaie]

خیلی ممنون :موفق: