Jump to content


Photo

Visualizador De Imagem - Vb


  • Faça o login para participar
11 replies to this topic

#1 Kurt

Kurt

    I'll posses your body and I'll make you burn!

  • Usuários
  • 85 posts
  • Sexo:Não informado
  • Localidade:Há alguns quilômetros de lugar algum
  • Interesses:Visual Basic, banco de dados e AutoCAD

Posted 29/05/2004, 18:57

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.
Private Sub (Mateus Dias Ribeiro)
If Você é novato Then
Leia as regras Else
Veja isto
End If

End Sub

#2 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 03/10/2017, 00:18

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

#3 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 05/10/2017, 22:04

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

#4 Miguceamma

Miguceamma

    MiguPenjisse

  • Usuários
  • 11724 posts

Posted 07/10/2017, 15:40

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

#5 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 11/10/2017, 04:00

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

#6 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 14/10/2017, 09:07

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

#7 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 15/10/2017, 07:52

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

#8 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 29/10/2017, 13:01

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

#9 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 29/10/2017, 19:33

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

#10 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 17/11/2017, 01:31

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

#11 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 27/11/2017, 18:48

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

#12 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 30/11/2017, 17:50

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




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq