.Net Openfiledialog Problemi [ÇÖZÜLDÜ]

03/Nis/17 17:56

Kısayol

Şikayet

Özel Mesaj

baristbt

Kayıt Tarihi: 20/Nisan/2011

abi şunları bi dener misin içine dialogları koydum ,

ilk .exe yi sonra projeyi build edip dener misin

http://www103.zippyshare.com/v/u1N7nvQq/file.html

baristbt tarafından 03/Nis/17 17:56 tarihinde düzenlenmiştir

http://www.leyladansonra.com/

Alıntı yap

03/Nis/17 18:08

Kısayol

Şikayet

Özel Mesaj

biri

Kayıt Tarihi: 03/Ocak/2009

@baristbt çalışıyor hocam

 Try
            Dim OpenFileDialog1 As New OpenFileDialog()
            OpenFileDialog1.Filter = "Metin Belgesi (*.txt)|*.txt"
            OpenFileDialog1.RestoreDirectory = False
            OpenFileDialog1.FileName = ""
            OpenFileDialog1.Title = İçe Aktar"
            OpenFileDialog1.AutoUpgradeEnabled = False
            If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim list As String
                Using reader As StreamReader = New StreamReader(OpenFileDialog1.FileName)
                    list = reader.ReadToEnd
                End Using
                TextBox5.Text = list
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

¯\(ツ)/¯ ฏ๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎

Alıntı yap

03/Nis/17 18:13

Kısayol

Şikayet

Özel Mesaj

baristbt

Kayıt Tarihi: 20/Nisan/2011

tolgasen bunu yazdı

@baristbt çalışıyor hocam

 Try
            Dim OpenFileDialog1 As New OpenFileDialog()
            OpenFileDialog1.Filter = "Metin Belgesi (*.txt)|*.txt"
            OpenFileDialog1.RestoreDirectory = False
            OpenFileDialog1.FileName = ""
            OpenFileDialog1.Title = İçe Aktar"
            OpenFileDialog1.AutoUpgradeEnabled = False
            If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim list As String
                Using reader As StreamReader = New StreamReader(OpenFileDialog1.FileName)
                    list = reader.ReadToEnd
                End Using
                TextBox5.Text = list
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

böyle bişi yok hocam yav ? :D

http://www.leyladansonra.com/

Alıntı yap

03/Nis/17 18:15

Kısayol

Şikayet

Özel Mesaj

biri

Kayıt Tarihi: 03/Ocak/2009

baristbt bunu yazdı

tolgasen bunu yazdı

@baristbt çalışıyor hocam

 Try
            Dim OpenFileDialog1 As New OpenFileDialog()
            OpenFileDialog1.Filter = "Metin Belgesi (*.txt)|*.txt"
            OpenFileDialog1.RestoreDirectory = False
            OpenFileDialog1.FileName = ""
            OpenFileDialog1.Title = İçe Aktar"
            OpenFileDialog1.AutoUpgradeEnabled = False
            If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim list As String
                Using reader As StreamReader = New StreamReader(OpenFileDialog1.FileName)
                    list = reader.ReadToEnd
                End Using
                TextBox5.Text = list
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

böyle bişi yok hocam yav ? :D

Genelde hep using kullanıyorum hocam nasıl yok :D

¯\(ツ)/¯ ฏ๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎

Alıntı yap

03/Nis/17 18:17

Kısayol

Şikayet

Özel Mesaj

baristbt

Kayıt Tarihi: 20/Nisan/2011

tolgasen bunu yazdı

baristbt bunu yazdı

tolgasen bunu yazdı

@baristbt çalışıyor hocam

 Try
            Dim OpenFileDialog1 As New OpenFileDialog()
            OpenFileDialog1.Filter = "Metin Belgesi (*.txt)|*.txt"
            OpenFileDialog1.RestoreDirectory = False
            OpenFileDialog1.FileName = ""
            OpenFileDialog1.Title = İçe Aktar"
            OpenFileDialog1.AutoUpgradeEnabled = False
            If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim list As String
                Using reader As StreamReader = New StreamReader(OpenFileDialog1.FileName)
                    list = reader.ReadToEnd
                End Using
                TextBox5.Text = list
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

böyle bişi yok hocam yav ? :D

Genelde hep using kullanıyorum hocam nasıl yok :D

geneli yok abi :D o string olarak dönüyor zaten sana , streamreader ne için ?

TextBox5.Text = OpenFileDialog1.FileName

http://www.leyladansonra.com/

Alıntı yap

03/Nis/17 18:22

Kısayol

Şikayet

Özel Mesaj

biri

Kayıt Tarihi: 03/Ocak/2009

baristbt bunu yazdı

tolgasen bunu yazdı

baristbt bunu yazdı

tolgasen bunu yazdı

@baristbt çalışıyor hocam

 Try
            Dim OpenFileDialog1 As New OpenFileDialog()
            OpenFileDialog1.Filter = "Metin Belgesi (*.txt)|*.txt"
            OpenFileDialog1.RestoreDirectory = False
            OpenFileDialog1.FileName = ""
            OpenFileDialog1.Title = İçe Aktar"
            OpenFileDialog1.AutoUpgradeEnabled = False
            If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim list As String
                Using reader As StreamReader = New StreamReader(OpenFileDialog1.FileName)
                    list = reader.ReadToEnd
                End Using
                TextBox5.Text = list
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

böyle bişi yok hocam yav ? :D

Genelde hep using kullanıyorum hocam nasıl yok :D

geneli yok abi :D o string olarak dönüyor zaten sana , streamreader ne için ?

TextBox5.Text = OpenFileDialog1.FileName

Dosya adı lazım değil, dosya içeriği lazım bana.

¯\(ツ)/¯ ฏ๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎

Alıntı yap

03/Nis/17 18:38

Kısayol

Şikayet

Özel Mesaj

biri

Kayıt Tarihi: 03/Ocak/2009

Application Ayarlarından Authentication Mode Application-defined olmuş. O sebeple hata veriyormuş. Windows yaptım ve düzeldi.

Ama o nasıl Application-defined oldu anlamadım. :)

Yardım eder herkese teşekkürler.

¯\(ツ)/¯ ฏ๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎

Alıntı yap