deitel的VB心得

vbTab可以對齊列文字

 

Sub SquareByReference(ByRef number As Integer)

SquareByReference((number3)) ' passes number3 by value

如果參數封閉在圓括弧中，參數number3的一個副本（相當於一個運算式）傳遞給過程，即使過程頭包含關鍵字byref，number3不會發生改變。

 

GetCurrentDirectory

    ' returns dice image
    Function GetDiceImage(ByVal DiceValue As Integer, _
Optional ByVal baseImageName As String = "dice") As System.Drawing.Image

Return Image.FromFile(Directory.GetCurrentDirectory & _
"\Images\" & baseImageName & DiceValue & ".png")
End Function ' GetDiceImage

如何擷取目前的目錄，即與執行檔案相同的目錄。

 

向過程傳遞數組，注意關鍵字ByVal，儘管如此，數組傳遞引用

    Sub DayData(ByVal ar As Integer())

End Sub
Sub Main()
Dim ar As Integer() = New Integer(24) {}
        DayData(ar)
End Sub

is可以測試兩個變數是否是同一個地址。ByVal關鍵字可以被調用的過程修改調用者的引用。

 

Const變數必須在聲明時初始化，只能初始化為在編程時已經確定的常量值。Const一定是Shared類型的，並不需要Shared關鍵字的限定。

ReadOnly只能賦值一次，要麼在聲明時，要麼在類的建構函式中。執行個體ReadOnly在執行個體的建構函式中賦值，Shared ReadOnly在共用建構函式中賦值。ReadOnly的值可以在運行時確定。

每個類都應該覆蓋ToString方法，使其返回那個類對象的有用資訊。

成員函數一旦被繼承，就始終使用子類中定義的函數。

要避免函數過分的擴散；

建立太多的類，客戶很難在一個大型的類庫中找到合適的類。另一個極端是建立太少的類，每個類提供了實際的功能，但是這樣的類的功能太多了。

 

Xor表示改變現有狀態的意思。見下面代碼：

 

代碼

   ' use Xor to toggle italic, keep other styles same
    Private Sub chkItalic_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles chkItalic.CheckedChanged
        lblOutput.Font = New Font(
            lblOutput.Font.Name, lblOutput.Font.Size, lblOutput.Font.Style Xor FontStyle.Italic)
End Sub ' chkItalic_CheckedChanged

' use Xor to toggle bold, keep other styles same
    Private Sub chkBold_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles chkBold.CheckedChanged
        lblOutput.Font = New Font(
            lblOutput.Font.Name, lblOutput.Font.Size, lblOutput.Font.Style Xor FontStyle.Bold)
End Sub ' chkBold_CheckedChanged

 

 

不用檢查複選框的狀態，只是簡單的操作相應的位枚舉變數。Xor後面的變數始終為真，前面的變數是假的時候，結果變成真。前面變數為真的時候變成假。對於Flag型式的枚舉變數，相當於簡單的Not運算式。

 

1表示大於；0表示等於；-1表示小於