cs_Balabonov
Messages postés2Date d'inscriptiondimanche 18 juillet 2004StatutMembreDernière intervention27 juin 2006
-
27 juin 2006 à 09:31
drikce06
Messages postés2236Date d'inscriptionlundi 29 mai 2006StatutMembreDernière intervention29 mai 2008
-
27 juin 2006 à 15:09
Bonjour a tous:
voilà je dois développer une appli en vb pour poket pc .
Je débute dans le domaine et je n'arrive as ouvrir un fichier (excell par exemple).
voici mon code:
<!-- BEGIN TEMPLATE: bbcode_code -->
Code :
Public Class FormMain
Private Function ChargerFichier(ByVal wFilename As String) As Boolean
Dim wFile As System.IO.StreamReader
Try
wFile = New System.IO.StreamReader(wFilename)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
Return False
End Try
wFile.Close()
Return False
End Function
Private pFichierEnCours As String
Private pFlagModification As Boolean
Private Sub OuvrirFichier()
Dim wOpenFileDialog As New OpenFileDialog
wOpenFileDialog.Filter = "Tous les fichiers|*.*"
If wOpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
If ChargerFichier(wOpenFileDialog.FileName) Then
pFichierEnCours = wOpenFileDialog.FileName
SB_Fichier.Text = System.IO.Path.GetFileName(pFichierEnCours)
pFlagModification = False
End If
End If
wOpenFileDialog.Dispose()
End Sub
Private Sub Men_Ouvrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Men_Ouvrir.Click
OuvrirFichier()
End Sub
End Class
<!-- END TEMPLATE: bbcode_code -->
Quand je clique sur le bouton ouvrir dans le menu je peux selectionner le fichier mais il ne s'ouvre pas.