Newsgroup: it.comp.lang.visual-basic
Titolo: Spostare il cursore del mouse

su una list box son costretto  a mettere una dimensione fissa per la
larghezza.
Ora per far vedere per intero la voce selezionata la assegno
a tooltiptext
una cosa del tipo
sub list_click
list.tooltiptext="!Ł$%& uihiuhiuh uih iuh "
end sub
per cui seleziona la voce e vede nel tooltip la descrizione completa...
bene ma come si sa l'utente trova sempre qualcosa che non va
per cui se io e voi clicchiamo vedremo sempre il tooltip perchč un po si
muove sempre il mouse...
l'UTONTO per paura di sbagliare invece č un cecchino! clikka a mouse fermo
ed č cosě leggero che non lo muove di un centesimo di
millimetro!...morale...il tooltip non si vede!
che fare?
pensavo di far muovere di un pixel il mouse per scatenare il tooltip...solo
che ho un abissale vuoto di memoria e sono in emergenza pc...che API uso?
Thanks!

 che fare?
Usare una Label classica, oppure un testo multilinea se le informazioni sono
molte, (magari da rendere invisibile al Lostfocus della listbox) da
compilare al Click sul ListBox?

CUT
Mi auto rispondo
Private Sub List1_Click()
Dim Pos As POINTAPI
List1.ToolTipText = List1.Text
GetCursorPos Pos
Pos.x = Pos.x + 10
SetCursorPos Pos.x, Pos.y
End Sub
con nel modulo
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As
Long
Public Type POINTAPI
        x As Long
        y As Long
End Type
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y
As Long) As Long
Però una cosa...
.se imposto un pixel solo non lo "sente"...c'è un range oltre il quale
scatta la visualizzazione tooltip?

 "Wodka4U(xp)" <mar_TOGLI_co@ma_194ANCHE_195463QUI_rtek.it> ha scritto
grazie...risolto !
:-)

 scatta la visualizzazione tooltip?
CUT
mi rispondo ancora
1,2 pixel prrrrrr anche a spostarsi con le freccie niente
3 quando ne ha voglia
4 quasi sempre col mouse, con le freccie sempre
...7 pixel sempre
ora mi piacerebbe sapere perchè!!!!...così per sfizio!
PC winXPpro VB6 SP5
mah!

"Wodka4U(xp)" <mar_TOGLI_co@ma_194ANCHE_195463QUI_rtek.it> ha scritto nel
messaggio news:q1yu9.44440$TD1.1...@news2.tin.it...

ARRRRGH HO SCRITTO FRECCIE!!!
Java no non mi mordere!!!!!!!!!!!!

 :-)
gia' pure io faccio cosi , cmq mi lascio sempre un campo vuoto nella status
bar chiamato " Info: ..." a cui aggiungo il testo che uno clikka !

"Gigio2K" <barone.fab...@M.libero.it.invalid> ha scritto nel
messaggio news:DNyu9.80883$%CUT
nel tooltip mi piace di pių...questione di gusti!
Ho una brutta esperienza della status bar!
cmq hai visto...ora funziona!
:-)

"Wodka4U(xp)" <mar_TOGLI_co@ma_194ANCHE_195463QUI_rtek.it> ha scritto nel
messaggio news:wHxu9.44360$TD1.1...@news2.tin.it...
Allora pare brutto vedere il mouse che fa un "saltello" di 7 pixel!
La versione qui sotto sul mio pc non sposta nulla(apparentemente) e fa
apparire il tooltip
Private Sub List1_Click()
    Dim Pos As POINTAPI
    Dim preservaX As Long
    List1.ToolTipText = List1.Text
    GetCursorPos Pos
    preservaX = Pos.x
    Pos.x = Pos.x + 7
    SetCursorPos Pos.x, Pos.y
    DoEvents
    SetCursorPos preservaX, Pos.y
End Sub
Logicamente con le dichiarazioni in un modulo
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As
Long
Public Type POINTAPI
        x As Long
        y As Long
End Type
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y
As Long) As Long
testato su
WinXPpro VB6 sp5

 :-)
ma poi alla fine il mouse lo rimetti a posto o lo lasci spostato di 10px ?
senno' dopo un po mi tocca spostare il mouse dal tappetino e QUESTO LO ODIO
! ( questione di gusti )

"Gigio2K" <barone.fab...@M.libero.it.invalid> trovata la soluzione
vedi?
:-)

 vedi?
gia' sorry ma leggo e rispondo off line  :p