Bonjour à tous,

Je suis nouveau ici et nouvel utilisateur de Visual Basic 2005 Express. J'ai déjà codé auparavant sur VisualBasic 6.0 mais là, je suis un peu perdu ! Certaines expressions n'existent plus ou on simplement changé de nom, ce qui fait que je me perd un peu.... Bref voici mon problème, qui n'est surement qu'une connerie que j'ai surement en face des yeux mais que je n'arrive tout de même pas à trouver LOL !

Dans mon application j'ai un RTFBox qui se nomme "Scripter", dans lequel je veux ouvrir des fichiers HTML et CSS  j'ai le début de la routine mais il me manque un petit bout niaiseux que je ne trouve pas!! Si quelqu'un peut me donner un p'tit coup de main, faute de passer pour un crétin, MERCI D'AVANCE

PrivateSub OuvrirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OuvrirToolStripMenuItem.Click

 

Dim OpenFile AsString

Dim OpenFileDialog1 AsNew OpenFileDialog

Try

With OpenFileDialog1

.CheckFileExists =

True

.CheckPathExists =

True

.DefaultExt =

"txt"

.DereferenceLinks =

True

.Filter =

"Text files (*.txt)|*.txt|All files|*.*"

.Multiselect =

False

.RestoreDirectory =

True

.ShowHelp =

True

.ShowReadOnly =

False

.ReadOnlyChecked =

False

.Title =

"Select a file to open"

.ValidateNames =

True

If .ShowDialog = Windows.Forms.DialogResult.OK Then

Scripter.Text =

'ici est le problème lOl !! j'écris quoi pour que mon rtf lise le file ??

If .ShowDialog = Windows.Forms.DialogResult.Cancel Then

Close()

Scripter.Clear()

EndIf

Try

Catch fileException As Exception

Throw fileException

EndTry

EndIf

EndWith

Catch ex As Exception

MsgBox(ex.Message, MsgBoxStyle.Exclamation,

Me.Text)

EndTry

 

EndSub

If .ShowDialog = Windows.Forms.DialogResult.OK Then

Scripter.LoadFile(OpenFileDialog1.FileName)

C'est effectivement tout con, et ça change pas beaucoup de VB6

---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #    [ Lien ]

Salut,

Par contre si tu fais du vb.net une bonne habitude est d'utiliser la bonne syntaxe :

MsgBox = Messagebox.show