Keskustelu: Ohjelmointikysymykset: VB6: Mistä kohtaan formia clikattu (vb6)

Monkkats [09.03.2004 20:57:02]

Nii eli jos vaik painaa formia, nii miten sais vaik MsgBoxina tiedot, et mist kohast formia clikattii?

nomic [09.03.2004 21:08:09]

jos nyt oikeen muistan niin taitaa mennä jotenkin näin...

Private Sub Form_Load()
  Form1.ScaleMode = 3 'vaihdetaan mode pikselimössöksi heti alussa...
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then 'kun painetaan hiiren vasemmalla korvalla...
    MsgBox "klik! kohdassa: " & X & "," & Y ' ...msgpoksi alkaa ulista
  End If
End Sub

Puhveli [13.03.2004 17:07:51]

jos sulla on siinä esim CommandButtoni, nii sitten se on

Private Sub CommandButton1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MsgBox "Napikka pohjassa kohdassa " & CommandButton1.Left + X & "," & CommandButton1.Top + Y
End Sub

sama pätee muihinkin objekteihin vai kontrollejako ne nyt oli

Tiha [13.03.2004 19:45:28]

Tässä esim millä saa kursorin paikan pixeleinä
Timerin intervalli 100ms & 2 labelia

Private Type POINTAPI
    X As Long
    Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim Pt As POINTAPI

Private Sub Timer1_Timer()
GetCursorPos Pt
Label1.Caption = Pt.X
Label2.Caption = Pt.Y
End Sub

rndprogy [13.03.2004 19:49:20]

Sama homma

Sub Form_MouseMove (Button As Integer, Shift As Integer, x As Single, y As Single)
Text1.text = x: Text2.text = y
End Sub

kunhan laittaa formin scalemodeksi arvon 3 eli pixel

Tiha [13.03.2004 20:07:52]

mutta ei toimi formin ulkopuolella...eli ei sama homma..
niin ja hiukka väärinpäin tais olla

Text1.Text = x: Text2.Text = y

rndprogy [13.03.2004 20:16:05]

Jaa formin ulkopuolella. Mutta sitä ei kysytty.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen

Haku

Tehtävät