ایجاد متد برای اشیا

[oliya24]

سلام و خسته نباشید دوستان من میخواستم بدونم چطور میشه یه متد به یه کنترل مثل دکمه اضافه کرد چیز خاصی مد نظرم نیست فقط میخوام این کار رو یاد بگیرم لطفا اگر میشه یه مثال بزنید
ممنون از بزرگواریتون

[f_soltani]

دوست عزیز پیشنهاد میدم مباحث شی گرایی یه مقدار مطالعه کنید و زبان رو مشخص کنید تا یه نمونه بفرستم برای شما

[oliya24]

خوب من هم دارم همین کار رو میکنم دارم مباحث شی گرایی رو کار میکنم و زبان هم که معلومه دیگه vb.net ممنون میشم اگر کمک کنید

[hosseinmghi]

Public Class NewControl
Inherits ControlName

Public Sub MethodName()
...
End Sub

End Class

[oliya24]

دوست عزیز میشه بیشتر موضوع رو باز کنید میشه خواهش کنم یه برنامه بزارید ممنون میشم

[hosseinmghi]

Public Class MyTextBox
Inherits TextBox
#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()
End Sub

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
MyBase.Dispose(disposing)
End Sub

#End Region

Public Enum DefaultLan
Farsi = 1
English = 2
End Enum

Private _Lan As DefaultLan = DefaultLan.Farsi
Private CurLan As String
Private _ChangeLanKey As Keys = Keys.F12
Private _ToolTip As New ToolTip
Private _FieldName As String

#Region " Properties "

<Description("This Text Display In ToolTip Frame."), Category("_FRK")> _
Public Property ToolTipText() As String
Get
Return _ToolTip.GetToolTip(Me)
End Get
Set(ByVal Value As String)
_ToolTip.SetToolTip(Me, Value)
End Set
End Property

<Description("Setting Language ShortCut Key."), Category("_FRK")> _
Public Property LanguageChangeKey() As Keys
Get
Return _ChangeLanKey
End Get
Set(ByVal Value As Keys)
_ChangeLanKey = Value
End Set
End Property

<Description("Setting Default Language As Farsi."), Category("_FRK")> _
Public Property DefaultLanguage() As DefaultLan
Get
Return _Lan
End Get
Set(ByVal Value As DefaultLan)
_Lan = Value
End Set
End Property

#End Region

#Region " Event Handlers "

Private Sub TextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.GotFocus
Me.BackColor = Color.LightSteelBlue
Select Case _Lan
Case DefaultLan.Farsi
Dim Fcul As New CultureInfo("fa-IR")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(Fcul)

Me.CurLan = "Far"
Case DefaultLan.English
Dim Ecul As New CultureInfo("en-US")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(Ecul)
Me.CurLan = "Eng"
End Select
MyBase.SelectAll()
End Sub

Private Sub TextBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Enter Then My.Computer.Keyboard.SendKeys("{TAB}")
If e.KeyCode = _ChangeLanKey Then
Select Case _Lan
Case DefaultLan.Farsi
Dim Fcul As New CultureInfo("fa-IR")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(Fcul)
Me.CurLan = "Far"
Case DefaultLan.English
Dim Ecul As New CultureInfo("en-US")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(Ecul)
Me.CurLan = "Eng"
End Select
End If
End Sub
Private Sub MyTextBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LostFocus
If Me.ReadOnly = True Then
Me.BackColor = System.Drawing.SystemColors.Control
Else
Me.BackColor = Color.White
End If
End Sub
Private Sub MyTextBox_ReadOnlyChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ReadOnlyChanged
If Me.ReadOnly = True Then
Me.BackColor = System.Drawing.SystemColors.Control
ElseIf Me.ReadOnly = False Then
Me.BackColor = Color.White
End If
End Sub
#End Region


End Class