| |
| |
|
GDL | Hi,
Yo nen Adressenproblem con el Objekthandles,como Yo festzugewiesene Werte brauche.In etwa así:
handle1&=create(button,%hwnd,..................................)
handle1&=1000
oder
handle1&=1000
1000=create(button................................)
Yo brauche dies desshalb,como el Objetos de aussen(hardwaremässig) y intern(Ratón) gesteuert voluntad necesario y Foco los objetos gleichzeitig el Adressennummer para una Hardwaresteuerung son.
Kurz dijo: El Handlenummer muss fest zugeordnet y ser en cada Programmstart siempre igual ser.
Dies war bajo DOS Veces relativ simplemente, como uno se en el config.sys EMS Speicher beim Starten des PC reservieren podría y Powerbasic(DOS Vers.) darauf zugreifen podría.Tal vez va dies con Windows y XProfan en efecto?
Servus
Georg |
|
| |
| |
| |
|
|
Thorsten
Friedrichs | ¡Hola.
Also desafortunadamente Todavía no bastante verstanden qué du hacer willst. Was willst du porque womit steuern? Soll deine Hardware en el Programa qué steuern oder se el Programa qué steuern?
Meines wissens después de va el no con festen Handles. DOS kannte esta Art Handleverwaltung soweit Yo weiß nada y si doch,entonces war el ya ellos como ahora en Windows. El Vergabe el Handles übernimmt Windows dynamisch, como puede ser auch nichts drann ändern. Es simplemente no. Aber como Si es usted el Handle erhälst, kannst du dieses natürlich a una más Programa transferencia.
Tal vez haben wir sí ne Concepto como Si es usted el qué du willst gestallten kannst, aber momentan weiß Yo allerdings todavía no qué du hacer willst.
Saludo
Toshy |
|
| |
| ------------------------------------------------------------------------------------------
XProfan 9/Win98&undWinXP/PRFellow/ TCP.DLL
Profaner seit 4.5 /einige Jahre (mit Programmierpausen) | 22.02.2006 ▲ |
|
| |
|
|
 | | Usted wirst el tatsächlichen Handles el Wunschhandels sólo nachträglich zuordnen necesario... |
|
| |
| |
| |
|
|
GDL | ¡Hola,
@Toshi
Richtig, bajo DOS gab lo no Handles.Como el Programa aber siempre en el selben Speicherbereich lief hatte uno siempre dieselben Speicheradressen para Abfragen.
Gebraucht se todos a parallelen Tastenabfrage (Weichenpult y Bildschirm), wobei jede Taste una otro Datensatz de uno Expediente lädt.Como el Hardwaretasten una feste Adresse una Matrix liefern wäre lo sólo schön gewesen el Bildschirmcontrols selbigen Valor a geben y esta con getfocus einfachst abzufragen.
@If
Yo habe lo fast ya befürchtet dass lo sólo así va.Posesiones auch ya así angefangen sólo en 2400 möglichen Tasten gehoft ne otro Möglichkeit para encontrar.
na bien entonces weisen wir beim Programmaufruf cada Bildschirmcontrol nen Arraywert a.
Servus
Georg |
|
| |
| |
| |
|
|
| Mach doch una Trick!
Tomar Gettext - y bestücke el Textos el Controls... |
|
| |
| |
| |
|
|
Frank
Abbing | Hi,
todavía mejor es aber, du speicherst valor bajo GWL_USERDATA mittels SetWindowLong(). Auslesen va entonces muy simplemente con GetWindowLong(). |
|
| |
| |
| |
|
|
GDL | ¡Hola Franco,
veces abgesehen de los Handles, aber como sprichst du una bastante grosse Schwachstelle de me a.
Auf el Gefahr hin ausgelacht a voluntad pero yo checke dies con el Setwindowlong y co überhaupt no.Yo habe veces intenta el código Snippet Animierte Ventana a verstehen.Fehlanzeige Yo kapier el Funktionsabläufe el individual Befehle simplemente net.
Servus
Georg |
|
| |
| |
| |
|
|
Frank
Abbing | Hi,
por qué debería dich alguien auslachen?
Hier veces una Anwendungsbeispiel:
KompilierenMarcaSeparaciónDeclare button&,sthand&
Def GetWindowLong(2) !"USER32","GetWindowLongA"
Def SetWindowLong(3) !"USER32","SetWindowLongA"
Cls
button&=Create("Button",%hwnd,"Test",32,32,80,24)
SetWindowLong(button&,-21,1000)
sthand&=GetWindowLong(button&,-21)
Print "Statischer Handle = "+Str$(sthand&)
WaitInput
| 23.02.2006 ▲ | |
|
| |
|
|
GDL | ¡Hola Franco,
lo funzt.In etwa así se lo instalado.
KompilierenMarcaSeparaciónDeclare Button&[2450],Sthand&,ende%,adresse&,nummer%,y%,num%
Def Getwindowlong(2) !"USER32","GetWindowLongA"
Def Setwindowlong(3) !"USER32","SetWindowLongA"
window 0,0 -1024,748
y%=10
clear nummer%
whilenot y% > 600
Button&[nummer%]=Create("Button",%Hwnd,"Test "+str$(nummer%),32,y%,150,24)
Setwindowlong(Button&[nummer%],-21,(1000+nummer%))
y%=y%+30
inc nummer%
wend
whilenot ende%
clear num%
Waitinput
whilenot num% > nummer%
if getfocus(button&[num%])
adresse&=Getwindowlong(Button&[num%],-21)
drawtext 400,300,"aktuelle Adresse = "+str$(adresse&)+" "
endif
inc num%
wend
wend
KompilierenMarcaSeparación!
Declarar Button&[2450],Sthand&,ende%,adresse&,nummer%,y%,num%
Def Getwindowlong(2) !"USER32","GetWindowLongA"
Def Setwindowlong(3) !"USER32","SetWindowLongA"
window 0,0 -1024,748
y%=10
clear nummer%
whilenot y% > 600
Button&[nummer%]=Crear("Button",%Hwnd,"Test "+str$(nummer%),32,y%,150,24)
Setwindowlong(Button&[nummer%],-21,(1000+nummer%))
y%=y%+30
inc nummer%
wend
whilenot ende%
clear num%
Waitinput
whilenot num% > nummer%
if getfocus(button&[num%])
adresse&=Getwindowlong(Button&[num%],-21)
drawtext 400,300,"aktuelle Adresse = "+str$(adresse&)+" "
endif
inc num%
wend
wend
Bin otra vez una Schritt más.Tiempo guggen Yo lo más löse.
Servus
Georg |
|
| |
| |
| |
|
|
Frank
Abbing | Hi,
na siehste.
Und no Angst antes API. Wenn du el Technik primero verstanden hast, es el Umgang así bastante ligeramente  |
|
| |
| |
| |
|
(1.519)
Deutsch
English
Français
Español
Italia