IMAGEM EM FORM MDI
Usei um Common Dialog para escolher o arquivo, como mando este arquivo escolhido para o Picture de um MDI????
Fiz assim:
Private Sub mnuImagem_Click()
Dim straquivo as string
dlgabrir.filter = "Imagem | *.jpg"
dlgabrir.showopen
strarquivo = dlgabrir.filename
if strarquivo "" then
mdipricipal.picture = strarquivo
endif
end sub
O erro é 'dados incompatÃveis' Picture recebendo String, mudei para variável PictureBox mas aà da erro na hora de receber informação do dlgabrir.
Alguém sabe como fazer???
Flávio.
Fiz assim:
Private Sub mnuImagem_Click()
Dim straquivo as string
dlgabrir.filter = "Imagem | *.jpg"
dlgabrir.showopen
strarquivo = dlgabrir.filename
if strarquivo "" then
mdipricipal.picture = strarquivo
endif
end sub
O erro é 'dados incompatÃveis' Picture recebendo String, mudei para variável PictureBox mas aà da erro na hora de receber informação do dlgabrir.
Alguém sabe como fazer???
Flávio.
Tem de carregar na propriedade com a função LoadPicture
assim:
mdipricipal.picture = LoadPicture(strarquivo )
é necessário informar o caminho da imagem tb
Abraços,
assim:
mdipricipal.picture = LoadPicture(strarquivo )
é necessário informar o caminho da imagem tb
Abraços,
Tópico encerrado , respostas não são mais permitidas