Конференция VBStreets

**Kovu** » 30.12.2005 (Пт) 19:03

Каким ещё образом можно передать картинку в hBitmapUnchecked и hBitmapChecked , кроме как Picturebox.picture или CreateCompatiableBitmap , ибо Loadpicture u loadresPicture не работают ?

**Kovu** » 04.01.2006 (Ср) 13:20

Похоже я в игноре... :roll:

**GSerg** » 04.01.2006 (Ср) 13:58

loadpicture возвращает то же самое, что и picturebox.picture.

Просто надо дать переменной жить не меньше, чем менюшке.

**Kovu** » 04.01.2006 (Ср) 14:48

Код: Выделить всё: Public Sub CreatePop() hMenu = CreatePopupMenu() AppendMenu hMenu, MF_STRING, 101, "str2" SetMenuDefaultItem hMenu, 101, False AppendMenu hMenu, MF_SEPARATOR, 0, ByVal 0& AppendMenu hMenu, MF_STRING, 1, "str1" SetMenuItemBitmaps hMenu&, 1, MF_BITMAP, frm1.Picture1.Picture, frm1.Picture1.Picture 'вот так работает прекрасно 'SetMenuItemBitmaps hMenu&, 1, MF_BITMAP, loadpicture("C:\test.bmp"), ("C:\test.bmp"), 'а вот так не пашет AppendMenu hMenu, MF_STRING, 2, "str3" AppendMenu hMenu, MF_STRING, 3, "Str4" AppendMenu hMenu, MF_STRING Or MF_GRAYED, 4, "str5" AppendMenu hMenu, MF_STRING Or MF_GRAYED, 5, "str6" AppendMenu hMenu, MF_SEPARATOR, 0, ByVal 0& AppendMenu hMenu, MF_STRING, 6, "End" Grad1 MemDc(1) ChangeFon hMenu, bitmap(1) End Sub

**GSerg** » 04.01.2006 (Ср) 15:22

GSerg писал(а):Просто надо дать переменной жить не меньше, чем менюшке.

**Kovu** » 04.01.2006 (Ср) 19:55

Ммм..а можно поподробней, ведь простое присваивание

Код: Выделить всё: pic=LoadPicture("C:\1.bmp")

не будет работать :roll:

**GSerg** » 05.01.2006 (Чт) 5:32

dim pic as stdpicture 'as ipicturedisp
set pic=loadpicture("C:\1.bmp")

Конференция VBStreets

SetMenuItemBitmaps

SetMenuItemBitmaps

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