immagini

immagini image1..image2..

	Image	Immagine
	Permette di inserire immagini da disco
	(nomeimage.caption=testo da visualizzare)
	(nomeimage.autosize=true o false  1 0)
	(nomeimage.picture=LoadPicture("C:/cartella/nome.gif")
(nomeimage.picture=LoadPicture("nome.gif")
	(attivare tabella proprietà..Picture..percorso disco)

per vedere immagine1.ppt

assegnazione proprietà direttamente su immagine selezionata(gattino)

assegnazione proprietà mediante codificazione in pulsanti

Private Sub CommandButton1_Click()
Image1.AutoSize = True
Image1.BackColor = vbYellow
Image1.BackStyle = fmBackStyleOpaque
Image1.BorderColor = vbRed
Image1.BorderStyle = fmBorderStyleNone
Image1.Enabled = True
Image1.Picture = LoadPicture("gattino.gif")
Image1.Left = 10
Image1.SpecialEffect = fmSpecialEffectRaised
Image1.PictureAlignment = fmPictureAlignmentCenter
Image1.PictureSizeMode = fmPictureSizeModeClip
Image1.PictureTiling = False
Image1.SpecialEffect = fmSpecialEffectRaised
Image1.Tag = "tag inserita"
Image1.Top = 10
Image1.Visible = True
End Sub

Private Sub CommandButton2_Click()
Image2.AutoSize = True
Image2.BackColor = vbCyan
Image2.BackStyle = fmBackStyleOpaque
Image2.BorderColor = vbRed
Image2.BorderStyle = fmBorderStyleNone
Image2.Enabled = True
Image2.Picture = LoadPicture("gattino.gif")
Image2.Left = 120
Image2.SpecialEffect = fmSpecialEffectRaised
Image2.PictureAlignment = fmPictureAlignmentTopLeft
Image2.PictureSizeMode = fmPictureSizeModeClip
Image2.PictureTiling = False
Image2.SpecialEffect = fmSpecialEffectRaised
Image2.Tag = "tag inserita"
Image2.Top = 10
Image2.Visible = True

End Sub


Private Sub CommandButton3_Click()
Image3.AutoSize = False
Image3.BackColor = vbCyan
Image3.BackStyle = fmBackStyleOpaque
Image3.BorderColor = vbRed
Image3.BorderStyle = fmBorderStyleNone
Image3.Enabled = True
Image3.Picture = LoadPicture("gattino.gif")
Image3.Height = 200
Image3.Left = 240
Image3.SpecialEffect = fmSpecialEffectRaised
Image3.PictureAlignment = fmPictureAlignmentCenter
Image3.PictureSizeMode = fmPictureSizeModeClip
Image3.PictureTiling = True
Image3.SpecialEffect = fmSpecialEffectRaised
Image3.Tag = "tag inserita"
Image3.Top = 10
Image3.Visible = True
Image3.Width = 200
End Sub

Private Sub CommandButton4_Click()
Image3.Visible = True
End Sub

Private Sub CommandButton5_Click()
Image3.Visible = False
End Sub

proprietà dell'oggetto IMAGE

Name			assegnare nome a oggetto

Autosize		false-true :assegnare dimensionamento cornice
			in funzione del contenuto

Backcolor		assegnare colore per sfondo scrivendo codice
			numerico,vbcodice,tavolozza colori

BackStyle		0 trasparente 1 opaco:permette di vedere 
			il contenuto sottostante oppure no

Bordercolor		assegnare colore per bordo con codice numerico,
			vbcodice,da tavolozza colore o sistema
			
Borderstyle		assegnare stile bordo 
			nessuno=0  unico = 1

ControlTipText		legenda che compare con mouse su riquadro 

Enabled			abilita True o disabilita False oggetto

Height			assegnare valore altezza oggetto

Left			assegnare valore distanza da margine sinistro

Mouseicon		assegnare icona per oggetto
MousePointer		assegnare forma per cursore da 0 a 9

Picture			indicare percorso per caricare immagine
			selezionandolo da tabella proprietà
PictureAlignment	assegna posizione immagine contenuta 
			nell'oggetto 0-1-2-3-4
PictureSizeMode		assegna dimensione per immagine 0-1-3
PictureTiling		false-true:permette o meno moltiplicazione
			della immagine contenuta

SpecialEffect		assegnare valori 0...6 per visualizzazione
			con particolari aspetti della cornice

Tag			assegnare tag ,testo

Top			assegnare valore per distanza da margine
			superiore

Visible			true-false:rende visibile o invisibile oggetto

Width			assegnare larghezza a oggetto