شريف عادل

السلام عليكم ورحمة الله وبركاته اسف اخى هانى لاتى لم ادخل الموضوع ده الا الان والله ولك منى شكر خاص على دروسك الرائعه وربنا يوفقك وتترقى حتى تصير خبير ههههههههه اه صحيح قصدى مدير تحياتى الخالصه لك.... شريف.. ;) ;) :rolleyes:

:lol:

السلام عليكم ورحمة الله وبركاته اعتقد ومن وجهة نظرى ان الموضوع ده مكانه مش هنا وانما مكانه قسم الاعلانات يرجى نقل الموضوع... شريف... ;) ;) :rolleyes:

السلام عليكم ورحمة الله وبركاته السؤال واضح جداً لا يحتاج الى صوره...

السلام عليكم ورحمة الله وبركاته الجهاز الذى يعمل عليه البرنامج جيداً قم بعمل تحزيم للبرنامج منه ثم انقل النسخه المحزمه وان شاء الله سوف تعمل جيداً...

اخى العزيز رزان... السلام عليكم ورحمة الله وبركاته هل يمكنك توضيح السؤال اكثر من ذلك...؟ ;) ;) :rolleyes:

لا شكر على واجب اخى... هذا عملى... شريف... ;) ;) :rolleyes:

الموضوع مخالف لقواعد الطرح العامه... ;) ;) :rolleyes:

الى نور العيون الرابطين يعملان يمكنك التحميل من اى منهم كالتالى كليك يمين على الرابط ثم تختارى Save Target As وسوف يتم تحميل البرنامج بنجاح ان شاء الله شريف...

جرب المرفق بعد التعديل... Print Screen.rar

السلام عليكم ورحمة الله وبركاته جرب هذه الحيله لطباعة سطح المكتب بما عليه من ايقونات Print Screen.rar

اخى العالم... السلام عليكم ورحمة الله وبركاته جرب الاده بعد التعديل فى المرفق ولك خالص تحياتى... شريف... ;) ;) :rolleyes: ocx.rar

وهذا كود اخر لتعطيل الماوس والكيبورد Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Function DisableMouse_Keyboard(Optional lngTimeToEnable As Long = …

السلام عليكم ورحمة الله وبركاته اليك كود اقفال لوحة المفاتيح Public Function DisableKeyboard() Shell "rundll32.exe keyboard,disable", vbNormalFocus End Function

السلام عليكم ورحمة الله وبركاته اليك الحل فى هذا الكود البسيط اخى... Dim Bool As Boolean Private Sub Command1_Click() If Bool = False Then Text1.Text = Text1.Text & "1" Else Text2.Text = Text2.Text & "2" End Sub Private Sub Text1_GotFocus() Bool = False End Su…

السلام عليكم ورحمة الله وبركاته والله مجهود اكثر من رائع يا بنت اليمن وكمان والله لم ادخل الموضوع ده الا اليوم بس بشكرك كثيراً على موضوعك ده اخوكى شريف... ;) ;) :rolleyes: ارجوا من المشرفين تثبيت تثبيت الموضوع

السلام عليكم ورحمة الله وبركاته تم الزياره هيا الى الامام شريف... ;) ;) :rolleyes:

جميـــــــــــــــــل جداً البرنامج يا محمد ;) ;) :rolleyes:

اخى العالم السلام عليكم ورحمة الله وبركاته يمكنك ذلك بتغيير القليل وهو وضع بكتشر بوكس على الفورم لها الاسم Picture1 وتقوم بالتعديل فى الكود التالى Private Sub Form_Load() Set Me.Picture = hDCToPicture(GetDC(0), 0, 0, Screen.Width / Screen.TwipsPerPixelX, Scree…

اخى العزيز العالم... هذا هو المثال ... وبالنسبه للكود السابق فهو يقوم بعمل Print Screen للشاشه التى امامك وطباعتها على الفورم وهو المرفق Print Screen مع خالص تحياتى... شريف.. ;) ;) :rolleyes: print desktop.rar Print Screen.rar