Жрем память!

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
PatriotIK
Обычный пользователь
Обычный пользователь
 
Сообщения: 65
Зарегистрирован: 09.08.2004 (Пн) 12:00
Откуда: Город герой Москва

Жрем память!

Сообщение PatriotIK » 07.11.2004 (Вс) 23:32

Вот такая фигня...
Работаю с DirectDraw.
Туда значит картинки (большие картинки) гружу, все работает (красиво даже), а когда выхожу - эти картинки, как мне кажется остаются в памяти.
И когда в сотый раз запускаю прогу, пишет что недостаточно памяти.
Такая вот загогулина :(
Мне надо чтоб при выходе из проги, все загруженные картинки стерались.(нужна командочка)
Где-то я подобное видел(всмысле удаление картинок при выходе), но где, точно не помню, мож кто поможет?
Зарание благодарен!
Visual Basic остольное не важно!

xolod
Гуру
Гуру
 
Сообщения: 1162
Зарегистрирован: 15.01.2004 (Чт) 0:42
Откуда: Moscow

Сообщение xolod » 08.11.2004 (Пн) 2:37

Может дашь более подробное описание :wink:?
Как картинки грузишь? Через CreateSurfaceFromFile?

Constant ERROR_SUCCESS deprecated. I'm so happy.
Программирование и дизайн – http://www.macrointellect.ru

GM
programador
programador
 
Сообщения: 1427
Зарегистрирован: 24.06.2003 (Вт) 15:56
Откуда: 194.67.52.100

Сообщение GM » 08.11.2004 (Пн) 8:15

Пример(из игры):
Код: Выделить всё
Public Sub dxDestroyDD()
  Call dd.RestoreDisplayMode
  Call dd.SetCooperativeLevel(0, DDSCL_NORMAL)
  Set ddsGrass = Nothing
  Set ddsBack = Nothing
  Set ddsPrimary = Nothing
  Set dd = Nothing
End Sub
الفيجوال بيسك الرابح

PatriotIK
Обычный пользователь
Обычный пользователь
 
Сообщения: 65
Зарегистрирован: 09.08.2004 (Пн) 12:00
Откуда: Город герой Москва

Сообщение PatriotIK » 08.11.2004 (Пн) 11:20

Спасибочки, а то ведь ребутеть уже надоело.
Гружу картинки вот так. :arrow:

For G = 1 To 6
Set Pictur(G) = LoadBitmapIntoDXS(dd, App.Path + "\data\tiles" & G & ".bmp", 1, 1, 1)
Next G
Visual Basic остольное не важно!


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 1

    TopList  
cron