الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

التعامل مع المفكرة

مغلق
بدأه hajahmed في 6 يناير 2003 · 4 رد · 670 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخوتى الاعزاء

السلام عليكم ورحمة الله وبركاته

اعجبتنى فكرة انشا ملف والكتابة عليه فقمت بتصميم البرنامج المرفق

لدى العديد من الاسئلة ارجو من الاخوة الاعضاء المساعدة :

1. ما هو الكود المطلوب لمسح هذه الرسالة كلها او مسح جزء منها

او مسح كلمة واحدة فقط ؟

2. كيف يمكننى اضافة صورة للمفكرة ؟

3. هل يمكن الكتابة فى التكست بوكس وحفظها بالمفكرة ؟

3. هل يمكن تعديل كتابة كلمة او نص بالمفكرة ؟

4. كيف اجعل هذه الرسالة تتحرك رأسياً او افقياً باستمرار او مرة واحدة؟

ارجوا ان لا اكون قد اكثرت من الاسئلة لكنى اطمع فى كرمكم بالمساعدة وجزاكم الله خيرا

""

notepad.zip

#2

بسم الله :

أخي الكريم "hajahmed" إليك الكود المعدل وقد جربته :

زر الكتابة في النص :

Private Sub Command1_Click()

APPPATH = App.Path & "TEST.TXT"

f = FreeFile

Open APPPATH For Output As #f

Print #f, Text1.Text

Close #f

End Sub

زر القراءة من النص :

Private Sub Command2_Click() 

Dim M As String

f = FreeFile

Open App.Path & "test.txt" For Input As #f

Text1.Text = Input(LOF(f), f)



Close f





End Sub

'

مسح الكتابة المكتوبة في الملف

Private Sub Command3_Click() 



APPPATH = App.Path & "TEST.TXT"

f = FreeFile

Open APPPATH For Output As #f

Print #f, ""

Close #f

End Sub

الكتابة في مربع النص ثم الحفظ :

Private Sub Command5_Click()

Text1.Text = "بسم الله ألرحمن الرحيم"

APPPATH = App.Path & "TEST.TXT"

f = FreeFile

Open APPPATH For Output As #f

Print #f, Text1.Text

Close #f

End Sub

اما حفظ صورة في المفكرة فلم أفهم قصدك ....

والسلام عليكم

(gift)(f)

#3

أخي الكريم الورد الظاهرة خلال كود

زر القراءة من النص :

ليست وردة بل هي المتحول f ومحطا باقوسين ......

والله ظبطت بالصدفة .................

:):D

#4

شكرا استاذى العزيز موفق

ساقوم بتعديل الكود حسب ما اوضحته لى و سأفيدك لاحقا

جزاك الله خيرا وبارك الله فيك

#5

هل من الممكن ان تكملوا البرنامج و حد يقولي ازاي نعمل Save للتكست??

هذا الموضوع مغلق.

مواضيع مشابهة