[karem programs]

بسم الله الرحمن الرحيم

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

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

أولاً :

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


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]
و السلام عليكم و رحمة الله و بركاته

[a_almisery]

شكــراً بس لو كــنت نضـمت الكــود كان احــسن