Opa.. falae galera beleza ? espero q sim ...
estou com um probleminha ...
estou querendo fazer uma function q atualize um Image pra mim... estou usando uma função q é assim ...
NO Módulo....
Function Mostra_Figura(recebe As String, ByVal ddd As Object)
Select Case Left(recebe, 1)
Case "1"
ddd.Visible = True
ddd.Picture = LoadPicture(App.Path & "imagensRocol.jpg")
Case "2"
ddd.Visible = True
ddd.Picture = LoadPicture(App.Path & "imagensMagna.jpg")
Case "3"
ddd.Visible = True
ddd.Picture = LoadPicture(App.Path & "imagensAcu.jpg")
Case "D"
ddd.Visible = True
ddd.Picture = LoadPicture(App.Path & "imagensUni.jpg")
Case "6"
ddd.Visible = True
ddd.Picture = LoadPicture(App.Path & "imagensUni.jpg")
Case "8"
ddd.Visible = True
ddd.Picture = LoadPicture(App.Path & "imagensRocol.jpg")
End Select
End Function
ai eu a chamo assim ....
Mostra_Figura(txtProcurar.Text, imgDivisao) = 0
A parte em amarelo eh o q eu achu q tah certo .. o TxtProcurar vai o Código pra função ... o imgDivisao é o nome do objeto image .... esse =0 em vermelho .. o VB pede um = ... nao sei pq ... ai coloquei soh pra nao dar erro ....
ele executa ... carrega a foto e tudo .. mas da um erro nessa linha amarela e vermelho ....
pergunto:
o que estou fazendo errado ???
poderiam me ajudar ???
