SHAPE

IRENKO 16/05/2012 10:39:28
#402069
Onde estou errando neste codigo do projeto anexo. O objetivo é quando o objeto image index tiver o foco o objeto Shape index fica True ao sair do foco False.
MARCELO.TREZE 16/05/2012 12:40:03
#402080 Resposta escolhida
faça esta modificação

primeiro mude a propriedade visible dos shapes para false depois altere o seguinte no código


Private Sub ImgBox_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    For i = 1 To 3
        If ImgBox(i).Picture <> Img_Barra.ListImages(i + 3).Picture And i <> Index Then
           ImgBox(i).Picture = Img_Barra.ListImages(i + 3).Picture
        End If
    Next i
For Y = 1 To 3
        If Y = Index Then
           Shape(Y).Visible = True
           Else
           Shape(Y).Visible = False
        End If
    Next Y
    
    ImgBox(Index).Picture = Img_Barra.ListImages(Index).Picture
      
End Sub


e acrescente o mouse move do form assim

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    For f = 1 To 3
    Shape(f).Visible = False
Next f
End Sub


e pronto
IRENKO 16/05/2012 13:25:56
#402086
Valeu marcelo!! é isso mesmo.
Tópico encerrado , respostas não são mais permitidas
Voltar