Foro | | | | Manfred Barei | ¡Hola,
hay para el Ventana Menu algo como como Settext en el Menuetext a ändern
Saludo |
| | | Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 13.01.2011 ▲ |
| |
| | | Hilft Usted SetMenuItemInfo [...] ? |
| | | | |
| | Rolf Koch | oder a Not una Proc escribir. Kompl. Menü löschen y neuen Werten (z.B. Parameterübergabe en Proc) neu redactar. So sería Yo hacer. |
| | | | |
| | Detlef Jagolski | Oder así?
Declarar appexit%
Declarar Button1&
Declarar Menu#, hSubMenu&
$H WINDOWS.PH
$H MESSAGES.PH
Proc CreateMainMenu
Popup "Beispiel"
AppendMenu 1,"Text1"
ENDPROC
Conjunto("TrueColor", 1)
Ventana de Estilo $003F
Título de la ventana "DesignForm"
Ventana %maxX + 5,114 - 498,415
Cls ~GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
CreateMainMenu
Button1&=Crear("Button",%hwnd,"Menü ändern",93,65,75,25)
SetWindowPos %hwnd = 207,114 - 498,415;0
Sinestar encargado appexit%
WaitInput
If %key = 2
appexit% = 1
ElseIf MenuItem(1)
'Menü Texto1
ElseIf Clicked(Button1&)
Dim Menu#,255
hSubMenu& = ~GetSubMenu(&hMenu,0)
String Menu#,0="Ich bin el neue Text"
~ModifyMenu(hSubMenu&,0,~MF_BYPOSITION | ~MF_STRING,1,Menu#)
Disponer Menu#
ElseIf %key = 4
' Fenstergröße
ElseIf %key = 5
' Ayuda
EndIf
Wend
|
| | | XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 14.01.2011 ▲ |
| |
| | Manfred Barei | ¡Hola Detlef,
así Yo el ya hinbekommen, sin embargo möchte Yo, el Hauptmenueintrag (Oberste Ebene) auch ändern (el es dass Yo todavía no hinbekomme), para weitere Vorshläge bin Yo offen.
Posesiones lo así gemacht, como Rolf lo vorgeschlagen ha, sin embargo debería lo doch auch una otro Möglichkeit geben, otro Programas bekommen el doch auch hin.
Es vieleicht una vorschlag para XProfan13 (SetText auch para el Menu), Roland es dies eventuel umsetzbar?
Saludo |
| | | Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 14.01.2011 ▲ |
| |
| | Rolf Koch | Dürfte doch kein Problema ser:
Also sólo &hmenu angeben. |
| | | | |
| | Rolf Koch | ach vergessen, así lo auch direkt aktualisiert danach todavía una:
|
| | | | |
| | Detlef Jagolski | | | | XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 14.01.2011 ▲ |
| |
| | Manfred Barei | ¡Hola Detlef,
kannst du todavía una vez helfen, bekomme lo simplemente no hin. Den hMenu Eintrag kann Yo nun ändern, sin embargo bekomme Yo el con el hSubMenu Eintrag simplemente no hin, siehe Code.
Declarar appexit%
Declarar Button1&,Button2&
Declarar Menu#,hMenu&,hSubMenu&
Dim Menu#,255
$H WINDOWS.PH
$H MESSAGES.PH
Proc CreateMainMenu
Popup "Hauptmenü1"
AppendMenu 1,"Text1"
Popup "Hauptmenü2"
AppendMenu 2,"Text2"
ENDPROC
Proc ChangeMenu
Parámetros m%,nr%,Texto$
' m%, en 0 es el hMenu gemeint, en 1 el hSubMenu
' nr%, el Position des hMenu o. d MenuItem
' Texto$ enthält el neuen Texto
hMenu& = ~GetMenu(&hMenu,0)
hSubMenu& = ~GetSubMenu(&hMenu,0)
String Menu#,0=Texto$
Case m%=0 : ~ModifyMenu(&hMenu,nr%,~MF_BYPOSITION | ~MF_STRING,1,Menu#)
Case m%=1 : ~ModifyMenu(hSubMenu&,nr%,~MF_BYPOSITION | ~MF_STRING,1,Menu#)
~DrawMenuBar(%hwnd)
ENDPROC
Conjunto("TrueColor", 1)
Ventana de Estilo $003F
Título de la ventana "DesignForm"
Ventana %maxX + 5,114 - 498,415
Cls ~GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
CreateMainMenu
Button1&=Crear("Button",%hwnd,"hMenü ändern",93,65,100,25)
Button2&=Crear("Button",%hwnd,"subMenü ändern",93,100,100,25)
SetWindowPos %hwnd = 207,114 - 498,415;0
Sinestar encargado appexit%
Waitinput
If %key = 2
appexit% = 1
Disponer Menu#
ElseIf MenuItem(1)
'Menü Texto1
ElseIf Clicked(Button1&)
ChangeMenu 0,0,"Hauptmenü OK"
ElseIf Clicked(Button2&)
ChangeMenu 1,1,"Test2 OK"
ElseIf %key = 4
' Fenstergröße
ElseIf %key = 5
' Ayuda
EndIf
Wend
Saludo |
| | | Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 21.01.2011 ▲ |
| |
| | Detlef Jagolski | ¡Hola Manfred,
así debería lo ir.
GetMenu ha sólo una Parámetro y muss %hwnd ser en unserem Fall, &hMenu es el Handle vom Menü des Hauptfensters.deshalb brauchen wir hMenu& = ~GetMenu(%hwnd) no, hatte con usted auch no Función.
Declarar appexit%
Declarar Button1&,Button2&
Declarar Menu#,hMenu&,hSubMenu&
Dim Menu#,255
$H WINDOWS.PH
$H MESSAGES.PH
Proc CreateMainMenu
Popup "Hauptmenü1"
AppendMenu 1,"Text1"
Popup "Hauptmenü2"
AppendMenu 2,"Text2"
ENDPROC
Proc ChangeMenu
Parámetros m%,nr%,Pos%,Texto$
' m%, en 0 es el hMenu gemeint, en 1 el hSubMenu
' nr%, el Position des hMenu o. d MenuItem
' Pos% son el Position a para el hSubMenu a
' Texto$ enthält el neuen Texto
hSubMenu& = ~GetSubMenu(&hMenu,Pos%)
String Menu#,0=Texto$
Case m%=0 : ~ModifyMenu(&hMenu,nr%,~MF_BYPOSITION | ~MF_STRING,1,Menu#)
Case m%=1 : ~ModifyMenu(hSubMenu&,nr%,~MF_BYPOSITION | ~MF_STRING,1,Menu#)
~DrawMenuBar(%hwnd)
ENDPROC
Conjunto("TrueColor", 1)
Ventana de Estilo $003F
Título de la ventana "DesignForm"
Ventana %maxX + 5,114 - 498,415
Cls ~GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
CreateMainMenu
Button1&=Crear("Button",%hwnd,"hMenü ändern",93,65,100,25)
Button2&=Crear("Button",%hwnd,"subMenü ändern",93,100,100,25)
SetWindowPos %hwnd = 207,114 - 498,415;0
Sinestar encargado appexit%
Waitinput
If %key = 2
appexit% = 1
Disponer Menu#
ElseIf MenuItem(1)
'Menü Texto1
ElseIf Clicked(Button1&)
ChangeMenu 0,0,-1,"Hauptmenü OK"
ElseIf Clicked(Button2&)
ChangeMenu 1,0,0,"Test2 OK"
ElseIf %key = 4
' Fenstergröße
ElseIf %key = 5
' Ayuda
EndIf
Wend
|
| | | XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 22.01.2011 ▲ |
| |
| | Manfred Barei | ¡Hola Detlef,
DAAAAAAAANNNNNKKKEE, ahora funtz lo Yo lo brauche. Relacionado con la zweiten Parámetro en ~GetSubMenu verdadero dass Yo siempre falso gemacht habe, ha el kanze Lesen en el Netz nichts genützt.
Nochmals Gracias para el Ayuda auch a todos otro.
Saludo de el Heide |
| | | Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 22.01.2011 ▲ |
| |
| | Detlef Jagolski | Detlef Jagolski (22.01.11)
¡Hola Manfred, así debería lo ir. GetMenu ha sólo una Parámetro y muss %hwnd ser en unserem Fall, &hMenu es el Handle vom Menü des Hauptfensters.deshalb brauchen wir hMenu& = ~GetMenu(%hwnd) no, hatte con usted auch no Función. Declarar appexit%
Declarar Button1&,Button2&
Declarar Menu#,hMenu&,hSubMenu&
Dim Menu#,255
$H WINDOWS.PH
$H MESSAGES.PH
Proc CreateMainMenu
Popup "Hauptmenü1"
AppendMenu 1,"Text1"
Popup "Hauptmenü2"
AppendMenu 2,"Text2"
ENDPROC
Proc ChangeMenu
Parámetros m%,nr%,Pos%,Texto$
' m%, en 0 es el hMenu gemeint, en 1 el hSubMenu
' nr%, el Position des hMenu o. d MenuItem
' Pos% son el Position a para el hSubMenu
' Texto$ enthält el neuen Texto
hSubMenu& = ~GetSubMenu(&hMenu,Pos%)
String Menu#,0=Texto$
Case m%=0 : ~ModifyMenu(&hMenu,nr%,~MF_BYPOSITION | ~MF_STRING,1,Menu#)
Case m%=1 : ~ModifyMenu(hSubMenu&,nr%,~MF_BYPOSITION | ~MF_STRING,1,Menu#)
~DrawMenuBar(%hwnd)
ENDPROC
Conjunto("TrueColor", 1)
Ventana de Estilo $003F
Título de la ventana "DesignForm"
Ventana %maxX + 5,114 - 498,415
Cls ~GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
CreateMainMenu
Button1&=Crear("Button",%hwnd,"hMenü ändern",93,65,100,25)
Button2&=Crear("Button",%hwnd,"subMenü ändern",93,100,100,25)
SetWindowPos %hwnd = 207,114 - 498,415;0
Sinestar encargado appexit%
Waitinput
If %key = 2
appexit% = 1
Disponer Menu#
ElseIf MenuItem(1)
'Menü Texto1
ElseIf Clicked(Button1&)
ChangeMenu 0,0,-1,"Hauptmenü OK"
ElseIf Clicked(Button2&)
ChangeMenu 1,0,0,"Test2 OK"
ElseIf %key = 4
' Fenstergröße
ElseIf %key = 5
' Ayuda
EndIf
Wend
|
| | | XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 22.01.2011 ▲ |
| |
|
RespuestaTema opciones | 19.504 Views |
ThemeninformationenDieses Thema ha 4 subscriber: |