Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
2 - PROFAN-Programmierung

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Re: Profan X4
Autor: Steven Scheidler (---.dyn.telefonica.de)
Datum:   13.01.20 19:41

Bei mir funktioniert es einfach nicht.
Ich kann mir das gerade nicht erklären

 proc dialog
   declare hFont&
   declare _ende%
   declare _dlg%
   declare IcB1&
   declare iconbutton1%
   declare IcB2&
   declare iconbutton2%
   declare IcB3&
   declare iconbutton3%
   declare IcB4&
   declare iconbutton4%
   declare IcB5&
   declare iconbutton5%
   declare IcB6&
   declare iconbutton6%
   declare IcB7&
   declare iconbutton7%
 
 
   hFont& = create("Font", "ARIAL",14,0,0,0,0)
 
   _dlg% = create("dialog", %hWnd, "Dialog", 0,0, 1300, 278)
 
   IcB1& = @Create("hIcon", "C:\WINDOWS\SYSTEM32\SHELL32.DLL", 64)
   iconbutton1% = Create("IconButton", _dlg%, IcB1&, 755, 62, 100, 42)
 
   IcB2& = @Create("hIcon", "C:\WINDOWS\SYSTEM32\SHELL32.DLL", 28)
   iconbutton2% = Create("IconButton", _dlg%, IcB2&, 335, 62, 100, 42)
 
   IcB3& = @Create("hIcon", "C:\WINDOWS\SYSTEM32\SHELL32.DLL", 38)
   iconbutton3% = Create("IconButton", _dlg%, IcB3&, 435, 62, 100, 42)
 
   IcB4& = @Create("hIcon", "C:\WINDOWS\SYSTEM32\SHELL32.DLL", 43)
   iconbutton4% = Create("IconButton", _dlg%, IcB4&, 535, 62, 100, 42)
 
   IcB5& = @Create("hIcon", "C:\WINDOWS\SYSTEM32\SHELL32.DLL", 47)
   iconbutton5% = Create("IconButton", _dlg%, IcB5&, 635, 62, 100, 42)
 
   IcB6& = @Create("hIcon", "C:\WINDOWS\SYSTEM32\SHELL32.DLL", 22)
   iconbutton6% = Create("IconButton", _dlg%, IcB6&, 210, 62, 100, 42)
 
   IcB7& = @Create("hIcon", "C:\WINDOWS\SYSTEM32\SHELL32.DLL", 86)
   iconbutton7% = Create("IconButton", _dlg%, IcB7&, 110, 62, 100, 42)
 
   _ende% = 0
   whilenot _ende%
     waitinput
     if (%key = 2)
       _ende% = 1
     endif
   endWhile
   destroywindow(_dlg%)
   
 
   deleteobject IcB1&
   deleteobject IcB2&
   deleteobject IcB3&
   deleteobject IcB4&
   deleteobject IcB5&
   deleteobject IcB6&
   deleteobject IcB7&
 
 
 
 
 endproc
 
 windowtitle "Dialog-Test"
 cls
 
 dialog
 waitinput
 end
 
 


Beim ersten mal Ausführen(Interpreter) klappt es bei mir auch,
beim 2ten mal nicht mehr.
Da bekomme ich die Fehlermeldung "Icon in der dll nicht gefunden"
Selbst wenn ich "/" durch "//" austausche mal funktioniert es und mal wieder nicht

Bin ratlos::cry:



 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Profan X4  Neu
Steven Scheidler 13.01.20 09:01 
 Re: Profan X4  Neu
Arndt Lindner 13.01.20 15:17 
 Re: Profan X4  Neu
Steven Scheidler 13.01.20 19:41 
 Re: Profan X4  Neu
Arndt Lindner 13.01.20 21:33 
 Re: Profan X4  Neu
Markus Barkholz 17.05.21 21:24 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org