XProfan

Français

E.T.

je such pour qui Message pour une editierbare ChoiceBox )3) , um dans cette seulement Numerische Eingaben zuzulassen. Hab maintenant déjà alles sur den tête gestellt, kanns mais pas plus trouver. Mir ist mais so, comme hätte je qui déjà la fois irgendwo gehabt...

si quelqu'un cet Message im Schubkasten hat, ensuite s'il te plaît je entier lieb um Preisgabe.

[offtopic]cela wäre aussi la fois ne concept: une Messages-recueil, car irgendwie steht überall seulement qui Moitié, mais nie cela, quoi on cherchez... [/offtopic]

Éditer: Solution:
Michael Dell

un kleines Beispiel:

Kompilieren Marque Séparation

Def sEditNum(1) Externe("User32","SetWindowLongA",&(1),-16,(Externe("User32","GetWindowLongA",&(1),-16) | $2000))
Def gWindow(1)  Externe("User32.DLL","GetWindow",&(1),5)   &GW_CHILD = 5
Déclarer GL_ChB01&,GL_ChBoxChild01&
Cls
GL_ChB01&        = Contrôle("ComboBox",»,$5401024E,20,20,360,240,%HWnd,$9100,%HInstance)  Editierbare ChoiceBox
GL_ChBoxChild01& = gWindow(GL_ChB01&)           Child-Éditer-Handle qui ChoiceBox holen!
sEditNum(GL_ChBoxChild01&)   Child-Éditer sur seulement-payons-Eingabe mettons.

Tandis que 1

    WaitInput

Endwhile

Fin

ES_NUMBER

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

08.12.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Message ou bien Style?

Mir hilft meist Konstantinopel [...]

08.12.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Detlef
Jagolski

de Thomas Bois et Andreas Miethe.

Kompilieren Marque Séparation

 $H C:WINDOWS.PH
 $H C:MESSAGES.PH
 $P+
Set("ErrorLevel",0)
Def SetEditNumeric(1) ~SetWindowLong(&(1),~GWL_STYLE, ~GetWindowLong(&(1),~GWL_STYLE) | $2002)
Struct ComboBoxInfo = cbSize&,rcItem#(16),rcButton#(16),stateButton&,hwndCombo&,hwndItem&,hwndList&
Déclarer appexit%
Déclarer ChoiceBox1&
Déclarer ComboBoxInfo#
Déclarer Edithandle&

Proc EditComboBox

    Paramètres Handle&
    Faible ComboBoxInfo#,ComboBoxInfo
    ComboBoxInfo#.cbSize& = SizeOf(ComboBoxInfo#)
    ~GetComboBoxInfo(Handle&,ComboBoxInfo#)
    var ComboBoxEdit& = ComboBoxInfo#.hwndItem&
    Dispose ComboBoxInfo#
    Retour ComboBoxEdit&

ENDPROC

Set("TrueColor",1)
Fenêtre Style $003F
Titre de la fenêtre "Test"
Fenêtre %maxx + 5,114 - 498,415
Cls ~GetSysColor(15)
ChoiceBox1&=Créer("ChoiceBox",%hwnd,3,64,46,145,120)
Edithandle& = EditComboBox(ChoiceBox1&)
SetEditNumeric(Edithandle&)
SetWindowPos %hwnd = 207,114 - 498,415;0

WhileNot appexit%

    WaitInput

    Si %clé = 2

        Laisser appexit%=1

    ElseIf GetFocus(ChoiceBox1&)

    ElseIf %clé = 4

        Fenstergröße

    ElseIf %clé = 5

        Aider

    EndIf

Endwhile

Salut
Detlef

XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11

08.12.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
Dell

un kleines Beispiel:

Kompilieren Marque Séparation

Def sEditNum(1) Externe("User32","SetWindowLongA",&(1),-16,(Externe("User32","GetWindowLongA",&(1),-16) | $2000))
Def gWindow(1)  Externe("User32.DLL","GetWindow",&(1),5)   &GW_CHILD = 5
Déclarer GL_ChB01&,GL_ChBoxChild01&
Cls
GL_ChB01&        = Contrôle("ComboBox",»,$5401024E,20,20,360,240,%HWnd,$9100,%HInstance)  Editierbare ChoiceBox
GL_ChBoxChild01& = gWindow(GL_ChB01&)           Child-Éditer-Handle qui ChoiceBox holen!
sEditNum(GL_ChBoxChild01&)   Child-Éditer sur seulement-payons-Eingabe mettons.

Tandis que 1

    WaitInput

Endwhile

Fin