ما هي اطول أداه لعرض نص ؟

السلام عليكم...

لتغيير عرض مربع النص (TextBox) تلقائياً ليكون حسب النص الموجود فيه، اضبط الخاصية MultiLine على True (مع أننا سنعرض النص كسطر مفرد)، و ضع الكود التالي في Module (وحدة برمجية):

Private Const EM_GETLINECOUNT = &HBA
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Sub MakeTextBoxWide(ATextBox As Control, ParentForm As Form)
    Dim LnCount As Long
    Dim OldFont As Font
    Dim OldWidth As Single

    If Not (TypeOf ATextBox Is TextBox) Then Exit Sub
    If Not ATextBox.MultiLine Then Exit Sub

    Set OldFont = ParentForm.Font
    Set ParentForm.Font = ATextBox.Font

    ATextBox.Text = Trim$(Replace$(ATextBox.Text, vbCrLf, " "))
    ATextBox.Width = ParentForm.TextWidth(ATextBox.Text)
    OldWidth = ATextBox.Width

    LnCount = SendMessage(ATextBox.hwnd, EM_GETLINECOUNT, 0&, 0&)
    Do While LnCount > 1
        ATextBox.Width = ATextBox.Width + ParentForm.ScaleX(2, vbPixels, ParentForm.ScaleMode)
        If ATextBox.Width > (OldWidth * 1.5) Then Exit Do
        LnCount = SendMessage(ATextBox.hwnd, EM_GETLINECOUNT, 0&, 0&)
    Loop
    Set ParentForm.Font = OldFont
End Sub

و في الحدث Load للـ Form المحتوية على مربع النص قم باستدعاء هذا الإجراء، كالتالي مثلاً:

Private Sub Form_Load()
    MakeTextBoxWide Text1, Me
End Sub

طبعاً يمكنك استدعاء ذلك الإجراء مع أي مربع نص و من أي Form.

نرجو الاستفادة و السلام.

كود جميل تسلم أصابعك الذهبية إية الحلاوه دي :clapping:

ألف شكر يا najy_zl رد رائع.