수다닷컴

폼위에서 마우스를 클릭하여 좌표를 읽어온뒤 그위에 동적 개체로 버튼을 생성하는 소스입니다.
폼이 최대화 상태에서는 제가 찍은 좌표에 알맞게 버튼이 생성되는데
최대화 상태가 아닌경우에는 제가 클릭한 위치와 다른 위치에 버튼이생성됩니다.
이를 수정하는 방법을 알려주시면 감사하겠습니다.
Public Class Form1
Public X As Integer
Public Y As Integer
Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
X = MousePosition.X
Y = MousePosition.Y
End Sub
Private Sub Form_Mouse_click()
End Sub
Dim mybutton As Button
Dim btnum As Integer = 0
Private Sub Form1_(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub 가로덕트생성ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 가로덕트생성ToolStripMenuItem.Click
Label1.Text = X
Label2.Text = Y
btnum = btnum + 1
mybutton = New Button
mybutton.BackColor = Color.Blue
mybutton.Size = New Size(120, 20)
mybutton.Location = New Point(X, Y - 20)
Controls.Add(mybutton)
End Sub

End Class

신청하기