منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طريقة سهلة لبرمجة مفكرة خاصة بك - قابلة للتطوير(((فيجوال بيسك 6)))) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : طريقة سهلة لبرمجة مفكرة خاصة بك - قابلة للتطوير(((فيجوال بيسك 6)))) (/showthread.php?tid=4272)

طريقة سهلة لبرمجة مفكرة خاصة بك - قابلة للتطوير(((فيجوال بيسك 6)))) - Ahmad Jawad - 21-09-12

السلام عليكم ورحمة الله تعالى وبركاته


[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]

من هنا