بن ملعاط

الملف المرفق فيه هو عبارة عن Class تضيفه إلى مشروعك وطريقة استخدامه Dim MySound As New SoundClass MySound.PlaySoundFile("myfile.wav") و أنا نسيت حقيقة من أين حصلت عليه لأنه مو أنا اللي عملت الـ Class هذه وطبعا تضع الكود في حدث الـ MouseMove أتمنى أن يكون هذا ط…

أخي الكريم إبراهيم الطيب أنا أرفقت الملف الآن بدون مشاكل لكن صباح اليوم حاولت بدون فائدة والملف المرفق ملف مضغوط WinZip File وحجمه لا يتعدى 55 ك.ب على العموم مشكوور على ردك

الملف المفرق مثال أتمنى أن يساعد NotifyIconTest.zip

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

جزاك الله خير لكن هل يوجد!!!! أقلك راجع الخاص (h) :o

لإسم الفورم الأساسي إذا كان فورم عادي TextBox1.Text = Form.ActiveForm.Name أما إذا كان MDIChild form TextBox1.Text = Form.ActiveForm.ActiveMdiChild.Name أما لإسم الفورم "Text" اللي يظهر في أعلى الفورم ما كان يسمى في الفيجوال بيسك6 بـ "Caption" إذا كان فورم عاد…

كما ذكر الأخ الكريم waleedhm فعندما يتم الضغط على Button1 كان يتنفذ هذا الكود وليس فيه تحديد للشاشة الأم للشاشة F ضعي الكود كما ذكر الأخ Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click On Error Resume…

وإياك أخي الكريم لا تنسانا من صالح دعائك

هل من الممكن وضع مثالك لمراجعة الكود

للفيجوال بيسك 6 SkinCrafter ActiveX للفيجوال بيسك دوت نت SkinCrafter .Net العفو

أنا جالس أجرب هذا البرنامج skincrafter وهذا موقع البرنامج http://www.skincrafter.com وهذه بعض صور البرنامج و لمشاهدة المزيد من الـ SKINs http://www.skincrafter.com/skingal-1.html

لنفرض أن الفورم الرئيسي هو mForm والفورم الابن هو Form2 عند إظهار الفورم Form2 نكتب التالي Dim mForm2 As New Form2 With mForm2 .MdiParent = mForm .Show() End With حيث في هذا السطر MdiParent = mForm يتم تعريف mForm2 على أنه تابع للفورم الرئيسي mForm

وجدت لك مثال من هذا الموقع http://www.codeproject.com/vb/net/Freehand_Drawing.asp أتمنى أن يكون ما تبحث عنه Freehand_Drawing_Source_Code.zip

Dim OffData As New OfficeData With OffData .MdiParent = mForm .Show() End With حيث mForm هي الـ MDI Form

تجدها في المسار C:\Program Files\Microsoft Office\OFFICE11\SAMPLES

أخي الكريم ما ستستخدمه من رد الأخ محمد عبد العليم هو التالي وتضعه في حدث KeyPress If Char.IsDigit(e.KeyChar) = False Then e.Handled = True MessageBox.Show("You can't enter non numeric values") End If وفق الله الجميع

مشكور ، وجزاك الله كل خير

وجدتها في حدث الفورم Leave نكتب OffData = Nothing وعند تشغيل الكود If OffForm Is Nothing Then OffForm = New OfficeData End If With OffData .MdiParent = mForm .Show() End With اشتغلت معاي أخيرا هذا والله أعلم وأجل

ممكن توضح وتحدد علشان نقدر نساعدك إن شاء الله

عند وضع هذا الكود وتنفيذه Dim OffData As New OfficeData With OffData .MdiParent = mForm .Show() End With فإنه يقوم بفتح نافذة جديد كل مرة يتم تنفيذ هذا الإجراء وما فعلته أنا هو وضع التعريف ( السطر الأول ) في قسم التعريفات الرئيسي في الموديول كالتالي Public Off…