|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Imagem/Som/Multimídia)
|
|
 |
Título da Dica: Visualizador simples de Imagem
|
 |
|
|
|
Postada em 2/11/2003 por ^HEAVY-METAL^
'Num formlário insira os seguintes controles: 1 CommonDialog, 1 Image e 1 CommandButton.
'Inicialmente vamos mudar As propriedades dos controles:
'Na propriedade Strech da Image1, altera para True, evitando que a imagem auto-redimensione, tomando o tamanho natural.
'Na propriedade Caption Do Command1, atere para Abrir Imagem.
'Agora escreva As seguinte linhas de código:
Private Sub Command1_Click( )
On Error Resume Next 'Evita exibição de erro gerado pelo Visual Basic, caso você cancele a abertura de uma imagem
With CommonDialog1 'Agiliza a programamção, não sendo necessário digitar a palavra CommonDialog1, cada vez que For necessário, bastanto a penas inserir um ponto que As propeidades serão aceitas
.Filter = "Todas as Imagens| *.bmp;*.jpg;*.gif;*.wmf;*.emf" 'Filtra os arquivos a serem exibidos no CommonDialog, permitindo somente visualizar As extensões especificadas
. ShowOpen 'Abre a caixa de diálogo comum (CommonDialog)
Image1.Picture = LoadPicture (.FileName) 'Exibe a imagem selecionada na Caixa de Diálogno controle Image1.
End With 'Finaliza a instrução With
End Sub
'Obs.: Quando se está dentro de uma instrução With/End With, não é necessário escrever o nome o controle especificado no With, bastando somente um ponto e em seguida escreve ou ecolher a propriedade desejada.
|
|
|
|
|
