Dạng bài tập về Micosoft.NET- P7

Dạng bài tập về Micosoft.NET- P7: Sau khi biết qua về .NET, câu hỏi bạn sẽ đặt ra là bạn có nên học lập trìnhtrên .NET hay không. Nói chung, về lập trình có nhiều tôn giáo nhưVC++/Java, VB6, Delphi ..v.v.. Bạn có thể chọn giữa C# và VB.NET.Đối với VB6 programmers, học lập trình VB.NET sẽ mất một thời gian,nhưng không khó. Nên nhớ rằng .NET không phải chỉ cho ta các ngônngữ lập trình, mà cả một hệ thống triển khai phần mềm chú trọng vàomục tiêu hơn là cách thức....
Nội dung trích xuất từ tài liệu:
Dạng bài tập về Micosoft.NET- P7Các bài tập Microsoft .NET 31Mỗi class đều có ít nhất một Sub New, gọi là Constructor (giống nhưClass_Initialize của VB6 class) và Sub Dispose, gọi là Destructor. Đólà hai Sub dùng để tạo ra và phá hủy Object. Vì Form1 thừa kế từStandard Form nên trong Sub New trước hết phải gọi constructorMyBase.New() của cha nó, và trong Sub Dispose sau hết phải gọidestructor MyBase.Dispose của cha nó.Mở Class View WindowBạn có thể Navigate trong Code qua Class View. DoubleClick lên tên củaObject hay Sub/Function trong Class View để mang cursor đến code củanó trong trang Edit.Các bài tập Microsoft .NET 32Bi u di n DragDropCode của DragDrop, lưu ý ta phải viết thêm Sub ListBox2_DragEnterđể handle Event DragEnter.Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.MouseEventArgs) HandlesListBox1.MouseDown Start the DragDrop process Dim ItemIndex As IntegerCác bài tập Microsoft .NET 33 Identify the Listbox item that has mousedown using mouse coordinates ItemIndex = ListBox1.IndexFromPoint(New System.Drawing.Point(e.X, e.Y)) Start the DragDrop process passing along the ListboxItem asListBox1.Items(ItemIndex) ListBox1.DoDragDrop(ListBox1.Items(ItemIndex),DragDropEffects.Copy Or DragDropEffects.Move)End SubPrivate Sub ListBox2_DragEnter(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.DragEventArgs) Handles ListBox2.DragEnter Apply the copy effect AND remember to set the property Allow Drop of Listbox2 to TRUE If (e.Data.GetDataPresent(DataFormats.Text)) Then e.Effect = DragDropEffects.Copy Else e.Effect = DragDropEffects.None End IfEnd SubPrivate Sub ListBox2_DragDrop(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.DragEventArgs) Handles ListBox2.DragDrop Dim LItem As StringCác bài tập Microsoft .NET 34 Obtain the Source ListItem String LItem = e.Data.GetData(DataFormats.Text).ToString Add it to Listbox2 ListBox2.Items.Add(LItem) Remove the Item from Listbox1 ListBox1.Items.RemoveAt(ListBox1.FindString(LItem))End SubKhi Load data vào Listbox ta dùng StreamReader để Open một File asInput.Khi Save data của Listbox vào một Text file ta dùng StreamWriter đểOpen một File as Output (hay Append nếu ta cho thêm OptionAppend=True):Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles MenuItem2.Click Read the list of animals from a text file into Listbox2 Dim sr As StreamReader Dim Pos As Integer Dim TStr As String ListBox2.Items.Clear() Clear Listbox2 Use a StreamReader to open the UTF-8 file to read. sr = New StreamReader(AppPath & animals.txt) Read each line in the file. When the end of the file is reached, return the value -1. Dim x As StringCác bài tập Microsoft .NET 35 While sr.Peek -1 x = sr.ReadLine() Read a line ListBox2.Items.Add(x) Add it to Listbox2 End While sr.Close() Close the fileEnd SubPrivate Sub SaveAnimalList() Save the content of Listbox2 into a UTF-8 Text file Dim i As Integer Dim sw As StreamWriter Open the file to write in UTF-8 mode, using a StreamWriter. sw = New StreamWriter(AppPath & Animals.txt) Write each line in the Listbox. For i = 0 To ListBox2.Items.Count - 1 sw.WriteLine(ListBox2.Items(i)) Next sw.Close() Close the fileEnd SubTa hiển thị ngày và giờ bằng cách dùng Timer1 và Shared Function DateTime.Nowformated bằng hai Functions có sẵn ToLongDateString và ToLongTimeString.Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) HandlesTimer1.Tick Display Date and Time every half a second Label3.Text = DateTime.Now.ToLongDateString & & DateTime.Now.ToLongTimeStringEnd SubBạn cũng có thể hiển thị ngày giờ trong format khác bằng cách viết:Label3.Text = DateTime.Now.ToString(ddd dd/MM/yyyy hh:mm:ss)để có: WED 18/07/2001 09:16:42