Các bài tập Microsoft .NET 26
nhưng vẫn phải biên một tên dài như System.IO.StreamReader để tránh
lẫn lộn. Để có thể viết tên class gọn hơn ta dùng Imports như Imports
System.IO, sau đó ta chỉ cần viết StreamReader là đủ. Công việc
Imports này được gọi là importing Namespace (của System.IO).
Tương tự như thế, để có thể tiếp tục dùng các Functions Left, Right, Mid
của VB6 trong .NET ta có thể thêm câu Imports VB6 =
Microsoft.VisualBasic ở đầu chương trình. Sau đó ta có thể viết:
AppPath = VB6.Left(AppPath, Pos)
Nguyên program chúng ta tại đây là Public Class Form1. Form1 thừa kế
standard form class của .NET Framework nên ta declare:
Inherits System.Windows.Forms.Form
Imports System.IO
Imports VB6 = Microsoft.VisualBasic
Public Class Form1
Inherits System.Windows.Forms.Form
Dim AppPath As String
Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles MenuItem4.Click
End ' Terminate the program
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
' Obtain the folder where this program EXE resides and initialise tooltip
Các bài tập Microsoft .NET 27
Dim AppPath As String
Dim Pos As Integer
' Fetch full pathname of the EXE file
AppPath = System.Reflection.Assembly.GetExecutingAssembly.Location
' Locate the last slash in the pathname string
Pos = InStrRev(AppPath, "/")

Nếu bạn vẫn còn thấy khó hiểu thì hãy đọc thí dụ này. Tưởng tượng bạn
làm biếng nấu ăn nên đặt nhà hàng giao cơm mỗi ngày đến tận nhà. Có
hai cách để bạn nhận "gà-mên" cơm:
1. Người giao cơm sẽ để "gà-mên" cơm trước nhà, cạnh
bên hộp thư. Khi đi làm về, bạn sẽ mang nó vô nhà.
Trong trường hợp này bạn xử lý công việc khi nào
tiện, tức là lúc về đến nhà. Cách này có điểm bất lợi là
hôm nào bạn đi làm về trể thì cơm có thể bị thiêu vì
trời nóng.
Bạn đưa chìa khóa nhà cho người giao cơm giữ. Khi giao cơm, người ấy
sẽ tự động mở cửa vô nhà để "gà-mên" thẳng vào trong tủ lạnh. Trong
cách này Event GiaoCơm được handled bằng EventHandler Sub
OpenDoorPutIntoFridge, do người giao cơm xử lý, chớ không phải
chính bạn.
Như thế, là Subscriber (người ăn cơm tháng giao tận nhà) bạn register
EventHandler "Sub OpenDoorPutIntoFridge" với người giao cơm qua
Các bài tập Microsoft .NET 29
việc đưa chìa khóa. Khi Event "GiaoCơm" xãy ra, người giao cơm tự
động executes Sub OpenDoorPutIntoFridge. Kỹ thuật giao AddressOf
Sub cho một Object khác để nó execute khi cần còn có tên là CallBack.
Do đó, ngay cả trong lúc runtime (không phải khi design), để Register
EventHandler Sub MenuItem4_Click với system để handle Event Click
của MenuItem4 ta có thể execute code:
AddHandler MenuItem4.Click, AddressOf MenuItem4_Click
Lưu ý cách ta dùng control ToolTip1 để register Tooltip Text với
Listbox1. Ta có thể dùng chỉ một control ToopTip1 để register nhiều
Tooltip Texts với những controls khác nhau như TextBox, ComboBox
.v.v
Bạn có thể thay thế hàng:
AppPath = VB6.Left(AppPath, Pos)