CRIAR TEXTBOX FORM VB6.0 VIA CODIGO

DIONISIO 24/03/2011 22:04:05
#369096
Alguem pode me ajudar, tem como criar textbox num Form do vb6.0 via codigo, criar e da um nome? alguem pode me ajudar
MARCELO.TREZE 24/03/2011 23:19:01
#369105 Resposta escolhida
veja


Private Sub Form_Load()
  [ô]Cria a instancia da textbox
  Set TextBox = Form1.Controls.Add([Ô]VB.Textbox[Ô], _
                [Ô]Text1[Ô])
  [ô]Agora precisamos alterar algumas propriedades
  [ô]para a textbox poder ficar visível.
  With TextBox
    .Top = 500
    .Left = 500
    .Height = 255
    .Width = 792
    .Visible = True
  End With
  [ô]Pronto. A textbox já está instanciada e
  [ô]visível no Form.
End Sub


porém se vc disser exatamente o que deseja fazer, existe outra forma, ai veremos qual é a mais viavel
DIONISIO 25/03/2011 07:47:56
#369108
CARO MARCELO, COMO DEVO PEGAR OS DADOS DESSE TEXTBOX COM O KEIPRESS?
FEDERHEN 25/03/2011 08:12:45
#369109
Dependendo para o que você quer usar o TextBox e se você quer programar eventos para ele, pode deixar ele criado e com propriedade .Visible=true
DIONISIO 25/03/2011 09:23:58
#369116
O QUE EU QUERO FAZER E ASSIM, TEM COMO SALVA O FORM COM TEXTBOX CRIADO VIA CODIGO?


Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

exit sub
End If
End If
Exit Sub
IRENKO 25/03/2011 09:38:05
#369117
Os textBox são criados em rum time, vc pode manipular seus eventos atraves de Class Modules ou mesmo dentro do proprio form.
IRENKO 25/03/2011 09:46:34
#369121
veja esse link:

http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=331098
MARCELO.TREZE 25/03/2011 11:01:22
#369131
vamos encurtar é simples veja basta declara withevenrts.

assim

Private WithEvents MyTextBox As TextBox

Private Sub Form_Load()
  [ô]Cria a instancia da textbox
  Set MyTextBox = Form1.Controls.Add([Ô]VB.Textbox[Ô], _
                [Ô]Text1[Ô])
  [ô]Agora precisamos alterar algumas propriedades
  [ô]para a textbox poder ficar visível.
  With MyTextBox
    .Top = 500
    .Left = 500
    .Height = 255
    .Width = 792
    .Visible = True
  End With
  [ô]Pronto. A textbox já está instanciada e
  [ô]visível no Form.
End Sub


Private Sub MyTextBox_KeyPress(KeyAscii As Integer)
[ô]o que deseja fazer
End Sub


mudei o nome de textbox para MyTextBox apenas para melhor entendimento
Tópico encerrado , respostas não são mais permitidas
Voltar