création dynamique d'image

Question

slt
g un problème c pour créer des dynamiquement des images :
En fait c pour créer une mosaique avec plusieurs images...Je bloque la desut  :blush)

Xav88 · Answer

Salut

Voila le code que j'utilise...

Private Sub Form_Load()
ctrlnum = 0
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
ctrlnum = ctrlnum + 1
Set MonCtrl = Me.Controls.Add("VB.image", "img" + Format(ctrlnum))
MonCtrl.Picture = LoadPicture("Chemin de l'image")
MonCtrl.Visible = True
MonCtrl.Left = X
MonCtrl.Top = Y
End If
End Sub


Bonne prog

 :) Xavier :)

Samuel0210 · Answer

Merci Xavier
mais le code ne marche kune fois apres ca me dit 
"Un controle est déja nommé img1"
bye

Xav88 · Answer

Désolé!!!!!!!
J'avais oublié de déclarer ma variable ctrlnum.......


Dim ctrlnum As Integer 'Ligne qui manquait.......

Private Sub Form_Load()
ctrlnum = 0
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
ctrlnum = ctrlnum + 1
Set MonCtrl = Me.Controls.Add("VB.image", "img" + Format(ctrlnum))
MonCtrl.Picture = LoadPicture("C:\Documents de Xavier\Mes images\Nemo.jpg")
MonCtrl.Visible = True
MonCtrl.Left = X
MonCtrl.Top = Y
End If
End Sub


Voila......

 :) Xavier :)

Samuel0210 · Answer

Merci Xavier sa marche maintenant
bye
Samuel

Samuel0210 · Answer

slt 
g un autre ptit pb maintenant, c pour creer un groupe de dimage paske ji arrive pa 
on fé comment ?

bye
Samuel

Création dynamique d'image

5 réponses

Discussions similaires