[VB6] Operare con la "Posizione del Mouse"

[Artemio]

Ciao a tutti...
vorrei riuscire a capire come utilizzare la posizione del mouse in certi eventi.
Cerco di essere più chiaro; vorrei, ad esempio, alla pressione del mouse su un punto di un oggetto (ad es. un command), che in quel punto si visualizzasse un'altro oggetto (ad es. una label), e che al click al di fuori di questa "label" quest'ultima sparisse.

Sò che si deve usare un'API (da quanto ho capito leggendo un pò in giro), ma non so quale e come usarla. Poi non capisco... una volta ottenute le coordinate del mouse (X e Y) come faccio ad usarle per posizionare gli oggeti? Ed ad individuare il click del mouse per far sparire l'oggetto?
:master:

[L'Aquila]

secondo me, devi utilizzare l'evento MouseDown che tra i parametri ha le coordinate del mouse.
Sfruttandole puoi posizionare un'altro controllo...
:master:

[tossam]

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Top = Y + Command1.Top
Label1.Left = X + Command1.Left
Label1.Caption = X & ", " & Y
End Sub

E' QUESTO CHE INTENDI?

purtroppo la label sparisce sempre dietro il command button...
devi provare con altri oggetti. ciao

[Artemio]

@ tossam si grazie
però mi servirebbe anche sapere come far scomparire la label se clicco fuori dalla sua area...

[Artemio]

aiutooo

[tossam]

scusa,
ma mi ero disconnesso.

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
label1.visible = true
Label1.Top = Y + Command1.Top
Label1.Left = X + Command1.Left
Label1.Caption = X & ", " & Y
End Sub

Private Sub Form_Click()
label1.visible=false
End Sub

FORSE POTRESTI USARE

Command1.ToolTipText = "stringa"

compare solo quando ti fermi sul bottone, ma è il più adatto...

CIAO!

[Artemio]

cosi lo sapevo fare pure io^^
purtroppo il tuo codice non funziona se nel form ci sono altri oggetti... dovrei mettere la stessa stringa per ogni oggetto del form

cmq la tooltiptext nn è adatta a quello che devo fare...
grazie

[Artemio]

[Artemio]

qualcuno mi può aiutare??
non so se sto dicendo una cavolata
ma magari non si può intercettare il click del mouse con un API e usare un ciclo for each... del tipo

'se si verifica l'evento Click ovvero quando l'API intercetta
'il click del mouse

If Click = True Then

'allora esegui un ciclo per ogni oggetto del form
'(command,texbox,label,picbox,etc..)

  For Each (oggetto del form) to (oggetti del form)

'se il click si verifica su questo oggetto allora
'picture1.visible=false

   If Click = (oggetto del form) Then
     Picture1.Visible = False
   End If

  Next

End If

magari è una grandissima cavolata... ma ho provato a pensare a qualcosa magari qualcuno conosce un modo per concretizzarla, o meglio un metodo più semplice o un metodo che almeno funzioni...

[Artemio]

help