Pharaonic_Guy

هل فهمت المثال الأول عن كيفية البحث في جوجل .. نفس المثال يمكنك تطبيق فكرته علي مواقع تحميل الملفات .. كل ما ستحتاجه هو معرفة اسم عنصر التكست في صفحة التحميل..واسم الفورم الذي يت عمل post منه وإرسال ما تريد إل التكست ..و من ثم عمل Submit.. اسم التكست في الموقع…

فيك الخير والله أخ ياسر.. ربنا يكرمك..

Private Sub Command1_Click() On Error Resume Next Dim sText As String Open "File Path" For Binary As #1 sText = Space(LOF(1)) Get #1, , sText Close #1 sText = Replace(sText, "Mohamed", "Khaled", 1, -1) Kill "File Path" Open "File Path" For Binary As #1 Put #1,…

الأخ Mohammed-Saeed قام بوضع الكود الذي تريده.. ولكنك ستستخدم لهذا الكود الأداة DHTML Edit Control .. فقم بإضافتها من ال Components.. إذا كنت ستستخدم الفكرة التي اتبعها الأخ Mohammed فيمكنك استخدام الكود المبسط التالي : Private Sub Command1_Click() On Error Re…

الثابت OLECMDEXECOPT_DODEFAULT من اسمه يدل علي العملية الافتراضية المتضمنة للمعامل الأول المرر للوظيفة ExecWB فمثلا في الكود السابق .. مررنا الثابت OLECMDID_PRINT لطباعة الصفحة .. إذا كنت قد جربت الكود فستجد صندوق حوار الطباعة يخرج لك ..وبالتالة هذه هي العملية…

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced الوضع الافتراضي هو 1 لتفعيل الخاصية . 0 لإلغاء التفعيل . وستجد في المفتاح التالي تحكمات أكثر بالاختيارات.. HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advan…

جرب تغيير طريقة الربط بقاعدة البيانات .. عملت مشروع بنفس الخصائص التي تريدها تجده في المرفقات .. المشروع شغال عندي .. فإذا اشتغل معاك .. فاعتمد طريقة الربط المرفقة بـ Dao وريح دماغك .. prj.rar

مشاكل التاريخ سخيفة بالفعل.. بالأمس الكود يعمل ..اليوم نفس الكود ولكنه لا يعمل.. نفس الموضوع كان بيحصل معايا.. جرب الصيغة التالية : Dim SQL As String rs.Open "Emp_Apsent" , adOpenStatic ,adLockOptimistic SQL = "Select * From Emp_Absent Where Emp_Code=" & Val(t…

الأمر مهم جداا.. يمكنك من خلاله عمل أشياء عديدة مثل الحفظ والبحث والطباعة ..والتحكم في شكل الصفحة..وتحرير الصفحة .. مثلا أنا لما أعتمد علي لغة HTML في عمل تقارير..وعندما أريد طباعة ذلك التقرير من داخل الصفحة كنت امرر له المعامل OLECMDID_PRINT هكذا : ExecWB OLE…

أعتقد أنك لن تجد موضوع يتناول المؤشرات في الفيجوال بيسيك إلا هنا .. /index.ph...c=69161&hl=

قل لي ما الفرق بين حذف جملة .. وتبديل الجملة التي تريد حذفها بقيمة Null String ؟

حلك مع الدالة Replace Function Replace(Expression As String, Find As String, Replace As String, [Start As Long = 1], [Count As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare]) As String المعامل الأول Expression وتضع به النص أو المتغير النصي الذي تري…

أخي الفريد .. أنت تعلم أنه ممنوع وضع أي أداوت تم معالجتها بنفسجيا .. وكمان أعتقد أن الأشعة كانت مغشوشة .. لأنه هناك خطأ في المعالجة .. عندي معالجة أفضل كنت قد حملتها من برنامج eMule ..

أنا منزل عندي كل اصدارات هذه الاداة .. الكود سيكون كالتالي : Private Sub OsenXPToolBar1_ButtonClick(Index As Integer, sText As String) Select Case Index Case 1 'Place Your Code Here Case 2 'Place Your Code Here End Select ' أو يمكنك استخدام الطريقة التالية Sel…

في حالة إذا أردت الوقت يصل لأكثر من دقيقة فستحتاج إلي الكود التالي Dim Period As Long Dim intTime As Integer Private Sub Command1_Click() Timer1.Interval = 1000: Period = Val(Text1): intTime = 0 End Sub Private Sub Timer1_Timer() intTime = intTime + 1 Me.Capti…

أخيرا موضوع جديد في المنتدي .. مش عارف ليه المنتدي نايم طوال فترة الاجازة .. وبينشط فقط في الدراسة.. مشكور علي الموضوع..

الحل مرفق.. ولكن كان يجب عليك إعضاء لينك لتحميل أداة OSEN.. نصيحة أخوية ..لا تستعمل هذا الاصدار أبدا..لأنه تقيل جدا حتي علي الجهاز اللي امكانياته معقوله.. ففي حالة أنك ستعمل برامج تقوم بتوزيعها علي أجهزة أخري بتلك الأداة ..أفضل إصدار تستخدمه للأداة هو اصدار 20…

Components >>Microsoft Windows Common Controls-2 DTPICKER.rar

شكرا يا سيدي بس انا الحمد لله ما بحبش وجع الدماغ .. مالها أداة DtPicker ..

كما ذكر الأخ GENIUS-IT يمنك وضعها في أي مكان وتسجيلها منه .. في حالة إذا لم يذكر مكان معين مع الأداة..