ico and res file
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 2
• Страница 1 из 1
- Yuri_S
- Обычный пользователь
- Сообщения: 97
- Зарегистрирован: 17.07.2003 (Чт) 20:12
- Откуда: Kiev,Ukraine
ico and res file
Yuri_S » 17.08.2003 (Вс) 20:11
как я могу *.ico файл, добавленый в ресурс(а точнее именно в CUSTOM), загрузить в Picture или Image box?
- Aleksej
- Продвинутый пользователь
-
- Сообщения: 191
- Зарегистрирован: 03.06.2003 (Вт) 9:58
Aleksej » 18.08.2003 (Пн) 12:57
Попробуй так:
- Код: Выделить всё
Dim bArray() As Byte
Dim iFileNum As Integer
bArray = LoadResData(101, "Custom")
iFileNum = FreeFile
Open App.Path & "\temp.ico" For Binary As #iFileNum
Put #iFileNum, 1, bArray()
Close #iFileNum
Erase bArray
Picture1.Picture = LoadPicture(App.Path & "\temp.ico")
Сообщений: 2
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4