IMAGE ARRAY

IRENKO 20/09/2010 12:32:17
#353411
Pessoal, estou com dificuldades para o seguinte:

No Form1 tenho 04 objetos image array

No Form2 tenho 04 objetos image array com imagems de botões

No evento MouseMove dos objetos do Form1, quero pegar a imagem dos objetos do Form2

Tentei isso mas não esta dando certo:

Sub Botoes(BtnIndex As Integer)
Select Case BtnIndex
Case 0
Botao(0).Picture = FrmImagem.Btn_Original(0).Picture
Case 1
Botao(1).Picture = FrmImagem.Btn_Original(1).Picture
Case 2
Botao(2).Picture = FrmImagem.Btn_Original(2).Picture
Case 3
Botao(3).Picture = FrmImagem.Btn_Original(3).Picture
End Select

Quando aponto para o primeiro objeto, carrega todos. A ideia é quando apontar para um determinado controle pega a imagem respectiva do Form2 e assim q perder o foco volta ao normal, alguma ideia?
GERARDA 20/09/2010 13:32:34
#353419
tenta assim


Private Sub Botoes_GotFocus(Index As Integer)
Botao(Index).Picture = FrmImagem.Btn_Original(Index).Picture
End Sub


que da certo
IRENKO 20/09/2010 14:03:24
#353420
Fiz assim, a (Private Sub Botao_MouseMove) esta funcionando, porem a (Private Sub Picture1_MouseMove) tá pegando somente o Index 0, não sei porque!!

Private Sub Botao_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Index
Case 0
Botao(0).Picture = FrmImagem.Btn(0).Picture
Exit Sub
Case 1
Botao(1).Picture = FrmImagem.Btn(1).Picture
Exit Sub
Case 2
Botao(2).Picture = FrmImagem.Btn(2).Picture
Exit Sub
Case 3
Botao(3).Picture = FrmImagem.Btn(3).Picture
Exit Sub
End Select

End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Index As Integer
Dim Ctr As Control
For Each Ctr In Me.Controls
If TypeOf Ctr Is Image Then
If Ctr.Tag = [Ô]img[Ô] Then
If Index = 0 Then
Ctr.Picture = FrmImagem.Btn_Original(0).Picture
ElseIf Index = 1 Then
Ctr.Picture = FrmImagem.Btn_Original(1).Picture
ElseIf Index = 2 Then
Ctr.Picture = FrmImagem.Btn_Original(2).Picture
ElseIf Index = 3 Then
Ctr.Picture = FrmImagem.Btn_Original(3).Picture
End If
End If
End If
Debug.Print Index

Next
End Sub
IRENKO 20/09/2010 14:44:37
#353426
é isso!! Valeu LVFIOROT! Gerarda, obrigado pela força.
Tópico encerrado , respostas não são mais permitidas
Voltar