DUVIDA USAR SOMENTE TEXT BOX VISIBLE TRUE

RATOPD9 08/02/2010 07:15:28
#333848
tentei reativar o outro topico q fiz, mas nao consegui.

http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=333542&varWorld=

fiz como o marcelo teze dinha dito com algumas alterações e funcionou..



  Private Sub VScroll1_Change()
Form5.VScroll1.Value = Form3.VScroll1.Value
Text1(0).Text = (VScroll1.Value - 90)
Text1(1).Text = (VScroll1.Value - 90) * (-1)
Text1(2).Text = (VScroll1.Value * (-1)) + 270
Text1(3).Text = VScroll1.Value - 270
Dim i As Byte
For i = 0 To 1
If Text1(i).Text <= 0 And Text1(i).Text >= -90 Then
Text1(i).Visible = True
Else
Text1(i).Visible = False
End If
Next i

Dim j As Byte
For j = 2 To 3
If Text1(j).Text >= 0 And Text1(j).Text <= 90 Then
Text1(j).Visible = True
Else
Text1(j).Visible = False
End If
Next j
End Sub




agora nao estou conseguindo o seguinte..

eu preciso resolver um equação por um botão, mas somente do text1.text que estiver visible no momento,
na verdade seria encontrar seno e cosseno.exe:

eu coloko o scroll (q vai de 0 a 360) no 265 e vai aparecer o text1(2) com o valor 5
ai cliko no botão e ele me da seno e cosseno desse text1(2)

quando coloko no scroll no 100 vai aparecer o text1(1) com valor -10
ai cliko no botão e ele me da seno e cosseno desse text1(1)

o botão teria q ser 1 só

pode ser direto tambem, sem botão nenhum
ai ja daria o resultado em 2 textbox (seno.text | cosseno.text)


Ja tentei de tudo aqui, mas sem sucesso =/
obrigado!
EDERMIR 08/02/2010 07:42:47
#333849 Resposta escolhida
Ponha um IF para checar se o text está visivel:

If text1(i).visible then
.
.
.
.
endif
RATOPD9 08/02/2010 08:45:50
#333854
EDERMIR não entendi.
--------------

edit, conseguiu ^^
Tópico encerrado , respostas não são mais permitidas
Voltar