03-04-20, 02:36 PM
السلام عليكم ورحمة الله
هل يمكن التعديل على الكود حيث تغيير الكنترول من بنل الى WebBrowser او GeckoWebBrowser
PHP كود :
Private bool_0 As Boolean
Private point_0 As Point
Private Sub Panel4_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel4.MouseDown
Me.bool_0 = True
Me.point_0 = e.Location
End Sub
Private Sub Panel4_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel4.MouseMove
If Me.bool_0 Then
Dim point As Point = MyBase.PointToScreen(e.Location)
MyBase.Location = New Point((point.X - Me.point_0.X), (point.Y - Me.point_0.Y))
End If
End Sub
Private Sub Panel4_MouseUp(sender As Object, e As MouseEventArgs) Handles Panel4.MouseUp
Me.bool_0 = False
End Sub