Senhores, olá. Por favor, alguém poderia de dar uma luz , doar um pingo de informação, uma simples dica ou uma magia sinistra ou um esquema-ninja sobre um probleminha X. Por favor, aceito inclusive gambiarras. O probleminha é o seguinte: - Quero calcular a média de alguns números. A quantidade de números, é definida na hora da execução. Tenho então, um textbox(txtqtos.text) pro cliente entrar a quantidade de números. Feito isto, é gerado no form(em tempo de execução), um sobre o outro(partindo do ponto top 0 esquerda ,superior do form) , a quantidade de textbox pra que sejam inseridos os números para se calcular a média(numa progressão geométrica de espaços). Haja vista que sou ALTAMENTE NOOOBASSO (NOOB MESMO), implementei o seguinte código: Private Sub Command4_Click()
Dim i As Integer
'Dim TextControl As TextBox
' Set TextControl = Me.Controls.Add("VB.Textbox", "TXTNovo" & i)
For i = 0 To txtqtos.Text
'Print "TXTNovo" & i
Me.Controls.Add "VB.TextBox", "TXTNovo" & i
Me.Controls("TXTNovo" & i).Visible = True
Me.Controls("TXTNovo" & i).Left = 0
Dim novo, posicaum As Variant
novo = (Me.Controls("TXTNovo" & i).Top = i + 480)
'posicaum = (position.Top + 480)
If Me.Controls("TXTNovo" & i).Top = 0 Then
Me.Controls("TXTNovo" & i).Top = (Me.Controls("TXTNovo" & i).Top) + (Me.Controls("TXTNovo" & i).Top = 480) ' precisa incrementar este valor
End If
Me.Controls("TXTNovo" & i).Height = 285
Me.Controls("TXTNovo" & i).Width = 1215
Next i
End Sub Ou seja, está gerando apenas a primeira textbox e para por aí, não gera outra abaixo dela. Não sei mais o que fazer. Se alguém- por favor- tiver uma solução, posso trocar por informações de outras aplicações que fiz, ou ajudar no que eu puder quando necessitar, ou até sair pra jantar(mas sem dar beijo na boca).