PEGAR O NOME DO TEXTBOX ATIVO

LUIZCOMINO 25/10/2010 11:01:30
#355817
usar o evento click dos texts , as variáveis vc pode declarar no load form()
ALELUIZ 25/10/2010 11:02:38
#355818
Citação:

Private Sub Text1_Click()
Dim i As String
i = Text1.Name
End Sub



Nobre,

Hoje já esta desta forma, o que eu quero é algo assim i = me.objectactive.name
LUIZCOMINO 25/10/2010 12:30:04
#355822
você quer jogar o nome do objeto que está em foco para a variavel é isso?
se for isso basta você colocar o código no evento GotFocus, esse evento é ativado quando o objeto ganha foco, e o LostFocus quando ele perde o foco.

Private Sub Text1_GotFocus()
Dim i As String
i = Text1.Name
End Sub
MARCELO.TREZE 25/10/2010 12:31:34
#355823
bom vc pode fazer isto de duas formas

a primeira seria criar um array de seus textbox ex; text(0), text(1), etc...

e no got focus apenas indicar o index do texbox

assim

Private Sub Text1_DblClick(Index As Integer)
Calendar1.Left = Frame_integral.Left + Text1(Index).Left
Calendar1.Top = Frame_integral.Top + Text1(Index).Top + 10
Calendar1.Visible = True
DTCalendario = text(index).Name
End Sub


a outra forma se não deseja alterar todos seus textbox seria colocar um timer em seu projeto com a propriedade interval =1 e colar o seguinte código.

Private Sub Timer1_Timer()
Dim txtName As String
Dim ctl  As Control
If TypeOf Me.ActiveControl Is TextBox Then txtName = Me.ActiveControl.Name
For Each ctl In Me
    If txtName = ctl.Name Then
      Calendar1.Left = Frame_integral.Left + ctl.Left
      Calendar1.Top = Frame_integral.Top + ctl.Top + ctl.Height
      Calendar1.Visible = True
      DTCalendario = ctl.Name
    End If
Next
End Sub


bom eu indiquei o caminho das aguas, agora basta vc aperfeiçoar o código
ALELUIZ 25/10/2010 12:50:41
#355825
Marcelo a ideia é quase isto da opção 2, so que quero pegar a informação no clique
mais ou menos assim

Private Sub DTVisto1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

DTCalendario = Me.ActiveControl.Name

End Sub

so que assim ele me retorna a variavel DTCalendario = [Ô]tabpage[Ô] quando o que quero pegar é o valor [Ô]DTVisto1[Ô]

consigo pegar o nome do objeto que estou clicando?
MARCELO.TREZE 25/10/2010 14:30:10
#355840
então faça assim

Private Sub DTVisto1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

DTCalendario = Me.ActiveControl.Text

End Sub
ALELUIZ 28/10/2010 13:19:05
#356154
Sem solução , irei fazer da maneira mais dificel mesmo , grato a todos.
Página 2 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar