Dotaz: VB: Problém začátečníka se zjištěním souřadnic kliknutí myší

[Honza86]

Ahoj,

mám problém s jednoduchým projektem, kde si ve Visual Basicu (verze 6 - používám třídu, kterou verze 2010 nepodporuje) potřebuji zjistit při kliknutí na prvek IMAGE souřadnice kliknutí v rámci okna programu. Bohužel program mi vrací hodnoty pravděpodobně v rámci celé obrazovky PC, což nechápu proč.

Může mi někdo, prosím, poradit? :)

Zdrojový kód:

Private Sub Image1_MouseDown(Button As Integer, _
Shift As Integer, x As Single, y As Single)
  If Button = 1 Then
Print x
Print y
  End If
  If Button = 2 Then
Print x
Print y
  End If
  
  End If

Vracející se hodnoty: Náhled okna programu Kliknutí odpovídá cca. x = 240 px, y = 100 px (takové hodnoty potřebují získat)

Na základě získaných hodnot potřebuji do okna umísťovat prvky, ale vzhledem k nerelevantním hodnotám se mi to bohužel nedaří.

Děkuji za případnou pomoc!

Odpovědi

[skunkOS]

Jen takovej hint.

Co kdybys teda odečítal od těch hodnot hodnoty pozice toho okna?

[Honza]

Děkuji.

Případně nevíte o jiné metodě, jak je možné získat souřadnice kliknutí myší na prvek FORM nebo IMAGE ve VB? Google moc neporadí...

[MadCatX]

VB6 udává souřadnice v twipech, VB.NET v pixelech. Pokud můžete, pracujte přímo s twipy nebo si souřadnice na pixely převeďte.

[Honza86]

Děkuji za Vaši radu.

Můžu poprosit ještě o funkci, která souřadnice na pix. převede?

[Honza86]

Již jsem to vyřešil.

Každopádně děkuji za pomoc!

[rastos]

Som rozpoltený:

a) nie je reč o windowsovom Visual Basic-u?
b) zo zodpovedanej otázky môžu mať úžitok aj ostatní. Nielen ty. Teda za predpokladu, že sa tu objaví aj popis toho riešenia a nie len "heuréka, mám to".

[MadCatX]

Ad a) Ano, je řeč o VB6.
Ad b) Převod mezi twipem a pixelem je zcela elementární, stačí utilizovat Google.

[Honza86]

Řešení pro převod souřadnic osy X z twip na pix:

pixelu = twipu \ Screen.TwipsPerPixelX