21-09-12, 08:22 AM
السلام عليكم ورحمة الله تعالى وبركاته
[COLOR="#FF0000"]
طريقة سهلة لبرمجة مفكرة خاصة بك
[/COLOR]--------------------
[COLOR="#0000FF"]أولاً :
[/COLOR]
[COLOR="#0000FF"] قم بإضافة الأدوات التالية للمشروع :
[/COLOR]
إقتباس :Text Box
Command Botton -7
Microsoft Common Dialog control 6.0
ونسقها لتكون مرتبة
-----
ثانياً :
[COLOR="#0000FF"]
قم بتسمية الأزارير على بالأسماء التالية : [/COLOR]
إقتباس :تحديد الكل--------------------
حفظ النص
طباعة
نسخ
لصق
جديد
الخط
الأكواد :
في قسم التصريحات العامة
PHP كود :
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long[/[/PHP
[b][color=#0000FF]في الزر - تحديد الكل - [/color][/b]
[php]On Error Resume Next
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
في الزر - حفظ النص -
PHP كود :
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
في الزر - طباعة -
PHP كود :
On Error Resume Next
Printer.Print Text1.Text
في الزر - نسخ -
PHP كود :
On Error Resume Next
Clipboard.Clear
Clipboard.SetText (Text1.Text)
في الزر - لصق -
PHP كود :
On Error Resume Next
Text1.SelText = Clipboard.GetText
في الزر - جديد -
PHP كود :
On Error Resume Next
Text1.Text = ""
في الزر - الخط -
PHP كود :
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
[COLOR="#0000FF"]تم الإنتهاء من البرنامج
لتحميل المشروع [/COLOR]
من هنا