+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] تصحيح خطئ في الكود (/showthread.php?tid=18397)
تصحيح خطئ في الكود - عبدالرحمن المكاوي - 12-12-16
السلام عليكم
عندي مشكلة اخواني وهو هذا الكود
اولا كان يعمل عندما كان بهذا الشكل
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)
وعندما جعلته هكذا لم يعمل ارجو الحل
RE: تصحيح خطئ في الكود - amgad525 - 12-12-16
PHP كود :
string1 = TextBox1.Text
MsgBox(string1)
PHP كود :
string1 = IO.File.ReadAllText("E:\1.txt")
MsgBox(string1)