| Вопрос: OpenFileDialog | Добавлено: 21.01.07 12:56 |
Автор вопроса:  AlexDerS
|
|
Использую OpenFileDialog
Как узнать: 1. тип файла <- png, jpg, gif 2. вес файла (кб) 3. размер файла (ширина х высота) <- для картинок на VB2005 |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Алексей black admin ICQ: 261779681 Вопросов: 87 Ответов: 633 |
Web-сайт: Профиль | | #1 | Добавлено: 21.01.07 13:02 |
|
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
If OpenFileDialog1.FileName.ToLower.EndsWith(".jpg"  Or OpenFileDialog1.FileName.ToLower.EndsWith(".jpeg" Or OpenFileDialog1.FileName.ToLower.EndsWith(".gif" Or OpenFileDialog1.FileName.ToLower.EndsWith(".bmp" Then
Dim myImg As New Drawing.Bitmap(OpenFileDialog1.FileName) MsgBox(myImg.Width & "x" & myImg.Height) Else MsgBox(Mid(OpenFileDialog1.FileName, OpenFileDialog1.FileName.LastIndexOf("." + 2, OpenFileDialog1.FileName.Length))
End If End If |
||
|
Номер ответа: 2 Автор ответа: Алексейblack admin ICQ: 261779681 Вопросов: 87 Ответов: 633 |
Web-сайт: Профиль | | #2 | Добавлено: 21.01.07 13:04 |
|
про вес забыл:
Dim FI As New IO.FileInfo(OpenFileDialog1.FileName)
MsgBox("Вес: " & FI.Length & " байт" |
||
Страница: 1 |