| История развития программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Язык в проге, Как поменять язык !? Как поменять ?, Как поменять имя производителя ? Каким образом можно отабразить Gif Анимации в VB, Может каким нибудь элементом? Работа с dll на Java Как поменять фонт конкретной вкладки SSTab, Как поменять фонт конкретной вкладки SS Как указать путь!!!, Два вопроса новичка! Слияние нескольких файлов в один, Как слить текстовые файлы в один? Как узнать конец рекордсета, как узнать конец рекордсета FireWall, Нужны исходники ListBox и FileListBox Почта, Как програмно послать письмо системные цвета, как через VB узнать цветовую схему... Вызов функции в QB Помогите с проблемой, Объект и переменная Откуда берётся объект Graphics ? Как насчет хорошей работы? :) Отслеживание и воспроизведение событий webbrowser, как отследить и воспроизвести события? Добавление картинки в ImageList Подключение таблицы в проект кодом, Подключение таблицы в проект кодом могу ли я из программы редактировать, ее код ? Хочу написать KeyGen, посоветуйте Электронная подпись ActiveX элементов, Электронная подпись ActiveX элементов Печать из приложения, Как напечатать диаграмму (MSChart) Запись и чтение личных данных MSChart - как отобразить время по оси X, и как включить горизонтальную прокрутку MYSQL и Java, NoClassDefFoundError: java/sql/Savepoint vb Excel, Передача данных Вкладки как пользователю сохранить свои настройки??? Диспетчер задач, Поставить паузу в процессе вход в сетевую папку Help VB-6 на русском, Где взять? VB: дерево Не работает ActiveX Recording, Завтра Пасха а записывать звук не могу Чтение из порта на VB, Как прочитать данные из порта на VB? Работа с файлами Что такое Обфускация? Нет коннекта к БД, Программа на VB6, использующая OLEDB и A InputBox выдает ошибку Реестр... Где взять ActiveX для работы с ZIP Данные внутри программы Как Вы относитесь к курящим девушкам? из ВБ в ВБА, какая совместимость кода ? Цветной текст Таблицы Word, в RichTextBox Загрузка изображения из середины файла, Как это сделать? Копирование класса Требуется ли Visual Basic? Количество записей в рекордсете, Проблема при создании рекордсета Как сохранить время в базе данных? Пропадает текст из второй формы Как в TextBox выровнять текст по ширине Ввод пароля закрыть звездочками Курсовик по VB Вопрос по топику Создание бд, Как вывести даные в MSFlexGrid Изменение настроек принтера, Win32API Максимальный размер используемой памяти..., -Xmx... функция FileExist, Не хочет работать Диалоговое окно выбора папки Расчет колличества дней между датами, как это сделать? использование инструкции SendKeys, не работает AppActivate для IExplorer'a Быстрый поиск в TextBox Красивый ToolTipText параметры ф-ции, передача параметров запись наоборот, запись наоборот setwindowpos, запутался с параметрами Появление и исчезание картинки Static Main, выдает ошибку |
Платные хостинги Раскрутка сайта Книги по программированию Загрузка изображения из середины файла, Как это сделать?
- У меня есть файл (типа файл ресурсов) в котором просто прикреплены друг к другу BMP'шки. Нужная мне БМП-шка Начинается с 31337 байта. Как мне загрузить её, допустим в объект Image?Можно, конечно сохранить её на диск а потои loadpicture... Но это как-то деревянно.Буду очень благодарен! - блин... - Akina, не в том суть вопроса.Anhost, можно загружать и из середины, тока не сразу в image or picture, а в память, а потом делать CreateBitmap - Black_StarНу почему... можно же хранить метафайл и грузить сразу в область памяти, занятую картинкой...Вообще-то самое не-"деревянное" - это все-таки пользоваться ресурсами, а не их подобием... - Эт точно, но когда картинок свыше 1000... - Вот здесь, если можно, чуть подробнее. - Справочника под рукой нету...Код dim fr as long,buff() as bytefr=freefileredim buff(1 to MapL)open "bigfile.doc" for binary as frget #fr,X,buffclose #fr'MapL - длина файла'X - позиция в файле, где лежит картинка'А далее createbitmap, тока я не помню как его юзать...highlightSyntax('vbYzM3Mj','vb'); - Это всё я знаю, а вот как юзать createBitmap я не знаю!!! В том и проблема!!! - Хорошо, поставлю вопрос по-другому.Я загрузил картинку из файла в переменную X (as String).Что мне надо сделать, чтобы отобразить эту картинку в Image? - Создай временный файл, в который и пихаешь картинку. А потомКод Picture1.Picture = LoadPicture("E:\Pic.tmp")highlightSyntax('vbNWYxYW','vb'); - на компе нашёл в тхт файле вот это.. может поможет...Скопировать рисунок из PictureBox в буфер обменаКод Private Type RECTLeft As LongTop As LongRight As LongBottom As LongEnd TypePrivate 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 LongPrivate Const SRCCOPY = &HCC0020 ' (DWORD) dest = sourcePrivate Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As Long) As LongPrivate Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As LongPrivate Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, ByVal hObject As Long) As LongPrivate Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As LongPrivate Declare Function OpenClipboard Lib "USER32" (ByVal hWnd As Long) As LongPrivate Declare Function CloseClipboard Lib "USER32" () As LongPrivate Declare Function SetClipboardData Lib "USER32" (ByVal wFormat As Long, ByVal hMem As Long) As LongPrivate Declare Function EmptyClipboard Lib "USER32" () As LongPrivate Const CF_BITMAP = 2Public Function CopyEntirePicture(ByRef objFrom As Object) As BooleanDim lhDC As LongDim lhBMP As LongDim lhBMPOld As LongDim lWidthPixels As LongDim lHeightPixels As Long' Create a DC compatible with the object we're copying from:lhDC = CreateCompatibleDC(objFrom.hDC)If (lhDC <> 0) Then' Create a bitmap compatible with the object we're copying from:lWidthPixels = objFrom.ScaleX(objFrom.ScaleWidth, objFrom.ScaleMode, vbPixels)lHeightPixels = objFrom.ScaleY(objFrom.ScaleHeight, objFrom.ScaleMode, vbPixels)lhBMP = CreateCompatibleBitmap(objFrom.hDC, lWidthPixels, lHeightPixels)If (lhBMP <> 0) Then' Select the bitmap into the DC we have created, and store the old bitmap that was there:lhBMPOld = SelectObject(lhDC, lhBMP)' Copy the contents of objFrom to the bitmap:BitBlt lhDC, 0, 0, lWidthPixels, lHeightPixels, objFrom.hDC, 0, 0, SRCCOPY' Remove the bitmap from the DC:SelectObject lhDC, lhBMPOld' Now set the clipboard to the bitmap:OpenClipboard 0EmptyClipboardSetClipboardData CF_BITMAP, lhBMPCloseClipboard' We don't delete the Bitmap here - it is now owned' by the clipboard and Windows will delete it for us' when the clipboard changes or the program exits.End If' Clear up the device context we created:DeleteObject lhDCEnd IfEnd FunctionPrivate Sub Command1_Click()CopyEntirePicture Picture1End SubPrivate Sub Form_Load()Dim i As Long' Draw something in the Picture box:With Picture1.Font.Name = "Arial".Bold = True.Size = 24End WithFor i = 1 To 20Picture1.ForeColor = QBColor(i Mod 15)Picture1.Print "vbAccelerator"Next iEnd Sub highlightSyntax('vbVkYjBh','vb'); - M.E.G.U.S имелось в виду другое.То есть ты в переменную стринг загрузил битмап, и надо прям из памяти его читать - http://www.vbaccelerator.com/tips/vba0025.htmилиhttp://www.activevb.de/tipps/vb6tipps/tipp0654.html(на немецком)Возможно поможет... - Первая ссылка. на что-то вообще отдалённое...А вторая (кстати, весьма полезная) про структуру BMP-файла.Но для моеё ситуации ничего нет...  |