[ناجي إبراهيم]

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

ضع كود الدالة التالية في Module لاستخدامها في أكثر من Form واحدة (إذا كنت ستستعملها في Form واحدة فقط فيمكنك وضعها في بداية كود الـ Form و جعلها Private بدل Public):

كود :

Public Function OpenTextFile(ByVal AFilePath As String) As String
    Dim Result As String
    Dim FNum As Integer
    
    On Error GoTo OpenTextFile_Err
    
    Result = ""
    
    FNum = FreeFile
    Open AFilePath For Input As #FNum
    Result = Input(LOF(FNum), #FNum)
    Close #FNum
    
    OpenTextFile = Result
    Exit Function
    
OpenTextFile_Err:
    MsgBox "خطأ عند محاولة فتح الملف:" & vbCrLf & Err.Description, vbCritical, "OpenTextFile"
End Function

و لاستعمالها قم باستدعائها. مثلاً لدينا مربع نص Text1 (مع الخاصية MultiLine مضبوطة على True) و زر أمر. الكود التالي يعمل على فتح الملف المحدد بالمسار C:\Setup.log عند النقر على الزر:

كود :

Private Sub Command1_Click()
    Text1.Text = OpenTextFile("C:\Setup.log")
End Sub

* طبعاً عند استدعاء الدالة سترسل لها مسار الملف الذي تريده. إذا كنت تصنع برنامج مثل المفكرة (NotePad) فبالتأكيد ستستعمل المكون CommonDialog لتسمح للمستخدم باحتيار الملف الذي يريد فتحه، و بعد الحصول على مسار الملف (باستخدام الـ CommonDialog أو غيره) ترسله إلى الدالة لفتحه و الحصول على محتوياته النصية و عرضها في مربع النص.

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