GUI-Eigenbau - Komme nichtmehr weiter
Übersicht
BlitzBasic Beginners-Corner
|
The_NiciBetreff: GUI-Eigenbau - Komme nichtmehr weiter |
 So, Okt 14, 2007 1:53Antworten mit Zitat 
|
|---|---|---|
|
Hallo, zu später Stunde wie dieser.
Vielleicht liegts an der Uhrzeit, vielleicht an meiner Programmier-Erfahrung, auf alle Fälle an mir. Ich habe aus Langeweile angefangen, eine GUI zu programmieren. Nichts Grosses, nur ein paar erstellbare Buttons. Jetzt hab ich ein Problem mit dem erstellen der Buttons. Da es schwer zu erklären ist, probiert ihr es am besten selbst aus...also erstellt einfach mal 2 oder mehr Buttons! Der Code: Code: [AUSKLAPPEN] Dim sz$(99) Dim px(99) Dim py(99) Graphics 800,600,0,2 SetBuffer BackBuffer() Global id=0 Repeat ms=MouseHit(1) If ms<>0 Then id=id+1 px(id)=MouseX() py(id)=MouseY() Repeat msd=MouseDown(1) Color 0,255,0 Rect px(id),py(id),MouseX(),MouseY(),0 Flip Cls Until msd=0 sz(id)=Input("Schriftzug: ") sz(id)=Createbutton(px(id)+MouseX(),py(id)+MouseY(),0,255,0,sz(id),255,0,0) Cls EndIf For i=1 To id DrawImage sz(i), px(id), py(id) Next Flip Cls Until KeyHit(1) Function Createbutton(bx%, by%,r,g,b,schrift$, sr,sg,sb) img=CreateImage(bx, by) SetBuffer ImageBuffer(img) Color r,g,b Rect 0, 0, bx,by Color r-50,g-50,b-50 Line 0,0,0,by Color r-50,g-50,b-50 Line 0,0,bx,0 Color sr,sg,sb Text bx/2, by/2, schrift$, 1,1 SetBuffer BackBuffer() Return img End Function Linksklicken und Maus bewegen, dann loslassen->Button erstellen Danke schonmal für eure Antworten! |
||
|
|
The_Nici |
So, Okt 14, 2007 2:04 Antworten mit Zitat
|
|---|---|---|
|
ZOMG, hab den, besser gesagt die Bugs gefunden.
Der funktionierende Code: Code: [AUSKLAPPEN] Dim sz$(99) Dim px(99) Dim py(99) Graphics 800,600,0,2 SetBuffer BackBuffer() Global id=0 Repeat ms=MouseHit(1) If ms<>0 Then id=id+1 px(id)=MouseX() py(id)=MouseY() Repeat msd=MouseDown(1) Color 0,255,0 Rect px(id),py(id),Floor(MouseX()-px(id)),Floor(MouseY()-py(id)),0 Flip Cls Until msd=0 sz(id)=Input("Schriftzug: ") sz(id)=Createbutton(Floor(MouseX()-px(id)),Floor(MouseY()-py(id)),200,200,200,sz(id),0,0,0) Cls EndIf For i=1 To id DrawImage sz(i), px(i), py(i) Next Flip Cls Until KeyHit(1) Function Createbutton(bx%, by%,r,g,b,schrift$, sr,sg,sb) img=CreateImage(bx, by) SetBuffer ImageBuffer(img) Color r,g,b Rect 0, 0, bx,by Color r-50,g-50,b-50 Line 0,0,0,by Color r-50,g-50,b-50 Line 0,0,bx,0 Color sr,sg,sb Text bx/2, by/2, schrift$, 1,1 SetBuffer BackBuffer() Return img End Function |
||
Übersicht
BlitzBasic Beginners-Corner
Powered by phpBB © 2001 - 2006, phpBB Group