Definir une picturebox avec des lignes de programme sous VB6
3 réponses
Arnaud
Salut à tous
Comment creer de facon la plus simple possible avec des lignes de programme
une "picturebox" dans une autre autre picturebox pré-déssinée avec les
outils VB6 ?
Puis comment effacer cette picturebox également avec des lignes de programme
?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques93
Bonjour Arnaud, Arnaud a écrit :
Salut à tous
Comment creer de facon la plus simple possible avec des lignes de programme une "picturebox" dans une autre autre picturebox pré-déssinée avec les outils VB6 ?
Puis comment effacer cette picturebox également avec des lignes de programme ?
Par exemple, en créant sur la feuille 2 PictureBox (Picture1 et Picture2) , puis en assignant à Picture2 un index = 0. Ensuite, par code tu pourras charger, décharger des 'Items' de ce tableau de contrôle.
Pour que cette PictureBox deviennent fille de la première, il y a l'API 'SetParent' :
Option Explicit Private Declare Function SetParent Lib "user32" _ (ByVal hWndChild As Long, _ ByVal hWndNewParent As Long) As Long
' Nombre d'élément dans le tableau de contrôles Pictures Dim IPic2 As Integer
Private Sub Form_Load() With Me.Picture1 .BackColor = vbBlue End With With Me.Picture2(0) .Visible = False End With IPic2 = 0 End Sub
' Charge une PictureBox Fille Private Sub Command1_Click() IPic2 = IPic2 + 1 Load Picture2(IPic2) With Me.Picture2(IPic2) .Visible = True .BackColor = vbRed .Top = 300 .Height = Me.Picture1.Height - 600 .Left = 300 .Width = Me.Picture1.Width - 600 SetParent .hWnd, Me.Picture1.hWnd End With End Sub
' Décharge la dernière PictureBox Fille Private Sub Command2_Click() Unload Picture2(IPic2) IPic2 = IPic2 - 1 End Sub
--
Cordialement,
Jacques.
Bonjour Arnaud,
Arnaud a écrit :
Salut à tous
Comment creer de facon la plus simple possible avec des lignes de programme
une "picturebox" dans une autre autre picturebox pré-déssinée avec les
outils VB6 ?
Puis comment effacer cette picturebox également avec des lignes de programme
?
Par exemple, en créant sur la feuille 2 PictureBox (Picture1 et Picture2)
, puis en assignant à Picture2 un index = 0. Ensuite, par code tu
pourras charger, décharger des 'Items' de ce tableau de contrôle.
Pour que cette PictureBox deviennent fille de la première, il y a l'API
'SetParent' :
Comment creer de facon la plus simple possible avec des lignes de programme une "picturebox" dans une autre autre picturebox pré-déssinée avec les outils VB6 ?
Puis comment effacer cette picturebox également avec des lignes de programme ?
Par exemple, en créant sur la feuille 2 PictureBox (Picture1 et Picture2) , puis en assignant à Picture2 un index = 0. Ensuite, par code tu pourras charger, décharger des 'Items' de ce tableau de contrôle.
Pour que cette PictureBox deviennent fille de la première, il y a l'API 'SetParent' :
Option Explicit Private Declare Function SetParent Lib "user32" _ (ByVal hWndChild As Long, _ ByVal hWndNewParent As Long) As Long
' Nombre d'élément dans le tableau de contrôles Pictures Dim IPic2 As Integer
Private Sub Form_Load() With Me.Picture1 .BackColor = vbBlue End With With Me.Picture2(0) .Visible = False End With IPic2 = 0 End Sub
' Charge une PictureBox Fille Private Sub Command1_Click() IPic2 = IPic2 + 1 Load Picture2(IPic2) With Me.Picture2(IPic2) .Visible = True .BackColor = vbRed .Top = 300 .Height = Me.Picture1.Height - 600 .Left = 300 .Width = Me.Picture1.Width - 600 SetParent .hWnd, Me.Picture1.hWnd End With End Sub
' Décharge la dernière PictureBox Fille Private Sub Command2_Click() Unload Picture2(IPic2) IPic2 = IPic2 - 1 End Sub
--
Cordialement,
Jacques.
Arnaud
Merci
Je vais essayer d'appliquer ca concretement ;o)
Cordialement
Arnaud
"Jacques93" a écrit dans le message de news:
Bonjour Arnaud, Arnaud a écrit :
Salut à tous
Comment creer de facon la plus simple possible avec des lignes de programme une "picturebox" dans une autre autre picturebox pré-déssinée avec les outils VB6 ?
Puis comment effacer cette picturebox également avec des lignes de programme ?
Par exemple, en créant sur la feuille 2 PictureBox (Picture1 et Picture2) , puis en assignant à Picture2 un index = 0. Ensuite, par code tu pourras charger, décharger des 'Items' de ce tableau de contrôle.
Pour que cette PictureBox deviennent fille de la première, il y a l'API 'SetParent' :
Option Explicit Private Declare Function SetParent Lib "user32" _ (ByVal hWndChild As Long, _ ByVal hWndNewParent As Long) As Long
' Nombre d'élément dans le tableau de contrôles Pictures Dim IPic2 As Integer
Private Sub Form_Load() With Me.Picture1 .BackColor = vbBlue End With With Me.Picture2(0) .Visible = False End With IPic2 = 0 End Sub
' Charge une PictureBox Fille Private Sub Command1_Click() IPic2 = IPic2 + 1 Load Picture2(IPic2) With Me.Picture2(IPic2) .Visible = True .BackColor = vbRed .Top = 300 .Height = Me.Picture1.Height - 600 .Left = 300 .Width = Me.Picture1.Width - 600 SetParent .hWnd, Me.Picture1.hWnd End With End Sub
' Décharge la dernière PictureBox Fille Private Sub Command2_Click() Unload Picture2(IPic2) IPic2 = IPic2 - 1 End Sub
--
Cordialement,
Jacques.
Merci
Je vais essayer d'appliquer ca concretement ;o)
Cordialement
Arnaud
"Jacques93" <jacques@Nospam> a écrit dans le message de news:
e1RKfC1sJHA.2148@TK2MSFTNGP06.phx.gbl...
Bonjour Arnaud,
Arnaud a écrit :
Salut à tous
Comment creer de facon la plus simple possible avec des lignes de
programme une "picturebox" dans une autre autre picturebox pré-déssinée
avec les outils VB6 ?
Puis comment effacer cette picturebox également avec des lignes de
programme ?
Par exemple, en créant sur la feuille 2 PictureBox (Picture1 et Picture2)
, puis en assignant à Picture2 un index = 0. Ensuite, par code tu pourras
charger, décharger des 'Items' de ce tableau de contrôle.
Pour que cette PictureBox deviennent fille de la première, il y a l'API
'SetParent' :
Comment creer de facon la plus simple possible avec des lignes de programme une "picturebox" dans une autre autre picturebox pré-déssinée avec les outils VB6 ?
Puis comment effacer cette picturebox également avec des lignes de programme ?
Par exemple, en créant sur la feuille 2 PictureBox (Picture1 et Picture2) , puis en assignant à Picture2 un index = 0. Ensuite, par code tu pourras charger, décharger des 'Items' de ce tableau de contrôle.
Pour que cette PictureBox deviennent fille de la première, il y a l'API 'SetParent' :
Option Explicit Private Declare Function SetParent Lib "user32" _ (ByVal hWndChild As Long, _ ByVal hWndNewParent As Long) As Long
' Nombre d'élément dans le tableau de contrôles Pictures Dim IPic2 As Integer
Private Sub Form_Load() With Me.Picture1 .BackColor = vbBlue End With With Me.Picture2(0) .Visible = False End With IPic2 = 0 End Sub
' Charge une PictureBox Fille Private Sub Command1_Click() IPic2 = IPic2 + 1 Load Picture2(IPic2) With Me.Picture2(IPic2) .Visible = True .BackColor = vbRed .Top = 300 .Height = Me.Picture1.Height - 600 .Left = 300 .Width = Me.Picture1.Width - 600 SetParent .hWnd, Me.Picture1.hWnd End With End Sub
' Décharge la dernière PictureBox Fille Private Sub Command2_Click() Unload Picture2(IPic2) IPic2 = IPic2 - 1 End Sub
--
Cordialement,
Jacques.
Arnaud
Mille mercis ca marche ;o)
Cordialement
Arnaud
"Jacques93" a écrit dans le message de news:
Bonjour Arnaud, Arnaud a écrit :
Salut à tous
Comment creer de facon la plus simple possible avec des lignes de programme une "picturebox" dans une autre autre picturebox pré-déssinée avec les outils VB6 ?
Puis comment effacer cette picturebox également avec des lignes de programme ?
Par exemple, en créant sur la feuille 2 PictureBox (Picture1 et Picture2) , puis en assignant à Picture2 un index = 0. Ensuite, par code tu pourras charger, décharger des 'Items' de ce tableau de contrôle.
Pour que cette PictureBox deviennent fille de la première, il y a l'API 'SetParent' :
Option Explicit Private Declare Function SetParent Lib "user32" _ (ByVal hWndChild As Long, _ ByVal hWndNewParent As Long) As Long
' Nombre d'élément dans le tableau de contrôles Pictures Dim IPic2 As Integer
Private Sub Form_Load() With Me.Picture1 .BackColor = vbBlue End With With Me.Picture2(0) .Visible = False End With IPic2 = 0 End Sub
' Charge une PictureBox Fille Private Sub Command1_Click() IPic2 = IPic2 + 1 Load Picture2(IPic2) With Me.Picture2(IPic2) .Visible = True .BackColor = vbRed .Top = 300 .Height = Me.Picture1.Height - 600 .Left = 300 .Width = Me.Picture1.Width - 600 SetParent .hWnd, Me.Picture1.hWnd End With End Sub
' Décharge la dernière PictureBox Fille Private Sub Command2_Click() Unload Picture2(IPic2) IPic2 = IPic2 - 1 End Sub
--
Cordialement,
Jacques.
Mille mercis ca marche ;o)
Cordialement
Arnaud
"Jacques93" <jacques@Nospam> a écrit dans le message de news:
e1RKfC1sJHA.2148@TK2MSFTNGP06.phx.gbl...
Bonjour Arnaud,
Arnaud a écrit :
Salut à tous
Comment creer de facon la plus simple possible avec des lignes de
programme une "picturebox" dans une autre autre picturebox pré-déssinée
avec les outils VB6 ?
Puis comment effacer cette picturebox également avec des lignes de
programme ?
Par exemple, en créant sur la feuille 2 PictureBox (Picture1 et Picture2)
, puis en assignant à Picture2 un index = 0. Ensuite, par code tu pourras
charger, décharger des 'Items' de ce tableau de contrôle.
Pour que cette PictureBox deviennent fille de la première, il y a l'API
'SetParent' :
Comment creer de facon la plus simple possible avec des lignes de programme une "picturebox" dans une autre autre picturebox pré-déssinée avec les outils VB6 ?
Puis comment effacer cette picturebox également avec des lignes de programme ?
Par exemple, en créant sur la feuille 2 PictureBox (Picture1 et Picture2) , puis en assignant à Picture2 un index = 0. Ensuite, par code tu pourras charger, décharger des 'Items' de ce tableau de contrôle.
Pour que cette PictureBox deviennent fille de la première, il y a l'API 'SetParent' :