01-01-14, 01:29 AM
هل من يشرح هذا الكود حرفيا و شكرا
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim i As Integer
For i = 0 To 300 - 1 Step 20
Dim txt As New TextBox ' txt من نوع textbox
txt.Location = New Point(0, i) ' موقع txt على الفورم بدلالة 0 على اليسار و "i" على اليمين
txt.Size = New Size(100, 20) ' حجم txt
txt.Text = "Mohammed moh" هنا اكتب ما تشاء و سيتم إظهاره في جميع التاكست بوكس
txt.Parent = Me
Next i
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim i As Integer
For i = 0 To 300 - 1 Step 20
Dim txt As New TextBox ' txt من نوع textbox
txt.Location = New Point(0, i) ' موقع txt على الفورم بدلالة 0 على اليسار و "i" على اليمين
txt.Size = New Size(100, 20) ' حجم txt
txt.Text = "Mohammed moh" هنا اكتب ما تشاء و سيتم إظهاره في جميع التاكست بوكس
txt.Parent = Me
Next i