طلبي واضح وهو اريد كود
بعرض السطر الخامس مثلا من Text1 في Text2
حيث ان Text1 متغددة الاسطر
كيف يمكن عمل ذلك
وتحياتي للجميع
كيف اعرض سطر محدد من Text1 في Text2
السلام عليكم...
هذا مثال مأخوذ من كتاب Total VB SourceBook:
- ' تعريف بعض الثوابت
- Private Const EM_GETLINECOUNT = &HBA
- Private Const EM_LINEINDEX = &HBB
- Private Const EM_LINELENGTH = &HC1
- Private Const EM_GETLINE = &HC4
- ' التصريح عن دالة من دوال ويندوز
- Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByV
al wMsg As Long, ByVal wParam As Long, lParam As Any) As Long - ' دالة للحصول على نص سطر معين. ترقيم الأسطر يبدأ بالصفر
- Public Function GetTextBoxLine(txtIn As TextBox, ByVal intLineNumber As Integer) As String
- Dim lngNumLines As Long
- Dim strTest As String
- Dim lngTestStringLength As Long
- Dim intLineIndex As Integer
- Dim intLineLength As Integer
- On Error GoTo GetTextBoxLine_Error
- 'Get the number of lines in the TextBox
- lngNumLines = SendMessage(txtIn.hwnd, EM_GETLINECOUNT, 0, ByVal 0&)
- If intLineNumber >= 0 And intLineNumber < lngNumLines Then
- 'Get character offset of the first character of the line
- intLineIndex = SendMessage(txtIn.hwnd, EM_LINEINDEX, intLineNumber, ByVal 0&)
- 'Get the line length of that line
- intLineLength = SendMessage(txtIn.hwnd, EM_LINELENGTH, intLineIndex, ByVal 0&) + 1
- 'Initialize a String buffer to hold the line. Allow 2 characters
- 'for the line length information
- strTest = String$(intLineLength + 2, 0) '
- 'Put the line length into the first two bytes of the string
- Mid$(strTest, 1, 1) = Chr$(intLineLength And &HFF)
- Mid$(strTest, 2, 1) = Chr$(intLineLength / &H100)
- 'Get selected line, save the length of the returned string
- lngTestStringLength = SendMessage(txtIn.hwnd, EM_GETLINE, intLineNumber, ByVal strTest)
- 'remove trailing nulls
- strTest = Left$(strTest, lngTestStringLength)
- GetTextBoxLine = strTest
- Else
- Err.Raise vbObjectError + 1, App.Title, "Invalid line number specified."
- End If
- Exit Function
- GetTextBoxLine_Error:
- MsgBox "Error: " & Err.Number & ". " & Err.Description, , "GetTextBoxLine"
- End Function
- Private Sub Command1_Click()
- ' استدعاء الدالة للحصول على نص السطر رقم 5، و هو السطر السادس لأن ترقيم الأسطر يبدأ بالصفر
- Text2.Text = GetTextBoxLine(Text1, 5)
- End Sub
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
كما تفضل الأخ najy_zl (حفظه الله تعالى) عن طريق API
ويمكن عن طريق الدالة Split كما يلي :
Dim Str() As String Str() = Split(Text1, vbCrLf) Text2 = Str(4) 'السطر الخامس
شكرا اخي عبد العزيز
ولي طلب اخر وهو
كيف اعدل نفس السطر بعد تعديل العبارة
قبل التعديدل
Dim Str() As String
Str() = Split(Text1, vbCrLf)
Text2 = Str(4) 'السطر الخامس
يعد التعديل
Dim Str() As String
Str() = Split(Text1, vbCrLf)
Str(4)=Text2
Text1=join(Str,vbCrLf)