VB .Net_3

Dim btn1 As Button

btn1 = New Button()
btn1.Text = "左邊"
btn1.Location = New Point(15, 15)
btn1.Size = New Size(120, 50)
btn1.Tag = "1"
btn2.Dock = DockStyle.None
btn2.Dock = DockStyle.Bottom
AddHandler btn1.Click, AddressOf btnNumber_Click '...
Me.leftpanel.Controls.Add(btn1) '此按鈕出現leftpanel的地方

Private Sub btnNumber_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Addbutton.Click
囧rz...
End Sub

=============================================================
delegate...聽不下去了 sorry...XD

VB .Net_2

第二個禮拜

變數宣告：Dim x, y As integer
Dim
Public
Private
Protected

談論有關傳值問題：
value or reference

IF:
If name IsNot Nothing Then
If x<>0 AndAlso y<>x Then
If x>2 OrElse y<>0 Then

Switch Case:
Select Case x
Case "0"c To "9"c
'It's a digit.
Case "A"c To "Z"c, "a"c To "z"c
'It's a letter.
Case "."c, ","c, " "c, ";"c, ":"c, "?"c
'It's a space or a punctuation mark.
Case Else
'It's cometing else.
End Select

這兩個禮拜的東西要生出一個計算機？！酷～

VB .Net_1

.Net 第一堂
新增專案
選擇windows應用程式

屬性：
Text-視窗(標題)按鈕(按鈕上的字)
Panel
Button

AppendLine:一個方便的副函式...有誰可以幫我解釋底下的程式碼嗎？
Sub AppendLine(ByVal x As String)
Me.Text1.AppendText(x & vbCrLf)
End Sub

鶴！TAKER's Course創立！！

鑒於課程繁多，要寫的程式也不少，每個程式之間雖然都有相似之處，但是畢竟有其特殊的地方，以及各種用法，所以將上課內容打在這邊，以防忘記之時卻苦無資料可查。