lire documents|*. Txt;* .Rtf ;* . Docs ;* . PDF ;* . Xlsx dans Picture - VB/VBA/VBS - Programmation
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
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