Discussion :

[mjpmjp]

Bonjour,

j'ai un petit souci pour
transférer l'image d'un contrôle image : ImgAide0Focus qui sert de container ,
vers un contrôle image : ImgAideBtn qui sert de bouton



quand j'incorpore les images (bmp ou jpg) dans les propriétés , çà fonctionne...
avec un scintillement du form ?! mais çà fonctionne

je sauvegarde et ferme le fichier.mdb , je l'ouvre et là , çà ne fonctionne plus



voila le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private TestBtnModif As Boolean
Private TestBtnAideActif As Boolean
 
Private Sub RectCadreInterrieur_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If TestBtnModif = False Then Exit Sub
    If TestBtnAideActif Then
    Else
        Me.ImgAideBtn.Picture = Me.ImgAide0.Picture
    End If
    TestBtnModif = False
End Sub
 
Private Sub ImgAideBtn_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If TestBtnModif = True Then Exit Sub
    If TestBtnAideActif Then
    Else
        Me![ImgAideBtn].Picture = Me![ImgAide0Focus].Picture
        TestBtnModif = True
    End If
End Sub

@+JP

[Arkham46]

Bonjour,

Sur les contrôles images access, picture est un lien vers une image.
Le contenu est dans PictureData.

Le transfert d'un contrôle à un autre se fait avec cette propriété PictureData.

[mjpmjp]

bonjour,

ok merci

je vais tester ... encore merci

@+JP

[mjpmjp]

Bonjour,

ok çà fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
Private TestBtnModif As Boolean
Private TestBtnAideActif As Boolean
 
Private Sub RectCadreInterrieur_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If TestBtnModif = False Then Exit Sub
    If TestBtnAideActif Then
    Else
        Me.ImgAideBtn.PictureData = Me.ImgAide0.PictureData
    End If
    TestBtnModif = False
End Sub
 
Private Sub ImgAideBtn_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If TestBtnModif = True Then Exit Sub
    If TestBtnAideActif Then
    Else
        Me.ImgAideBtn.PictureData = Me.ImgAide0Focus.PictureData
        TestBtnModif = True
    End If
End Sub

@+JP