OCX AICALPHAIMAGE DUPLICAR IMAGEN PNG

SELINGER 18/07/2011 15:49:07
#379463
Como duplicar uma imagem png carregada no controle AICALPHAIMAGE em tempo de excução. (Resultado: 2 controles com a mesma imagem)
MARCELO.TREZE 18/07/2011 16:02:39
#379464 Resposta escolhida
vc pode tentar como é feito com objetos

assim, coloque um AICALPHAIMAGE com a propriedade index = 0

e faça isto

Private Sub Command2_Click()
Load AICALPHAIMAGE (1)
AICALPHAIMAGE (1).Left = AICALPHAIMAGE (0).Left + AICALPHAIMAGE (0).Width + 200 [ô] isto é para o novo controle não sobrepor o anterior
AICALPHAIMAGE (1).Top = AICALPHAIMAGE (1).Top
AICALPHAIMAGE (1).Visible = True
End Sub
SELINGER 18/07/2011 16:18:00
#379467
Eu fiz isso mas a imagem não é duplicada, apenas o controle.
MARCELO.TREZE 18/07/2011 16:50:06
#379470
existe a propriedade picture no controle?

se sim basta fazer assim

Private Sub Command2_Click()
Load AICALPHAIMAGE (1)
[txt-color=#0000f0]AICALPHAIMAGE (1).Picture= AICALPHAIMAGE (0).Picture[/txt-color]
AICALPHAIMAGE (1).Left = AICALPHAIMAGE (0).Left + AICALPHAIMAGE (0).Width + 200 [ô] isto é para o novo controle não sobrepor o anterior
AICALPHAIMAGE (1).Top = AICALPHAIMAGE (1).Top
AICALPHAIMAGE (1).Visible = True
End Sub
SELINGER 18/07/2011 16:59:34
#379471
Não existe a propriedade picture. Já tentei usar várias propriedades do controle mas sem sucesso. Agradeço a força.
MARCELO.TREZE 18/07/2011 17:18:22
#379475
como vc carrega a imagem neste controle?
SELINGER 18/07/2011 17:24:21
#379477
No design, eu seleciono a propriedade do controle, e tem o botão [Ô]Browse[Ô].

O arquivo anexotem as funções e propriedades do controle.
MARCELO.TREZE 18/07/2011 17:56:18
#379482
tem como vc zipar e postar a ocx
SELINGER 18/07/2011 19:43:56
#379491
Não estou no meu computador agora, mas a ocx eu peguei aqui no vbmania.
SELINGER 19/07/2011 08:43:12
#379514
Procure aqui no vbmania na opção de localização = forum a palavra: AlphaImageControl.ocx, na pergunta tem o link para baixar a ocx.
MARCELO.TREZE 19/07/2011 10:58:31
#379526
Bom fiz inumeros testes, e só consegui de uma maneira, que sera informando o caminho da imagem assim:

Private Sub Command1_Click()
Load aicAlphaImage1(1)
aicAlphaImage1(1).LoadImage_FromFile App.Path & [Ô]\Psyduck.png[Ô]
aicAlphaImage1(1).Left = aicAlphaImage1(0).Left + aicAlphaImage1(0).Width + 200    [ô] isto é para o novo controle não sobrepor o anterior
aicAlphaImage1(1).Top = aicAlphaImage1(1).Top
aicAlphaImage1(1).Visible = True
End Sub
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar