| Вопрос: Меню не слушается... | Добавлено: 29.05.07 11:08 |
Автор вопроса:  fuzytsfcrew | Web-сайт: video-edit.com.ua | ICQ: 314339 |
|
Люди добрые! Скажите, как при создании меню разнести два пункта по разным сторонам формы? Ставлю для первого - Left, для второго - Right. НЕ ПОЛУЧАЕТСЯ!
[URL] http://visual-basic.by.ru/pictures/menu.jpg [/URL] |
| Ответы | Всего ответов: 13 |
|
Номер ответа: 1 Автор ответа:  Visual Basic .NET 2005 Пиратская версия Вопросов: 38 Ответов: 190 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 29.05.07 11:48 |
|
Это на ВБ не похоже.
Ты скажи ИДЕ в которой делаеш? |
||
|
Номер ответа: 2 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | Цитата | #2 | Добавлено: 29.05.07 11:53 |
|
Ты скажи ИДЕ в которой делаеш?
VB 5,6 |
||
|
Номер ответа: 3 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | Цитата | #3 | Добавлено: 29.05.07 11:57 |
|
Это на ВБ не похоже. O.o А на что же это похоже?
P.S. смотрю на ник "Visual Basic .NET 2005" и понимаю что обосрали умышленно 
fuzytsfcrew, такая фишка неполучится стандартными средствами. Тебе придётся создавать меню самому (API ф-цями), при этому потом его сабклассировать, чтобы прилепить туда куда нужно. Вообщем имхо оно того не стоит. |
||
|
Номер ответа: 4 Автор ответа: fuzytsfcrewICQ: 314339 Вопросов: 30 Ответов: 102 |
Web-сайт: Профиль | Цитата | #4 | Добавлено: 29.05.07 11:58 |
| MS Visual Basic 6.0 SP6 Enterprise edition! | ||
|
Номер ответа: 5 Автор ответа: fuzytsfcrewICQ: 314339 Вопросов: 30 Ответов: 102 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 29.05.07 11:59 |
| неужели нельзя чего-то попроще, или Вы считаете, что - "ну его на х***" ? | ||
|
Номер ответа: 6 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | Цитата | #6 | Добавлено: 29.05.07 13:34 |
| Кончно, на х**, зачем геморроиццо? лучше прикиньса домеллером в максе и скажи мне как текстуру (не процедурную карту) не юзая Flatten Mapping натянуть на пешку без глюкофф? пешка - Editable Mesh. | ||
|
Номер ответа: 7 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | Цитата | #7 | Добавлено: 29.05.07 13:40 |
|
Я ведь совсем недавно писал, как это делается.
Создавать свое меню не обязательно. Private Sub Command1_Click()
Dim MnuInfo As MENUITEMINFO Dim hMenu As Long hMenu = GetMenu(Me.hwnd) MnuInfo.cbSize = Len(MnuInfo) MnuInfo.fMask = MIIM_TYPE GetMenuItemInfo hMenu, 0, True, MnuInfo MnuInfo.fType = MFT_RIGHTJUSTIFY Or MFT_STRING MnuInfo.cch = Len("Справка" 
MnuInfo.dwTypeData = "Справка" MnuInfo.cbSize = Len(MnuInfo) SetMenuItemInfo hMenu, 2, True, MnuInfo  rawMenuBar Me.hwnd
End Sub |
||
|
Номер ответа: 8 Автор ответа: fuzytsfcrewICQ: 314339 Вопросов: 30 Ответов: 102 |
Web-сайт: Профиль | Цитата | #8 | Добавлено: 29.05.07 13:52 |
|
не получается - http://visual-basic.by.ru/pictures/error.jpg
не понимает бейсик, что такое MENUITEMINFO |
||
|
Номер ответа: 9 Автор ответа:  ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | Цитата | #9 | Добавлено: 29.05.07 14:40 |
|
Private Type MENUITEMINFO
cbSize As Long fMask As Long fType As Long fState As Long wID As Long hSubMenu As Long hbmpChecked As Long hbmpUnchecked As Long dwItemData As Long dwTypeData As String cch As Long End Type А ты понимаешь что такое Api Viewer? Очень полезная штука. |
||
|
Номер ответа: 10 Автор ответа: fuzytsfcrewICQ: 314339 Вопросов: 30 Ответов: 102 |
Web-сайт: Профиль | Цитата | #10 | Добавлено: 29.05.07 14:49 |
|
Api Viewer - ???
Очень полезная штука - ВЕРЮ! скиньте проект на мыло, так будет проще... а то я из Вас по кусочку тяну, а оно все равно не пашет! 
|
||
|
Номер ответа: 11 Автор ответа: fuzytsfcrewICQ: 314339 Вопросов: 30 Ответов: 102 |
Web-сайт: Профиль | Цитата | #11 | Добавлено: 29.05.07 14:55 |
| или по аське киданите... | ||
|
Номер ответа: 12 Автор ответа: Silver FerrumICQ: 422640045 Вопросов: 12 Ответов: 144 |
Профиль | Цитата | #12 | Добавлено: 29.05.07 21:11 |
|
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" _ (ByVal hMenu As Long, ByVal un As Long, ByVal b As Boolean, lpMenuItemInfo _ As MENUITEMINFO) As Long Private Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" _ (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Boolean, _ lpcMenuItemInfo As MENUITEMINFO) As Long 'Константы Const MIIM_TYPE = &H10 Const MFT_RIGHTJUSTIFY = &H4000 Const MFT_STRING = &H0& 'Тип MENUITEMINFO Private Type MENUITEMINFO cbSize As Long fMask As Long fType As Long fState As Long wID As Long hSubMenu As Long hbmpChecked As Long hbmpUnchecked As Long dwItemData As Long dwTypeData As String cch As Long End Type Private Sub Command1_Click() Dim MnuInfo As MENUITEMINFO Dim mnuH As Long, MyTemp As Long mnuH = GetMenu(Me.hwnd) MnuInfo.cbSize = Len(MnuInfo) MnuInfo.fMask = MIIM_TYPE MyTemp = GetMenuItemInfo(mnuH, 0, True, MnuInfo) MnuInfo.fType = MFT_RIGHTJUSTIFY Or MFT_STRING MnuInfo.cch = Len("MenuCaption"
MnuInfo.dwTypeData = "MenuCaption" MnuInfo.cbSize = Len(MnuInfo) MyTemp = SetMenuItemInfo(mnuH, 0, True, MnuInfo) MyTemp = DrawMenuBar(Me.hwnd) End Sub |
||
|
Номер ответа: 13 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | Цитата | #13 | Добавлено: 30.05.07 01:43 |
| Это не бейсик не понимает, что такое MENUITEMINFO, а ты. | ||
Страница: 1 |