USERCONTROL E CONTROLES DE ARRAY
olá pessoal
Eu tenho uma usercontrol, e tem uma picturebox(0) com index = 0.
quando eu uso X função pra carregar esta picture funciona beleza.
Só que eu quero limpar um pouco o codigo e gostaria de fazer esta operação em uma classe, passando a Picture(0) como obejto, e la na classe ela fizesse o carregamento: Load Picture(x) etc etc etc.
Eu fiz uma função que da certo em um form, mas na usercontrol nao dá certo. Alguem pra me ajudar?????
Eu tenho uma usercontrol, e tem uma picturebox(0) com index = 0.
quando eu uso X função pra carregar esta picture funciona beleza.
Só que eu quero limpar um pouco o codigo e gostaria de fazer esta operação em uma classe, passando a Picture(0) como obejto, e la na classe ela fizesse o carregamento: Load Picture(x) etc etc etc.
Eu fiz uma função que da certo em um form, mas na usercontrol nao dá certo. Alguem pra me ajudar?????
Com certeza dá certo sim:
Sua classe:
Private mvarObjImagem As StdPicture
Private mvarImagem As String
Public Property Let Imagem(ByVal vData As String)
Set mvarObjImagem = LoadPicture(vData)
mvarImagem = vData
End Property
Public Property Get Imagem() As String
Imagem = mvarImagem
End Property
Public Property Set ObjImagem(ByVal vData As StdPicture)
Set mvarObjImagem = vData
End Property
Public Property Get ObjImagem() As StdPicture
Set ObjImagem = mvarObjImagem
End Property
Para usar:
Dim classe As Class1
Set classe = New Class1
classe.Imagem = [Ô]C:\pasta\imagem.bmp[Ô]
Image1.Picture = classe.ObjImagem
Sua classe:
Private mvarObjImagem As StdPicture
Private mvarImagem As String
Public Property Let Imagem(ByVal vData As String)
Set mvarObjImagem = LoadPicture(vData)
mvarImagem = vData
End Property
Public Property Get Imagem() As String
Imagem = mvarImagem
End Property
Public Property Set ObjImagem(ByVal vData As StdPicture)
Set mvarObjImagem = vData
End Property
Public Property Get ObjImagem() As StdPicture
Set ObjImagem = mvarObjImagem
End Property
Para usar:
Dim classe As Class1
Set classe = New Class1
classe.Imagem = [Ô]C:\pasta\imagem.bmp[Ô]
Image1.Picture = classe.ObjImagem
Não é bem isso que eu quero
Eu disse que eu tenho um control array
no meu usercontrol tem uma picture(0) <<<< ela é de array ... tipo iNDEX = 0
QUERO QUE A MINHA CLASSE CARREGA O ARRAY 1, 2, 3, 4, 5, ...
A INTENSÃO é CARREGAR USANDO O EVENTO
LOAD PICTURE(1)
LOAD PICTURE(2)
LOAD PICTURE(3)
MAS DENTRO DA CLASSE ....... SERÃ QUE FUI MAIS CLARO??????
Eu disse que eu tenho um control array
no meu usercontrol tem uma picture(0) <<<< ela é de array ... tipo iNDEX = 0
QUERO QUE A MINHA CLASSE CARREGA O ARRAY 1, 2, 3, 4, 5, ...
A INTENSÃO é CARREGAR USANDO O EVENTO
LOAD PICTURE(1)
LOAD PICTURE(2)
LOAD PICTURE(3)
MAS DENTRO DA CLASSE ....... SERÃ QUE FUI MAIS CLARO??????
Da mesma maneira que carreguei uma imagem, você pode gerar múltiplas classes, cada uma carregando uma imagem e colocar isso num array ou collection.
é tá dificil ....
eu queria apenas limpar o código .... quero usar uma unica classe
na classe
Public sub AssignControls(control as bject)
set mPIc = Control
end sub
Public Function CarregaPicture(Index as integer)
For i = 1 to Index
load mPic(i)
next
end function
é apenas um exemplo. Se estivesse em um form funcionaria mas no usercontrol nao funciona
inda mais nao é só um picture, tem uns labels e outros controles em array ...
eu queria apenas limpar o código .... quero usar uma unica classe
na classe
Public sub AssignControls(control as bject)
set mPIc = Control
end sub
Public Function CarregaPicture(Index as integer)
For i = 1 to Index
load mPic(i)
next
end function
é apenas um exemplo. Se estivesse em um form funcionaria mas no usercontrol nao funciona
inda mais nao é só um picture, tem uns labels e outros controles em array ...
Tópico encerrado , respostas não são mais permitidas