[Michael-Knight1]

Hi , I Working into My First Tool 'FXP Edit' But I Have Some Problem on Open File Dialog .
Anyone Can Fix Me This Script ??

CODE

Dim Open As New OpenFileDialog()    Dim MyStreamReader As System.IO.StreamReader    Open.Filter = "Text [*.fxp*]|*.*"    Open.CheckFileExists = True    Open.Title = "Open File"    Open.ShowDialog()    Try    Open.OpenFile()    myStreamReader = System.IO.File.OpenText(Open.FileName)    Document.text = MyStreamReader.ReadToEnd Catch ex As Exception End Try   End Class

This post has been edited by Michael-Knight1 on Sunday, Aug 12 2012, 20:55

[harrisonconde1]

QUOTE (Michael-Knight1 @ Sunday, Aug 12 2012, 20:41)

Hi , I Working into My First Tool 'FXP Edit' But I Have Some Problem on Open File Dialog . Anyone Can Fix Me This Script ?? CODE    Dim Open As New OpenFileDialog()    Dim MyStreamReader As System.IO.StreamReader    Open.Filter = "Text [*.fxp*]|*.*"    Open.CheckFileExists = True    Open.Title = "Open File"    Open.ShowDialog()    Try    Open.OpenFile()    myStreamReader = System.IO.File.OpenText(Open.FileName)    Document.text = MyStreamReader.ReadToEnd Catch ex As Exception End Try   End Class

I don't know why your code is bad, I tested it here and worked well, here goes a version made by me:
'Create an OpenFileDialog in the toolbox and edit the properties, in this case is "OP"

CODE

Dim r As StreamReader        op.ShowDialog()        If Not op.FileName = Nothing Then            Try                r = New StreamReader(op.FileName)                document.Text = r.readtoend            Catch ex As Exception                MsgBox(ex.Message)            End Try        End If

Also, I don't think that this topic is in the right area, the right area is: http://www.gtaforums.com/index.php?showforum=9

[Michael-Knight1]

QUOTE (harrisonconde1 @ Sunday, Aug 12 2012, 21:51)

QUOTE (Michael-Knight1 @ Sunday, Aug 12 2012, 20:41) Hi , I Working into My First Tool 'FXP Edit' But I Have Some Problem on Open File Dialog . Anyone Can Fix Me This Script ?? CODE    Dim Open As New OpenFileDialog()    Dim MyStreamReader As System.IO.StreamReader    Open.Filter = "Text [*.fxp*]|*.*"    Open.CheckFileExists = True    Open.Title = "Open File"    Open.ShowDialog()    Try    Open.OpenFile()    myStreamReader = System.IO.File.OpenText(Open.FileName)    Document.text = MyStreamReader.ReadToEnd Catch ex As Exception End Try   End Class I don't know why your code is bad, I tested it here and worked well, here goes a version made by me: 'Create an OpenFileDialog in the toolbox and edit the properties, in this case is "OP" CODE         Dim r As StreamReader        op.ShowDialog()        If Not op.FileName = Nothing Then            Try                r = New StreamReader(op.FileName)                document.Text = r.readtoend            Catch ex As Exception                MsgBox(ex.Message)            End Try        End If Also, I don't think that this topic is in the right area, the right area is: http://www.gtaforums.com/index.php?showforum=9

tnx he doesn't work also ?? i have vb express 2010

This post has been edited by Michael-Knight1 on Sunday, Aug 12 2012, 22:16

[harrisonconde1]

QUOTE (Michael-Knight1 @ Sunday, Aug 12 2012, 22:14)

QUOTE (harrisonconde1 @ Sunday, Aug 12 2012, 21:51) QUOTE (Michael-Knight1 @ Sunday, Aug 12 2012, 20:41) Hi , I Working into My First Tool 'FXP Edit' But I Have Some Problem on Open File Dialog . Anyone Can Fix Me This Script ?? CODE    Dim Open As New OpenFileDialog()    Dim MyStreamReader As System.IO.StreamReader    Open.Filter = "Text [*.fxp*]|*.*"    Open.CheckFileExists = True    Open.Title = "Open File"    Open.ShowDialog()    Try    Open.OpenFile()    myStreamReader = System.IO.File.OpenText(Open.FileName)    Document.text = MyStreamReader.ReadToEnd Catch ex As Exception End Try   End Class I don't know why your code is bad, I tested it here and worked well, here goes a version made by me: 'Create an OpenFileDialog in the toolbox and edit the properties, in this case is "OP" CODE         Dim r As StreamReader        op.ShowDialog()        If Not op.FileName = Nothing Then            Try                r = New StreamReader(op.FileName)                document.Text = r.readtoend            Catch ex As Exception                MsgBox(ex.Message)            End Try        End If Also, I don't think that this topic is in the right area, the right area is: http://www.gtaforums.com/index.php?showforum=9 tnx he doesn't work also ?? i have vb express 2010

explains the error...

[Ashwin the new boy]

Stop using Quote if you you don't know Its Use,

@M.k
You Very Good do VB, keep doing
me too searching that dialog box,

[Michael-Knight1]

QUOTE (Ashwin the new boy @ Tuesday, Aug 14 2012, 12:31)

Stop using Quote if you you don't know Its Use, @M.k You Very Good do VB, keep doing me too searching that dialog box,

Me Too I Search A dialog box And I Many Learn Tutorial About it And Now Any Result , i everyone get this problem

[Michael-Knight1]

@Ashwin , Using This For Dialog Box !

CODE

Dim folder As String '    folder = BrowseForFolder(Me, "Select A Directory", "C:\startdir\anywhere" ) '    If Len(folder) = 0 Then Exit Sub  'User Selected Cancel

This post has been edited by Michael-Knight1 on Wednesday, Aug 15 2012, 08:06