Español
Foro

Menuetext ändern

 

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  [...]  ?
 
14.01.2011  
 




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.
 
14.01.2011  
 




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.
 
14.01.2011  
 




Rolf
Koch
ach vergessen, así lo auch direkt aktualisiert danach todavía una:
 
14.01.2011  
 




Detlef
Jagolski
Besser es
 
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  
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

19.504 Views

Untitledvor 0 min.
RudiB.01.02.2022
Georg Teles10.03.2018
Ernst12.05.2016
Michael W.22.08.2015
Más...

Themeninformationen



Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie