Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Menü zur Laufzeit
Autor: Martin01
Datum: 05.05.03 23:45
VERSION 1.0 CLASS BEGIN MultiUse = -1 'True Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNone MTSTransactionMode = 0 'NotAnMTSObject END Attribute VB_Name = "MenuBarC" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = True Option Explicit 'Name MenuBarC 'Datei MenuBarC.cls 'in MenuP.vbp = ActiveX-Dll Private MenuInfo() As MenuC ' clsMenu Private MenuPropID As Long Public Event Clicked(ByVal MenuId As Long, ByVal Caption As String) Private Sub Class_Initialize() Set MenuEvent = Me End Sub Private Sub Hook(ByVal FormHwnd As Long) gOldProc& = GetWindowLong(FormHwnd, GWL_WNDPROC) Call SetWindowLong(FormHwnd, GWL_WNDPROC, AddressOf MenuProc) End Sub Public Sub Create(ByVal hWnd As Long) Dim MenuHwnd As Long, SubMenuHwnd As Long FormHwnd = hWnd DestroyMenu GetMenu(FormHwnd) MenuHwnd = CreateMenu SetMenu FormHwnd, MenuHwnd DrawMenuBar FormHwnd ReDim Preserve MenuInfo(0) ReDim Preserve MenuId(69) Hook FormHwnd End Sub Public Sub AddMenu(ByVal Caption As String) Dim MenuHwnd As Long, NewMenuId As Long MenuHwnd = GetMenu(FormHwnd) NewMenuId = UBound(MenuId) + 1 ReDim Preserve MenuId(NewMenuId) MenuId(NewMenuId) = Caption AppendMenu MenuHwnd, MF_POPUP Or MF_STRING Or MF_OWNERDRAW, NewMenuId, Caption SetMenu FormHwnd, MenuHwnd DrawMenuBar FormHwnd ReDim Preserve MenuInfo(MenuPropID) Set MenuInfo(MenuPropID) = New MenuC With MenuInfo(MenuPropID) .Caption = Caption .Id = NewMenuId .Pos = MenuPropID .hWnd = MenuHwnd End With MenuPropID = UBound(MenuInfo) + 1 End Sub Public Property Get SubMenu(ByVal Index As Long) As MenuC Set SubMenu = MenuInfo(Index) End Property Public Sub ClickMenu(ByVal ClickedMenuId As Long) RaiseEvent Clicked(ClickedMenuId, MenuId(ClickedMenuId)) End Sub

Menü zur Laufzeit	89	Bob Rooney	05.05.03 16:42
Re: Menü zur Laufzeit	482	Backslash	05.05.03 18:18
Re: Menü zur Laufzeit	50	Martin01	05.05.03 23:42
Re: Menü zur Laufzeit	46	Martin01	05.05.03 23:44
Re: Menü zur Laufzeit	42	Martin01	05.05.03 23:45
Re: Menü zur Laufzeit	33	Martin01	05.05.03 23:45
Re: Menü zur Laufzeit	32	Martin01	05.05.03 23:46
Re: Menü zur Laufzeit	42	Martin01	05.05.03 23:47
Re: Menü zur Laufzeit	479	Backslash	06.05.03 00:07
Re: Menü zur Laufzeit	35	Martin01	06.05.03 01:54

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen