stipje in het midden van je beeldscherm

[danny123]

Hallo, ik wil graag dat er een stipje in het midden van je beeldscherm komt als je op een knop drukt in een programma.
De kleur van het stipje moet rood zijn en de groote moet ongeveer 7 x 7 pixels zijn.

mijn vraag is : hoe maak je dat ?
de knoppen heb ik al, alleen heb ik nog een code nodig ( graag een aan en uit code )

( eventueel kan er ook een afbeelding geladen worden als 'stipje')


Alvast bedankt !!!:thumb:

ps : ik gebruik vb6

 

[Tannasg]

beetje omslachtig misschien, maar kun je niet een klein formulier maken (zonder border) en enkel de stip erop?

 

[danny123]

beetje omslachtig misschien, maar kun je niet een klein formulier maken (zonder border) en enkel de stip erop?

mmm, ik weet niet of dat goed gaat werken maar ik ga het proberen !!

bedankt voor je reactie:thumb:

ik kom er niet helemaal uit hoe dat formpje blijft staan en hoe het in het midden van het scherm komt,
kan je het misschien eventjes uitleggen ??
het zal wel iets zijn met point x en y !

Alvast bedankt !!

 

[That Guy]

ja: je pakt de X en Y van de schermresolutie, deelt die door 2, haalt er (7/2 = 3) van af, en voila, de left/top van het borderless form.

(als je het niet snapt, check

[COLOR="seagreen"]'vb6:[/COLOR]

dim lX as long: dim lY as long
lX = Screen.Width / Screen.TwipsPerPixelX
lY = Screen.height / Screen.TwipsPerPixelY
[COLOR="SeaGreen"]
'lX = width, lY = height[/COLOR]

[COLOR="seagreen"]'doe nu je form plaatsen:[/COLOR]
frmZevenbijZevenDing.show
frmZevenBijZevenDing.top = (lY / 2) - 3
frmZevenBijZevenDing.left = (lX / 2) - 3

 

[danny123]

Hoi, dank je voor je reactie, maar is het ook mogelijk dat het stipje zelf in het midden komt, ongeacht welke resolutie ??

ps : mijn resolutie is 2048 x 1024 wat komt er dan in de code te staan ?

 

[That Guy]

mijn code werkt op elke resolutie, dat is juist het punt.
Het pakt de resolutie, en deelt die door 2-en. Dus, bij mij, bijvoorbeeld 1280/2 en 1024/2

dim lX as long: dim lY as long
lX = Screen.Width / Screen.TwipsPerPixelX  [COLOR="seagreen"]' = dus schermresolutie breedte[/COLOR]
lY = Screen.height / Screen.TwipsPerPixelY [COLOR="SeaGreen"]' = dus schermresolutie hoogtte[/COLOR]

 

[danny123]

Hoi, waar moet ik alles nu inzetten ??
ik heb namelijk een aan en uit knop ( voor de pointer aan of uit te zetten )
en een heel kleine form met daarin een rode stip afbeelding.
( en de form waar de knoppen instaan)

wat moet ik in de aan en uit knoppen zetten om de pointer aan en uit te kunnen zetten ??




alvast heeeeeel erg bedankt !!!:thumb::thumb:

 

[That Guy]

zucht.

Check de bijlage, een voorbeeldje. Heb de code wat makkelijker gemaakt voor je.

 

[danny123]

Dankje, het werk !!!!:thumb:

maar ( zou je altijd zien he, zit er weer een maar aan )
als ik een ander programma open ( waarvoor het bedoel is ) en ik klik 1 keer ergens op een knop in dat programm is de stip weer verdwenen !! al klik ik hem weer aan in de taakbalk doet die het weer..

is er iets te maken zodat de stip altijd op de voorgrond blijft staan??


alvast bedankt !!


en nog is 1000 bedankjes voor alle tijd en uitleg !!!

 

[That Guy]

ja, je kan je form als 'always on top' geven. Zo:
http://www.google.nl/search?hl=nl&q="visual+basic"+form+always+on+top&meta=

p lekker flauw, maar zoek er 1 uit en knippen&plakken :thumb

 

[danny123]

dat dat zo makkelijk kan zijn ~!!!!!~
dankje het werkt allemaal toppie !!!!

1000x bedankjes:thumb:

 

[That Guy]

np, zet je dit threat nog op 'opgelost'? (rechtsonder deze post, 'status van de vraag')

:thumb: