Log in
Search
Display results as :
Advanced Search

Share
Go down
avatar
Admin Hacker
Admin Hacker
Moods : WALAY KWARTA
Posts : 41
Join date : 2017-09-08
View user profilehttp://globaloffensive.forumotion.com

Release [Release] FormBoardStyle = None ( Moving )

on Wed Jan 17, 2018 3:39 pm
Code:
Public Class Form1
    Dim drag As Boolean = False
    Dim mousex As Integer, mousey As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        End
    End Sub


    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        drag = True
        mousex = Windows.Forms.Cursor.Position.X - Me.Left
        mousey = Windows.Forms.Cursor.Position.Y - Me.Top
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If drag Then
            Me.Left = Windows.Forms.Cursor.Position.X - mousex
            Me.Top = Windows.Forms.Cursor.Position.Y - mousey
        End If
    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        drag = False
    End Sub
End Class
avatar
WRcod3r
WRcod3r
Posts : 19
Join date : 2018-01-02
View user profile

Release Re: [Release] FormBoardStyle = None ( Moving )

on Sun Jan 28, 2018 4:22 pm
Good but whats the feature at ano to???
Back to top
Permissions in this forum:
You cannot reply to topics in this forum