Probleme vb.net common dialog

[Résolu]
Signaler
Messages postés
73
Date d'inscription
vendredi 5 novembre 2004
Statut
Membre
Dernière intervention
14 septembre 2007
-
Messages postés
73
Date d'inscription
vendredi 5 novembre 2004
Statut
Membre
Dernière intervention
14 septembre 2007
-
bonjour,

j'ai un souci. Je veux utiliser une common dialog pour mon devpt sous vb.net mais y me fait une erreur de license:
"vous ne disposez pas de la license requise pour utiliser ce controle activeX"

Pourtant l'entreprise ou je developpe a acheter la license vb.net

merci de me repondre

spike

2 réponses

Messages postés
1356
Date d'inscription
samedi 8 décembre 2001
Statut
Membre
Dernière intervention
23 octobre 2006
7
labout

Il faut utiliser le composant VB.NET
Voici un exemple pour ouvrir

Dim dlg As New OpenFileDialog
Dim i As Integer
' on se place dans le répertoire de l'exécutable par défaut
dlg.InitialDirectory = Application.StartupPath
' tous les type d'image admis
dlg.Filter = "Bitmap (*.bmp)|*.bmp|" & _
"GIF (*.gif)|*.gif|" & _
"JPEG (*.jpg)|*.jpg|" & _
"ICON (*.ico)|*.ico|" & _
"TIF (*.tif)|*.tif|" & _
"EMF (*.Emf)|*.Emf|" & _
"PNG (*.Png)|*.Png|" & _
"WMF (*.Wmf)|*.Wmf|" & _
"EXIF (*.Exif)|*.Exif"
dlg.Multiselect = True
dlg.FilterIndex = 3
' Ouvre la boite de dialogue Ouvrir
If dlg.ShowDialog() = DialogResult.OK Then
Dim s As System.IO.Stream = dlg.OpenFile()
Me.PictureBox1.Image = System.Drawing.Image.FromStream(s)
endif

avec des imports
Imports System.Drawing.Imaging
Imports System.io

pour sauver

Friend WithEvents sdlgImage As System.Windows.Forms.SaveFileDialog

With sdlgImage
.InitialDirectory = Application.StartupPath & ""
.FileName = "myimage"
' ce sont les formats acceptés par VB.NET
.Filter = "Bitmap (*.bmp)|*.bmp|" & _
"GIF (*.gif)|*.gif|" & _
"JPEG (*.jpg)|*.jpg|" & _
"ICON (*.ico)|*.ico|" & _
"TIF (*.tif)|*.tif|" & _
"EMF (*.Emf)|*.Emf|" & _
"PNG (*.Png)|*.Png|" & _
"WMF (*.Wmf)|*.Wmf|" & _
"EXIF (*.Exif)|*.Exif"
.FilterIndex = 1
End With

If sdlgImage.ShowDialog() = DialogResult.OK Then
Try
' propose par défaut Tif car index à 4
' picImage.Image.SaveAdd("c:\image.tif", EncoderParameter)
PictureBox3.Image.Save(sdlgImage.FileName, GetImageFormat())
MessageBox.Show("Image sauvegardée " & _
sdlgImage.FileName, Me.Text, _
MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch exp As Exception
MessageBox.Show("L'erreur suivante est intervenue " & _
"lors de la sauvegarde de l'image: " & exp.Message, Me.Text, _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
Else
MsgBox("Il n'y a pas d'image à sauvegarder !", MsgBoxStyle.Exclamation)
End If

@+
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 70 internautes nous ont dit merci ce mois-ci

Messages postés
73
Date d'inscription
vendredi 5 novembre 2004
Statut
Membre
Dernière intervention
14 septembre 2007

Merci beaucoup c ce que je cherchais

Encore merci :)

spike