Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic Image

Image

14 réponses
Avatar
Jean Claude
Bonjour

Pouvez-vous me dire comment redim une image dans une appli en VB.net, ou une
adresse pour trouver un morceau de code.

Merci pour vos réponses
J-Claude
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
1 2
Avatar
Gilles TOURREAU
Le Wed, 26 Sep 2007 17:21:41 +0200, Jean Claude
a écrit:

Cela ne change rien



Pouvez-vous montrer votre code, et nous dire les messages d'erreurs à
l'execution et/ou à la compilation ?

Cordialement

--
Gilles TOURREAU


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr
Avatar
Jean Claude
Bonjour Gilles

voici mon code :

<%@ Page Language="VB" %>

<%@ import Namespace="System.Drawing.Imaging" %>

<%@ import Namespace="System.IO" %>

<%@ import namespace="System.Drawing" %>



<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">



<script runat="server">

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

Dessineimage()

Image1.ImageUrl = "Annonces/112.gif"

End Sub

Sub Dessineimage()

Dim lahauteur As Integer = 0

Dim lalargeur As Integer = 0

lahauteur = Image1.Height.Value

lalargeur = Image1.Width.Value

'taille maxi de la nouvelle image

Dim maxHeight As Integer = 50

'Nouvelles dimensions d'affichage

Image2.ImageUrl = "Annonces/112.gif"

Image2.Height = lahauteur * (maxHeight / lahauteur)

Image2.Width = lalargeur * (maxHeight / lahauteur)

'ou autre solution

Dim NewHeight As Integer = 0

NewHeight = lahauteur * (maxHeight / lahauteur)

Dim NewWidth As Integer = 0

NewWidth = lalargeur * (maxHeight / lahauteur)

Image1.Width = New Unit(NewWidth)

Image1.Height = New Unit(NewHeight)

'on enregistre cette nouvelle image

Dim newImage As Drawing.Image =
System.Drawing.Image.FromFile(Server.MapPath("Annonces/112.gif"), True)

Dim imageBis As New Bitmap(newImage)

Dim NumAnnonce As Integer = 112

Dim ChImage As String = ""

ChImage = "Annonces/" & Convert.ToString(NumAnnonce) & "bis.gif"

Using original As Image = Image.FromFile("C:sitesMes
AnnoncesAnnonces112.gif")

Using destination As Image = New Bitmap(original, NewWidth,
NewHeight)

destination.Save("C:sitesMes AnnoncesAnnonces112.gif")

End Using

End Using

End Sub

</script>



<html xmlns="http://www.w3.org/1999/xhtml" >

<head runat="server">

<title>Page sans titre</title>

</head>

<body>

<form id="form1" runat="server">

<div>

&nbsp;

<br />

<asp:Image ID="Image1" runat="server" />

<asp:Image ID="Image2" runat="server" /><br />

<asp:Button ID="Button1" runat="server" Text="Button" /><br />

<asp:Label ID="Label1" runat="server"
Text="Label"></asp:Label></div>

</form>

</body>

</html>



Jean Claude


"Gilles TOURREAU" a écrit dans le message de news:

Le Wed, 26 Sep 2007 17:21:41 +0200, Jean Claude
a écrit:

Cela ne change rien



Pouvez-vous montrer votre code, et nous dire les messages d'erreurs à
l'execution et/ou à la compilation ?

Cordialement

--
Gilles TOURREAU


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr


Avatar
Gilles TOURREAU
Le Thu, 27 Sep 2007 07:49:21 +0200, Jean Claude
a écrit:

Bonjour Gilles

voici mon code :

<%@ Page Language="VB" %>

<%@ import Namespace="System.Drawing.Imaging" %>

<%@ import Namespace="System.IO" %>

<%@ import namespace="System.Drawing" %>



<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">



<script runat="server">

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

Dessineimage()

Image1.ImageUrl = "Annonces/112.gif"

End Sub

Sub Dessineimage()

Dim lahauteur As Integer = 0

Dim lalargeur As Integer = 0

lahauteur = Image1.Height.Value

lalargeur = Image1.Width.Value

'taille maxi de la nouvelle image

Dim maxHeight As Integer = 50

'Nouvelles dimensions d'affichage

Image2.ImageUrl = "Annonces/112.gif"

Image2.Height = lahauteur * (maxHeight / lahauteur)

Image2.Width = lalargeur * (maxHeight / lahauteur)

'ou autre solution

Dim NewHeight As Integer = 0

NewHeight = lahauteur * (maxHeight / lahauteur)

Dim NewWidth As Integer = 0

NewWidth = lalargeur * (maxHeight / lahauteur)

Image1.Width = New Unit(NewWidth)

Image1.Height = New Unit(NewHeight)

'on enregistre cette nouvelle image

Dim newImage As Drawing.Image > System.Drawing.Image.FromFile(Server.MapPath("Annonces/112.gif"), True)

Dim imageBis As New Bitmap(newImage)

Dim NumAnnonce As Integer = 112

Dim ChImage As String = ""

ChImage = "Annonces/" & Convert.ToString(NumAnnonce) & "bis.gif"

Using original As Image = Image.FromFile("C:sitesMes
AnnoncesAnnonces112.gif")

Using destination As Image = New Bitmap(original, NewWidth,
NewHeight)

destination.Save("C:sitesMes
AnnoncesAnnonces112.gif")

End Using

End Using

End Sub

</script>



<html xmlns="http://www.w3.org/1999/xhtml" >

<head runat="server">

<title>Page sans titre</title>

</head>

<body>

<form id="form1" runat="server">

<div>

&nbsp;

<br />

<asp:Image ID="Image1" runat="server" />

<asp:Image ID="Image2" runat="server" /><br />

<asp:Button ID="Button1" runat="server" Text="Button" /><br />

<asp:Label ID="Label1" runat="server"
Text="Label"></asp:Label></div>

</form>

</body>

</html>



Jean Claude


"Gilles TOURREAU" a écrit dans le message de
news:

Le Wed, 26 Sep 2007 17:21:41 +0200, Jean Claude
a écrit:

Cela ne change rien



Pouvez-vous montrer votre code, et nous dire les messages d'erreurs à
l'execution et/ou à la compilation ?

Cordialement

--
Gilles TOURREAU


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr







Pouvez dire à quel emplacement se situe l'erreur (et le message) ??? Et si
c'est une erreur de compilation ou à l'execution ?

En tout cas je pense que qu'il faut ajouter "System.Drawing." ici :

Using original As System.Drawing.Image =
System.Drawing.Image.FromFile("C:sitesMes AnnoncesAnnonces112.gif")

Using destination As System.Drawing.Image = New
Bitmap(original, NewWidth, NewHeight)

destination.Save("C:sitesMes
AnnoncesAnnonces112.gif")

End Using

End Using

Cordialement

--
Gilles TOURREAU


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr
Avatar
Jean Claude
Bonjour Gilles

Merci pour votre aide, c'est OK

Cordialement
Jean Claude
"Gilles TOURREAU" a écrit dans le message de news:

Le Thu, 27 Sep 2007 07:49:21 +0200, Jean Claude
a écrit:

Bonjour Gilles

voici mon code :

<%@ Page Language="VB" %>

<%@ import Namespace="System.Drawing.Imaging" %>

<%@ import Namespace="System.IO" %>

<%@ import namespace="System.Drawing" %>



<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">



<script runat="server">

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

Dessineimage()

Image1.ImageUrl = "Annonces/112.gif"

End Sub

Sub Dessineimage()

Dim lahauteur As Integer = 0

Dim lalargeur As Integer = 0

lahauteur = Image1.Height.Value

lalargeur = Image1.Width.Value

'taille maxi de la nouvelle image

Dim maxHeight As Integer = 50

'Nouvelles dimensions d'affichage

Image2.ImageUrl = "Annonces/112.gif"

Image2.Height = lahauteur * (maxHeight / lahauteur)

Image2.Width = lalargeur * (maxHeight / lahauteur)

'ou autre solution

Dim NewHeight As Integer = 0

NewHeight = lahauteur * (maxHeight / lahauteur)

Dim NewWidth As Integer = 0

NewWidth = lalargeur * (maxHeight / lahauteur)

Image1.Width = New Unit(NewWidth)

Image1.Height = New Unit(NewHeight)

'on enregistre cette nouvelle image

Dim newImage As Drawing.Image >> System.Drawing.Image.FromFile(Server.MapPath("Annonces/112.gif"), True)

Dim imageBis As New Bitmap(newImage)

Dim NumAnnonce As Integer = 112

Dim ChImage As String = ""

ChImage = "Annonces/" & Convert.ToString(NumAnnonce) & "bis.gif"

Using original As Image = Image.FromFile("C:sitesMes
AnnoncesAnnonces112.gif")

Using destination As Image = New Bitmap(original, NewWidth,
NewHeight)

destination.Save("C:sitesMes
AnnoncesAnnonces112.gif")

End Using

End Using

End Sub

</script>



<html xmlns="http://www.w3.org/1999/xhtml" >

<head runat="server">

<title>Page sans titre</title>

</head>

<body>

<form id="form1" runat="server">

<div>

&nbsp;

<br />

<asp:Image ID="Image1" runat="server" />

<asp:Image ID="Image2" runat="server" /><br />

<asp:Button ID="Button1" runat="server" Text="Button" /><br />

<asp:Label ID="Label1" runat="server"
Text="Label"></asp:Label></div>

</form>

</body>

</html>



Jean Claude


"Gilles TOURREAU" a écrit dans le message de
news:

Le Wed, 26 Sep 2007 17:21:41 +0200, Jean Claude
a écrit:

Cela ne change rien



Pouvez-vous montrer votre code, et nous dire les messages d'erreurs à
l'execution et/ou à la compilation ?

Cordialement

--
Gilles TOURREAU


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr







Pouvez dire à quel emplacement se situe l'erreur (et le message) ??? Et si
c'est une erreur de compilation ou à l'execution ?

En tout cas je pense que qu'il faut ajouter "System.Drawing." ici :

Using original As System.Drawing.Image =
System.Drawing.Image.FromFile("C:sitesMes AnnoncesAnnonces112.gif")

Using destination As System.Drawing.Image = New
Bitmap(original, NewWidth, NewHeight)

destination.Save("C:sitesMes
AnnoncesAnnonces112.gif")

End Using

End Using

Cordialement

--
Gilles TOURREAU


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr


1 2