Preciso criar textbox em tempo de execução.

 

O caso é o seguinte, a pessoa escreve uma frase num textbox e eu tenho que separar cada letra desta palavra em um textbox. Elas podem fazer parte de um índice, tendo todas o mesmo nome, mas a quantidade delas depende do número retornado pela função Len() da Text onde foi escrita a frase.

 

Como eu faço isto ?

Perk com esse código vc pode adiconar quantos text quiser em tempo de execução, ele criar textbox a partir de um text existente:

 

Public Sub AdionaText()
    If IsNumeric(Text1(0)) Then
        For i = (Text1.UBound + 1) To (Text1(0) + Text1.UBound)
            Load Text1(i)
            Text1(i).Top = (i * 340) + Text1(0).Top
            Text1(i) = ""
            Text1(i).Visible = True
        Next
    End If
    Me.Caption = "Quantidade de TextBox  : " & Text1.UBound
End Sub

Public Sub RemoveText()
    If Text1(0).Text <= Text1.UBound Then
        For i = 1 To Text1(0).Text
            Unload Text1(Text1.UBound)
        Next
        Me.Caption = "Quantidade de TextBox  : " & Text1.UBound
    Else
        Call MsgBox("Não existe(m) " & Text1(0).Text & " TextBox para ser(em) removido(s)", vbOKOnly + vbInformation)
    End If
End Sub

Modifique o código de acordo com sua necessidade.

 

FLW

 

T+

 

 

João,

 

Funcionou melhor até que eu precisava !!!!! rssss

 

Muito obrigado