nournabhan

السلام عليكم ورحمة الله وبركاته تأكد انه كافي لتكمل برنامجك :lol: نذكرني عندما كنت أعمل برنامجي الأول -_- شايف هذا الكود :blink: Option Explicit Dim XHi, XLo, YHi, YLo, StopDraw Private Sub Form_Load() ''''''''''''''''''''''''''''''''''''' Call Form_Resize If …

السلام عليكم يعطيك العافية أخي msayed2004 لدي استفسار بعد إذنك بالنسبة للكود الأول جربته عمل تمام لكن بعد نقل التعريف التالي من الموديول الى الفورم( للتوضيح) Private Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal …

السلام عليكم بارك الله فيك أخي اليوسفي عيونك هم الحلوين الله يبارك في وقتك أخي العزيز goon و السلام عليكم

السلام عليكم قم برفع الصورة على أحد مواقع تحميل الصور ثم ضع رابطها و السلام عليكم

السلام عليكم ورحمة الله وبركاته ملف وورد :blink: Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _ (ByVal lpCommandString As String, ByVal lpReturnString As String, _ ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Sub au…

السلام عليكم textbox البيسك لا تتمتع بخاصية الشفاقية مثل ال label مالذي تصبو إليه

السلام عليكم على أساس مو لعبة السلام عليكم

السلام عليكم ورحمة الله وبركاته Private Sub Form_Resize() 'إذا أردت تفعيل تكبير كامل أو تصغير كامل فقط If WindowState = 1 Or WindowState = 2 Then 'لاتعمل شي Else Me.Width = 10000 Me.Height = 5000 End If End Sub

السلام عليكم حسب مافهمت من الصورة فالملف ي حتاج تسجيل جرب تشغيل المرفق لتسجيله و السلام عليكم Reg.rar

السلام عليكم حاول من قائمة project >>>> references ـن تضيف أضف الملف يعني الdll إذا لم يكن موجود هذا مرفق بسيط بس الاكسبلور يلي عندي هو 6 NOUR_web.rar

السلام عليكم أظن أن الخطأ هو خطأ مكتبات من قائمة project >>>> references حاول أن تضيف هذه المكتبات الثلاث حسب موقعها في جهازك و أظن أن كل ما تحتاجه إذا لم يكن موجود في جهازك أصلاً هو : مكتبة النطق العربي في الملف المرفق الثاني للمشروع و حزمة SPCHAPI مكتبات الن…

يعطيكم العافية جميعاً وبالأخص الاخوة Eng. Usama El-Mokadem و AHMED18 و السلام عليكم

يعطيكم العافية أخواني جميعاُ على الردود و الشرح و التوضيحات و السلام عليكم

السلام عليكم كود الأخ egypt_man صحيح تمام % إذا كنت تريد ذلك من خلال تايمر فهذا الكود ينفعك Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'عند الضغط على إنتر يعمل التايمر If KeyCode = vbKeyReturn Then Timer1.Enabled = True End Sub Private Sub …

إذا كنت تقصد كيف تعرض ملف نصب داخل برنامجك فهذا هو الكود Private Sub Command1_Click() Dim path Dim file path = App.path If Right(path, 1) <> "\" Then path = path + "\" file = path + "help.txt" '************************************ Dim f f = FreeFile Open file …

ماشاء الله عليك قدمت لي أكثر مما قدمته لك بكثير ولا أملك إلا أن أقول لك جزاك الله عني كل خير و السلام عليكم

تستطيع ذلك من خلال الكود التالي Private Sub Command1_Click() WebBrowser1.Navigate App.Path & "\www.htm" End Sub مرفق بسيط للكود NOUR_web.rar

إن شاء الله أجهز مثال

تفضل هذا المثال وبالتوفيق ... NOUR_pps.rar

سوف أفوم بتجربته لكن هل لهذه البرامج أنواع معينة تستعيدها أم عدة أنواع