çalışma esnasında nesne taşıma

çalışma esnasında nesne taşıma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Dersleri (https://accesstr.net/forum-access-dersleri.html)
+--- Konu Başlığı: çalışma esnasında nesne taşıma (/konu-calisma-esnasinda-nesne-tasima.html)

çalışma esnasında nesne taşıma - accessman - 04/06/2012

Kod:

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 Const WM_SYSCOMMAND = &H112

Private Const SC_SIZE = &HF000&



Private Declare Function ReleaseCapture Lib "user32" () As Long

Kod:

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

  ReleaseCapture

  SendMessage Command1.hwnd, WM_SYSCOMMAND, SC_SIZE + 9, 0

End Sub

RE: çalışma esnasında nesne taşıma - accessman - 11/04/2020

Güncel