AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 01 08 03:35:45
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

OUVRIR UN FICHIER TXT AVEC UN COMMON DIALOGUE


Information sur la source

Catégorie :Texte Classé sous : ouverture, common Niveau : Débutant Date de création : 28/11/2000 Vu : 4 097
Auteur : Razorx Ecrire un message privé
Note :
3,5 / 10 - par 8 personnes
3,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

Description

créez vous un bouton , un textbox
et inséré le ocx microsoft common dialogue 6.0
nomer le ocx  cd1
et un ocx microsoft rich text boxe 6.0
les propriété du text boxe doivent etre celle ci
multiline=true
scrollbars=3-both
 

Source

  • private sub command1_click()
  • cd1.Filter = "Text Files (*.TXT)|*.TXT|All Files (*.*)|*.*"
  • cd1.ShowOpen
  • RichTextBox1.LoadFile (cd1.FileName)
  • Text1.Text = RichTextBox1.Text
  • Caption = "Color Note - Par Johnny Hébert - " & cd1.FileName & ""
  • end sub 
private sub command1_click()
cd1.Filter = "Text Files (*.TXT)|*.TXT|All Files (*.*)|*.*"
    cd1.ShowOpen
    RichTextBox1.LoadFile (cd1.FileName)
    Text1.Text = RichTextBox1.Text
    Caption = "Color Note  -  Par Johnny Hébert  -  " & cd1.FileName & ""
end sub

Conclusion

si il y a quelque chose qui ne marche envoyer moi un e-mail ca me ferra plaisir de vous répondre

sub_land@hotmail.com
 

Commentaires et avis

signaler à un administrateur
Commentaire de Dalida le 03/10/2002 22:07:53

manque la sortie de boucle en cas d'abandon
donc si je fais [Cancel] pour fermer ta cd1, je peux aller fraise avec ton textbox...

signaler à un administrateur
Commentaire de Nestor le 07/01/2003 17:50:52

pour info, v'la le vrai auteur de ce bout de code:

http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=9925&lngWId=1

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

erreur ouverture common dialog [ par jbjbjb ] J'ai un common dialog pour ouvrir un fichier texte dans un RTB, celui-ci ne fonctionne qu'une fois. Comment peut -on réinitialiser le filename du Common Dialogue initialisation du répertoire [ par M51 ] J'utilise une common dialogue pour ouvrir ou sauver des fichiers. Mon problème: bien que je puisse déclarer avec la propriété initdir le répertoire d' retourner un objet dans le résultat d'un fonction [ par brobin ] je souhaite retourner une variable de type "Object" dans le résultat d'une fonction.quand je récupère le résultat, j'ai un message d'erreur me disant vba - Menu à l'Ouverture de Word [ par chtibreizh62 ] bonjour,je souhaiterai qu'à l'ouverture de Word, un menu s'active (ou soit visible). Comment faire ? Y a-t-il comme Excel un répertoire où installer u Comment automatiser l'ouverture d'un lien sur un site web ? [ par gama71 ] Bonjour, je suis toujours coincé par un probleme d'ouverture d'un lien qui devrait etre ouvert par mon application.Sur un site web il y a un lien sur Dimensionner une form1 a l'ouverture [ par yuri67 ] Bonjour, je cherche a affiché ma form1 en plein ecran a l'ouverture, j'ai trouvé le code suivant MaForm.Width = (300 * Screen.TwipsPerPixelX) + (M Test d'ouverture de fichiers [ par Nyouki ] Bonjour, j'aimerais savoir comment tester si un fichier ouvert par un open "C:\documents...." est ouvert ou non? Le but de cette question est de pouv Ouverture de fichier [ par lolowilou69 ] Bonjour.Je veux ouvrir un fichier text dans lequel a chaque ligne il y a d'écri un mot puis un numérocela donne cela a chaque ligne :     Vache : 140. créer avis d'échéance MsgBox sous ACCESS [ par arno51100 ] Bonjour,Je débute sous ACCES, je me suis créé une base de données dans laquelle je gère des dates et j'aimerai qu'une MsgBox s'affiche, à l'ouverture chargement d'une reference à l'ouverture d'un workbook [ par wismerhill__ ] Salut, à tous, j'ai qq petits pbs1/ Je voudrais qu'à l'ouverture d'un workbook vba charge directement les macro complementaire Utilitaire d'analyse et


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,764 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.