Checkbox [Résolu]

Signaler
Messages postés
14
Date d'inscription
vendredi 3 mars 2006
Statut
Membre
Dernière intervention
22 janvier 2009
-
Messages postés
1356
Date d'inscription
samedi 8 décembre 2001
Statut
Membre
Dernière intervention
23 octobre 2006
-
Bonjour.

VB 6

Voila je pose cette question car depuis un petit moment je cherche désespérément et je ne trouve pas la réponse, ni de source.
J'aimerai réaliser un checkbox avec mes propres images.
J'ai fais deux images, l'une vide, et l'une cocher.
Et j'aimerais les mettre via un chekbox.

Merci beaucoup
Cordialement,
Phoenix

8 réponses

Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
16
Et bien fait 2 images.
tu dois jongler avec ces deux images,
j'imagine 2 possibilités :
1 image vide et 1 image 'réelle' ou
1 image sans croix à l'intérieur et 1 avec cette croix

Par défaut affiche l'image n°1 (donc vide) et sur son évènement 'click', NomDeCetteImage.Visible = False
NomAutreImage.Visible = True
et inversement avec l'autre image

Puis, dans la vérification,
If Image1.Visible = True Then
'ta procédure
Else
'l'autre procédure
End If

Si j'ai bien compris bien sûr !

@++

--Mortalino--
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
16
Salut,

J'ai pas trop compris ce que tu voulais faire :
tu veux une image qui fait office de CheckBox OU tu veux afficher une image suivant si le CheckBox est coché et une autre image quand le CheckBox est décoché ?

@++

--Mortalino--
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !
Messages postés
14
Date d'inscription
vendredi 3 mars 2006
Statut
Membre
Dernière intervention
22 janvier 2009

Je veux mettre une image qui fait office de Checkbox :)
Excuse de moi de ma mal expression :)

Merci pour ta réponse.
Messages postés
14
Date d'inscription
vendredi 3 mars 2006
Statut
Membre
Dernière intervention
22 janvier 2009

Le checkbox marche tres bien mais je viens de faire une grosse annerie: j'ai tuiliser le code suivant avec la checjbox.
Il permet de mutter le son du pc. En utilisant Mute, et je penssais qu'en utilisant Mute False ca remmetrai le son, et en faite non. Je n'ai plus de sons je suis désespéré lol. :x

Private Declare Function waveOutSetVolume Lib "Winmm" (ByVal wDeviceID As Integer, ByVal dwVolume As Long) As Integer
Private Declare Function waveOutGetVolume Lib "Winmm" (ByVal wDeviceID As Integer, dwVolume As Long) As Integer

Private Sub Mute(Optional ByVal vbNoSound As Boolean = True)
Static mnOldVolume As Long
    If vbNoSound Then
        waveOutGetVolume 0, mnOldVolume
        waveOutSetVolume 0, 0
    Else
        waveOutSetVolume 100, mnOldVolume
    End If
End Sub
Messages postés
14
Date d'inscription
vendredi 3 mars 2006
Statut
Membre
Dernière intervention
22 janvier 2009

C'est bon ca marche ouf

    If vbNoSound Then
        waveOutGetVolume 0, mnOldVolume
        waveOutSetVolume 0, 100
    Else
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
16
Ah les joies des APIs.

Moi perso, si je ne connais pas, je ne touche pas pour justement éviter les problèmes difficilement réversibles.

Tiens, j'ai trouvé ça avec Google :

Public Declare Function waveOutGetVolume Lib "coredll" (Byval hwo as long, ByRef pdwVolume as long) As Long

Public Function GetVolume() As Byte
Dim wVolume As Long
Call waveOutGetVolume(0, wVolume)
Select Case wVolume
Case 0
GetVolume = 0
Case 858993459
GetVolume = 1
Case 1717986918
GetVolume = 2
Case -1717986919
GetVolume = 3
Case -85993460
GetVolume = 4
Case -1
GetVolume = 5
End Select
End Function

Puis

Public Declare Function waveOutSetVolume Lib "coredll" (ByVal hwo As Long, ByVal pdwVolume As Long) as Long

Public Sub SetVolume(ByVal wVolume As Byte)
Dim wVol As Long
Select Case wVolume
Case 0
wVol = 0
Case 1
wVol = 858993459
Case 2
wVol = 1717986918
Case 3
wVol = -1717986919
Case 4
wVol = -85993460
Case 5
wVol = -1
End Select
Call waveOutSetVolume(0, wVol)
End Sub


J'y connais pas grand chose à cet API (en fait je connais pas du tout) donc essaie de l'adapter.

@++

--Mortalino--
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !
Messages postés
14
Date d'inscription
vendredi 3 mars 2006
Statut
Membre
Dernière intervention
22 janvier 2009

Merci :)
Messages postés
1356
Date d'inscription
samedi 8 décembre 2001
Statut
Membre
Dernière intervention
23 octobre 2006
6
Autre exemple avec DLL MS sous VB6

'

Example submitted by Danjel Nyberg'

It needs a textbox (Text1) And two command buttons (Command1, Command2)Private

Declare
Function waveOutSetVolume
Lib "
Winmm" (
ByVAl wDeviceID
As
Integer,
ByVAl dwVolume
As
Long)
As
IntegerPrivate

Declare
Function waveOutGetVolume
Lib "
Winmm" (
ByVAl wDeviceID
As
Integer, dwVolume
As
Long)
As
IntegerPrivate

Sub Command1_Click(
)

Dim a, i
As
Long

Dim tmp
As
STringa = waveOutGetVolume(0, i)

tmp = "

&h" &
Right(Hex$(i), 4)Text1 = CLng(tmp)

End

SubPrivate

Sub Command2_Click(
)

Dim a, i
As
Long

Dim tmp, vol
As
STringvol = Text1
tmp Right((Hex$(vol + 65536)), 4)vol CLng("

&H" & tmp & tmp)a = waveOutSetVolume(0, vol)

End

Sub

labout