08-03-14, 06:29 PM
بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
اليوم هقدم لسيادتكم
طريقة سهلة لبرمجة مفكرة خاصة بك
بو ربنا المستعان
--------------------
أولاً :
قم بإضافة الأدوات التالية للمشروع :
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]
و السلام عليكم و رحمة الله و بركاته
السلام عليكم و رحمة الله و بركاته
اليوم هقدم لسيادتكم
طريقة سهلة لبرمجة مفكرة خاصة بك
بو ربنا المستعان
--------------------
أولاً :
قم بإضافة الأدوات التالية للمشروع :
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]
و السلام عليكم و رحمة الله و بركاته