FOCO NA TEXT1
Como faço para colocar o foco na última letra da miha text1 ?
(Esta escrito na text (EX): "VBMania", quero que ao clicar no botão, aparece escrito ao lado de "VBMania" a palavra "Site", ou seja, quano clico, o foco vai para a ultima palavra da text1 e adiciona o texto
(Esta escrito na text (EX): "VBMania", quero que ao clicar no botão, aparece escrito ao lado de "VBMania" a palavra "Site", ou seja, quano clico, o foco vai para a ultima palavra da text1 e adiciona o texto
Seguinte: O Flávio está com o caminho feito, mastigado, só falta engolir.
Ele utilizou a sub:
Sub InserirNoMeio(Texto as string)
dim si as string
dim su as string
si = mid(texto,1,ucontrol.selstart)
su = mid(texto,ucontrol.selstart)
ucontrol.text = si & texto & su
end sub
'Eu alteraria para:
Sub InserirNoMeio(Controle As TextBox, Ponteiro As Integer, Texto As String)
Controle.Text = Mid$(Controle.Text, 1, Ponteiro) & Texto & Mid$(Controle.Text, Ponteiro + 1)
Controle.SelStart = Len(Controle.Text) 'Fica com o foco, sem selecionar o texto novo
Controle.SetFocus
End Sub
'E no command:
Private Sub Command1_Click()
InserirNoMeio Text1, CInt(Len(Text1) / 2), "VBMania"
End Sub
Simples assim.
Ele utilizou a sub:
Sub InserirNoMeio(Texto as string)
dim si as string
dim su as string
si = mid(texto,1,ucontrol.selstart)
su = mid(texto,ucontrol.selstart)
ucontrol.text = si & texto & su
end sub
'Eu alteraria para:
Sub InserirNoMeio(Controle As TextBox, Ponteiro As Integer, Texto As String)
Controle.Text = Mid$(Controle.Text, 1, Ponteiro) & Texto & Mid$(Controle.Text, Ponteiro + 1)
Controle.SelStart = Len(Controle.Text) 'Fica com o foco, sem selecionar o texto novo
Controle.SetFocus
End Sub
'E no command:
Private Sub Command1_Click()
InserirNoMeio Text1, CInt(Len(Text1) / 2), "VBMania"
End Sub
Simples assim.
Tópico encerrado , respostas não são mais permitidas