Phoenix
Messages postés14Date d'inscriptionvendredi 3 mars 2006StatutMembreDernière intervention22 janvier 2009
-
10 juin 2006 à 21:00
cs_labout
Messages postés1356Date d'inscriptionsamedi 8 décembre 2001StatutMembreDernière intervention23 octobre 2006
-
11 juin 2006 à 12:23
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.
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 10 juin 2006 à 21:29
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 !
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 10 juin 2006 à 21:07
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 !
Phoenix
Messages postés14Date d'inscriptionvendredi 3 mars 2006StatutMembreDernière intervention22 janvier 2009 10 juin 2006 à 22:35
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 10 juin 2006 à 22:44
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 !