كيف يمكن اضافة مربع نص "برمجيا"؟؟ موضوع مهم جدا!

مرحبا اخي طالب الخبرة

يمكنك ان تقوم بتالي...

قم بانشاء 4 مربعات نص والقيام باخفاء المربعات عند بدا البرنامج مثلاً عن طريق

Private Sub Form_Load()
Text1.Visible = False
Text2.Visible = False
Text3.Visible = False
Text4.Visible = False
End Sub

وعند الكومند ضع التالي

Private Sub Command1_Click()
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
End Sub

فارجو ان تكون هذه اجابتك

واي استفسار وانا جاهز..

مشكووور أخوي squrban.. بالفعل لم أفكر بالطريقة :)

وان شاء الله تنفع!!

شاكرا لك تعاونك

أخوك طالب الخبرة

السلام علیکم

في الملف المرفق برنامج یشرح طريقة انشاء اداة النص برمجيا

dynamicControl.zip

السلام عليكم

طريقة الاخ محمد صادق طريقة جيدة ولكنها تستلزم وجود صندوق نص كاساس ليتم النسخ عنه .

اما هذه الطريقة فهي لانشاء صندوق النص من الاساس .

Dim WithEvents TxT As TextBox
Dim T, TT As Integer
Private Sub Command1_Click()

T = T + 1
TT = TT + 333
        Set TxT = Me.Controls.Add("vb.textbox", "Text" & T, Me)
        TxT.Width = 2300
        TxT.Height = 333
        TxT.Top = TT
        TxT.Left = 1000
        
        TxT.Visible = True



End Sub


Private Sub TxT_Click()
    '// Events
End Sub

ولكن كلتا الطريقتين تودي نفس الغرض :)