Gap between 65 textboxes and labels is huge. Require the perfect gap between eachother

[NimishK]

Hello

What i want is to display 65 textboxes and 65 labels adjacent to each other in 3 or 5 columnar way on the userform at run time.

Textbox and Label Top Position starts from 144

so when used the following in below code for both controls textbox and label .Top = 144 * i * 1 the gap between each Label and Textbox is huge and looks bad.
How can i get the perfect gap between each label and Textbox respectively below each other and also perfect gap for columnar representation on userform.

Label TextBox Label TextBox Label TextBox
Label TextBox Label TextBox Label TextBox
Label TextBox Label TextBox Label TextBox
Label TextBox Label TextBox Label TextBox
Label TextBox Label TextBox Label TextBox
Label TextBox Label TextBox Label TextBox
Label TextBox Label TextBox Label TextBox
Label TextBox Label TextBox Label TextBox
Label TextBox Label TextBox Label TextBox
Label TextBox Label TextBox Label TextBox
......so on

Private Sub UserForm_Initialize()
Dim i As Integer
Dim txtbxTopPos As Integer
Dim txtbxGap As Integer


Dim txtB1 As Control
Dim labl As Control


For i = 1 To 65
Set txtB1 = Controls.Add("Forms.TextBox.1")
Set labl = Controls.Add("Forms.Label.1")
With txtB1
.Name = "txtBox" & i
.Height = 15.75 
.Width = 126    
.Left = 102     
.Top = 144 * i * 1
End With


With labl
.Name = "lbl" & i
.Height = 15.75 
.Width = 126    
.Left = 10     
.Top = 144 * i * 1
.BackStyle = 0
.Caption = Sheet1.Cells(1, i).Value
End With

Next i
End Sub

Thankx NimishK

 

[Michael M]

I would have thought that this was creating an issue

.Top = 144 * i * 1

When i is greater than 1 it is multipying i by 144....Have you tried replacing it with

.Top = 144 +.width + 10

 

[NimishK]

Thankx Michael for quicker response just tried your code. but all textboxes are at one place. it should have been displayed one below the other in vertical mannner or horizontal way

 

[Michael M]

Ok, don't have Excel at the moment, but try adding the line in red...

With textBox & i
.Name = "textBox" & i
.Height = 15.75
.Width = 126
.Left = 102
.Top = 144
End With


With labl
.Name = "lbl" & i
.Height = 15.75
.Width = 126
.Left = 10
.Top = 144
.BackStyle = 0
.Caption = Sheet1.Cells(1, i).Value
End With
[color=red]txtB1.Top = txtB1.Top + txtB1.Width + 10[/color]
[color=red]labl.Top = labl.Top + labl.Width + 10[/color]
Next i

 

[NimishK]

No Dear. Still not working. still shows the last text box at 144 rather than showing one below another
Will request you to try when Excel is in front of you.

 

[NimishK]

Some Success with following
txtB1.Top = txtB1.Top + 25 * i
labl.Top = labl.Top + 25 * i

but not through with horizontal presentation. by the way 10 was almost touching all the textboxes together i.e why 25

 

[NimishK]

Some Success with following
txtB1.Top = txtB1.Top + 25 * i
labl.Top = labl.Top + 25 * i


but not through with horizontal presentation. by the way 10 was almost touching all the textboxes together i.e why 25

in above atleast displayed one after another and also Observed that the gap increases if the number of text box increases.
How can these be fixed

 

[Michael M]

Remove the *1 from your equation.
the * i will give you a lerger gap as i increases ??
Do the same with .Left = 102

txtB1.left = txtB1.left + 25 * i

You can use any figure 10, 25, etc....whatever suits your needs !

 

[NimishK]

Remove the *1 from your equation.
the * i will give you a lerger gap as i increases ??
Do the same with .Left = 102

txtB1.left = txtB1.left + 25 * i

You can use any figure 10, 25, etc....whatever suits your needs !

Your above suggestion with .left led to following
Label TextBox
Label TextBox

Label TextBox
in slanting manner and also not in one particular line

 

[Michael M]

Did you take the i out of the equation