Español
Fuente/ Codesnippets

Childs Dialogfenster Ventana principal Mehrere Nutzen

 

Frank
Abbing

KompilierenMarcaSeparación
 $H messages.ph
 $H windows.ph
Declare win1&,win2&,x&,y&,text$,title$,class$,edit1&,text1&,multi1&,edit2&,text2&,multi2&
Windowstyle 31
Windowtitle Hauptfenster
Cls ~GetSysColor(15)
SetDialogFont ~GetStockObject(~DEFAULT_GUI_FONT)
class$=#32770
title$=Dialogfenster
win1&=~CreateWindowEx(0,addr(class$),addr(title$),$40400000,40,40,300,360,%hwnd,0,%hinstance,1000)
text1&=Create(Text,win1&,Hier könnte ein Text stehen. Welcher Text, das bleibt dir überlassen.,10,10,280,30)
edit1&=Create(EDIT,win1&,Ein Editfeld,10,50,120,20)
multi1&=Create(MULTIEDIT,win1&,Ein Multiedit,10,80,260,250)
***
win2&=~CreateWindowEx($200,addr(class$),addr(title$),$40000000,380,40,220,360,%hwnd,0,%hinstance,1000)
text2&=Create(Text,win2&,Hier könnte ein Text stehen. Welcher Text, das bleibt dir überlassen.,10,40,180,30)
edit2&=Create(EDIT,win2&,Ein Editfeld,10,10,120,20)
multi2&=Create(MULTIEDIT,win2&,Ein Multiedit,10,80,160,250)
class$=msctls_trackbar32
title$=Dialogfenster
multi2&=~CreateWindowEx(0,addr(class$),addr(title$),$50000000,10,80,160,250,win2&,0,%hinstance,1000)
Sleep 1000
ShowWindow(win1&,1)
Sleep 1000
ShowWindow(win2&,1)
Sleep 1000
ShowWindow(win1&,0)
Sleep 1000
ShowWindow(win2&,0)
Sleep 1000

EndIf

ShowWindow(win1&,1)
ShowWindow(win2&,1)

While 1

WaitInput
Case %Key=2:BREAK

EndWhile

 
31.12.2004  
 




GDL
hi Franco,

wo kriege Yo mensaje.ph y windows.ph her?
Oder va Su Ejemplo sólo bajo XP? Gracias.

Mit freundlichen Grüßen
Georg
 
Windows7 Xprofan 8,9,10 [...]  [...] 
14.02.2005  
 



Como haddu.

Salve, IF

 
14.02.2005  
 




GDL
Gracias

Georg
 
Windows7 Xprofan 8,9,10 [...]  [...] 
14.02.2005  
 



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

4.884 Views

Untitledvor 0 min.
GDL08.09.2014
Ernst11.05.2013
liveFamilie23.06.2012
Julian Schmidt21.08.2011
Más...

Themeninformationen

Dieses Thema ha 3 subscriber:

GDL (2x)
iF (1x)
Frank Abbing (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