micheal R jordan

السلام عليكم غير كذا If (sBefore = "1" or "2" or "3" ) And (sAfter = "A" Or sAfter = "B" Or sAfter = "C" ) then If (sBefore = "1" or sBefore ="2" or sBefore ="3" ) And (sAfter = "A" Or sAfter = "B" Or sAfter = "C" ) then

فقط للاضافة وكما قال الاخ msayed2004 لأنه وبينما أنا أكتب أجاب هو يمكنك استعمال right بدل mid وكلاهما صحبح استعمال right حسب المثال المرفق TheName = Right(TxtURL, Len(TxtURL) - TheLastChr)

السلام عليكم حسن أخي كل ما تحتاجه هو دالة vb mid و instrrev والشرح في المرفق TakeName.rar

جواب بسيط قبل أن أنام إذا كانت رسالة الخطأ هذا فالسبب هو Select Case UCase(Mid(sTemp, x, 1)) لانه عندما يكون مثلا الحرف A هو الاول وعندك x=i-1 فهذا يعني أنك تأخد الحرف الذي قبل الاول ألا وهو .... لا شيء ســــــــــــــــــــــــــــــــــــــــلام تصبحون على خ…

السلام عليكم أولا أود أن أقول شيئا والله شكرا على على أمران أولهما شرح لما تريد رائع م ومفهوم تانيا أعتقد أنك تعرفه وهو بخصوص التعلم أولا وآخرا وسيكون هناك ثالثا إذا كنت فهمت الكود الاول جيدا ما علينا حسن أخي ركز معي حاول أن تعطيني إذا كان هناك علاقة بين الحرو…

يا عم إنت وينك إن شاء الله لا يطول زعلك علينا آسف

شكرا أخي على الموضوع وخصوصا فكرة المرجع وسأضيف هذه الدالة تحتاج إلى مدخلات Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long طريقة الاستعمال سهلة FindWindow(vbNullString, Wi…

أخي الكريم Ala2 VB آمل أن يفيده الكود رغم أنني أعتقد انه ناقص لانه يرد الحرف على اليمين وعلى اليسار وآمل أن يجيب على سؤالي ســــــــــــــــــــــــــــــــــــــــــــــــــــــلام

السلام عليكم أخي العزيز عندي سؤالان هما : هل هذا ماكنت تريده هنا /index.ph...=131192&hl= السؤال التاني إذا كنت محتاج الكود بشدة أو تحتاجه في أقرب وقت لا مانع من المساعدة أم إذا كان عندك متسع من الوقت وتريد التعلم فيسعدني جدا أن أذهب ويذهب معك أعضاء المنتدى وحد…

إضافة سريعة هل كتبت On Error Resume Next قبل الامر WebBrowser1.Navigate App.Path & "\ss.htm" ولم ينجح

حسن أخي الذي أستطيع أن أرى في هذا الكود هو إما HTML File به SCRIPT لا يستطيع WEBBROWSER التعامل معه وهذا مستبعد لانه يعمل بعض المرات بدون أخطاء بقي شيء آخر أخي وهو / قد لا تحتاجها إذا كنت تعمل من الدرايف مباشرة حسن أستعمل هذا الكود بدل الاول Dim Path As String…

السلام عليكم لست متأكدا جدا لكن عليك تجربته هناك برنامج يأتي من XP اسمه iexpress أكتبها في Run وجرب وهو سهل الاستخدام آمل أن يفيدك

أخي الكريم عندي سؤال ماهو الكود الذي وضعته في Form_Load بالنسبة لهذه الفورم

السلام عليكم أخي وصديقي مبرمج مبتدا آمل من كل قلبي أن لا تكون زعلان مني ووالله بين ساعو وساعة أدخل وكلي أمل أن تشرح لي أكثر وألتمس منك قبول اعتذاري فقط شرح بسيط أنا لما قلت البحث في GOOGLE كنت أظن أنك تقصد البحث عن الملفات لان مثل هذه الامور سهل كتابتها والبحث…

السلام عليكم والله لا أدري ماذا تقصد على ما أعتقد تريد أن تقلب الكلمة يعني man4ever تصبح reve4nam أذا كان صحيحا فهناك طريقة أخرى

قد يكون الامر له علاقة بحالة الويندوز يعني فمثلا أنا تخرج بعض رسائل الخطأ من حين لآخر في IE يعني على حسب الحالة التي تشتغل أنت فيها آمل أن تجد الحل

أخي الكريم لم أنصب البرنامج من قبل ولكن حسب الرسالة أولا ادهب الى My Computer و Right Click في General انظر أي حزمة خدمية لديك وإن لم تكن الاولى او التانية فعليك بتحميل Sevice Pack وأعتقد أنه التاني هذا ما أستطيع مساعدتك به

السلام عليكم أخي الكريم لا أعرف الجواب وإذا كان ممكن رفع المثال سيكون أفضل

السلام عليكم لا توعل مني لك والله أزعل الدنيا كلها ولا مكروه يمسك يا سيدي على كل فهمت أنك تطلب البحث غن صيغة معينة(Extention) امتداد ماذا تقصد حتى ب إيه يعني كلامك دوخني ما فهمت تريد القول تكتب مثلا VB6.EXE والبرنامج يطلع C:\Program Files\Microsoft Visual Stud…

السلام عليكم ورحمة الله تعالى وبركاته أما بعد أخي الكريم كل ما عليك فعله هو البحث وستجد ولكن أريد أن أسألك هل أنت الوحيد الذي لم يسمع ب GOOGLE حسن انا أيضا أتحمل قليلا من اللوم لأنني منذ وقت طويل شيئا ما وأنا عندي هذا الكود وبقيت مترددا في وضعه خصوصا خصوصا وأن…