Создаю свой объект без труда:
- Код: Выделить всё
Public Class MyTextBox
Inherits TextBox
Public Sub New()
MyBase.New()
End Sub
Public Property DefaultLanguage() As String
Get
Return InputLanguage.CurrentInputLanguage.Culture.DisplayName
End Get
Set(ByVal value As String)
For Each Lng As InputLanguage In InputLanguage.InstalledInputLanguages
If Lng.Culture.DisplayName.ToUpper.Contains(Lng.ToString.ToUpper) Then InputLanguage.CurrentInputLanguage = Lng
Next
End Set
End Property
End Class
Нахожу его в объектах и вставляю на форму. В свойствах появилось новое DefaultLanguage = "English (United States)"
Все отлично! А как сделать, чтобы в самих свойствах появлялся бы не текст бокс, а комбо бокс со всеми доступными языками?
Спасибо!
