11 replies to this topic

[Kurt]

Essa dica eh muito boa, aproveitem. ateh +, fui!


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.

[LarPhozyHah]

Buy Long Lasting Cialis Online Cheap Online Nolvadex Prix Du Viagra En Parapharmacie eva pills levitra Buy Prednisone No Prescription
Levitra Prix Paris online pharmacy Generique Amoxicillin Sans Ordonnance Pilule Contraceptive Sex Pills For Men Over The Counter Cialis Andorra Online
La Pillola Viagra vardenafil india bay Zithromax To Treat Eczema Viagra 100 Mg
Low Dose Propecia brand levitra canada Wellbutrin Online Overnight No Rx Levitra 20 Mg Trucchi Viagra Espagne Sans Ordonnance

[HaroNism]

Amoxil Haute Qualite Maintenant Buy Xenical Weight Loss Pills Synthroid generic levitra Cheaplevitra Zithromax Online Order
Using Proscar For Hair Loss Propecia Finasteride Doxycycline Shop Mexican Amoxicillin viagra Cialis 0 5 Mg Accutane And Amoxicillin Buy Celebrex Cvs

[Miguceamma]

Comment Utiliser Le Tadalis Sx viagra Tabac Et Baclofen Dutasteride Purchase Internet Windsor

[LarPhozyHah]

Where To Buy Diuretic Lasix buy levitra on line Celexa Capsulas Propecia

[LarPhozyHah]

Propecia Masa Cialis Rush Order Generic Real Progesterone Medicine Best Website Price Free Shipping buy viagra Viagra Kaufen Apotheke Acquistare Kamagra Inghilterra Cialis Cada Cuando Se Puede Tomar
Cephalexin Strep viagra Direct Free Shipping Fluoxetine Best Website Achat Kamagra Pas Cher

[HaroNism]

Nizoral Fedex Shipping Zentel For Sale generic viagra Best National Pharmacy
Vt Logistics Singapore Viagra viagra prescription Cheap Nexium Prescriptions
Produit 205 cheap cialis Furosemide 40 Mg Canadian Pharmacy Zithromax Sinus Infection Dosage

[LarPhozyHah]

Levitra Professional Online buy viagra online Ed Drugs
Buy Drugs Priligy Se Puede Tomar Con Alcohol viagra Buy Cialis Online Usa Taking Cialis With Viagra
Levitra Mejor Que Cialis Cialis Y Dolor De Cabeza viagra online Real Phiser Viagra Pills

[HaroNism]

Priligy At Cvs vivanza 20mg Viagra Samples From The Us Cialis Sin Receta Espana Buy Orlistat 120mg In Usa
Find Levaquin Without Rx On Line Amex generic cialis 5mg Cialis Testosterone Patches Online Buy

[LarPhozyHah]

Overnight Shipping Of Levaquin viagra online prescription Amoxicillin Arm Pain Cialis Nueva Presentacion
Clomid Date Ovulation Viagra Kaufen Fulda Zithromax Headache viagra Acquisto Viagra Italia Order Xenical Online Australia

[RonsisM]

Keflex How Long Used For Tabletten Levitra 20 Mg viagra Levitra Generika Bayer
Canadia Pharmacy Cialis cialis Cialis Levitra Farmacias Best Generic Cialis Pharmacy Child Reaction To Amoxicillin

[LarPhozyHah]

Levitra Generico Recensione viagra online Uas Pharmacy Online
Propecia In Women Discount Progesterone Worldwide On Line Free Consultation Next Day Delivery Chicago Fast Shipping Cialis And Viagra viagra Coumadin For Sale