Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / ADO.NET, LINQ, Entity Framework, NHibernate, DAL, ORM Новый топик    Ответить
 OpenFileDialog  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1644
помогите разобраться...

Dim fdlg As New System.Windows.Forms.OpenFileDialog
fdlg = Me.OpenFileDialog1
fdlg.Title = "Открыть"
'fdlg. .InitialDirectory("c:\") ' не работает почему -то
fdlg.CheckFileExists = True
fdlg.DefaultExt = "mdb"

'fdlg.Filterlndex * 2 ' а это зачем?
fdlg.RestoreDirectory = True
If (fdlg.ShowDialog() = DialogResult.OK) Then
Try
Me.txtboxPathToAccess.Text = fdlg.FileName

Catch ex As Exception
MsgBox("Ошибка при загрузке файла")
End Try
End If
9 авг 07, 19:46    [4504938]     Ответить | Цитировать Сообщить модератору
 Re: OpenFileDialog  [new]
asmod64
Member

Откуда: Minsk
Сообщений: 751
час58
'fdlg.Filterlndex * 2 ' а это зачем?

А код та чей?Картинка с другого сайта.
тэг SRC для кого сделан?
9 авг 07, 19:51    [4504951]     Ответить | Цитировать Сообщить модератору
 Re: OpenFileDialog  [new]
asmod64
Member

Откуда: Minsk
Сообщений: 751
Да и код исключительно по windows.forms зачем его в ADO.Net спрашиваете?
9 авг 07, 19:54    [4504958]     Ответить | Цитировать Сообщить модератору
 Re: OpenFileDialog  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1644
код из обучалки
9 авг 07, 19:56    [4504963]     Ответить | Цитировать Сообщить модератору
 Re: OpenFileDialog  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1644
asmod64
Да и код исключительно по windows.forms зачем его в ADO.Net спрашиваете?


вот вырезка...
Visual Basic .NET: разработка приложений

Protected Sub itmOpen__Click(ByVal sender As System.Object,
ByVal e As System.EventArgs)
Dim fdlg As New System.Windows.Forms.OpenFileDialog()
fdig.Title = "Открыть"
fdlg.InitialDirectory - "c:\"
fdlg.CheckFileExists = True
fdlg.DefaultExt = "gif"
fdlg.AddExtension ™ True
fdlg.Filter - "All files (*.+)|*.*|A11 files (*.*)!*.*"
fdlg.Filterlndex * 2
fdlg.RestoreDirectory = True
If (fdlg.ShowDialog() = DialogResult.OK) Then
Try
PictureBoxl.Image = Image.FromFile(fdlg.FileName)
Catch ex As Exception
KessageBox.Show("Ошибка при загрузке файла")
End Try
End If
End Sub
Выбор нескольких файлов
9 авг 07, 20:03    [4504969]     Ответить | Цитировать Сообщить модератору
 Re: OpenFileDialog  [new]
asmod64
Member

Откуда: Minsk
Сообщений: 751
        Dim oOpenFileDialog As New System.Windows.Forms.OpenFileDialog
        oOpenFileDialog.Title = "Открыть"
        oOpenFileDialog.InitialDirectory = "C:\"
        oOpenFileDialog.CheckFileExists = True
        oOpenFileDialog.DefaultExt = "gif"
        oOpenFileDialog.AddExtension = True
        oOpenFileDialog.Filter = "Gif files (*.gif)|*.gif|All files (*.*)|*.*"
        oOpenFileDialog.FilterIndex = 2
        oOpenFileDialog.RestoreDirectory = True
        If (oOpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK) Then
            Try
                PictureBox1.Image = Image.FromFile(oOpenFileDialog.FileName)
            Catch ex As Exception
                MessageBox.Show("Ошибка при загрузке файла")
            End Try
        End If
10 авг 07, 11:54    [4507238]     Ответить | Цитировать Сообщить модератору
 Re: OpenFileDialog  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1644
огромное спасибо.
Значит создаём объект и с ним работаем...:)
10 авг 07, 12:06    [4507373]     Ответить | Цитировать Сообщить модератору
Все форумы / ADO.NET, LINQ, Entity Framework, NHibernate, DAL, ORM Ответить