27-04-13, 02:46 AM
السلام عليكم
جرب كتابة الكود بالشكل التالي
ومن خصائص الــــ Text غير MultiLine الي True
بالتوفيق
جرب كتابة الكود بالشكل التالي
PHP كود :
Private Sub Command1_Click()
CommonDialog1.InitDir = App.Path
CommonDialog1.Filter = "txt |*.txt|"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then
Exit Sub
Else
List1.AddItem CommonDialog1.FileName
End If
Dim A As Integer
A = FreeFile
Open (List1.List(0)) For Input As #A
Text1.Text = Input$(LOF(A), A)
Close #A
End Sub
ومن خصائص الــــ Text غير MultiLine الي True
بالتوفيق

