| Вопрос: 3 вопроса по VB | Добавлено: 18.05.08 19:31 |
Автор вопроса:  Skarab
|
|
1) что нужно сделать, чтобы при нажатии на кнопку открывалась ссылка на сайт?
2) Как узнать разрешение картинки? 3) Как узнать размер картинки? я только недавно начал работать с изображениями и вот возникли эти вопросы. у меня Visual Basic 6.0 |
| Ответы | Всего ответов: 17 |
|
Номер ответа: 1 Автор ответа:  »VladikComper« ICQ: 419668582 Вопросов: 23 Ответов: 147 |
Web-сайт: Профиль | | #1 | Добавлено: 18.05.08 19:44 |
|
1) что нужно сделать, чтобы при нажатии на кнопку открывалась ссылка на сайт?
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Global Const SW_SHOWNORMAL = 1 Private Sub Command1_Click() ShellExecute Me.hWnd, vbNullString, "http://site.ru/", vbNullString, "C:\", SW_SHOWNORMAL End Sub Сайт открывается в браузере, используемым по умолчанию. |
||
|
Номер ответа: 2 Автор ответа: »VladikComper«ICQ: 419668582 Вопросов: 23 Ответов: 147 |
Web-сайт: Профиль | | #2 | Добавлено: 18.05.08 19:48 |
|
2) Как узнать разрешение картинки?
Как это понимать? 3) Как узнать размер картинки?
Ну, самый простой способ: Поставить PictureBox, загрузить в него рисунок. Установить BorderStyle = 0 и AutoSize = True Высота - PictureBox1.Height, ширина - соответсвенно - PictureBox1.Width. |
||
|
Номер ответа: 3 Автор ответа: Skarab Вопросов: 1 Ответов: 7 |
Профиль | | #3 | Добавлено: 18.05.08 19:50 |
|
спасибо за ответы!
по поводу разрешения и размера, например разрешение 200х200 пикселей, а размер 124 кб |
||
|
Номер ответа: 4 Автор ответа: »VladikComper«ICQ: 419668582 Вопросов: 23 Ответов: 147 |
Web-сайт: Профиль | | #4 | Добавлено: 18.05.08 19:51 |
|
разрешение 200х200 пикселей, а размер 124 кб
Ясно 
Я подумал на разрешение экрана
|
||
|
Номер ответа: 5 Автор ответа: SkarabВопросов: 1 Ответов: 7 |
Профиль | | #5 | Добавлено: 18.05.08 19:56 |
|
хм по поводу кнопки, что-то не работает
При попытки запустить он пишет: Compile Error: Constants, fixed-lenght strings, arrays, user-defined types and Declare Statements not allowed as Public Members or object modules |
||
|
Номер ответа: 6 Автор ответа: »VladikComper«ICQ: 419668582 Вопросов: 23 Ответов: 147 |
Web-сайт: Профиль | | #6 | Добавлено: 18.05.08 19:58 |
|
Если код для форму, то:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Global Const SW_SHOWNORMAL = 1 Private Sub Command1_Click() ShellExecute Me.hWnd, vbNullString, "http://site.ru/", vbNullString, "C:\", SW_SHOWNORMAL End Sub |
||
|
Номер ответа: 7 Автор ответа: SkarabВопросов: 1 Ответов: 7 |
Профиль | | #7 | Добавлено: 18.05.08 20:00 |
|
всеравно ругается на Private Declare Function ShellExecute...
и Global Const SW_SHOWNORMAL = 1 |
||
|
Номер ответа: 8 Автор ответа: »VladikComper«ICQ: 419668582 Вопросов: 23 Ответов: 147 |
Web-сайт: Профиль | | #8 | Добавлено: 18.05.08 20:01 |
|
Надо в АПИ заменить Public на Private, если АПИ объявлена в модуле формы.
Самый хороший вариант, создать новый модуль и записать туда АПИ, начиная с Public. Тогда АПИ будет доступно в любом модуле программы. |
||
|
Номер ответа: 9 Автор ответа: »VladikComper«ICQ: 419668582 Вопросов: 23 Ответов: 147 |
Web-сайт: Профиль | | #9 | Добавлено: 18.05.08 20:02 |
|
всеравно ругается на Private Declare Function ShellExecute...
и Global Const SW_SHOWNORMAL = 1 Попробуй => "Global Const SW_SHOWNORMAL = 1" заменить на "Const SW_SHOWNORMAL = 1" |
||
|
Номер ответа: 10 Автор ответа: SkarabВопросов: 1 Ответов: 7 |
Профиль | | #10 | Добавлено: 18.05.08 20:05 |
|
о, заработало, спс.
а как быть со вторым и третьим пунктом? |
||
|
Номер ответа: 11 Автор ответа: »VladikComper«ICQ: 419668582 Вопросов: 23 Ответов: 147 |
Web-сайт: Профиль | | #11 | Добавлено: 18.05.08 20:06 |
|
Я вроде написал
см. Ответ №2 |
||
|
Номер ответа: 12 Автор ответа: SkarabВопросов: 1 Ответов: 7 |
Профиль | | #12 | Добавлено: 18.05.08 20:07 |
| просто мне нужно чтобы он взял с адреса картинку, определил ее разрешение и размер и вписал эти значения в 2 текстовых поля | ||
|
Номер ответа: 13 Автор ответа: SkarabВопросов: 1 Ответов: 7 |
Профиль | | #13 | Добавлено: 18.05.08 20:08 |
| а если мне не нужно вставлять картинку в pictureBox? | ||
|
Номер ответа: 14 Автор ответа: »VladikComper«ICQ: 419668582 Вопросов: 23 Ответов: 147 |
Web-сайт: Профиль | | #14 | Добавлено: 18.05.08 20:11 |
|
Извиняюсь, совсем забыл, что существует Image.
Он автоматически подгоняет размер картинки. А чтобы загрузить картинку: Image1.Picture = LoadPicture("C:\Risunok1.bmp"
 Может открыть форматы BMP, JPEG, GIF. |
||
|
Номер ответа: 15 Автор ответа: »VladikComper«ICQ: 419668582 Вопросов: 23 Ответов: 147 |
Web-сайт: Профиль | | #15 | Добавлено: 18.05.08 20:14 |
|
Чтобы узнать размер файла:
MsgBox FileLen("C:\Risunok.bmp"
Размер в байтах. |
||