السلام عليكم
كيف يمكنني اضافة اي اداة textbox مثلاً عن طريق الكود (run time)
textbox
مغلق
Dim WithEvents txt As VB.TextBox
Private Sub Command1_Click()
Set txt = Me.Controls.Add("VB.TextBox", "txt")
txt.Text = "test"
txt.Top = 120
txt.Left = 120
txt.Visible = True
End Sub____________________________________________________________________________
{ اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ } سورة الأنبياء (1)
____________________________________________________________________________
In a world without walls and fences, who needs Windows and Gates
هذا الموضوع مغلق.