كيف أصل إلى حقل النص في UserControl1 من فورم عادي

اخوي لاتزعل

اتصدق اني مافهمت شي

ولكن اعتقد تريد كيف اصنع اداه ولا تريد كيف تشغل الاداه ولا ....

اخي ألم تسمع عن المثل اللي قول "وإن من البيان لسحرا"

البيان هذا ما عندي منه شئ لكن شوف هذا الشرح يمكن تفهم :)

لو عندي فورمين إثنين

الأول اسمه Form1

والثاني أسمه Form2

إذا كان في الفورم الأول أداة TextBox

اسمها مثلا

Text1

اذا أنا مشغل الفورم الثاني استطيع التعديل في Text1 بالكود التالي :

Form1.Text1 = "fasal"

إلى الحين تمام

المشكله فين

لوا انا سويت مشروع جديد ActiveX Control

وعندي اللوحة الرئيسية اللي هية مثلاً UserControl1

وعندي فوم في نفس المشرع اسمه مثلا Form2

لو أنا وضعت في UserControl1

اداة TextBox

اذا أنا مشغل الفورم الثاني لاستطيع التعديل في Text1 يعني الكود التالي يطلع خطأ:

UserControl1.Text1 = "fasal"

-09

أخوي ابو منار

ActiveX Control لصنع اداه لصنع اداه مثل الزر أداه TEXTBOX

مين قالك

ActiveX Control تبرمج أي برنامج بواسطة هذه الإداه فقد قمت ببرمجة اداة لتحرير صفحات HTML

شوف المرفق

ياخي انا اسأل عن طريقة برمجية مش فائدة الـ ActiveX Control ياااااااااااااااااخي :D

اعتقد انك تحتاج لعمل متغيراتك Public لكي تستطيع ان تجدها من خارج الUsercontrol

يا سلام عليك bashmohandes أحس انك فاهمني

بس عطيني بالله عشان أفهم مزبوط ولا عليك أمر

طبعا مع الشكر الجزيل professional VB99 الذي حاول مساعدتي

السلام عليكم

فيه كتاب اسمه اعتقد ( البرمجة المتقدمة باستخدام فيجول بيسك ) تحدث عن كيفية صنع الادوات والتعديل فيها ، لكن الكتاب ما هو عندي الان ، لعل احد الاخوة يكون الكتاب لديه ويفيدنا ..

أخي أبو منار العملية بسيطة لكن يجب أن تعرف أن العناصر الموجودة في الـ Control لا يمكن التحكم فيها من خارج الـ Control إلا بربطها بوظيفة يعني أضف الكود التالي إلى الأداة

Public Property Get Text() As String
Text = Text1.Text
End Property
Public Property Let Text(ByVal New_Text As String)
Text1.Text() = New_Text
PropertyChanged "Text"
End Property
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Text1.Text = PropBag.ReadProperty("Text", "Text1")
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("Text", Text1.Text, "Text1")
End Sub

ثم أضف الكود التالي في البرنامج

UserControl1.Text = "fasal"

تحياتي

رائع أخي بلال حمدي

أشكرك يا اخ بلال على مساعدتك

لك مني خالص الشكر والتقدير

أبو منار كتب:

مين قالك

ActiveX Control  تبرمج أي برنامج بواسطة هذه الإداه فقد قمت ببرمجة اداة لتحرير صفحات HTML

شوف المرفق

←

هل لك بإرفاق الاداة مع السورس كود لها اخي العزيز ؟؟

وجميل هو تألق باقي الاعضاء هنا :rolleyes:

آسف الأداه غير مجانية :)

لا شكر على واجب