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

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 !

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

Merci pour ta réponse.

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

C'est bon ca marche ouf

    If vbNoSound Then
        waveOutGetVolume 0, mnOldVolume
        waveOutSetVolume 0, 100
    Else

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 !

Merci :)

Autre exemple avec DLL MS sous VB6

'

Example submitted by Danjel Nyberg

'

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

Private

DeclareFunction waveOutSetVolume Lib "Winmm" (ByVAl wDeviceID AsInteger, ByVAl dwVolume AsLong) AsInteger

Private

DeclareFunction waveOutGetVolume Lib "Winmm" (ByVAl wDeviceID AsInteger, dwVolume AsLong) AsInteger

Private

Sub Command1_Click()

Dim a, i AsLong

Dim tmp AsSTring

a = waveOutGetVolume(0, i)

tmp = "

&h" & Right(Hex$(i), 4)

Text1 = CLng(tmp)

End

Sub

Private

Sub Command2_Click()

Dim a, i AsLong

Dim tmp, vol AsSTring

vol = Text1

tmp =

Right((Hex$(vol + 65536)), 4)

vol = CLng("

&H" & tmp & tmp)

a = waveOutSetVolume(0, vol)

End

Sub

labout