Keskustelu: Koodit: VB6: Formin liikutus kaikkialta

Juu, eli täl saa liikuteltua formia, ihan mistä vaan, esim jos Border Style on 0, nii silti liikkuu kaikkialta.

Moduuli

Declare Sub ReleaseCapture Lib "user32" ()


Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long


Public Sub Liikkuu(Formi As Form)
    ReleaseCapture
    Call SendMessage(Formi.hwnd, &HA1, 2, 0&)
End Sub

Formi

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Liikkuu Me
End Sub

iha hyvä homma, josta ei ehkä ole hyötyä kovin paljon

koska saahan formia liikuteltua muutenkin :)

no, hyödyllinen vinkki ja kaippa tuotakin saa vielä hyödynnettyä!

Voi olla tarpeenkin!

ei toimi... VB6 ja windows 2000

Toimii VB6 ja ainakin windows 98 & XP, mut ihme jos ei windows 2000, vaik sil en ookkaa testannu silti..

lainaus:

iha hyvä homma, josta ei ehkä ole hyötyä kovin paljon

koska saahan formia liikuteltua muutenkin :)

no, hyödyllinen vinkki ja kaippa tuotakin saa vielä hyödynnettyä!

onhan siitä jos ei ole ollenkaan reunoja tai tuota yläpalkkia.