Open File в VB.NET

Язык Visual Basic на платформе .NET.

Модераторы: Ramzes, Sebas

Создатель
Постоялец
Постоялец
 
Сообщения: 422
Зарегистрирован: 21.04.2004 (Ср) 3:32
Откуда: Новосибирск

Open File в VB.NET

Сообщение Создатель » 13.08.2004 (Пт) 11:59

Подскажите плиз как определить, какой файл был выбран в OpenFile.
Пытался: ,но значение strWhatFile принимает nothing

Public Class Form1
Inherits System.Windows.Forms.Form
Dim strWhatFile As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
strWhatFile = OpenFileDialog1.FileName
strWhatFile = TextBox1.Text
End Sub
End Class

и так пытался:

Public Class Form1
Inherits System.Windows.Forms.Form
Dim strWhatFile As String

Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
OpenFileDialog1.ShowDialog()
strWhatFile = OpenFileDialog1.FileName
strWhatFile = TextBox1.Text
End Sub



может кто подскажет в чем проблема или подбросит рабочий код?

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 13.08.2004 (Пт) 12:06

Вот это что?
strWhatFile = TextBox1.Text


балин, ребята, нельзяже так дизайнером увлекаться...



Код: Выделить всё
Dim fd as openFileDialog = Nothing

Try

fd=new OpenFileDialog

   if fd.ShowDialog(me)=dialogresult.Ok then
      me.textbox.text=fd.filename
   end if

Catch ex as Exception
   Msgbox "Ошибка выбора файла." & vbcrlf & ex.message,vbExclamation
Finally
   if fd IsNot Nothing then
       fd.Dispose
   End if
End Try
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru


Вернуться в Visual Basic .NET

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 85

    TopList