Postada em 25/01/2009 18:44 hs
Estou usando a seguinte codificação para gravar uma imagem na pasta...
Private Sub cmdEscolherFoto_Click()
Dim origem, arquivo As String
Cd1.Action = 2
arquivo = Cd1.FileTitle
Call nomeimagem(arquivo)
LTrim (arquivo)
arquivo = txtUsuario & arquivo
destino = "Fotos" & arquivo
origem = Cd1.FileName
FileCopy origem, App.Path & destino
MsgBox " A imagem foi gravada com sucesso!", vbInformation, "Aviso"
imgFoto.Picture = LoadPicture(App.Path & "Fotos" & arquivo)
frmCadastro.Width = 8880
End Sub
Private Sub nomeimagem(n As String)
Dim n1 As Integer
Dim txt As String
For n1 = 1 To Len(n)
txt = Mid(n, n1, 1)
If txt <> "." Then
Mid$(n, n1, 1) = " "
Else
Exit Sub
End If
Next
End Sub
... E quando eu vou exibir essa imagem em um image não consigo, por que se eu escolho uma imagem de nome "imagens b.jpg" e dou o nome pra ela de (imagens) quando vou exibir ela mostra o arquivo deste modo "imagens .jpg", mas na combo onde esta o nome dela esta "imagens" marca como se a imagem na existisse na pasta... Se alguem puder me ajudar eu agradeço...
|
