|
Public Class UserControl1
' サイズ変更
Private Sub SetSize()
ComboBox1.Width = Me.Width
Me.Height = ComboBox1.Height
End Sub
' 初期イベント
Private Sub UserControl1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
SetSize()
End Sub
' サイズ変更イベント
Private Sub UserControl1_Resize(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Resize
SetSize()
End Sub
End Class
| |