VBNet - Форум - Загрузка картинки

Вопрос: Загрузка картинки Добавлено: 09.01.04 16:13

Автор вопроса: DaSharm | Web-сайт: dasharm.com | ICQ: 780477

нужен максимально простой пример загрузки картинки из .RES файла

Ответить

Ответы Всего ответов: 8

Номер ответа: 1
Автор ответа:

sne

Разработчик Offline Client

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | | #1

Добавлено: 09.01.04 16:20

' Это для jpg, gif, для bmp можно проще... Я думаю bmp из ресурсов загрузить под силу каждому
Private Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long 
Private Function GetJpgPic(ID As String, rType As String) As Picture
    On Error Resume Next
    
    Dim sPath As String: sPath = GetTempFile
    
    Dim sData() As Byte, nf As Integer
    sData = LoadResData(ID, rType)
    nf = FreeFile
    Open sPath For Binary Access Write As nf
    Put nf, 1, sData
    Close nf
    Set GetJpgPic = LoadPicture(sPath)
    
    Call DeleteFile(sPath)
End Function 
Private Function GetTempFile() As String
    Dim sTmpPath As String * &H100, Tmp As Long
    Call GetTempPath(&H100, sTmpPath)
    Tmp = InStr(1, sTmpPath, vbNullChar, vbTextCompare)
    GetTempFile = Left(sTmpPath, Tmp - 1): sTmpPath = Space(&H100)
    
    Call GetTempFileName(GetTempFile, "tmp", 0&, sTmpPath)
    Tmp = InStr(1, sTmpPath, vbNullChar, vbTextCompare)
    GetTempFile = Left(sTmpPath, Tmp - 1)
End Function

Ответить

Номер ответа: 2
Автор ответа:

sne

Разработчик Offline Client

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | | #2

Добавлено: 09.01.04 16:22

Для BMP: 
LoadResPicture(101, vbResBitmap)

думаю bmp из ресурсов загрузить под силу каждому
Private Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

Private Function GetJpgPic(ID As String, rType As String) As Picture
On Error Resume Next

Dim sPath As String: sPath = GetTempFile

Dim sData() As Byte, nf As Integer
sData = LoadResData(ID, rType)
nf = FreeFile
Open sPath For Binary Access Write As nf
Put nf, 1, sData
Close nf
Set GetJpgPic = LoadPicture(sPath)

Call DeleteFile(sPath)
End Function

Private Function GetTempFile() As String
Dim sTmpPath As String * &H100, Tmp As Long
Call GetTempPath(&H100, sTmpPath)
Tmp = InStr(1, sTmpPath, vbNullChar, vbTextCompare)
GetTempFile = Left(sTmpPath, Tmp - 1): sTmpPath = Space(&H100)

Call GetTempFileName(GetTempFile, "tmp", 0&, sTmpPath)
Tmp = InStr(1, sTmpPath, vbNullChar, vbTextCompare)
GetTempFile = Left(sTmpPath, Tmp - 1)
End Function

Ответить

Номер ответа: 3
Автор ответа:

DaSharm

ICQ: 780477

Вопросов: 72
Ответов: 1297

Web-сайт: dasharm.com
Профиль | | #3

Добавлено: 09.01.04 18:23

Что-то я не розобрался, мне нужно грузить картинки не из екзешки, а изотдельного RES файла. Не знаешь как?

Ответить

Номер ответа: 4
Автор ответа:

sne

Разработчик Offline Client

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | | #4

Добавлено: 09.01.04 20:52

Уууу, да, засада Неет не знаю, в свое время хотел найти формат RES файла, но это так и осталось желанием
Люди может действительно у кого есть работа с RES файлами, было бы не плохо...

Ответить

Номер ответа: 5
Автор ответа:

DaSharm

ICQ: 780477

Вопросов: 72
Ответов: 1297

Web-сайт: dasharm.com
Профиль | | #5

Добавлено: 09.01.04 22:19

У меня пример есть...почти.

Я знаю где скачать, на сайте: "Визуал Бейсик не для чайников" (поищи в яндексе), там есть пример использования скинов, где скины выполнены ввиде РЕС файлов.Сейчас поищу...

Ответить

Номер ответа: 6
Автор ответа:

DaSharm

ICQ: 780477

Вопросов: 72
Ответов: 1297

Web-сайт: dasharm.com
Профиль | | #6

Добавлено: 09.01.04 22:39

http://visualbasic.km.ru/downloads/media.html

качаешь первый пример использования скинов, там все есть.

Ответить

Номер ответа: 7
Автор ответа:

sne

Разработчик Offline Client

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | | #7

Добавлено: 09.01.04 23:28

В том-то и фишка, что валяются отдельные RES'ы, а вот дабы их юзать, их надо к проекту подключать, в режиме дизайна ((

Было бы не плохо во время выполнения, читать эти самые файлы, а ?

Вот сейчас поискал формат RES'ов - не нашел ((

Ответить

Номер ответа: 8
Автор ответа:

DaSharm

ICQ: 780477

Вопросов: 72
Ответов: 1297

Web-сайт: dasharm.com
Профиль | | #8

Добавлено: 10.01.04 00:16

Да, я только что сам увидел...

Ответить

Страница: 1 |