TEXTBOX

USUARIO.EXCLUIDOS 21/07/2005 10:12:02
#95285
quero saber se tem como eu criar uma variavel que me retorne qual o nome da txt que ta com foco. Como?
MAICONLS 21/07/2005 10:21:39
#95288
Cria uma variavel tipo String

Por exemplo SNomeTxt

Depois você poderia colocar no evento setfocus do txtbox algo assim

SnomeTxt=txtbox.name

Tenta ai..
MARCOSAV 21/07/2005 14:05:46
#95366
Tenta isso :

Option Explicit
Dim Nometxt As String

Private Sub txtTesteDeNome_GotFocus()
Nometxt = txtTesteDeNome.Name
MsgBox "O nome é " & Nometxt & "!!!"
End Sub

Ajuda ???

Nao custa tentar...

Abraço.
GUGSDAJUBS 21/07/2005 14:07:24
#95368
Citação:

MARCOSAV escreveu:
Private Sub txtTesteDeNome_GotFocus()
Nometxt = txtTesteDeNome.Name
MsgBox [Ô]O nome é [Ô] & Nometxt & [Ô]!!![Ô]
End Sub



Essa é apenas uma parte... se eu entendi bem, você tem vário TextBox, né? então vc vai colocar esse comando pra cada textbox
LEANDRO.LUIZ 21/07/2005 16:04:51
#95400
Dim vFoco as String

vFoco = Screen.ActiveControl.Name

Tente isso, acho que deve dar certo.
MARCOSAV 21/07/2005 16:40:50
#95412
Citação:

LEANDRO_LUIZ escreveu:
Dim vFoco as String

vFoco = Screen.ActiveControl.Name

Tente isso, acho que deve dar certo.



LEANDRO, isso tbm deve ser escrito para cada controle...

Agora eu tbm tà' imaginando que ele tem vários text's e quer o nome de cada um, assim que este receber o foco !!!!
[txt-color=#0000ff]Sugestão : um Array não resolveria ???[/txt-color]
LEANDRO.LUIZ 21/07/2005 17:28:43
#95426
Se eleusararrays no controle fica fácil
ex.: txt(index)
é só colocar no GOT_FOCUS do txt
MARCOSAV 21/07/2005 18:42:24
#95442
GUIPLANET, acho que isso resolve...

Private Sub Form_Load()
Label1.AutoSize = True
Label1.Caption = ""
End Sub

Private Sub txtGrupo_GotFocus(Index As Integer) ' Todos os txt's tem o nome de txtGrupo
Select Case Index
Case 0 ' o índice de cada txt
Label1.Caption = "Text 1 recebeu o foco."
Case 1
Label1.Caption = "Text 2 recebeu o foco."
Case 2
Label1.Caption = "Text 3 recebeu o foco."
End Select
End Sub

Private Sub txtGrupo_LostFocus(Index As Integer)
Label1.Caption = ""
End Sub

Tenta aí, vlw ???

Abraço.
Tópico encerrado , respostas não são mais permitidas
Voltar