SVP expliquez moi ce code!!!!!!Résolu

Question

bonjour, j'essaye de comprendre ce code mais je n'arrive pas: ************************************************ Private Sub cmdParcourirFichierSource_Click() On Error GoTo suite DialogFichier.CancelError = True DialogFichier.DialogTitle = LoadResString(Langue + 193) DialogFichier.InitDir = Repertoire_Donnees DialogFichier.ShowOpen txtFichierSource.Text = DialogFichier.FileName cmdLancer.Enabled = Dir(txtFichierSource.Text) <> "" And _ txtFichierSource.Text <> LoadResString(Langue + 133) Exit Sub suite: End Sub ******************************************************* sachant que DialogFichier est le nom d'un pictureBox,SVP est ce que vous pouvez m'expliquez un peu ce code,merci d'avance.

cs_ITALIA · Accepted Answer

DialogFichier.FileName

It@li@

cs_ITALIA · Answer

Il ni &#224; pas de Propri&#233;t&#233; CanCelError pour les controles PictureBox........!!!!
Mais pour les controles CommonDialog.

Alors d&#233;ja tu parts sur une mauvaise Piste !

It@li@

redblast · Answer

Salut 



DialogFichier le nom d'un PictureBox, c'est pas possible. Si tu as eu
une erreur de chargement, VB a surement remplac&#233; ton CommonDialog par
un PictureBox (il n'a peut-&#234;tre pas trouv&#233; la r&#233;f&#233;rence). 

Dans tous les cas, supprime ton picturebox et met un CommonDialog
(oublie pas d'y faire r&#233;f&#233;rence) &#224; la place, &#231;a devrait aller mieux.

BasicInstinct · Answer

clr c'est un CommonDialog
l'application possede un fichier de ressource qui traduit l'application selon la langue du pc. (loadresstring)

 BasicInstinct

linasteph · Answer

Moi je dirai que DialogFichier c'est un contrôle CommonDialog Tout d'abord initialisation du contrôle: DialogFichier.CancelError = True --> permet la génération d'une erreur si le bouton annuler est choisi DialogFichier.DialogTitle = LoadResString(Langue + 193) --> barre de titre du contrôle à partir d'un fichier de ressource DialogFichier.InitDir = Repertoire_Donnees --> répertoire par défaut Affochage du contrôle DialogFichier.ShowOpen --> boite de dialogue ouverture Récupération du nom du fichier choisi txtFichierSource.Text = DialogFichier.FileName affectation de la propriété enabled du bouton cmdLancer.Enabled = Dir(txtFichierSource.Text) <> "" And _ txtFichierSource.Text <> LoadResString(Langue + 133) --> fichier existe et nom fichier différent de celui contenu dans le fichier ressource

cs_youlel · Answer

merci &#224; vous tous,oui c'est vrai DialogFichier est un controle Common Dialog
je reamarque lors de l'excution que la feuilles fait l'appel seulement aux fichiers excel comment je peux faire  si je veux appeler des fichiers txt

cs_ITALIA · Answer

' D&#233;finit les filtres
DialogFichier.Filter = "Fichier TEXTE (*.txt)|*.txt"

Avant : DialogFichier.ShowOpen

It@li@

Gobillot · Answer

'definit aussi les flags

DialogFichier.Flags = cdlOFNFileMustExist


Daniel

cs_youlel · Answer

merci beaucoup,j'ai un autre souci pour recuperer le cible de mon fichier apr&#233;s la s&#233;l&#232;ction  par la feuille de controle windows,cela va m'aider pour convertir ce fichier txt en fichier excel avec une fonction que j'ai d&#233;ja cr&#233;e en utilisant ce cible,comment je peux recuperer ce cible????merci d'avance

SVP expliquez moi ce code!!!!!!

9 réponses

Discussions similaires