| Вопрос: Срочно. Не грузится изображение на форму. | Добавлено: 21.05.05 09:46 |
Автор вопроса:  Александр | ICQ: 204034 |
|
Я создаю проект со сплеш-скрином. Создан сам скрин, но он не хочет
упорно подгружаться как рисунок формы. Грит, что Invalid picture. Я создавал его в Adobe Photoshop CS и, наверное, указал большое насыщение цветом. Как бы мне без вреда для логотипа загрузить его на форму как background? Какие api юзать? Слухал что-то по gdi+... Как там рисовать? |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #1 | Добавлено: 21.05.05 11:15 |
| Photozhопом ты его в какой формат созралял? Самый желательный — BMP и без наворотов | ||
|
Номер ответа: 2 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 21.05.05 18:00 |
| Глубина цыета не причём. Или кривая картинка, или не так бекграунд ставиш. | ||
|
Номер ответа: 3 Автор ответа: ANDREY Z5Z Вопросов: 38 Ответов: 125 |
Web-сайт: Профиль | | #3 | Добавлено: 22.05.05 20:10 |
|
Загрузить рисунок на форму можно и так:
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Const LR_LOADFROMFILE = &H10 Private Declare Function LoadImage Lib "user32" _ Alias "LoadImageA" ( _ ByVal hInst As Long, _ ByVal Filename As String, _ ByVal un1 As Long, _ ByVal Width As Long, _ ByVal Height As Long, _ ByVal opmode As Long) As Long Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Sub Form_Load() Dim hBitmap As Long Dim hdcBitmap As Long hBitmap = LoadImage(ByVal 0&, "C:\Ðèñóíîê.bmp", 0, 640, 480, LR_LOADFROMFILE) hdcBitmap = CreateCompatibleDC(0) rrr = SelectObject(hdcBitmap, hBitmap) BitBlt Form1.hdc, 0, 0, 1024, 768, hdcBitmap, 0, 0, vbSrcCopy DeleteDC hdcBitmap DeleteObject hBitmap End Sub |
||
|
Номер ответа: 4 Автор ответа: Страшный СонВопросов: 46 Ответов: 848 |
Профиль | | #4 | Добавлено: 22.05.05 23:35 |
| Вот только зачем так все усложнять? | ||
|
Номер ответа: 5 Автор ответа: АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #5 | Добавлено: 23.05.05 08:57 |
Наверное, третий ответ мне подойдет  Пасиба 
|
||
|
Номер ответа: 6 Автор ответа: Black DragonICQ: 321186096 Вопросов: 30 Ответов: 347 |
Web-сайт: Профиль | | #6 | Добавлено: 24.05.05 21:35 |
|
Наверное, третий ответ мне подойдет
Этот что ли, API??? А нафига? Формат желательно - BMP, GIF, JPEG. |
||
|
Номер ответа: 7 Автор ответа: АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #7 | Добавлено: 26.05.05 15:27 |
|
А я JPEG и запихиваю как картинку, только эту разрядность VB не
поддерживает - приходится рисовать этот файл.
|
||
Страница: 1 |