CHAMAR ARQUIVO BMP
alguem saberia me dizer como faço pra chamar um arquivo bmp ou jpg que esta no HD e exibi-lo no form?
Coloque uma image no seu form e depois coloque:
Evento load do form:
Dim arquivo as string
arquivo = text1.text
Image1.Picture = LoadPicture(arquivo)
Evento load do form:
Dim arquivo as string
arquivo = text1.text
Image1.Picture = LoadPicture(arquivo)
O código serviu?
Casso esteja satisfeito Encerrar o tópico por favor.
OBRIGADO
Casso esteja satisfeito Encerrar o tópico por favor.
OBRIGADO
Private Sub Command1_Click()
On Error Resume Next
Dim Filter As String
Filter = "Arquivos BMP |*.bmp|"
CommonDialog1.Filter = Filter
CommonDialog1.FilterIndex = 1
CommonDialog1.Action = 1
Image1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub
Espero ter Ajudado
Alias, esse exemplo tem q ter um Command, uma Image e um Common Dialog ( Comdlg32.ocx )
Tópico encerrado , respostas não são mais permitidas