[مشروع] طريقة تصميم برنامج كتابة (مفكرة) - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4) +--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18) +---- قسم : قسم مكتبة أكواد vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=33) +---- الموضوع : [مشروع] طريقة تصميم برنامج كتابة (مفكرة) (/showthread.php?tid=2172)

طريقة تصميم برنامج كتابة (مفكرة) - karem programs - 08-03-14 بسم الله الرحمن الرحيم السلام عليكم و رحمة الله و بركاته اليوم هقدم لسيادتكم طريقة سهلة لبرمجة مفكرة خاصة بك بو ربنا المستعان -------------------- أولاً : قم بإضافة الأدوات التالية للمشروع : 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] و السلام عليكم و رحمة الله و بركاته RE: طريقة تصميم برنامج كتابة (مفكرة) - a_almisery - 08-03-14 شكــراً بس لو كــنت نضـمت الكــود كان احــسن