Newsgroup: it.comp.lang.visual-basic
Titolo: spostare un form afferrandolo in un punto qualsiasi

ho trovato questo codice per spostare un form afferrandolo in un punto
qualsiasi:
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA"
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As
Any) As Long
Private Declare Sub ReleaseCapture Lib "User32" ()
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
    'URL: 
http://www.allapi.net/
    Dim RetVal As Long
    If Button = 1 Then
        'Release capture
        Call ReleaseCapture
        'Send a 'left mouse button down on caption'-message to our form
        RetVal = SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
    End If
End Sub
il codice funziona benissimo, ma... come mai  posso spostare il form fino a
farlo quasi sparire su tutti i lati del monitor tranne il lato superiore??
ty

 farlo quasi sparire su tutti i lati del monitor tranne il lato superiore??
Non ho una risposta, ma faccio una domanda: C'è proprio la necessità di
farsi del male con 'ste cose quando Win di suo già le consente? Se proprio
occorre trascinare dalla barra del titolo, sarà forse meno "comodo" di un
qualunque altro punto, ma almeno è standard. E se domani cambiano? Hai
voglia di mettere fuoco sotto al pentolone dell'acqua calda ;-))
Ah, se io fossi Bill impedirei di nascondere completamente la barra del
titolo, là ci sono dei controlli.
Ma io non sono Bill...

hi lupo...
in realtà scrivo codice non  per necessità, ma per tenere in allenamento la
mia vecchia mente di 52enne, vicinissima alla sclerosi galoppante... per cui
non ha tanto importanza il fine a cui tendo, ma il lavoro mentale in sé,
cosa utilissima sul mio duro lavoro d'ufficio.
In questo momento sto cercando di fare "quasi" sparire un form, sempre in
primo piano, nella parte superiore del monotor... non per farmi del male ma
per tendere al fine di cui sopra...:-))
D'altronde la mente si allena  dove non riesce e non già dove riesce....
sto pensando ad un controllo timer che rileva costantemente il top del form
e ad una routine che abbassa l'altezza del form stesso ... vedrem, per ora
si va a mangiare...
ciao

 per tendere al fine di cui sopra...:-))
Prova un po' con Me.Top=-30000
o anche
Me.Left=Screen.Width
;-)))

 "Tu uccidi un uomo morto" disse, credo, Ettore Fieramosca
ehm, lui, ricordi dai libri alle elementari, avrebbe vinto la disfida
di barletta...
http://www.disfidadibarletta.net/
( alzate il volume prima di cliccare, toghissimo ! )
ci sono anche le foto della disfida :P
http://www.mosaico.rai.it/audiovisivi/index.asp?vid=1377&menu=1
-
dubbio: sfida : disfida = sfiga : disfiga ?

 dubbio: sfida : disfida = sfiga : disfiga ?
No, no, va bene così, nessuna variante. MB (dov'è scappato?) non me la
passerebbe. ;-)

 "Tu uccidi un uomo morto" disse, credo, Ettore Fieramosca
Grazie al tuo errore ho imparato qualcosa. Mi pareva di ricordare che quella
frase lě avesse a che fare con l'inno di Mameli, ma sinceramente non mi
ricordavo il nome del tizio. Breve ricerca, ed ecco qui:
http://www.innimania.com/ItaliaSpeciale.htm
Ciao
*Roby*

 dubbio: sfida : disfida = sfiga : disfiga ?
cotto : biscotto = biglia : triglia?
Ciao


WM_NCHITTEST
Andrea

 cotto : biscotto = biglia : triglia?
biscotto : triglia = gran biscotto : quadriglia ?

 biscotto : triglia = gran biscotto : quadriglia ?
ma allora
                [triglia = (Biscotto * quadriglia ) / gran biscotto]
da cui tolgo "Biscotto" per la proprieta' ... emm .. cumulativa ?
                [triglia = quadriglia  / gran]
e quindi
                [quadriglia  / gran = piccola quadriglia]
ma allora  una PICCOLA QUADRIGLIA non e' altro che una TRIGLIA ? che
delusione :(
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

 delusione :(
dipende. se in tetrapak, si muta in squadriglia.

 delusione :(
Il problema è che se biscotto è (2 * cotto) allora bistecca = (2 * tecca).

 Il problema è che se biscotto è (2 * cotto) allora bistecca = (2 *
tecca).
un teccatecca ?

un teccatecca ?
Non iniziava con la "L" ?
-- 
ciao, harf

 ha scritto

no, no, quella e' la bislacca.
per capelli molto mossi e strambi.

per capelli molto mossi e strambi.
cado...NET