Español
Fuente/ Codesnippets

Checkboxauswahlkasten Groupbox

 

Julian
Schmidt

KompilierenMarcaSeparación
Windowstyle 24
Windowtitle "Beispiel zum Erstellen einer Groupbox mit Checkbox"
Window 100,200-250,180
cls External("USER32","GetSysColor",15)
var gb&=Create("GroupBox",%hwnd,"",20,20,width(%hwnd)-40,height(%hwnd)-40)
Create("CheckBox",gb&,"Groupbox Text",10,3,115,18)

while 1

End
/a>
 
XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
16.08.2011  
 




RudiB.
Und como va todavía mehr....wenns veces eng se en el Bildschirm, entonces eben el Controls ineinander packen.
Windowstyle 24
Windowtitle "Beispiel para Erstellen uno Groupbox con Checkbox"
Ventana 100,200-450,280
Declarar x%,text&
x%=1
cls Externo("USER32","GetSysColor",15)
'Checkbox en Groupbox
var gb&=Crear("GroupBox",%hwnd,"",20,20,width(%hwnd)-40,height(%hwnd)-40)
Crear("CheckBox",gb&,"Groupbox Text",10,3,115,18)
'Button en Button
text&=Crear("Text",%hwnd,"Button en Button.. el kleine Button final Programm",40,80,380,18)
Var test&=Crear("Button",%hwnd,"      Test",100,100,160,30)
Var a&=Crear("Button",test&,"1",10,4,22,22)
' Editar en Button
text&=Crear("Text",%hwnd,"Checkbox en Editar y Editar en Button..va....",40,130,380,18)
Var test2&=Crear("Button",%hwnd,"          Test 2",100,150,160,30)
Var b&=Crear("Edit",Test2&,"An",5,4,50,22)
Var c&=Crear("CHeckbox",b&,"",33,1,16,18)
' Button en Editar
text&=Crear("Text",%hwnd,"...y Button en Editar va auch, pero no así fresco...",40,180,380,18)
Var edit&=Crear("Edit",%hwnd,"Der Test",100,200,160,24)
Var d&=Crear("Button",edit&,"HiHi",100,0,40,20)

mientras que 1

    If x%>99

        x%=1
        settext a&,str$(x%)
        setfocus(%hwnd)

    Endif

    If Getfocus(a&)

        romper

    EndIf

    If Getfocus(test&)

        settext b&,"An"
        setcheck c&,0
        inc x%
        settext a&,str$(x%)
        setfocus(%hwnd)

    EndIf

    If Getfocus(test2&)

        If gettext$(b&)="An"

            settext b&,"Aus"
            setcheck c&,1

        EndIf

    EndIf

    If getfocus(d&)

        inc x%,10
        settext a&,str$(x%)
        setfocus(%hwnd)

    Endif

Endwhile


Was como wohl todavía así alles funktioniert ????
 
XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM
26.04.2021  
 



Zum Quelltext


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

2.491 Views

Untitledvor 0 min.
Gast.081503.10.2024
Member 862464112.05.2024
N.Art21.07.2022
Ernst21.07.2021
Más...

Themeninformationen

Dieses Thema ha 2 subscriber:

RudiB. (1x)
Julian Schmidt (1x)


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