|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 SAUVEGARDER
 Information sur la source
 Description
Multiformats images: BMP = JPG, GIF. JPG = BMP,GIF, GIF = JPG, BMP,Tous ces formats sont reconnus par Photoshop Je n'ai pas voulu déposer une nouvelle source et j'ai ajouté comment ouvrir un fichier dans son programme d'origine. Cela peut interesser des personnes voulant l'inclure dans une de leur sources.
 Source
- Option Strict Off
- Option Explicit On
- Public Class Form1
- Inherits System.Windows.Forms.Form
-
- ' ouvrir les fichiers dans leur programme
- 'C'est nécessaire pour ouvrir n'importe quel dossier, il déclare ce qui va être exécuté plus tard
- Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer
- 'Cela met le windowsize quand il devient ouvert
- Private Const SW_SHOW As Short = 5
- Private Const SW_SHOWMAXIMIZED As Short = 3
- 'Cela actualisera le sentier du dossier quand vous cliquez sur l'annuaire
- Private Sub DirListBox1_Change(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles DirListBox1.Change
- FileListBox1.Path = DirListBox1.Path
-
- End Sub
-
- Private Sub DriveListBox1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles DriveListBox1.SelectedIndexChanged
- 'Cela actualisera le sentier de trajet quand vous cliquez sur la lettre de trajet
- DirListBox1.Path = DriveListBox1.Drive
-
- End Sub
-
- Private Sub FileListBox1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles FileListBox1.SelectedIndexChanged
- Dim selectedfile As Object
- 'Cela actualisera la variable selectedfile basé sur la lettre de trajet et le sentier du dossier
- selectedfile = FileListBox1.Path & "\" & FileListBox1.FileName
- 'Cela ouvrira finalement le dossier choisi avec le programme approprié
- ShellExecute(0, "open", selectedfile, "", "", SW_SHOWMAXIMIZED)
-
- End Sub
-
- Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
- 'Cela met l'annuaire initial et les sentiers de trajet, vous pouvez le changer si vous voulez
- DirListBox1.Path = "c:\Documents and Settings\"
- End Sub
-
- End Class
Option Strict Off
Option Explicit On
Public Class Form1
Inherits System.Windows.Forms.Form
' ouvrir les fichiers dans leur programme
'C'est nécessaire pour ouvrir n'importe quel dossier, il déclare ce qui va être exécuté plus tard
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer
'Cela met le windowsize quand il devient ouvert
Private Const SW_SHOW As Short = 5
Private Const SW_SHOWMAXIMIZED As Short = 3
'Cela actualisera le sentier du dossier quand vous cliquez sur l'annuaire
Private Sub DirListBox1_Change(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles DirListBox1.Change
FileListBox1.Path = DirListBox1.Path
End Sub
Private Sub DriveListBox1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles DriveListBox1.SelectedIndexChanged
'Cela actualisera le sentier de trajet quand vous cliquez sur la lettre de trajet
DirListBox1.Path = DriveListBox1.Drive
End Sub
Private Sub FileListBox1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles FileListBox1.SelectedIndexChanged
Dim selectedfile As Object
'Cela actualisera la variable selectedfile basé sur la lettre de trajet et le sentier du dossier
selectedfile = FileListBox1.Path & "\" & FileListBox1.FileName
'Cela ouvrira finalement le dossier choisi avec le programme approprié
ShellExecute(0, "open", selectedfile, "", "", SW_SHOWMAXIMIZED)
End Sub
Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
'Cela met l'annuaire initial et les sentiers de trajet, vous pouvez le changer si vous voulez
DirListBox1.Path = "c:\Documents and Settings\"
End Sub
End Class
 Conclusion
Je me suis servi du code BMP=JPG de "thejojo79" que je remercie. J'ai ajouté les autres formats. Le transfert du GIF animé est direct, contrairemen à Photoshop où il faut un format de transition.Il ouvre les icônes (ICO)mais ne les transforme pas (je cherche)Si je trouve cela fera parti d'une mise à jour. J'espère que cela interessera quelqu'un.
 Historique
- 28 septembre 2007 14:50:32 :
- Correction d'une erreur: un 2ème message arrivait au mauvais moment
- 02 octobre 2007 18:36:04 :
- La transformation est possible d'ICO en JPG, BMP et GIF
- 22 février 2008 18:22:20 :
- Comment ouvrir un fichier dans son programme d'origine
- 10 juillet 2008 13:57:36 :
- Ajout en VBA Excel de l'ouverture des fichiers dans leurs programmes par défaut et des propriétés des images dans VB2005.
 Sources du même auteur
 Sources de la même categorie
Sources en rapport avec celle ci
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
Conversion de bmp en jpg, gif, png ou tiff... [ par ju ]
Bonjour, je cherche un moyen de convertir des images bmp en jpg, gif, png ou tiff(1 de ces 4 formats pour pouvoir les transformer en pdf grace à pdfli
sauvegarder en gif [ par Flyer ]
Bonjour je cherche un moyen pour sauvegarder une picturebox en gif, et aussi comment sauvegarder une picturebox en jpeg * le nb de couleur que je veux
fichiers (.ico, .jpg, .bmp, .gif) [ par blissdumpweed ]
J'au une question surement très conne mais une question quand même :Lorsque dans mes forms j'ajoute des images dans des pictures box ou simplement des
background image : BMP ? GIF ? JPG ? [ par scortex84 ]
Bonjour,je souhaite embélir un peu mes applications VB.NET en mettant des images de fond. Rien de bien compliqué, un simple dégradé.Le problème vient
Filtre CommonDialog [ par moi4975 ]
Voila j'aimerais bien pouvoir ouvrir des fichiers jpg , gif et bmp sans devoir changer "fichiers de types " dans ma commondialog !!! Vous me sui
Acces common dialog microsoft [ par zolt4n ]
chalut jai un common dialog microsoft . J'aimerai faire deux chose 1.pouvoir ne faire que une ligne dans ma boite ouvrir avec juste un champs image qu
Sauvegarder transparence image en .net [ par zoglub14 ]
Bonjour,Je travaille depuis peu en VB 2005 .Net, j'aurais deux questions sur un controle picturebox et la sauvegarde de l'image qu'il contient.J'ai fa
ouvri une image avec cmd dialog [ par papounez ]
Bonsoir débutant VB6avec un bouton parcourirje n'arrive pas a trouver l'erreur pour ouvrir une photo dans une Image1 ou PctureBox1erreur = object
sauvegardé....... [ par petchy ]
bonsoirdans une form j'ai plusieurs textbox que je renseigne avec des CommonDialogdans le premier textbox je vais recherché une imageet dans le second
Générer un gif a partir d'un jpg [ par Nagalta ]
Bonjour, est til possible en asp de generer un gif a partir d'une image jpg, et au passage la redimensionner?Merci de votre aide !
|
 Téléchargements
Logiciels à télécharger sur le même thème :
|