شبیه سازی Desktop ویندوز

[Neda_Bagheri]

من می خوام Desktop ویندوز را شبیه سازی کنم. یعنی کاربر بتونه یک دکمه که در پنل راست قرار داره Shortcut درست کنه و اونو بذاره رو صفحه (پنل وسط ). کد Drag and drop را پیدا کردم ولی Shortcut ساختن را نمی دانم . کسی می توانه کمکم کنه.

Dim click_down As Boolean = False

Dim mouse_location As Point
Dim label_location As New Point
Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
click_down = True

mouse_location = e.Location
End Sub

Private Sub Label1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
If click_down = True Then

label_location.X = Label1.Location.X + e.X - mouse_location.X
label_location.Y = Label1.Location.Y + e.Y - mouse_location.Y
Label1.Location = label_location
End If

End Sub

Private Sub Label1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseUp
click_down = False

End Sub

[saeed_rezaei]

اگه منظورتون ساخت میانبرهای ویندوز هست اینجا رو ببینید:

http://www.knowdotnet.com/articles/createshortcutondesktop.html