VB Form tərpənməsi

[Tofiq Huseynov]

Vb 2010 da hər hansı bir səkli nece ede bileremdi onan formu tərpətmək olsun

[Ʌüsal]

Forma 1 eded picturebox elave et

 

Public Class Form1 alt bolmune kodu yazin

 

Private oControlOffsetPoint As Point

 

PictureBox1-un MouseMove bolumune kodu yazin

 

Dim sX As Integer = RectangleToClient(New Rectangle(Windows.Forms.Cursor.Position.X, Windows.Forms.Cursor.Position.Y, 1, 1)).Left - oControlOffsetPoint.X

Dim sY As Integer = RectangleToClient(New Rectangle(Windows.Forms.Cursor.Position.X, Windows.Forms.Cursor.Position.Y, 1, 1)).Top - oControlOffsetPoint.Y

 

If e.Button = Windows.Forms.MouseButtons.Left Then

sender.Location = New Point(sX, sY)

PictureBox1.Left = sX

PictureBox1.Top = sY

End If

 

 

Umimi kod:

 

 

Public Class Form1

Private oControlOffsetPoint As Point

 

Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove

Dim sX As Integer = RectangleToClient(New Rectangle(Windows.Forms.Cursor.Position.X, Windows.Forms.Cursor.Position.Y, 1, 1)).Left - oControlOffsetPoint.X

Dim sY As Integer = RectangleToClient(New Rectangle(Windows.Forms.Cursor.Position.X, Windows.Forms.Cursor.Position.Y, 1, 1)).Top - oControlOffsetPoint.Y

 

If e.Button = Windows.Forms.MouseButtons.Left Then

sender.Location = New Point(sX, sY)

PictureBox1.Left = sX

PictureBox1.Top = sY

End If

End Sub

 

End Class

 

Qeyd:

 

Formu sekille terpetmeq qeribe geldi mene

men verdiyim kod sekili terpetmek olur form uzerinde

[AliZairov]

Ʌüsal salam. Mənə elə gəlir şəkil ilə dizayn edəcək ona görə istəyir.