[VB6] Image autre que .bmp

**Jivy77** · 14/06/2006, 22h40

Bonjour a tous, je me suis confronté a un probleme génant, l'ouverture d'une image en .png dans une PictureBox. Pas de probleme avec les images en .bmp mais sa n'accepte pas les autres formats. Merci de bien vouloir m'aider pour ce probleme très génant.

**jmfmarques** · 14/06/2006, 22h46

Si, d'autres formats sont acceptés, pourvu qu'ils soient de type bitmap (bmp, Jpg, ico, etc...)
Si tu veux insérer une autre image, il te faudra d'abord la transposer dans un format de type bitmap par un outil ad hoc...

**Jivy77** · 14/06/2006, 22h49

Merci, rapide la réponse. Mon image est en .png . Je suis débutant de chez débutant donc si tu pourrais me dire en détails comment faire ou me donner un tuto, sa serais vraiment bien. Merci

**jmfmarques** · 14/06/2006, 22h53

Un tuto ?....

De quoi parles-tu ?....
Je viens de te dire que tu devais transformer PREALABLEMENT ET HORS VB, par un outil spécialisé de ton choix, ton image... pour qu'elle soit acceptée, une fois transposée en Bitmap, par VB.
Toute cette opération préalable n'a rien à voir avec VB !

**Jivy77** · 14/06/2006, 22h58

Excuse moi, j'avais mal compris

. Donc il n'y a aucune possibilité d'insérer des images .png dans VB ?Car si il faut les transformer manuellement, celà ne me sera plus d'aucunes utilitées. Merci quand même

et si quelqu'un sais comment faire, qu'il me le dise

**jmfmarques** · 14/06/2006, 22h59

Je crois que je vais devoir apprendre le Chinois ....

Et toi... le Français, peut-être ....

**SilkyRoad** · 15/06/2006, 05h55

bonjour

une autre possibilite pourrait consister à afficher l'image .png dans un WebBrowser

en VB

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
Private Sub Command1_Click()
Dim S As String
Dim Hauteur As Long, Largeur As Long
 
Largeur = (WebBrowser1.Width * 96 / 72) / 20
Hauteur = (WebBrowser1.Height * 96 / 72) / 20
S = "http://www.libpng.org/pub/png/img_png/black817-480x360-3.5.png"
 
WebBrowser1.Navigate _
"ABOUT:<HTML><CENTER><HEAD><body scroll='no' " & _
"LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
Largeur & " HEIGHT=" & Hauteur & _
" SRC='" & S & "'</IMG></BODY></CENTER></HTML>"
 
End Sub

en VBA

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Initialize()
Dim S As String
Dim Hauteur As Long, Largeur As Long
 
Largeur = WebBrowser1.Width * 96 / 72
Hauteur = WebBrowser1.Height * 96 / 72
S = "http://www.libpng.org/pub/png/img_png/black817-480x360-3.5.png"
 
WebBrowser1.Navigate _
"ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 " & _
"TOPMARGIN=0><IMG WIDTH=" & _
Largeur & " HEIGHT=" & Hauteur & _
" SRC='" & S & "'</IMG></BODY></CENTER></HTML>"
End Sub

bonne journée
michel

**Jivy77** · 15/06/2006, 10h32

Merci SilkyRoad, avec ce que tu m'a donné, je pense pouvoir arriver a mes fins. Encore merci et bonne journée.

[VB6] Image autre que .bmp

VB 6 et antérieur

Discussions similaires

Partager

Partager