mostafazidani

dim strsource as string strsource=inet1.openurl("http://www.hotmail.com") txt1.text=strsource open "c:\ page.html" for binary access write as #1 put #1,,strsource close #1 مع ملاحظة اهمية وضع http في بداية كل موقع تريده وكما تعرف تستطيع تغيير المسار عن طريق ال…

ستحتاج الى استخدام نوعا ما الى دالة من دوال ال api وهي findwindow فذا كانت القيمة المرجعة لاتساوي صفر معناها ان البرنامج الفلاني شغال وبالتالي تستطيع التحكم بعمل البرنامج

قم بإيقاف الفيديو عن طريق mmc1.command="stop" ومن ثم احفظها ب savepicture ارجو ان الطريقة تضبط معاك

اهلا بك اخي هشام الطريقة هي ان تقوم بتحميل السورس للصفحة المراد حفظها وثم كتابة السورس الى صفحة html 1-استخدم اداة microsoft internet transfer control 2- واستخدم الطريقة ()openurl للحصول على السورس وثم اكتب السورس الى ملف html عن طريق كما هو معلوم بجملة open

بعد ان عملت setup لبرنامجي ومن ثم نسخة على الجهاز تظهر لي رسالة خطأ كلما اريد ان افتح التقرير الموجود في البرنامج بينما لاتظهر الرسالة اثناء فتح التقرير من البرنامج قبل عمل setup للبرنامج وهذا هو نص الرسالة Report width is larger than paper width قمت بتصغير عر…

اخي بانسبة للطلب الأول CommonDialog1.flags=&h3 CommonDialog1.ShowFont Text1.FontName = CommonDialog1.FontName بالنسبة للطلب الثاني CommonDialog1.filter="gif(*.gif)|*.gif| jpg files(*.jpg)|*.jpg" CommonDialog1.filename="" CommonDialog1.showsave savepicture pict…

اخي ماعليك الا تخزين مسار الصورة في قاعدة البيانات بحيث تكون الصورة موجودة ضمن مجلد البرنامج ومن ثم تستطيع استدعاء الصورة من القاعدة كأي حقل اخر

هذا الكود يمنع اغلاق البرنامج بواسطة alt و f4 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = vbAltMask And KeyCode = vbKeyF4 Then KeyCode = 0 End If End Sub

هذا الكود يعيد الصوت بشكل مستمر Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Private Const SND_LOOP As Long = &H8 Private Const SND_SYNC As Long = &H0 sndplaysound sou…

احسنت اخي MOAM ولكنك نسيت ان SHELL لاتفتح الا ملفات EXE بينما shellexecute نقوم بفتح معظم انواع الملفات فقط يقوم المستخدم بوضع المسار الصحيح للملف المراد فتحه وبالتالي تتيح للمبرمج ان يربط برنامجه مع اي نوع من الملفات

اخي صدقني لو تبحث في المنتدى ستجد من الامثلة التي لاتعد ولاتحصي فقط قم بالبحث في خانة البحث

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Const SW_SHOWNORM…

حاول تغيير اعدادات التاريخ من خلال control panel=>Regional options =>customize=>date=>short date format غير التاريخ على صيغة dd/mm/yyyy

اصنع مصفوفة من صناديق النصوص للعدد ولسعر الوحدة وللإجمالي كل على حدة واكتب الكود التالي جواب الفقرة الثانية for i=0 to texttotal.count-1 texttotal(i).text=textunitprice(i).text * textnumber(i).text next i

السلام عليكم في الحقيقة الواحد بيحتار لما يختار .معظم اعضاء المنتدى جديرين بالثقة ان يكونوا مشرفين ولكن في رأي الشخصي انو اخي محمد المهدي هو الأجدر في الاشراف لتواجده المستمر وبالتوفيق للمشرف الجديد أيا كان

لايوجد دالة تقوم بالتحويل مباشرة وانما تستطيع من خلال الكود Dim BIN As String, I As Long, r As Long BIN = "1000001" For I = 0 To Len(BIN) If Val(Mid(BIN, I + 1, 1)) = 1 Then r = r + 2 ^ I Next MSGBOX r

وايضا غير ال scalemode للصورة الى vbpixels

حاول تغيير المتغير b من variant الى long

اخي confort استخدم الخاصية sorted لذلك

ماشاء الله اخي ناصر واختي بنت اليمن على هذه الدروس بالفعل رائعة من عضوين رائعين زادنا و زادكم الله من علمه