Элемент управления TextBox для пользователей Visual Basic 6.0

Статья
11/05/2008

Обновлен: Ноябрь 2007

Элемент управления TextBox в Visual Basic 6.0 заменяется элементом управления TextBox Windows Forms в Visual Basic 2008. Имена некоторых свойств, методов, событий и констант различаются, а в некоторых случаях имеется различие в их поведении.

Концептуальные различия

В Visual Basic 6.0 свойство MaxLength определяет количество знаков, которые можно ввести в элемент управления TextBox. Если текст вставляется программным способом, текст будет сокращен до длины, указанной в свойстве MaxLength.

В Visual Basic 2008 поведение свойства MaxLength больше не поддерживается для текста, добавляемого программным способом. Чтобы продублировать поведение Visual Basic 6.0, необходимо вручную сократить строку.

В Visual Basic 6.0 свойство PasswordChar имеет тип String; в Visual Basic 2008 оно имеет тип Char.

Дополнительно имеются многочисленные концептуальные различия, применяемые ко всем элементам управления, включая различия в привязке данных, обработке шрифтов, операциях перетаскивания, поддержке справки и т. д. Дополнительные сведения см. в разделе Концепции форм Windows Forms (для пользователей Visual Basic 6.0).

Изменения кода для элемента управления TextBox

Следующие примеры иллюстрируют различия в методах кодирования между Visual Basic 6.0 и Visual Basic 2008.

Изменения кода для поиска в элементе управления TextBox

В следующем коде показано, как выполнить поиск строки в элементе управления TextBox и выделить ее.

' Visual Basic 6.0
Private Sub Form_Load ()
    Text1.Text = "Two of the peak human experiences"
    Text1.Text = Text1.Text & " are good food and classical music."
End Sub
Private Sub Form_Click ()
    Dim Search, Where
    ' Get search string from user.
    Search = InputBox("Enter text to be found:")
    ' Find string in text.
    Where = InStr(Text1.Text, Search)
    If Where Then
        Text1.SetFocus
        Text1.SelStart = Where - 1
        Text1.SelLength = Len(Search)
    Else
        MsgBox "String not found."
    End If
End Sub

' Visual Basic
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MyBase.Load
    TextBox1.Text = "Two of the peak human experiences are "
    TextBox1.Text = TextBox1.Text & "good food and classical music."
End Sub
Private Sub Form1_Click(ByVal sender As Object, ByVal e As _
System.EventArgs) Handles Me.Click
    Dim Search As String
    Dim Where As String
    ' Get search string from user.
    Search = InputBox("Enter text to be found:")
    ' Find string in text.
    Where = InStr(TextBox1.Text, Search)
    If Where Then
        TextBox1.Focus()
        TextBox1.SelectionStart = Where - 1
        TextBox1.SelectionLength = Len(Search)
    Else
        MsgBox("String not found.")
    End If
End Sub

Изменения кода для ограничения количества знаков в элементе управления TextBox

В следующем коде показано, как с помощью свойства MaxLength задать максимальное число знаков.

' Visual Basic 6.0
Private Sub Form_Load()
    Text1.MaxLength = 5
End Sub
Private Sub SetText()
    ' Only the first five characters will be displayed.
    Text1.Text = "Hello World"
End Sub

' Visual Basic
Private Sub Form1_Load2(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MyBase.Load
    TextBox1.MaxLength = 5
End Sub
Private Sub SetText()
    ' Truncate the string to equal MaxLength.
    TextBox1.Text = Strings.Left("Hello World", TextBox1.MaxLength)
End Sub

Эквиваленты свойств, методов и событий элемента управления TextBox

В следующей таблице приведен список свойств, методов и событий Visual Basic 6.0 с их эквивалентами Visual Basic 2008. Свойства, методы и события, имена и поведение которых остались без изменения, не указываются. Если не указано иное, все перечисления Visual Basic 2008 сопоставлены пространству имен System.Windows.Forms.

В этой таблице содержатся ссылки на разделы, в которых объясняются различия в поведении. Если нет прямого эквивалента в Visual Basic 2008, приводятся ссылки на разделы, содержащие альтернативные решения.

Свойства

Visual Basic 6.0	Эквивалент Visual Basic 2008
Alignment	TextAlign
Appearance	Новая реализация. Дополнительные сведения см. в разделе Свойства Appearance и BorderStyle (для пользователей Visual Basic 6.0).
BackColor	BackColor Примечание. Обработка цветов отличается в Visual Basic 2008. Дополнительные сведения см. в разделе Обработка цветов для пользователей Visual Basic 6.0.
Container	Parent
DataChanged DataField DataFormat DataMember DataSource	Новая реализация. Дополнительные сведения см. в разделе Доступ к данным для пользователей Visual Basic 6.0.
DragIcon DragMode	Новая реализация. Дополнительные сведения см. в разделе Действие перетаскивания для пользователей Visual Basic 6.0.
Font FontBold FontItalic FontName FontSize FontStrikethrough FontUnderline	Font Примечание. Обработка шрифтов отличается в Visual Basic 2008. Дополнительные сведения см. в разделе Объект Font (для пользователей Visual Basic 6.0).
ForeColor	ForeColor Примечание. Обработка цветов отличается в Visual Basic 2008. Дополнительные сведения см. в разделе Обработка цветов для пользователей Visual Basic 6.0.
Height	Height, Size Примечание. Обработка координат отличается в Visual Basic 2008. Дополнительные сведения см. в разделе Система координат (для пользователей Visual Basic 6.0).
HelpContextID	Новая реализация. Дополнительные сведения см. в разделе Поддержка справки (для пользователей Visual Basic 6.0).
HWnd	Handle
Index	Новая реализация. Дополнительные сведения см. в разделе Массивы элементов управления для пользователей Visual Basic 6.0.
Left	Left Примечание. Обработка координат отличается в Visual Basic 2008. Дополнительные сведения см. в разделе Система координат (для пользователей Visual Basic 6.0).
LinkItem LinkMode LinkTimeOut LinkTopic	Новая реализация. Дополнительные сведения см. в разделе Динамический обмен данными для пользователей Visual Basic 6.0.
Locked	ReadOnly
MouseIcon	Новая реализация. Дополнительные сведения см. в разделе Невозможно задать настраиваемый указатель мыши MousePointer.
MousePointer	Cursor Список констант см. в разделе Свойство MousePointer (для пользователей Visual Basic 6.0).
OLEDragMode OLEDropMode	Новая реализация. Дополнительные сведения см. в разделе Действие перетаскивания для пользователей Visual Basic 6.0.
Parent	Метод FindForm.
SelLength	SelectionLength
SelStart	SelectionStart
SelText	SelectedText
ToolTipText	Компонент ToolTip. Дополнительные сведения см. в разделе Поддержка подсказок (для пользователей Visual Basic 6.0).
Top	Top Примечание. Обработка координат отличается в Visual Basic 2008. Дополнительные сведения см. в разделе Система координат (для пользователей Visual Basic 6.0).
WhatsThisHelpID	Новая реализация. Дополнительные сведения см. в разделе Поддержка справки (для пользователей Visual Basic 6.0).
Width	Width, Size Примечание. Обработка координат отличается в Visual Basic 2008. Дополнительные сведения см. в разделе Система координат (для пользователей Visual Basic 6.0).

Методы

Visual Basic 6.0	Эквивалент Visual Basic 2008
Drag	Новая реализация. Дополнительные сведения см. в разделе Действие перетаскивания для пользователей Visual Basic 6.0.
LinkExecute LinkPoke LinkRequest LinkSend	Новая реализация. Дополнительные сведения см. в разделе Динамический обмен данными для пользователей Visual Basic 6.0.
Move	SetBounds Примечание. Обработка координат отличается в Visual Basic 2008. Дополнительные сведения см. в разделе Система координат (для пользователей Visual Basic 6.0).
OLEDrag	Новая реализация. Дополнительные сведения см. в разделе Действие перетаскивания для пользователей Visual Basic 6.0.
SetFocus	Focus
ShowWhatsThis	Новая реализация. Дополнительные сведения см. в разделе Поддержка справки (для пользователей Visual Basic 6.0).
ZOrder	Функция BringToFront или SendToBack

События

Visual Basic 6.0	Эквивалент Visual Basic 2008
Change	TextChanged
DblClick	DoubleClick
DragDrop DragOver	Новая реализация. Дополнительные сведения см. в разделе Действие перетаскивания для пользователей Visual Basic 6.0.
GotFocus	Enter
LinkClose LinkError LinkNotify LinkOpen	Новая реализация. Дополнительные сведения см. в разделе Динамический обмен данными для пользователей Visual Basic 6.0.
LostFocus	Leave
OLECompleteDrag OLEDragDrop OLEDragOver OLEGiveFeedback OLESetData OLEStartDrag	Новая реализация. Дополнительные сведения см. в разделе Действие перетаскивания для пользователей Visual Basic 6.0.
Validate	Validating

Замечания по обновлению

При обновлении приложения Visual Basic 6.0 до Visual Basic 2008 все элементы управления TextBox обновляются до элементов управления TextBox Windows Forms, а свойства, методы и события обновляются до их эквивалентов. Если возможно различие в поведении, в соответствующий код вставляются комментарии об обновлении.

См. также

Ссылки

Общие сведения об элементе управления TextBox (Windows Forms)

Поделиться через