probleme vb.net common dialogRésolu

Question

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

cs_labout · Accepted Answer

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

@+

spike62300 · Answer

Merci beaucoup c ce que je cherchais

Encore merci :)

spike

Probleme vb.net common dialog

2 réponses

Discussions similaires