DUVIDA TEXT BOX VISIBLE TRUE/FALSE

RATOPD9 03/02/2010 19:13:41
#333542
tenho 4 textbox, cada 1 com 1 valor diferente, mas, em todos, aparece os numeros de 0 a 90, de acordo com q vou movimentando aqui um vscroll que vai de 0 a 360
soh que eu queria que esses textbox aparecessem somente quando estiver com o valor de 0 a 90

os 4 textbox

Text1.Text = (VScroll1.Value - 90) * (-1)
Text2.Text = (VScroll1.Value - 90)
Text3.Text = (VScroll1.Value * (-1)) + 270
Text4.Text = VScroll1.Value - 270

vscroll de 0 a 90 aparecer soh o textbox1
vscroll de 90 a 180 aparecer soh o textbox2
vscroll de 180 a 270 aparecer soh o textbox3
vscroll de 270 a 360 aparecer soh o textbox4

vlw
ASHKATCHUP 03/02/2010 19:44:03
#333543
Não entendi a dúvida...
é só setar a propriedade Visible para false de acordo com as condições que vc precisa
MARCELO.TREZE 03/02/2010 19:58:08
#333545 Resposta escolhida
é facil fazer isto basta vc colocar no evento change do vscroll o seguinte

primeiro fica mais fácil se vc colocar um array dos textbox

exemplo:

Coloque um textbox no seu projeto, mude a propriedade interval = 0, copie este textbox e cole ele 03 vezes, os nomes dos textbox ficarão assim.

Text1(0)
Text1(1)
Text1(2)
Text1(3)


criado este vetor, basta vc colocar no evento change do VSCroll o seguinte


Private Sub VScroll1_Change()
Text1(0).Text = (VScroll1.Value - 90) * (-1)
Text1(1).Text = (VScroll1.Value - 90)
Text1(2).Text = (VScroll1.Value * (-1)) + 270
Text1(3).Text = VScroll1.Value - 270
For f = 0 To 3
If Text1(f).Text >= 0 And Text1(f).Text <= 90 Then
Text1(f).Visible = True
Else
Text1(f).Visible = False
End If
Next f
End Sub
TECLA 03/02/2010 20:01:56
#333547
Se entendi o problema... , tente assim:

Private Sub HScroll1_Change()
Select Case HScroll1.Value
    Case 0 To 90
        StatusTBox 0
    Case 90 To 180
        StatusTBox 1
    Case 180 To 270
        StatusTBox 2
    Case 270 To 360
        StatusTBox 3
End Select
End Sub


Sub StatusTBox(valor As Byte)
Dim i As Byte
For i = 0 To 3
    If i = valor Then
        Text1(i).Visible = True
    Else
        Text1(i).Visible = False
    End If
Next i
End Sub


Funciona desde que os controles TEXTBOX estejam ajustados como ARRAY (Index que varia de 0 a 3).
RATOPD9 03/02/2010 20:47:09
#333551
nossa..

ficou perfeito

fiz o jeito que o MARCELO-TREZE falou.


vlw
Tópico encerrado , respostas não são mais permitidas
Voltar