|
分類:[VB.NET/VB2005 以降]
VB 2017
カスタムコントロールで作成したテキストボックス(以降カスタムテキストボックス)に新たなプロパティを追加し、それをデザインのプロパティ画面でいじれるようにしたいのですがどのようにすればよいのでしょうか。
Imports System.ComponentModel
Imports System.Windows.Forms
Public Class CustomTextBox
Inherits TextBox
Private newPropertyValue As Boolean = False
Public Property NewProperty() As Boolean
Get
Return newPropertyValue
End Get
Set(ByVal value As Boolean)
newPropertyValue = value
End Set
End Property
Private Sub NewTextBox_Validating(sender As Object, e As CancelEventArgs) Handles Me.Validating
If Me.Text = "" Then
MessageBox.Show("何か書いて！")
End If
End Sub
End Class
|