بسم الله الرحمن الرحيم
اخواني الاعزاء في منتدى فيجوال بيسك ، خاصة الاعضاء الجدد و اللذين يريدون تعلم لغة فيجوال بيسك
قمت بكتابة هذا الدرس الذي يتعلق بكيفية عمل مفكره صغيره تشبه notepad المرفقه مع windows
الادوات التي نحتاجها
1- RichTextBox و هي تتمتع بمزايا اضافيه تفوق الاداه الافتراضية Textbox
2- CommonDialog وهي الاداه التي سنستخدمها في حففظ و فتح الملفات الجديده التي سنقوم بانشائها.
ونستطيع الحصول عليهم بالنقر على الرز الايمن للماوس و الضغط على component
و اختيار الادوات السابقه.
في هذا المثال قمت بتسمية اداة صندوق النص(RichTextBox1) بـ Editor
و اداة CommonDialog اختصارا بـ com
تنسيق البرنامج:
سنستخدم الكود التالي حتى يبقى البرنامج متناسقاً عند تغير حجم النافذه بالتصغير و التكبير
كود PHP:
Private Sub Form_Resize()
Editor.Top = 30
Editor.Left = 30
Editor.Width = Me.Width - 200
Editor.Height = Me.Height - 800
End Sub
اوامر لائحة ملف
جديد:
كود PHP:
Private Sub new_Click()
If sens = 0 Then
Editor = ""
Else
If MsgBox("åá ÊÑíÏ ÍÝÙ ÇáÊÛíÑ&Cce dil;Ê¿", vbQuestion + vbYesNo, "Editor") = vbYes Then
Com.Filter = "ãáÝ äÕí|*.txt|"
Com.FilterIndex = 1
Com.ShowSave
Editor.SaveFile Com.FileName
Editor.Refresh
End If
End If
Editor.Text = ""
End Sub
بالنسبه للمتغير sens فهو متغير قمنا بإنشاءه لنستطيع تحديد اذا ما قام المستخدم بالتعديل على النص ام لا ، و يتم التحكم به عن طريق الاجاء التالي:
كود PHP:
Private Sub editor_Change()
sens = 1
End Sub
وسنقوم بإعطاءه قيمة اولية = صفر
فتح:
كود PHP:
Private Sub open_Click()
Com.Filter = "ãáÝ äÕí|*.txt|"
Com.FilterIndex = 1
Com.ShowOpen
Editor.FileName = Com.FileName
Editor.Refresh
Me.Caption = "Editor" & "'" & Com.FileTitle & "'"
End Sub
حفظ:
كود PHP:
If sens = 0 Then Exit Sub
If MsgBox("åá ÊÑíÏ ÍÝÙ ÇáÊÛíÑ&Cce dil;Ê¿", vbQuestion + vbYesNo, "Editor") = vbYes Then
Com.Filter = "ãáÝ äÕí|*.txt|"
Com.FilterIndex = 1
Com.ShowSave
Editor.SaveFile Com.FileName
Editor.Refresh
sens = 0
End If
اغلاق:
كود PHP:
Private Sub close_Click()
If sens = 0 Then
Editor = ""
Else
If MsgBox("åá ÊÑíÏ ÍÝÙ ÇáÊÛíÑ&Cce dil;Ê¿", vbQuestion + vbYesNo, "Editor") = vbYes Then
Com.Filter = "ãáÝ äÕí|*.txt|"
Com.FilterIndex = 1
Com.ShowSave
Editor.SaveFile Com.FileName
Editor.Refresh
End If
End If
Editor.Text = ""
End Sub
خروج:
كود PHP:
Private Sub end_Click()
If sens = 0 Then
End
Else
Call close_Click
End
End If
End Sub
و سأقوم لاحقا بوضع اوامر لائحة تحرير و ارفاق البرنامج
اخوكم
فيصل
01 Jan 2008, 01:38 PM
درس:كيف اصنع مفكره صغيره ((للمبتدئين)) 
العرض العادي
