カスタムコントロールでプロパティの自作から。 (ID:120734)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 すみません。コード訂正です<(_ _)> Private Sub mytextbox_LostFocus(〜)〜 Dim tb As TextBox = CType(cotr,TextBox)'←現在はここでエラー (データベース読込) tb.text = 検索結果 End Sub Protected cotr As String Public Property prcontr() As String Get Return cotr End Get Set(ByVal Value As String) cotr = Value End Set End Property