Galera Komo Eu Fasso Para Que A Picture1 Teja ...

[PedroBarreto]

komo eu faço pra que o picture1 tenha o mesmo tamanho da imagem aberta no showopen?

e eu tambem quero saber como que fais para que o picture sempre fique no centro da tela independente o tamanho do form galera responde ate hj plissss

[PedroBarreto]

aew galera eu estou kom mais uma duvida...

eu quero ke o programa abre um arquivo de imagem kualke mais salva komo .si

oke tme de errado ?

Private Sub Image1_Click()

'Definir o filtro de tipos de arquivos

Com.Filter = "Pictures (*.bmp;*.ico)|*.bmp;*.ico|Todos (*.*)|*.*"

'Definir o diretório inicial

Com.InitDir = "C:\Windows"

Com.ShowOpen

If Com.FileName = "" Then

MsgBox "Nenhum Arquivo Selecionado !"

Else

MsgBox "O Arquivo Selecionado é : " & Com.FileName

End If

Picture1.Picture = LoadPicture(Com.FileName)

End Sub

Private Sub Image2_Click()

'Definir o filtro de tipos de arquivos

Com.Filter = "*.si"

'Definir o diretório inicial

Com.InitDir = "C:\Windows"

Com.ShowSave

If Com.FileName = "" Then

MsgBox "Nenhum Arquivo Salvo !"

Else

MsgBox "O Salvo é : " & Com.FileName

End If

End Sub

valeu galera presiso de respostas rapidas

[Graymalkin]

komo eu faço pra que o picture1 tenha o mesmo tamanho da imagem aberta no showopen?

Acho que é só habilitar a propriedade AutoSize (Auto = automático, Size = tamanho) da mesma.

e eu tambem quero saber como que fais para que o picture sempre fique no centro da tela independente o tamanho do form

É só fazer os cálculos e mudar as propriedades Top e Left, não? Imagine, na mão mesmo, que você tenha uma folha de papel A4 ou ofício e queira fazer um quadrado exatamente no meio dela. O que você faria para isso?

aew galera eu estou kom mais uma duvida...

eu quero ke o programa abre um arquivo de imagem kualke mais salva komo .si

Acredito que tenha faltado definir a propriedade DefaultExt também.

presiso de respostas rapidas

Ah, acho que escrever corretamente (utilizando "q", "ç", "z", por exemplo), ajudaria muito a leitura daqueles que podem vir a lhe ajudar.

Abraços,

Graymalkin

[PedroBarreto]

cara valeu mesmo mais eu ainda não consegui faze o negosso de ele fica no meio eu tentei mais não deu olha oque eu tentei

Picture1.Top = Form1.Top + "1680"

cara não precisa responde mais da uma dica pra en entende mais tem que se ate as 6:00 por favor

valeu mesmo

[PedroBarreto]

e aquele negosio do defaltext eu acabei de coloca *.si mais ainda da erro ele fala que salva mais não salva ajuda eu ae por favor tem que se logo

[Snoopy]

cara valeu mesmo mais eu ainda não consegui faze o negosso de ele fica no meio eu tentei mais não deu olha oque eu tentei

Picture1.Top = Form1.Top + "1680"

cara não precisa responde mais da uma dica pra en entende mais tem que se ate as 6:00 por favor

valeu mesmo

Para você conseguir colocar um picture no meio da tela você deverá fazer achar o meio da Form primeiramente(form1.width / 2 e form1.height / 2)

depois você deverá achar o meio da sua sua imagem aberta(picture1.width / 2 e picture1.width / 2)

Agora se você diminuir a metade da sua imagem da metade do seu form, você terá a posição inicial.

'Posição na direita.

picture1.left = (form1.width / 2)-(picture1.width / 2)

'Posição no topo

picture1.top= (form1.height/ 2)-(picture1.height / 2)

Se você entedeu beleza...

qualquer coisa da um toque ai...

[lruiz]

cara valeu mesmo mais eu ainda não consegui faze o negosso de ele fica no meio eu tentei mais não deu olha oque eu tentei

Picture1.Top = Form1.Top + "1680" 

cara não precisa responde mais da uma dica pra en entende mais tem que se ate as 6:00 por favor

valeu mesmo

faz o seguinte:

imagem.Left = (form.Width - imagem.Width) / 2

imagem.Top = (form.Height - imagem.Height) / 2

é como se você fizesse isso

|---------------------------------------------------| -> Tamanho do form

|-------------------------------| -> Tamanho do Image

|-------------------| -> Diferença de tamanho

|---------| -> Metade da diferença

|---------| -> Metade da diferença

Cada vez que o tamanho do form puder ser alterado, chame uma rotina que faça isso. Acredito que resolve.

Entendeu a lógica?

[Snoopy]

aew galera eu estou kom mais uma duvida...

eu quero ke o programa abre um arquivo de imagem kualke mais salva komo .si

oke tme de errado ?

Private Sub Image1_Click()

'Definir o filtro de tipos de arquivos

Com.Filter = "Pictures (*.bmp;*.ico)|*.bmp;*.ico|Todos (*.*)|*.*"

'Definir o diretório inicial

Com.InitDir = "C:\Windows"

Com.ShowOpen

If Com.FileName = "" Then

MsgBox "Nenhum Arquivo Selecionado !"

Else

MsgBox "O Arquivo Selecionado é : " & Com.FileName

End If

Picture1.Picture = LoadPicture(Com.FileName)

End Sub

Private Sub Image2_Click()

'Definir o filtro de tipos de arquivos

Com.Filter = "*.si"

'Definir o diretório inicial

Com.InitDir = "C:\Windows"

Com.ShowSave

If Com.FileName = "" Then

MsgBox "Nenhum Arquivo Salvo !"

Else

MsgBox "O Salvo é : " & Com.FileName

End If

End Sub

valeu galera presiso de respostas rapidas

arruma assim para ele salvar com extensão SI

Com.FileName = ""
'Definir o filtro de tipos de arquivos
Com.Filter = "Arquivo SI |*.si"
'Definir o diretório inicial
Com.InitDir = "C:\Windows"
Com.ShowSave
If Com.FileName = "" Then
MsgBox "Nenhum Arquivo Salvo !"
Else
MsgBox "O Salvo é : " & Com.FileName
'Salva arquivo com nome que você criou na COM
SavePicture Picture1, Com.FileName    
End If

Espero ter ajudado