style برای برنامه

[hamidscary]

سلام من یک عکس گذاشتم جای استیل برنامه اما با موس که عکس رو میگیریم بعد موس را به یک طرف میبریم برنامه به هیچ عنوان جابه جا نمیشود کسی کد داره که برام روی عکس کلیک که میکنیم و به هر طرف موس را میبریم برنامه حرکت کنه؟ . . .

[vb2005]

سلام
اول کد زير رو توی يه ماژول بنويسيد:


(Sub moveform(ff As Form, xx, yy, bt
Static oldx, oldy, mf
Dim moveleft, movetop
moveleft = ff.Left + xx - oldx
movetop = ff.Top + yy - oldy
If bt = vbLeftButton Then
If mf = 0 Then
ff.Move moveleft, movetop
ff.Refresh
mf = 1
Else
mf = 0
End If
End If
oldx = xx
oldy = yy
End Sub

بعد در روال MouseMove کنترل عکس اين کد رو بنويسيد.
moveform Me, X, Y, Button

[MMR_1344]

دوست عزیز عکس را در يک Image قرار بده و در هنگام لود شدن اون Image رو به اندازه و ابعاد فرمت در بيار بعد برای دستور MouseMove کدهای لازم رو بنویس

[parselearn]

روشي ديگر



Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32.dll" () As Long


Private Sub imgMove_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgMove.MousePointer = 5
Call ReleaseCapture
Call SendMessage(hWnd, WM_NCLBUTTONDOWN, 2, 0&)
End Sub

Private Sub imgMove_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgMove.MousePointer = 0
End Sub

Private Sub imgMove_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgMove.MousePointer = 0
End Sub


در ضمن سوالتون رو دوبار نفرستيد
http://barnamenevis.org/forum/showthread.php?t=198883

[parselearn]

روشی دیگر



Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32.dll" () As Long


Private Sub imgMove_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgMove.MousePointer = 5
Call ReleaseCapture
Call SendMessage(hWnd, WM_NCLBUTTONDOWN, 2, 0&)
End Sub

Private Sub imgMove_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgMove.MousePointer = 0
End Sub

Private Sub imgMove_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgMove.MousePointer = 0
End Sub


ببخشيد يك قسمت از كد رو جا انداختم
اينو در بخش General بزاريد



Private Enum eMsg
WM_NCLBUTTONDOWN = &HA1
End Enum