micheal R jordan

السلام عليكم صح يا عم صح صدق أو لا تصدق مباشرة بعد الضغط على تذكرتها ولكنني بما أن ردي أصلا كان للإضافة تجاوزت الامر صح يا عم صح If Left$(Line, 1) = "A" Then 'What Ever End If

السلام عليكم آسف أخي الكريم msayed2004 الجواب هنا نعم بعد إضافة الاخ الكريم طلبه أخي الكريم كلك ذوق يعني وأقسم بالذي بعث محمدا لن تستعمل أي طريقة أخرى غير التي وضعها الاخ الكريم إلا إلا إذا استعملت دوال API وبقيت تجري بين SendMessage و CreateFile و ReadFile ..…

السلام عليكم فقط للإضافة بعض الحصول على السطر الذي عليك عمله هو تقريبا التالي If Mid$(TheLine, 1, 1) = a Then 'What Ever Man End If

السلام عليكم إذا كنت فهمت فإن الامر في Properties تبع TextBox في Alignment اختر Right Justify

السلام عليكم آسف أخي ظننت أن المشكلة ستكون بخصوص تقسيم الملف أما بخصوص Automation Exel فقد تجها في اي مكان حسن بخصوص إدخال المعلومات إلى الاكسل لا أعرف كيف تريدها أفقيا عموديا تريد استعمال العمليات المتاحة في الكسل ودواله جرب الملف المرفق وحاول أن تصححها كما ت…

السلام عليكم شكرا لكم على المساعدة وجدت بعض الاشياء المفيدة رغم أنني لم أجربها بعد

السلام عليكم آمل أن يفيدك المرفق وأي سؤال في الخدمة رغم أنني لا أحبذ الاكواد الجاهزة إلا أن عبارة جعلت للضرورة أحكام Part_A_File.rar

السلام عليكم أخي ytreza إذا كنت حملت المثال الاول الذي رفعته فإن به 4 icons استعمل هذا الكود Picture1.Picture = LoadPicture("128.ico") وستحصب على خطأ وهو فقط بخصوص 128x128 ولكن النظام ليس عنده أي مشكلة وعندما أستعمل LoadImage بهذه الطريقة Sub LoadIconToPic(Pic…

السلام عليكم نعم جربت الطريقتين المذكورتين أما بخصوص الدالة GetObject فهي جيدة إلا أنها لا تعمل إلا مع الصور من نوع BMP وهذا مثال على ذلك Option Explicit Private Type Bitmap bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integ…

السلام عليكم آسف جدا على التأخير الحقيقة أن الامر لم ينفع لان SM_CYICON أو SM_CXICON ستعيد 32X32 إذا استعملت LR_DEFAULTSIZE وإذا لم أستعملها تعيد 16X16 عندي سؤال كيف أقرأ header information للأيقونة ؟

السلام عليكم في الحقيقة أنا أريد أن أعرف فقط كيفية عمل الامر كيف يحصل النظام على طول وعرض الصورة ولكن القصة كلها بدات عندما كنت أحصل على الخطأ عند محاولة استبدال ايقونة البرنامج بواسطة دوال الفيجوال مباشرة إذا لم تكن الايقونة 16x16 أو 32x32 فهو لا يقبلها ولكن …

السلام عليكم أخي الكريم هل عندك أي مثال في الموضوع شكرا

السلام عليكم طريقة الاخر الكريم مبتكرة وجميلة حقيقة إنها طريقة رائعة عمق في التفكير إن كان علي فأنا أستعمل هذه الطريقة وهي جيدة ولن أغيرها رغم إعجابي بالفكرة Function CountStirng(Text As String, ToCount As String) Dim sCounter As Long Dim sFind As Long Do DoEv…

السلام عليكم شكرا إخوان في الحقيقة أحبذ API لانني في الحقيقة أستعمل دوال API في كل شيء شيء يعني أقوم بكتابة كل شيء CreateWindowEX و SendMessage و RegisterClassEx إلى آخره ولكن : شيء أخير كيف يمكنني الحصول على المعلومات بدون تحميلها في picture Box هناك binary a…

السلام عليكم إخواني الاعزاء أريد الحصول على width + height + dimension الخاص بصورة ما أرجو أن أجد عندكم كود لهذا الامر وحبذا لو كان بواسطة دوال API وشكرا

السلام عليكم إخواني الكرام لماذا تتعبون أنفسكم بالبحث حرفا حرفا استعملوا الدالة instr لرأية إذا كان النص يحتوي @ Private Sub TxtEmail_LostFocus() If InStr(TxtEmail, "@") = 0 Then MsgBox "You Enterd Invalid Address", vbInformation, "Invalid" End Sub بحيث TxtEma…

السلام عليكم هناك مثال في المنتدى وهو بسيط والدالة هي Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long سلام

السلام عليكم للإضافة المشكلة حلها هو على الشكل التالي بعد أن تحصل على كل ما سبق وعندما تصل إلى هذه المشكلة اعمل العكس تماما والطريدة تصبح الصياد تأكد من الكلمة التي توصلت إليها هي الكلمة المطلوبة وذلك ب = الكلمة المطلوبة والكلمة التي حصلت عليها أو استعمل الدال…

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

السلام عليكم شكرا أخي جزيلا