احمد زلمة
زيزوومى مبدع
غير متصل
من فضلك قم بتحديث الصفحة لمشاهدة المحتوى المخفي
يعطيك العافية أخوي على الشرح الوافي
تم تطبيق الدرس
ولكن عند تجربة البرنامج والضغط على الزر تظهر لي هذه الرسالة
![]()
ماني عارف وين المشكلة بالزبط
تحياتي لكـ
0
ياهلا بيك اخي الرايق
الغلط عندك من الأكواد
شوف اخوي
اول حاجه لما تفتح عمل جديد يعني على الفورم نفسه اضغط ضغطين
هيضهر لك الشهر هذا

احذف السطرين
وضيف هذا الكود
Private Const SW_SHOWNORMAL = 1
Private Declare Function lExecute Lib "l32.dll" Alias _
"lExecuteA" ( _
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
بعد ذلك عندما تضيف الأزرار
اضف هذا الكود
مع مراعاة وضع الرابط مكان رابط منتدى زيزوومlExecute Me.hwnd, "open", "http://www.absba.org", vbNullString, vbNullString, SW_SHOWNORMAL
يعني وضع رابط الموقع الذي تريده
وطبق العملية دي على كل زر
حمل الأكواد من الرابط التالي افضل لك
يجب عليك
تسجيل الدخول
او
تسجيل لمشاهدة الرابط المخفي
