Visual Basic 6.0 中的 TextBox 控件在 Visual Basic 2005 中由 Windows 窗體 TextBox 控件所取代。某些屬性、方法、事件和常數(shù)的名稱是不同的，在某些情況下，行為也有所不同。
在 Visual Basic 6.0 中，MaxLength 屬性確定可以輸入到 TextBox 控件中的字符數(shù)。如果嘗試以編程方式插入文本，則該文本會(huì)在 MaxLength 屬性指定的長(zhǎng)度處截?cái)唷?/p>
在 Visual Basic 2005 中，MaxLength 屬性的行為不再應(yīng)用于以編程方式添加的文本。若要復(fù)制 Visual Basic 6.0 行為，需要自己截?cái)嘧址?/p>
在 Visual Basic 6.0 中，PasswordChar 屬性的類型為 String；在 Visual Basic 2005 中，它的類型為 Char。
此外，還有許多應(yīng)用于所有控件的概念差異，包括數(shù)據(jù)綁定、字體處理、拖放操作、幫助支持等方面的差異。有關(guān)更多信息，請(qǐng)參見(jiàn)適用于 Visual Basic 6.0 用戶的 Windows 窗體概念。
下面的示例演示 Visual Basic 6.0 和 Visual Basic 2005 在編碼方法上的不同之處。
下面的代碼演示如何在 TextBox 控件中搜索一個(gè)字符串并突出顯示它。
 | |
|---|---|
' 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 | |
|---|---|
' Visual Basic 2005 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 | |
下面的代碼演示如何使用 MaxLength 屬性來(lái)指定最大字符數(shù)。
| |
|---|---|
' 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 | |
|---|---|
' Visual Basic 2005 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 | |
下面幾個(gè)表列出了 Visual Basic 6.0 中的屬性、方法和事件及它們的 Visual Basic 2005 等效項(xiàng)。具有相同的名稱和行為的屬性、方法和事件未予列出。除非另外說(shuō)明，否則所有 Visual Basic 2005 枚舉都映射到
此表提供相關(guān)主題的鏈接，這些主題對(duì)行為之間的差異進(jìn)行說(shuō)明。如果 Visual Basic 2005 中沒(méi)有直接等效項(xiàng)，則提供指向介紹替換項(xiàng)的主題的鏈接。
| Visual Basic 6.0 | Visual Basic 2005 等效項(xiàng) | ||
|---|---|---|---|
| Alignment | | ||
| Appearance | 新的實(shí)現(xiàn)。有關(guān)更多信息，請(qǐng)參見(jiàn) Appearance 和 BorderStyle 屬性（針對(duì) Visual Basic 6.0 用戶）。 | ||
| BackColor |
| ||
| Container | | ||
| DataChanged DataField DataFormat DataMember DataSource | 新的實(shí)現(xiàn)。有關(guān)更多信息，請(qǐng)參見(jiàn)適用于 Visual Basic 6.0 用戶的數(shù)據(jù)訪問(wèn)。 | ||
| DragIcon DragMode | 新的實(shí)現(xiàn)。有關(guān)更多信息，請(qǐng)參見(jiàn)拖放（針對(duì) Visual Basic 6.0 用戶）。 | ||
| Font FontBold FontItalic FontName FontSize FontStrikethrough FontUnderline |
| ||
| ForeColor |
| ||
| Height |
| ||
| HelpContextID | 新的實(shí)現(xiàn)。有關(guān)更多信息，請(qǐng)參見(jiàn)幫助支持（針對(duì) Visual Basic 6.0 用戶）。 | ||
| HWnd | | ||
| Index | 新的實(shí)現(xiàn)。有關(guān)更多信息，請(qǐng)參見(jiàn)控件數(shù)組（針對(duì) Visual Basic 6.0 用戶）。 | ||
| Left |
| ||
| LinkItem LinkMode LinkTimeOut LinkTopic | 新的實(shí)現(xiàn)。有關(guān)更多信息，請(qǐng)參見(jiàn)動(dòng)態(tài)數(shù)據(jù)交換（針對(duì) Visual Basic 6.0 用戶）。 | ||
| Locked | | ||
| MouseIcon | 新的實(shí)現(xiàn)。有關(guān)更多信息，請(qǐng)參見(jiàn)無(wú)法設(shè)置自定義 MousePointer。 | ||
| MousePointer | 有關(guān)常數(shù)的列表，請(qǐng)參見(jiàn) MousePointer（針對(duì) Visual Basic 6.0 用戶）。 | ||
| OLEDragMode OLEDropMode | 新的實(shí)現(xiàn)。有關(guān)更多信息，請(qǐng)參見(jiàn)拖放（針對(duì) Visual Basic 6.0 用戶）。 | ||
| Parent | | ||
| SelLength | | ||
| SelStart | | ||
| SelText | | ||
| ToolTipText | 有關(guān)更多信息，請(qǐng)參見(jiàn)工具提示支持（針對(duì) Visual Basic 6.0 用戶）。 | ||
| Top |
| ||
| WhatsThisHelpID | 新的實(shí)現(xiàn)。有關(guān)更多信息，請(qǐng)參見(jiàn)幫助支持（針對(duì) Visual Basic 6.0 用戶）。 | ||
| Width |
|
| Visual Basic 6.0 | Visual Basic 2005 等效項(xiàng) | ||
|---|---|---|---|
| Drag | 新的實(shí)現(xiàn)。有關(guān)更多信息，請(qǐng)參見(jiàn)拖放（針對(duì) Visual Basic 6.0 用戶）。 | ||
| LinkExecute LinkPoke LinkRequest LinkSend | 新的實(shí)現(xiàn)。有關(guān)更多信息，請(qǐng)參見(jiàn)動(dòng)態(tài)數(shù)據(jù)交換（針對(duì) Visual Basic 6.0 用戶）。 | ||
| Move |
| ||
| OLEDrag | 新的實(shí)現(xiàn)。有關(guān)更多信息，請(qǐng)參見(jiàn)拖放（針對(duì) Visual Basic 6.0 用戶）。 | ||
| SetFocus | | ||
| ShowWhatsThis | 新的實(shí)現(xiàn)。有關(guān)更多信息，請(qǐng)參見(jiàn)幫助支持（針對(duì) Visual Basic 6.0 用戶）。 | ||
| ZOrder | |
| Visual Basic 6.0 | Visual Basic 2005 等效項(xiàng) |
|---|---|
| Change | |
| DblClick | |
| DragDrop DragOver | 新的實(shí)現(xiàn)。有關(guān)更多信息，請(qǐng)參見(jiàn)拖放（針對(duì) Visual Basic 6.0 用戶）。 |
| GotFocus | |
| LinkClose LinkError LinkNotify LinkOpen | 新的實(shí)現(xiàn)。有關(guān)更多信息，請(qǐng)參見(jiàn)動(dòng)態(tài)數(shù)據(jù)交換（針對(duì) Visual Basic 6.0 用戶）。 |
| LostFocus | |
| OLECompleteDrag OLEDragDrop OLEDragOver OLEGiveFeedback OLESetData OLEStartDrag | 新的實(shí)現(xiàn)。有關(guān)更多信息，請(qǐng)參見(jiàn)拖放（針對(duì) Visual Basic 6.0 用戶）。 |
| Validate | |
當(dāng) Visual Basic 6.0 應(yīng)用程序升級(jí)到 Visual Basic 2005 時(shí)，任何 TextBox 控件都升級(jí)為 Windows 窗體 TextBox 控件，屬性、方法和事件升級(jí)為它們的等效項(xiàng)。在可能存在行為差異的情況下，向代碼中插入升級(jí)注釋。
聯(lián)系客服
