Image en vb

Signaler
Messages postés
5
Date d'inscription
samedi 1 décembre 2007
Statut
Membre
Dernière intervention
14 août 2009
-
Messages postés
5
Date d'inscription
samedi 1 décembre 2007
Statut
Membre
Dernière intervention
14 août 2009
-
Bonjour je suis debutant en VB j'utilise l'application console en cours et je voudrais savoir comment faire pour afficher une image en lors de l'execution du programme
Merci

2 réponses

Messages postés
4
Date d'inscription
jeudi 29 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2007

voici un pg j espere ke ca t aidera
pour ca marche n oubli pa d declarer les variables bncourage
If ThisDrawing.SelectionSets.Count < 1 Then
Set ZoneChoix = ThisDrawing.SelectionSets.Add("jeu")
Else
Set ZoneChoix = ThisDrawing.SelectionSets.Item("jeu")
End If
ZoneChoix.Clear
ZoneChoix.SelectOnScreen
If ZoneChoix.Count < 1 Then
Set toto = ThisDrawing.ModelSpace
Else
Set toto = ZoneChoix
End If
Userform1.ListBox1.Clear
For Each ACADobj In toto
With ACADobj
If StrComp(.EntityName, "AcDbBlockReference", 1) = 0 Then
If .HasAttributes Then
If Userform1.ListBox1.ListCount < 1 Then
Userform1.ListBox1.AddItem (ACADobj.Name)
Else
For I = 1 To Userform1.ListBox1.ListCount
If Userform1.ListBox1.List(I - 1) = ACADobj.Name Then GoTo _ remplissage
Next I
Userform1.ListBox1.AddItem (ACADobj.Name)
End If
remplissage:
End If
End If
End With
Next ACADobj
If Userform1.ListBox1.ListCount < 1 Then
message = MsgBox("Le dessin est vide.", vbExclamation)
Exit Sub
End If
Messages postés
5
Date d'inscription
samedi 1 décembre 2007
Statut
Membre
Dernière intervention
14 août 2009

Merci pour cette reponse mais ne connaissant pas grand chose au vb pour l'istant a part les boucles .....
Donc je voudrais savoir si tu pouvais m'expliquer un peu plus les differentes parties afin de mieux en comprendre le sens et l'adapter à mon probleme
Merci d'avance