+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [كود] نقل البينات الي ملف تكيست (/showthread.php?tid=3536)
نقل البينات الي ملف تكيست - عبدالله الصافي - 23-07-14
اخواني الكرام السلام عليكم ورحمة الله وبركاته
لدي مشروع به List Box
اريد كود نسخ محتوياته الي ملف Txt
وايضا كود نسخ محتويات ملف Txt إلي List Box
وشكرا لكم
RE: نقل البينات الي ملف تكيست - king2512010 - 24-07-14
اخى العزيز
اليك كود لحفظ البيانات من ListBOX
الي ملف Txt
PHP كود :
Private Sub Command1_Click()
' Save List Box Items in File
Open "MyTextFile.txt" For Output As #1
For I = 0 To List1.ListCount - 1
Print #1, List1.List(I)
Next
Close
End Sub
Private Sub Form_Load()
'Add some data to list box
For I = 1 To 10
List1.AddItem Str$(I)
Next
End Sub
RE: نقل البينات الي ملف تكيست - king2512010 - 24-07-14
اما العكس وهو ادخال بيانات من ملف نصى الى ListBOX سارفع لك مثال عنه ان شاء الله
RE: نقل البينات الي ملف تكيست - عبدالله الصافي - 24-07-14
شكرا اخي الكريم
فعلا مثال رائع
جزاك الله خيرا