Bom dia! Tenho um formulário com um campo para foto e estou tentando inserir um botão com um código para abrir a caixa de diálogo Inserir Arquivo mas dá erro de compilação na palavra em negrito abaixo.
Dim strCaminho As String, strPastaInicial As String
strPastaInicial = "C:\Meus Documentos"
strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
Me.LocalFoto = strCaminho
Me.foto.Picture = Me.LocalFoto
End If
End Sub
O erro é "Erro de compilação. 'Sub' ou 'Function' não definida.
Obrigado!
Dim strCaminho As String, strPastaInicial As String
strPastaInicial = "C:\Meus Documentos"
strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
Me.LocalFoto = strCaminho
Me.foto.Picture = Me.LocalFoto
End If
End Sub
O erro é "Erro de compilação. 'Sub' ou 'Function' não definida.
Obrigado!