lire documents|*. Txt;* .Rtf ;* . Docs ;* . PDF ;* . Xlsx dans Picture

lire documents|*. Txt;* .Rtf ;* . Docs ;* . PDF ;* . Xlsx dans Picture - VB/VBA/VBS - Programmation

Marsh Posté le 20-05-2013 à 10:21:32    

Bonjour;
Je veux créer un logiciel qui ouvre mes documents et les lires dans une fenetre ( documents|*. Txt;* .Rtf ;* . Docs ;* . PDF ;* . Xlsx )
Avec PictureBox rien ne marche j’ai une croix rouge à la place.
Sur google la réponse est  
System. IO. File ; Je ne le trouve pas.
 
PictureBox les images s’ouvre ; mes images|*. Jpg ;* . Jpeg  
et comment créer un dossier de sauvegarde pour les enregistrer de dans ?
 
Merci de votre aide  
 
voici mon code
 
Imports System.Net
Public Class Form4
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
 
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
 
            PictureBox1.ImageLocation = OpenFileDialog1.FileName
 
 
        End If
    End Sub
 
    Private Function PictureBox(ByVal pictureBox1 As PictureBox) As Object
        Throw New NotImplementedException
    End Function
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        SaveFileDialog1.Filter = "Tout les fichiers|*.*"
        SaveFileDialog1.ShowDialog()
        TextBox1.Text = SaveFileDialog1.FileName
    End Sub
    Dim WithEvents telecharger As WebClient
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
 
        telecharger.DownloadStringAsync(New Uri(TextBox1.Text), (TextBox2.Text))
 
    End Sub
 
    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
    End Sub
 
    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
            Form2.Show()
            Me.Hide()
    End Sub
 
    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        OpenFileDialog2.ShowDialog()
        TextBox3.Text = OpenFileDialog2.FileName
    End Sub
 
    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        Form1.Show()
    End Sub
End Class
 

Reply

Marsh Posté le 20-05-2013 à 10:21:32   

Reply

Marsh Posté le 20-05-2013 à 11:20:49    

j'ai trouv la reponse  
 
code
 
 Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        OpenFileDialog2.ShowDialog()
        AxAcroPDF1.src = OpenFileDialog2.FileName
    End Sub

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed