VB.NET 對(duì)象聲明 定義（實(shí)例化）不明白的問題

第一個(gè)相當(dāng)于 aa 就是Object的方法返回的那個(gè)實(shí)例。

創(chuàng)新互聯(lián)建站堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：網(wǎng)站設(shè)計(jì)、做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時(shí)代的建湖網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

第二個(gè)是實(shí)例化一個(gè)Object2類。

有些類的一些方法會(huì)返回一個(gè)結(jié)構(gòu)或者什么類。那么可以用第一種方法，將 aa 做為對(duì)這個(gè)返回實(shí)例的引用。

第二種方法，是通過調(diào)用類或結(jié)構(gòu)的初始化函數(shù)Sub New來(lái)實(shí)例化的。

哎，表達(dá)能力有限，也不曉得你明白了沒。

未將對(duì)象引用設(shè)置到對(duì)象的實(shí)例。 很奇怪的問題（VB.NET)

我大體看了一下

Dim a(), b(), c(), d() As String

這一行的幾個(gè)數(shù)組只進(jìn)行了聲明而沒有初始化。

你要注意一個(gè)問題，如果你要用一個(gè)數(shù)組，首先要指定它的初始大小，比如

Dim s(10) As String

這樣子，這個(gè)數(shù)組才能進(jìn)行使用。

如果一開始沒有指定大小，比如這樣：

Dim s() As String

這個(gè)數(shù)組是不能使用的，因?yàn)闆]有初始化。

要使用它，有兩種方法，一種是 ReDim

Dim s() As String

ReDim s(10)

或者，用New關(guān)鍵字初始化數(shù)組對(duì)象

Dim s() As String

s = New String(10) {}

注意，后面的大括號(hào)是必需的，否則編譯器會(huì)認(rèn)為你在調(diào)用String類的構(gòu)造函數(shù)

如果你像下面這樣初始化：

s= New String() {}

將等價(jià)于

s = New String(0){}

這個(gè)數(shù)組只有0個(gè)元素，你要是想用它還得ReDim

vb.net 未將對(duì)象引用設(shè)置到對(duì)象的實(shí)例

這個(gè)可能是你使用了初始值為NULL的字符串變量引起的吧？別忙處理字符串，你先查查Module1.myrow.Item(4)到底在SQL查詢之后有沒有成功得到非NULL值，如果為null，肯定會(huì)出現(xiàn)這個(gè)錯(cuò)誤的，報(bào)錯(cuò)那行設(shè)個(gè)斷點(diǎn)看看當(dāng)時(shí)各項(xiàng)值是否符合計(jì)算要求再說

希望對(duì)你能有所幫助。

“未將對(duì)象引用設(shè)置到對(duì)象的實(shí)例”錯(cuò)誤?。╒B.NET）

使用 RichTextBox 控件

RichTextBox 控件可用于輸入和編輯文本，它同時(shí)提供了比常規(guī)的 TextBox 控件更高級(jí)的格式特性。

RichTextBox 控件提供了一些屬性，通過這些屬性，可對(duì)該控件中任何部分的文本使用不同的格式。用這些屬性，可以將文本變?yōu)榇煮w或斜體，改變文本的顏色，創(chuàng)建上標(biāo)或下標(biāo)?？梢哉{(diào)整段落的左右縮進(jìn)值，還可以使用懸掛式縮進(jìn)。

用途

作為“無(wú)底”的文本框，可用于編寫閱讀特別大的文本文件的應(yīng)用程序。

在任何應(yīng)用程序中實(shí)現(xiàn)功能完備的文本編輯器。

特性

以 RTF 格式或 ASCII 文本格式打開或保存文件?？梢允褂迷摽丶姆椒ǎ↙oadFile 和 SaveFile），直接讀寫文件。也可以用該控件的屬性，比如 SelRTF 和 TextRTF，聯(lián)合 Visual Basic 的文件輸入輸出語(yǔ)句讀寫文件。

將 .rtf 文件的內(nèi)容裝入 RichTextBox 控件，只需將該文件（比如從 Windows 95 “資源管理器”中）的內(nèi)容直接拖入該控件，或者將其它應(yīng)用程序（比如 Microsoft Word）中使用文件的突出顯示部分直接拖入該控件。

設(shè)置 FileName 屬性，將 .rtf 或 .txt 文件的內(nèi)容裝入該控件。

用 SelPrint 方法打印 RichTextBox 控件中的全部或部分文本。

將 RichTextBox 控件綁定到 Data 控件，可以處理 Microsoft Access 數(shù)據(jù)庫(kù)的 Memo 字段，或者其它數(shù)據(jù)庫(kù)中大型的文本字段（比如 SQL 服務(wù)器中的 TEXT 數(shù)據(jù)類型）。

在運(yùn)行時(shí)，用 OLEObject 集合的 Add 方法，將嵌入對(duì)象，比如位圖、圖標(biāo)、應(yīng)用程序圖標(biāo)，加到該控件中。在設(shè)計(jì)時(shí)或運(yùn)行時(shí)，可以拖放任何嵌入對(duì)象到控件中，包括文檔，比如 Microsoft Excel 的電子表格和 Microsoft Word 文檔等。

在設(shè)計(jì)時(shí)設(shè)置滾動(dòng)條

按照缺省規(guī)定，RichTextBox 沒有滾動(dòng)條。在運(yùn)行時(shí)，如果在該控件中裝入了較大的文件，最終用戶就不能看到文件的全部?jī)?nèi)容了。為使用戶能夠方便地進(jìn)行滾動(dòng)，可將其 ScrollBars 屬性設(shè)置為 1（水平的）、2（豎直的）或 3（兩個(gè)都有）。這必須在設(shè)計(jì)時(shí)完成，因?yàn)?ScrollBars 屬性在運(yùn)行時(shí)是只讀的。

用 LoadFile 和 SaveFile 方法打開和保存文件

用 LoadFile 和 SaveFile 方法可以方便地為 RichTextBox 控件打開或保存 RTF 文件。要打開文件，可用 CommonDialog 控件提供路徑名，如下所示：

Private Sub OpenFile()

'RichTextBox 控件的名稱是“rtfData”。

'CommonDialog 名為“dlgOpenFile”。

'為文件名聲明 String 變量。

'顯示 “打開文件”對(duì)話框，

'并將變量設(shè)置為文件名。

Dim strOpen As String

dlgOpenFile.ShowOpen

strOpen = dlgOpenFile.FileName

'用 LoadFile 方法打開該文件。

rtfData.LoadFile strOpen

End Sub

用 SaveFile 方法，保存文件也同樣簡(jiǎn)便：

Private Sub SaveFile()

Dim strNewFile As String

dlgOpenFile.ShowSave

strNewFile = dlgOpenFile.FileName

rtfData.SaveFile strNewFile

End Sub

注意 如果文件中包含了該控件不能支持的 RTF 編碼，僅相關(guān)的文本在 RichTextBox 控件中將不會(huì)出現(xiàn)。

用 SelFontName、SelFontSize 和 SelFontColor 設(shè)置字體屬性

要改變 RichTextBox 控件中的字體特性，可以使用 SelFontName、SelFontSize 和 SelFontColor 屬性。

通常使用 ComboBox 控件顯示這些屬性的選項(xiàng)。隨后可用 ComboBox 控件的 Click 事件改變屬性。下面的代碼首先在 Form 對(duì)象的 Load 事件中，充填名為“cmbFonts”的 ComboBox 控件。然后用 Click 事件改變 RichTextBox 控件的 SelFontName 屬性。

Private Sub Form_Load()

Dim i As Integer

With cmbFonts

For i = 0 to Screen.Fonts.Count - 1

.AddItem Screen.Fonts(i).Text

End With

End Sub

Private Sub cmbFonts_Click()

rtfData.SelFontName = cmbFonts.Text

End Sub

重點(diǎn) 這些屬性只影響選中的文本，或者，如果沒有選中文本，則影響當(dāng)前光標(biāo)位置之后鍵入的文本。

格式化段落的縮進(jìn)、懸掛式縮進(jìn)和項(xiàng)目符號(hào)

RichTextBox 控件的另一個(gè)特性是它可以創(chuàng)建有縮進(jìn)、懸掛式縮進(jìn)和項(xiàng)目符號(hào)的段落。這三種樣式顯示如下：

縮進(jìn)和帶項(xiàng)目符號(hào)的縮進(jìn) (rtf_3ind.bmp)

要使用 SelFontName、SelFontSize 和 SelFontColor 屬性，最終用戶必須選中一個(gè)或多個(gè)段落。在這里，假設(shè)用戶只選中了第二段，創(chuàng)建縮進(jìn)和懸掛式縮進(jìn)的代碼如下所示：

'假設(shè)該控件的名稱是“rtfData”。

rtfData.SelIndent = .5

rtfdata.SelHangingIndent = 1.5

請(qǐng)注意用于設(shè)置 SelIndent、SelHangingIndent、BulletIndent 和其它屬性的值，要依賴于 RichTextBox 控件的容器的 ScaleMode 屬性。例如，如果 RichTextBox 控件的容器是 Form 對(duì)象，則將該 Form 對(duì)象的 ScaleMode 屬性由 7（厘米）改為 1（緹）時(shí)，SelIndent 屬性必須同時(shí)由 0.5（厘米）改為 283（緹）。這是因?yàn)橐焕迕?= 567 緹。

同時(shí)還要注意段落的 SelBullet 屬性必須設(shè)置為 True，才能將該段設(shè)置為有項(xiàng)目符號(hào)的樣式。

用 SelChange 事件通知屬性的變化

要通告用戶選中的任何文本的當(dāng)前屬性，可以使用 SelChange 事件。每當(dāng)插入點(diǎn)改變，或者選中內(nèi)容被改變時(shí)，均會(huì)產(chǎn)生該事件。下面的示例用 Toolbar 控件通告用戶 SelBold 屬性的變化。

Private Sub rtfData_SelChange()

'重新設(shè)置 Toolbar 的 Button 對(duì)象的

' Value 屬性。該 Toolbar 控件的名稱是

'“tlbRTF”。

'SelBold 返回 0、-1 或 Null。如果它為 Null

'則將其 Mi xedState 屬性設(shè)置為 True。

Select Case rtfData.SelBold

Case 0 '不是粗體。

tlbRTF.Buttons("bold").Value = tbrUnpressed

Case -1 '粗體。

tlbRTF.Buttons("bold").Value = tbrPressed

Case Else '混合狀態(tài)。

tlbRTF.Buttons("bold").Mi xedState = True

End Select

End Sub

用 SelPrint 方法打印 RichTextBox 的內(nèi)容

要打印 RichTextBox 控件，可以使用 SelPrint 方法。該方法需要一個(gè)參數(shù)，即用來(lái)打印 RichTextBox 控件內(nèi)容的 Printer 對(duì)象的 hDC 屬性。如果用戶選中了某些文本，則只打印選中的文本。如果沒有選中任何文本，則打印該控件的所有內(nèi)容。

下面的代碼，在用戶單擊 CommandButton 控件后，用 CommonDialog 控件顯示“打印機(jī)”對(duì)話框。Flags 屬性禁用了頁(yè)碼，并使用戶能夠在該對(duì)話框中選擇多種選項(xiàng)：

Private Sub cmdPrint_Click()

'CommonDialog 控件的名稱是“dlgPrint”。

dlgPrint.Flags = cdlPDReturnDC + cdlPDNoPageNums

If rtfData.SelLength = 0 Then

dlgPrint.Flags = dlgPrint.Flags + cdlPDAllPages

Else

dlgPrint.Flags = dlgPrint.Flags + cdlPDSelection

End If

dlgPrint.ShowPrinter

rtfData.SelPrint dlgPrint.hDC

End Sub

詳細(xì)信息 有關(guān)使用 CommonDialog 控件的詳細(xì)說明，請(qǐng)參閱《Visual Basic程序員指南》中的“使用 CommonDialog 控件”。

在控件中顯示嵌入對(duì)象

在運(yùn)行時(shí)，最終用戶可拖動(dòng)任何嵌入對(duì)象，并放入 RichTextBox 控件。在控件中可以嵌入兩種對(duì)象：以圖標(biāo)形式顯示的對(duì)象，和以數(shù)據(jù)形式顯示的對(duì)象。下圖顯示了具有嵌入文件對(duì)象的 RichTextBox，作為第一種類型的示例。

單擊后，嵌入的對(duì)象就會(huì)象預(yù)料的那樣，即啟動(dòng)與該文件相關(guān)聯(lián)的應(yīng)用程序。當(dāng)控件中的數(shù)據(jù)以 RTF 文件形式保存時(shí)（用 SaveFile 方法），嵌入對(duì)象中的信息也將被保存。

然而，如果最終用戶在該控件中嵌入位圖，則將顯示該位圖，而不是它的圖標(biāo)，如下所示：

單擊該位圖將啟動(dòng) Paint 應(yīng)用程序，使最終用戶能夠編輯該位圖。

用 OLEObjects 集合的 Add 方法添加嵌入對(duì)象

用 OLEObject 集合的 Add 方法可將嵌入對(duì)象以編程方式加入該控件，如下所示：

Private Sub cmdAddObject_Click()

'將蝴蝶位圖添加到該控件中。

RichTextBox1.OLEObjects.Add , , , "bfly.bmp"

End Sub

在運(yùn)行時(shí)，可用 Add、Clear 和 Remove 方法，動(dòng)態(tài)地向該控件中充填嵌入對(duì)象。