Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница:

 

  Вопрос: Ресурсы и байты Добавлено: 09.02.03 08:30  

Автор вопроса:  Диман | Web-сайт: www.dimon1int.narod.ru | ICQ: 224590251 

Люди, короче вот такая проблема. ВБ Ресурс Эдитор может пихать в файл ресурса костюмные ресурсы, и, насколько я вижу, пихает он их быстро. Чтобы достать их оттуда, как уже все знают (это сделать очень просто) присвоить динамическому массиву типа Byte LoadResData (id,type). А я хочу запихать файл в массив без Ресурс Эдитора. Пошевелил чуть-чуть мозгами, написал такую кодяру:

Private Sub Command2_Click()
Dim NewFile
NewFile = FreeFile
Open "C:\WINDOWS\Profiles\Диман\Мои документы\Screenshot.bmp" For Binary Access Read As NewFile
ReDim arrData(LOF(NewFile))
Do Until EOF(NewFile)
DoEvents
Get NewFile, , arrData(Loc(NewFile))
Loop
Close NewFile
Form1.Caption = "Ready" 'для того чтобы узнать когда он запихает
End Sub

А потом вот так:

Private Sub Command3_Click()
Open "c:\y.bmp" For Binary Access Write As #2
Put #2, , arrData()
Close #2
End Sub

Но делает он это ужасно долго, в отличие от Ресурс Эдитора. Как же мне сделать, чтоб пихалось быстро? Помогите плз!!!!!!!!

Ответить

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

Нет ответов

Страница:

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам