AJUDA AQUI?
Como que eu faço pra trocar essas imagens do programa tipo se alguem quizer mudar as imagens é só clicar mum botão e ir ate a pasta das imagens tendeu.
como faço isso?
como faço isso?
desculpa a ignorancia mas aqui:
Caminho = CommonDialog1.FileName
caminho é aonde eu tenho que colocar o caminho onde esta asimagem?
Caminho = CommonDialog1.FileName
caminho é aonde eu tenho que colocar o caminho onde esta asimagem?
Caro colega deixe explicar para você
O objeto CommonDialog é um objeto que Abre uma caixa de dialogo para você selecionar o arquivo que quiser
As Propriedades usadas são
DialogTitle --> Essa propriedade define o titulo da caixa de dialogo quando aberto. é igual ao Caption de um Form
InitDir --> Ela define em qual diretório o seu dialogo irá abrir inicialmente
FileName --> Essa define o nome do arquivo que você esta procurando. Ela ser iniciada sem nada escrito ou não
Filter --> Define o tipo de arquivo que você quer localizar
ShowOpen --> Abre a caixa de dialogo
Exemplo:
Crie um Botão, uma Imagem e um CommonDialog
O CommonDialog tera quer adicionado primeiramente em
Project --> Components --> Microsoft Common Dialog Control 6.0
no Botão coloque o seguinte código
Na Imagem mude a propriedade dela chamada STRETCH para True
Essa propriedade faz com que a figura fique do tamanho que você colocar o objeto Image
Tenta ai e vê se da certo
O objeto CommonDialog é um objeto que Abre uma caixa de dialogo para você selecionar o arquivo que quiser
As Propriedades usadas são
DialogTitle --> Essa propriedade define o titulo da caixa de dialogo quando aberto. é igual ao Caption de um Form
InitDir --> Ela define em qual diretório o seu dialogo irá abrir inicialmente
FileName --> Essa define o nome do arquivo que você esta procurando. Ela ser iniciada sem nada escrito ou não
Filter --> Define o tipo de arquivo que você quer localizar
ShowOpen --> Abre a caixa de dialogo
Exemplo:
Crie um Botão, uma Imagem e um CommonDialog
O CommonDialog tera quer adicionado primeiramente em
Project --> Components --> Microsoft Common Dialog Control 6.0
no Botão coloque o seguinte código
CommonDialog1.DialogTitle = [Ô]Localizando imagens[Ô]
CommonDialog1.InitDir = [Ô]C:\[Ô]
CommonDialog1.FileName = [Ô][Ô]
CommonDialog1.Filter = [Ô]Arquivos Tipo (.gif)|*.gif|Arquivos Tipo (.jpg)|*.jpg|Arquivos Tipo (.png)|*.png|Todos os Arquivos|*.*[Ô]
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(cmd1.FileName)Na Imagem mude a propriedade dela chamada STRETCH para True
Essa propriedade faz com que a figura fique do tamanho que você colocar o objeto Image
Tenta ai e vê se da certo
oq eu fiz de errado?
Código anterior,forma diferente.Pouca coisa.
Dim cmd1 As String
CommonDialog1.DialogTitle = [Ô]Localizando imagens[Ô]
CommonDialog1.InitDir = App.Path
CommonDialog1.FileName = [Ô][Ô]
CommonDialog1.filter = [Ô]Arquivos Tipo (.gif)|*.gif|Arquivos Tipo (.jpg)|*.jpg|Arquivos Tipo (.png)|*.png|Todos os Arquivos|*.*[Ô]
CommonDialog1.ShowOpen
cmd1 = CommonDialog1.FileName
Image1.Picture = LoadPicture(cmd1)
Dim cmd1 As String
CommonDialog1.DialogTitle = [Ô]Localizando imagens[Ô]
CommonDialog1.InitDir = App.Path
CommonDialog1.FileName = [Ô][Ô]
CommonDialog1.filter = [Ô]Arquivos Tipo (.gif)|*.gif|Arquivos Tipo (.jpg)|*.jpg|Arquivos Tipo (.png)|*.png|Todos os Arquivos|*.*[Ô]
CommonDialog1.ShowOpen
cmd1 = CommonDialog1.FileName
Image1.Picture = LoadPicture(cmd1)
Aeeeeeeeeeee agora sim vlw.
Tópico encerrado , respostas não são mais permitidas