VB.NET カスタムコンボボックス

  デザイナ用の設定



張り付けたコンボボックスの位置を( 0, 0 ) として、以下のコードを追加

  
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
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ