مشكله مع الاوبشن

هذا الدرس موجود في المنتدى يبغى لك تبحث عنه

هيه في نقطة بسيطة لازم تعملها

اذا انه نقطه بسيطه just tell me

او على الاقل عطني اسم الموضوع

بسيطة

بعد تعريف الكلاس الخاص بـ From1 أعلن عن متغير يشير للفورم كما في الكود

Public Class Form1
    Inherits System.Windows.Forms.Form

    Friend Shared Fr1 As Form1

ثم في حدث بدء التحميل للنموذج ضع المتغير مساوي لـ Me كما في الكود

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Fr1 = Me

وأخيرا من From2 يمكنك تغيير خصائص From1 مثل الكود

        If rbRed.Checked = True Then Form1.Fr1.TextBox1.ForeColor = System.Drawing.Color.DarkRed

طبعا هذا الجواب خاص بـ Vb2002 و Vb2003 أما عن VB2005 فيمكن استخدام الطريقة القديمة الخاصة بـ VB6 مباشرة

السلام عليكم

هذا هو الكود المسئول عن تغيير اللون

 Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Dim n As New Form1

        If rbBlack.Checked = True Then n.TextBox1.ForeColor = System.Drawing.Color.Black
        If rbRed.Checked = True Then n.TextBox1.ForeColor = System.Drawing.Color.DarkRed
        If rbGreen.Checked = True Then n.TextBox1.ForeColor = System.Drawing.Color.DarkOliveGreen
        If rbBlue.Checked = True Then n.TextBox1.ForeColor = System.Drawing.Color.SteelBlue
        If rbPink.Checked = True Then n.TextBox1.ForeColor = System.Drawing.Color.HotPink
        If rbOrang.Checked = True Then My.Forms.Form1.TextBox1.ForeColor = System.Drawing.Color.DarkOrange
        If rb3D.Checked = True Then n.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        If rbFlat.Checked = True Then n.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle

        Me.Hide()

    End Sub

والسبب يكمن فى هذا السطر

Dim n As New Form1

انت هنا فى الحقيقة لا تتعامل مع الForm1 المفتوح لانك ببساطة تقوم بانشاء New Instance من الفئة Form1 وهذا هو ما تقوم باسناد اللون اليه

اذا كيف يمكن الوصول الى كائنات الفورم1

فى الفورم 1 عرف متغير عام مشترك

Public Shared F1 As Form1

فى حدث تحميل الفورم واحد اكتب

 F1 = Me

الان يمكنك الوصول الى جميع كائنات الفورم الاول من اى مكان بالبرنامج عن طريق المتغير F1

مثلا

f rbOrang.Checked = True Then Form1.F1.TextBox1.ForeColor = System.Drawing.Color.DarkOrange

لفهم ما سبق راجع دروس OOP

مع VB.NET2005 يمكنك الوصول لكائنات الفورم مباشرة من دون هذه اللفة الطويلة :)

بالتوفيق

اخى محمد سبقتنى بنفس الاجابة :D

تسلموووووووووووووووون ^^

مشكووووورين جدا جزيلا كثيرا لول :D

i actually understood lol

اقتباس

لفهم ما سبق راجع دروس OOP

oop هذا عضو ؟؟

اقتباس

oop هذا عضو ؟؟

OOP>>Object-Oriented Programming

ابحث فى الموضوع المثبت "مكتبة القسم" وستجد روابط تفيدك

aha

sankuu

^^and BTW a gal