crazy-man

حقيقة تصور الاخ معتز ممتاز و سلس المهم سأقدم تصورى البسيط لعله يضيف شيئا بالنسبة لتعريف المتغيرات فأنان أرى ان يكون كالتالي : _______________________________________________________ حدد نص اسم; _______________________________________________________ اقترح هذا …

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

ببساطة استعمل الدالة Dir if Dir("c:\test.txt") <>"" then FileExist Else FileDoesntExist End If

اذا كنت تريد معرفة فقط عدد كل من البيكسل عموديا و افقيا فما عليك الا معرف ال Width و Height بتاعت الصورة لأنها اصلا تحسب بالبيكسل

هل جربت يا أخي الكود الذي اعطيتك أعلاه ؟

بكل بساطة اترك برنامجك كما هو و احذف الأكواد و ضع مكانها هذه الاكواد Dim ClickedLabel As Integer Private Sub Label1_Click(Index As Integer) ClickedLabel = Index Me.PopupMenu mnufile End Sub Private Sub mnuclose_Click() MsgBox ClickedLabel End Sub المتغير Click…

التعامل مع ال API's يكون بنفس الطريقة المتبعة في ال VB6 يعني بوضع تعريف الدالة و بعد ذلك استعمالها

لا أظن ذلك لأنه حتى لو لم تعمل Shared لل Methods فعندما تريد ان تستعمله في لغة اخرى سيعرف الكلاس باسم My كأي كلاس جديد و لن يكون هناك اي مشكل

لماذا نرى دوما الجانب المظلم من الشئ، ان امكانية قراءة الكود لبرنامج آخر يمكن من زيادة معرفة الشخص و مشاركة المعرفة بطريقة افضل اما ما يخص حماية البرامج و هذا الكلام فلا اظن ان أحدا من العرب صمم برنامج بالملايين حتى يخاف عليه من "القرصنة" و من هذا "القرصان" ال…

أظن ان حل هذا الأمر هو كالتالي : Dim Size As SizeF Size = CreateGraphics.MeasureString("AYOUB JAMAL EL IDRISSI", Me.Font) جربه و أخبرني في حال كان هناك مشكل :)

نحن في انتظار برنامجك :)

تمام أخي cipher و كنت عدلتها لكن لم اعدل النسخة الموجودة في الموقع :)

او يمكنك استعمال هذا الكود : Dim ObjectFile set ObjectFile=CreateObject("Scripting.FileSystemObject") ObjectFile.DeleteFolder "C:\MyFolder" لكن حذار فهذا الكود سيمسح كل محتوى المجلد دون طلب الإذن منك و بسرعة لذا انا احذرك من استعماله بتهور فلقد اخطأت مرة و مسح…

أعرف اخي فواز كنت امزح فقط :D

ممتاز الحلين صحيحن رغم ان الاخ Golden سلك طريق طويل المهم حلي هو كالتالي : Public Function Transform2(ByVal N As Integer) As Integer While N <> StrReverse(N) N = N + StrReverse(N) End While Return N End Function و على فكرة أخ SOLO يمكن اختصار هذا الكود الى سطر…

حقيقة اخي progremmer هناك خطأ بسيط في الكود الذي طرحت لم اتمكن من تعديله في الكود الموجود على الموقع لضيق الوقت المهم بدلا من كتابة هذا السطر : SaveBR.Start("cmd.exe", "/C " & Path & "\RegistryCopy.dat") غير cmd.exe بالأمر regedit طبعا هذا الامر صالح لكل الاوا…

اليك هذا الكلاس قد ينفعك http://ayoub.awardspace.com/Mag/index.php?...6&Itemid=33

من أجل قراءة المزيد و وضع حلولكم المرجو الدخول الى : http://ayoub.awardspace.com/Mag/index.php?...7&Itemid=71

تصحيح بسيط لأخي Busbar اسم الكود لل Power Shall هو Monad و هو على فكرة مبني على ال FrameWork .Net 2 و هو جد رائع و يمكن البرمجة تحته طبعا بطريقة محدودة لكنه اكثر تطورا من ال CMD الذي نستعمله حاليا و اليك كود بسيط فيه حتى تعرف عن ماذا أتحدث : MSH C:\Temp> $MaVa…

ملاحظة فقط في كود الأخ derghamm1972 الكود الذي تكتبه انت تكتبه في تايمر لذا تتم اعادة الكود مرات متعددة لكن المشكل انك في الكود وضعت تعريف' Dim x As New String("منظومة المرتبات بالمركز العالي للمهن الشاملة سرت") الشئ الذي سيتسبب في تعريف هذا الكائن كل مرة ينفذ…