تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] طريقة تصميم برنامج كتابة (مفكرة)
#1
بسم الله الرحمن الرحيم

السلام عليكم و رحمة الله و بركاته
اليوم هقدم لسيادتكم
طريقة سهلة لبرمجة مفكرة خاصة بك
بو ربنا المستعان

--------------------

أولاً :

قم بإضافة الأدوات التالية للمشروع :


Text Box
Command Botton -7
Microsoft Common Dialog control 6.0

ونسقها لتكون مرتبة
-----

ثانياً :

قم بتسمية الأزارير على بالأسماء التالية :


تحديد الكل
حفظ النص
طباعة
نسخ
لصق
جديد
الخط

--------------------
الأكواد :

في قسم التصريحات العامة


Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long[/[/PHP


في الزر - تحديد الكل -

[PHP]On Error Resume Next
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus

في الزر - حفظ النص -


On Error Resume Next
CommonDialog1.ShowSave
If CommonDialog1.FileName <> Empty Then
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1
Else
Exit Sub
End If

في الزر - طباعة -


On Error Resume Next
Printer.Print Text1.Text

في الزر - نسخ -


On Error Resume Next
Clipboard.Clear
Clipboard.SetText (Text1.Text)

في الزر - لصق -


On Error Resume Next
Text1.SelText = Clipboard.GetText

في الزر - جديد -


On Error Resume Next
Text1.Text = ""

في الزر - الخط -


CommonDialog1.CancelError = True
CommonDialog1.flags = cdlCFBoth
On Error GoTo ErrHandler
CommonDialog1.ShowFont
Text1.FontName = CommonDialog1.FontName
Text1.FontBold = CommonDialog1.FontBold
Text1.FontItalic = CommonDialog1.FontItalic
Text1.FontSize = CommonDialog1.FontSize
ErrHandler:
Exit Sub

تم الإنتهاء من البرنامج



و لزيارة مدونة karem programs
يرجى الضغطهنا[/size]
و السلام عليكم و رحمة الله و بركاته
الرد }}}}
تم الشكر بواسطة:
#2
شكــراً بس لو كــنت نضـمت الكــود كان احــسن Smile
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنامج شؤون الموظفين مفتوح المصدر abulayth 39 23,706 20-11-16, 12:18 AM
آخر رد: sendbad100
  [كود] برنامج ادارة المكتبة abulayth 4 1,290 17-10-16, 11:09 PM
آخر رد: adad
  برنامج كاسحة الالغام abulayth 2 1,416 17-10-16, 11:07 PM
آخر رد: adad
  برنامج توليد ارقام عشوائية من عشر منازل abulayth 6 4,201 09-08-16, 11:01 AM
آخر رد: naseef
  [مثال] اضافة حذف تعديل باستخدام طريقة ADO abulayth 10 3,784 09-08-16, 11:00 AM
آخر رد: naseef
  برنامج لعبة تك تاك مع السورس abulayth 2 1,462 08-04-16, 01:13 AM
آخر رد: princeofislam
  [vb6.0] برنامج netwatch abulayth 1 232 20-03-16, 06:34 PM
آخر رد: Amir_alzubidy
  برنامج CHAT Client+Server بدون استخدام ادوات خارجية abulayth 5 2,463 27-07-15, 01:11 PM
آخر رد: abulayth

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم