Newsgroup: it.comp.lang.visual-basic
Titolo: CheckBox con immagini

Vorrei se possibile creare un controllo (se non esiste in circolazione)
simile al CheckBox, ma con due immagini di sfondo: una quando diventa
True, un'altra per quando diventa Falso. Inoltre dovrebbe essere un
controllo dimensionabile.
Qualcuno sa darmi delle dritte per iniziare ??
Grazie.

 controllo dimensionabile.
L'ho fatto in una decina di minuti, potrebbe avere qualche 
errorino...
CheckPic.ctl
VERSION 5.00
Begin VB.UserControl CheckPic 
ClientHeight    =   480
ClientLeft      =   0
ClientTop       =   0
ClientWidth     =   2040
ScaleHeight     =   480
ScaleWidth      =   2040
Begin VB.CheckBox chkPicture 
Caption         =   "PicCheck"
Height          =   195
Left            =   540
TabIndex        =   0
Top             =   180
Width           =   1395
End
Begin VB.Image imgCheck 
Height          =   480
Left            =   0
Stretch         =   -1  'True
Top             =   0
Width           =   480
End
End
Attribute VB_Name = "CheckPic"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private CheckPic As IPictureDisp
Private UnCheckPic As IPictureDisp
Property Get PictureChecked() As Picture
On Local Error Resume Next
Set PictureChecked = CheckPic
End Property
Property Get PictureUnChecked() As Picture
On Local Error Resume Next
Set PictureUnChecked = UnCheckPic
End Property
Property Set PictureChecked(myPicture As IPictureDisp)
Set imgCheck.Picture = myPicture
Set CheckPic = myPicture
PropertyChanged "CheckPic"
End Property
Property Set PictureUnChecked(myPicture As IPictureDisp)
Set imgCheck.Picture = myPicture
Set UnCheckPic = myPicture
PropertyChanged "UnCheckPic"
End Property
Private Sub chkPicture_Click()
If chkPicture.Value = vbChecked Then
Set imgCheck.Picture = CheckPic
Else
Set imgCheck.Picture = UnCheckPic
End If
End Sub
Private Sub UserControl_Initialize()
End Sub
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Set CheckPic = PropBag.ReadProperty("CheckPic", Nothing)
Set UnCheckPic = PropBag.ReadProperty("UnCheckPic", Nothing)
End Sub
Private Sub UserControl_Show()
Set imgCheck.Picture = CheckPic
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "CheckPic", CheckPic, Nothing
PropBag.WriteProperty "UnCheckPic", UnCheckPic, Nothing
End Sub
-- 
Why do we want intelligent terminals when there are so many stupid users?
News 2000 [v 2.06] - 
http://www.akapulce.net/socket2000

 End If
Purtroppo il newsreader s'è *magnato* l'indentazione...
-- 
Protect your software at all costs; all else is meat.


Non so se mi basteranno pochi minuti stasera per capire, ma di sicuro
ti ringrazio e ti faro' sapere.

Ho provato il tuo controllo Due di Picche: funzione. però mi sono
espresso male nella definizione della richiesta.
Io vorrei che le immagini sostituissero il box bianco del Check, e nel
cliccare sulla  immagine, restituisca falso o true a seconda delle due
possibili immagini presenti a Video.
Che dici ?

 ha scritto nel messaggio > Vorrei se 

puoi mettere il normale checkbox in style=graphical (sembra un command), e 
settare due diverse immagini per picture e downpicture.
-- 
ciao, a.
http://www.sundaysw.com
hobbits use their real names

 possibili immagini presenti a Video.
La soluzione di andrea ti va bene?
-- 
Profanity is the one language all programmers know best.


Si, benissimo. Grazie

di niente