'コントロールのサイズを適当に変更
Button1.SetBounds(62, 12, 153, 53)
'コントロールの形を変更
Dim path As New System.Drawing.Drawing2D.GraphicsPath()
'丸を描く
path.AddEllipse(New Rectangle(20, 1, 100, 50))
Button1.Region = New Region(path)
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
TextBox1.Text = 20
TextBox2.Text = 1
TextBox3.Text = 100
TextBox4.Text = 50
Call setSize()
End Sub
Sub setSize()
'コントロールの形を変更
Dim path1 As New System.Drawing.Drawing2D.GraphicsPath()
'丸を描く
path1.AddEllipse(New Rectangle(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text))
Button1.Region = New Region(path1)
Me.Refresh()
End Sub
Private Sub TextBox1_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles _
TextBox1.Validating, _
TextBox2.Validating, _
TextBox3.Validating, _
TextBox4.Validating
Call setSize()
End Sub