12-12-16, 03:11 PM
السلام عليكم
عندي مشكلة اخواني وهو هذا الكود
اولا كان يعمل عندما كان بهذا الشكل
Dim string1 As String
Dim ReadString As String
Dim iFr As Short
iFr = FreeFile()
ReadString = "E:\1.txt"
FileOpen(iFr, ReadString, OpenMode.Binary)
string1 = Space(LOF(iFr))
FileGet(iFr, string1)
FileClose(iFr)
MsgBox(string1)
ولكن انا اريده ان ياخذ البيانات من اداة التيكست بوكس وليس من الملف الذي في الرابط
Dim string1 As String
Dim ReadString As String
Dim iFr As Short
iFr = FreeFile()
ReadString = TextBox1.Text
FileOpen(iFr, ReadString, OpenMode.Binary)
string1 = Space(LOF(iFr))
FileGet(iFr, string1)
FileClose(iFr)
MsgBox(string1)
وعندما جعلته هكذا لم يعمل ارجو الحل
عندي مشكلة اخواني وهو هذا الكود
اولا كان يعمل عندما كان بهذا الشكل
Dim string1 As String
Dim ReadString As String
Dim iFr As Short
iFr = FreeFile()
ReadString = "E:\1.txt"
FileOpen(iFr, ReadString, OpenMode.Binary)
string1 = Space(LOF(iFr))
FileGet(iFr, string1)
FileClose(iFr)
MsgBox(string1)
ولكن انا اريده ان ياخذ البيانات من اداة التيكست بوكس وليس من الملف الذي في الرابط
Dim string1 As String
Dim ReadString As String
Dim iFr As Short
iFr = FreeFile()
ReadString = TextBox1.Text
FileOpen(iFr, ReadString, OpenMode.Binary)
string1 = Space(LOF(iFr))
FileGet(iFr, string1)
FileClose(iFr)
MsgBox(string1)
وعندما جعلته هكذا لم يعمل ارجو الحل