PEGAR O NOME DO TEXTBOX ATIVO

ALELUIZ 25/10/2010 09:56:55
#355803

Prezados,

Como Jogar em uma variavel o nome da textbox que eu cliquei ?

Private Sub DTSindi_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Calendar1.Left = FrameSindicancia.Left + DTSindi.Left
Calendar1.Top = FrameSindicancia.Top + DTSindi.Top + 10
Calendar1.Visible = True
VNomeTextBox = [Ô]Nome Do Textbox neste caso DTSindi[Ô] ??????

End Sub
DUHHH 25/10/2010 09:58:07
#355804
Vnometextbox.text
SACOFRITO 25/10/2010 10:03:08
#355806
msgbox SeuTextBox.name
ALELUIZ 25/10/2010 10:08:01
#355807
Prezados,

Acho que não fui bem claro quanto a solicitação,

Gostaria que quando clicar digamos na textbox1 ele jogue o nome da textbox em uma variavel.

tenho varios campos e nao gostaria de ficar repetindo código.
VNomeTextBox = [Ô]DTSindi[Ô]
VNomeTextBox = [Ô]DTSinistro[Ô]

Minha idéia e informar algo unico para todos ex:

VNomeTextBox = activeobject.name
SACOFRITO 25/10/2010 10:12:43
#355809
Acredito que seja a mesma coisa cara.
Ainda n manjo mta coisa mas acredito que vc pssa criar um array dessa variavel e tipo ir colocando em cada posiça do array/vetor o nome de um textbox

Tudo isso no evento gotfocus do campo
DUHHH 25/10/2010 10:27:54
#355811
Faz assim no evento lost focus do text, Vnonetextbox.text = variavel

Entao quando perder o focus ele vai atribuir o conteudo do campo a uma variavel!
ALELUIZ 25/10/2010 10:29:28
#355812
O que estou tentando fazer é o sequinte, tenho vários textbox data e um objeto calendario, quando o usuário clicar na textbox o componente calendario1 fica visivel e fica na mesma posição do textbox , quando o usuario clicar no calendario irá mandar o valor para a texbox , eu estou informando em todos cliques de texbox qual foi o campo que estava o foco. fiz no evento clique do calendario um case.

Só não quero ficar informando toda vez o nome da textbox , gostaria que minha variavel pegasse o nome do campo que esta recebendo o clique automático

Private Sub DTIntegral1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Calendar1.Left = Frame_integral.Left + DTIntegral1.Left
Calendar1.Top = Frame_integral.Top + DTIntegral1.Top + 10
Calendar1.Visible = True
DTCalendario = [Ô][txt-color=#e80000]DTIntegral1[Ô][/txt-color]
End Sub
Private Sub DTIntegral2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Calendar1.Left = Frame_integral.Left + DTIntegral2.Left
Calendar1.Top = Frame_integral.Top + DTIntegral2.Top + 10
Calendar1.Visible = True
DTCalendario = [Ô][txt-color=#e80000]DTIntegral2[Ô][/txt-color]
End Sub
Private Sub DTIntegral3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Calendar1.Left = Frame_integral.Left + DTIntegral3.Left
Calendar1.Top = Frame_integral.Top + DTIntegral3.Top + 10
Calendar1.Visible = True
DTCalendario = [Ô][txt-color=#e80000]DTIntegral3[Ô][/txt-color]
End Sub

[ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô]
Private Sub Calendar1_Click()

Select Case DTCalendario

Case Is = [Ô]DTAndamento[Ô]
DTAndamento = Calendar1.Value
Case Is = [Ô]DTVisto1[Ô]
DTVisto1 = Calendar1.Value
Case Is = [Ô]DTvisto2[Ô]
DTvisto2 = Calendar1.Value
Case Is = [Ô]DTSindi[Ô]
DTSindi = Calendar1.Value
Case Is = [Ô]DTIntegral1[Ô]
DTIntegral1 = Calendar1.Value
Case Is = [Ô]DTIntegral2[Ô]
DTIntegral2 = Calendar1.Value
Case Is = [Ô]DTIntegral3[Ô]
DTIntegral3 = Calendar1.Value
Case Is = [Ô]DTIntegral4[Ô]
DTIntegral4 = Calendar1.Value
Case Is = [Ô]DtCompl1[Ô]
DtCompl1 = Calendar1.Value
Case Is = [Ô]DtCompl2[Ô]
DTCompl2 = Calendar1.Value
End Select
Calendar1.Visible = False
End Sub
SACOFRITO 25/10/2010 10:33:28
#355813
Tente colocar nos eventos do form_load
Pelo menos eventos de keypress e keycode funcionam pro form inteiro se vc programar nos eventos do form
no Caso eu uso assim
private sub form_keypress()
if keyascii = 13 then sendkeys ([Ô]{tab}[Ô])
end sub
ALELUIZ 25/10/2010 10:38:11
#355814
Desculpe , mas não compreendi a relação
SACOFRITO 25/10/2010 10:43:34
#355815
Bom na vdd é um palpite meu.
Se vc programar nos eventos do Form(load, gotfocus etc)
serve pra tdos campos do form, talvez se vc colocar a rotina desejada no form_gotfocus funcione.. mas nao tenho ctz

rs

Me desculpe escrevi eventos do form_load mas queria dizer eventos do form
LUIZCOMINO 25/10/2010 10:59:40
#355816
segue:

Private Sub Text1_Click()
Dim i As String
i = Text1.Name
End Sub
Página 1 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar