Hướng dẫn lập trình VB.NET - Chương 3: Làm việc với các điều khiển trên Toolbox

eBox2.Visible = False
 End If
Chạy chương trình:
Bạn thử chạy chương trình xem sao.
3.2. Một số điều khiển khác
3.2.1. Sử dụng
Ta thử tìm hiểu tác dụng của một số điều khiển khác như RadioButton, ComboBox, ListBox … qua ví dụ InputControls xem sao.
3.2.2 Chương trình InputControls
Tìm hiểu chương trình:
Chương trình này có 6 ô hiện ảnh tương ứng với 5 mặt hàng và một hiển thị đơn vị tiền mà người dùng sẽ chi trả khi mua hàng.
Ô thứ nhất sẽ hiển thị các sản phẩm tương ứng với một trong ba radiobutton đặt trong điêu khiển GroupBox – điều khiển cho phép đặt một số điều khiển khác vào (bạn thử tìm xem nó ở đâu trên TOOLBOX)
Ô thứ hai, thứ ba và thứ tư hiển thị các sản phẩm tương ứng với các mặt hàng chọn bởi các checkbox đặt trong GroupBox2.
Ô thứ 5 hiển thị 1 trong 3 sản phẩm được chọn bởi điều khiển ListBox1.
Ô thứ 6 hiển thị ảnh của đơn vị tiền tệ mà người dùng chọn bởi ComboBox1.
Sau đây là giao diện của chương trình:
Thiết kế giao diện:
	- Tạo hai điều khiển GroupBox
	- Tạo 3 radiobox đặt vào trong điều khiển GroupBox1.
	- Tạo 3 CheckBox đặt vào trong điều khiển GroupBox2.
	- Tạo 1 điều khiển ListBox và không nhập liệu gì cả.
	- Tạo một điều khiển ComboBox.
	- Tạo 6 PictureBox và 3 Label cùng 1 Button.
	- Sửa các thuộc tính sao cho phù hợp với hình trên. Riêng hai điều khiển ListBox và ComboBox thì các dữ liệu sẽ được nhập khi Form được load vào lúc chương trình chạy.
Viết mã chương trình:
Dưới đây là toàn bộ mã của chương trình, bạn có thể tham khảo:
Public Class Form1
 Private Sub Button1_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles Button1.Click
 End
 End Sub
 Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
 If CheckBox1.CheckState = 1 Then
 PictureBox2.Image = System.Drawing.Image.FromFile _
 ("D:\Data\Studying\VS.Net 05\Tung buoc lap trinh vb.net\Tung buoc lap trinh vb.net\3_Chapter3\Bai tap\InputControls\InputContorls\Images\AnswMach.bmp")
 PictureBox2.Visible = True
 Else
 PictureBox2.Visible = False
 End If
 End Sub
 Private Sub CheckBox2_CheckedChanged(ByVal sender As Object, _
 ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
 If CheckBox2.CheckState = 1 Then
 PictureBox3.Image = System.Drawing.Image.FromFile _
 ("D:\Data\Studying\VS.Net 05\Tung buoc lap trinh vb.net\Tung buoc lap trinh vb.net\3_Chapter3\Bai tap\InputControls\InputContorls\Images\Calcultr.bmp")
 PictureBox3.Visible = True
 Else
 PictureBox3.Visible = False
 End If
 End Sub
 Private Sub CheckBox3_CheckedChanged(ByVal sender As Object, _
 ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
 If CheckBox3.CheckState = 1 Then
 PictureBox4.Image = System.Drawing.Image.FromFile _
 ("D:\Data\Studying\VS.Net 05\Tung buoc lap trinh vb.net\Tung buoc lap trinh vb.net\3_Chapter3\Bai tap\InputControls\InputContorls\Images\CopyMach.bmp")
 PictureBox4.Visible = True
 Else
 PictureBox4.Visible = False
 End If
 End Sub
 Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, _
 ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
 Select Case ListBox1.SelectedIndex
 Case 0
 PictureBox5.Image = System.Drawing.Image.FromFile _
 ("D:\Data\Studying\VS.Net 05\Tung buoc lap trinh vb.net\Tung buoc lap trinh vb.net\3_Chapter3\Bai tap\InputControls\InputContorls\Images\Harddisk.bmp")
 PictureBox5.Visible = True
 Case 1
 PictureBox5.Image = System.Drawing.Image.FromFile _
 ("D:\Data\Studying\VS.Net 05\Tung buoc lap trinh vb.net\Tung buoc lap trinh vb.net\3_Chapter3\Bai tap\InputControls\InputContorls\Images\Printer.bmp")
 PictureBox5.Visible = True
 Case 2
 PictureBox5.Image = System.Drawing.Image.FromFile _
 ("D:\Data\Studying\VS.Net 05\Tung buoc lap trinh vb.net\Tung buoc lap trinh vb.net\3_Chapter3\Bai tap\InputControls\InputContorls\Images\SateDish.bmp")
 PictureBox5.Visible = True
 End Select
 End Sub
 Private Sub Form1_Load(ByVal sender As Object, _
 ByVal e As System.EventArgs) Handles Me.Load
 ListBox1.Items.Add("Ổ cứng")
 ListBox1.Items.Add("Máy in")
 ListBox1.Items.Add("Ăng ten")
 ComboBox1.Items.Add("USD")
 ComboBox1.Items.Add("Kiểm tra")
 ComboBox1.Items.Add("Bảng Anh")
 End Sub
 Private Sub RadioButton1_CheckedChanged(ByVal sender As Object, _
 ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
 PictureBox1.Image = System.Drawing.Image.FromFile _
 ("D:\Data\Studying\VS.Net 05\Tung buoc lap trinh vb.net\Tung buoc lap trinh vb.net\3_Chapter3\Bai tap\InputControls\InputContorls\Images\PComputr.bmp")
 PictureBox1.Visible = True
 End Sub
 Private Sub RadioButton2_CheckedChanged(ByVal sender As Object, _
 ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
 PictureBox1.Image = System.Drawing.Image.FromFile _
 ("D:\Data\Studying\VS.Net 05\Tung buoc lap trinh vb.net\Tung buoc lap trinh vb.net\3_Chapter3\Bai tap\InputControls\InputContorls\Images\Computer.bmp")
 PictureBox1.Visible = True
 End Sub
 Private Sub RadioButton3_CheckedChanged(ByVal sender As Object, _
 ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
 PictureBox1.Image = System.Drawing.Image.FromFile _
 ("D:\Data\Studying\VS.Net 05\Tung buoc lap trinh vb.net\Tung buoc lap trinh vb.net\3_Chapter3\Bai tap\InputControls\InputContorls\Images\Laptop1.bmp")
 PictureBox1.Visible = True
 End Sub
 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, _
 ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
 Select Case ComboBox1.SelectedIndex
 Case 0
 PictureBox6.Image = System.Drawing.Image.FromFile _
 ("D:\Data\Studying\VS.Net 05\Tung buoc lap trinh vb.net\Tung buoc lap trinh vb.net\3_Chapter3\Bai tap\InputControls\InputContorls\Images\Dollar.bmp")
 PictureBox6.Visible = True
 Case 1
 PictureBox6.Image = System.Drawing.Image.FromFile _
 ("D:\Data\Studying\VS.Net 05\Tung buoc lap trinh vb.net\Tung buoc lap trinh vb.net\3_Chapter3\Bai tap\InputControls\InputContorls\Images\Check.bmp")
 PictureBox6.Visible = True
 Case 2
 PictureBox6.Image = System.Drawing.Image.FromFile _
 ("D:\Data\Studying\VS.Net 05\Tung buoc lap trinh vb.net\Tung buoc lap trinh vb.net\3_Chapter3\Bai tap\InputControls\InputContorls\Images\PoundBag.bmp")
 PictureBox6.Visible = True
 End Select
 End Sub
End Class
Như ví dụ trước, các ảnh bạn có thể tùy biến.
Chạy chương trình:
Bạn thử chạy chương trình xem sao.
Đề nghị:
Bạn thử thiết kế và viết toàn bộ mã lại, có thể theo ý mình xem.
4. Sử dụng điều khiển LINKLABEL
4.1. Sử dụng
Cho phép mở trình duyệt web IE hay Netscape truy cập một trang web. 
Trong ví dụ dưới đây WebLink chúng ta sẽ thử tạo chương trình sử dụng LinkLabel để hiển thị chuỗi văn bản trong Form, kết hợp sự kiện Click với phương thức Process.Start để mở trang web.
4.2. Chương trình WebLink
4.2.1. Tìm hiểu chương trình
Giao diện chương trình:
Chương trình chỉ có môt điều khiển LinkLabel cho phép ta mở một trang web bất kỳ. Trong ví dụ này ta mở trang web cục bộ  Ở đây có thể thay bằng địa chỉ IP là 127.0.0.1. 
4.2.2. Thiết kế giao diện
Bạn tạo mới một dự án và tạo form như đã biết.
4.2.3. Viết mã cho chương trình
Bạn mở chế độ Code Editor để viết thủ tục LinkLabel1_LinkClicked xử lý khi người dùng click vào LinkLabel1 bằng cách double click vào điều khiển LinkLable1 trên form1. Tiếp theo nhập chính xác đoạn mã sau:
 LinkLabel1.LinkVisited = True
 System.Diagnostics.Process.Start _
 ("")
Vậy là chương trình của chúng ta đã có thể thực thi.
4.2.4. Chạy chương trình.
Chương trình tương đối đơn giản, bạn thử chạy xem. Nếu nhà có nối mạng, bạn có thể cho một trang web nào trực tuyến thay vì trang cục bộ. Bạn cũng cần cấu hình Default Website để không có bất cứ trục trặc nào khi chạy chương trình.
4.2.5. Hiểu thêm về mã chương trình
	- Dòng 1: LinkLabel1.LinkVisited = True 
	Dòng này có tác dụng đánh dấu màu thể hiện người dùng đã duyệt qua liên kết này nhờ thuộc tính LinkVisited.
	- Dòng 2: kết hợp sự kiện click với phương thức Process.Start để mở trang web.
5. Cài đặt điều khiển ACTIVEX
Visual Studio.NET là một sản phẩm hoàn toàn mới của Microsoft. Các chương trình trước đây thường dựa trên công nghệ COM (Component Object Model). Và .NET không còn dựa vào mô hình COM nữa nhưng nó vẫn cho phép ta tái sử dụng chúng cũng như đưa những đối tượng COM, ACTIVEX cũ vào cửa sổ TOOLBOX để sử dụng như một điều khiển của VS.NET.
Các điều khiển activeX hay đối tượng COM thường chứa trong các file .exe hay .dll. Khi bạn cài đặt một số chương trình, ứng dụng thì thường cũng đăng ký theo chúng vào hệ thống, ví dụ như khi cài Microsoft Word chẳng hạn, có một điều khiển ActiveX giúp vẽ biểu đồ có tên Microsoft Chart.
Trong bài tập dưới đây chúng ta sẽ đưa ActiveX Microsoft Chart vào TOOLBOX của VS.NET để sử dụng.
Nếu bạn nào xây dựng diễn đàn bằng ngôn ngữ ASP.NET thì cũng có thể thêm điều khiển FreeTextBox đã xây dựng sẵn vào TOOLBOX và sử dụng để các thành viên đăng tải bài viết lên diễn đàn khá tiện ích.
Cài đặt ActiveX :
	- Để đưa được một điều khiển ActiveX vào thì trước hết TOOLBOX phải hiện lên tức là phải có một dự án đang mở và mở ở chế độ thiết kế form.
	- Khi đã làm hiện TOOLBOX bạn chọn một tab bất kỳ muốn cho thêm ActiveX vào, mình chọn tab chuẩn Windows Forms.
	- R-Click vào TOOLBOX và chọn Choose Items… như hình:
	- Một cửa sổ hiện ra cho phép ta chọn các thành phần muốn thêm vào tùy thích. Có thể chọn thành phần của .Net Frame Works, COM Components hay là chọn một điều khiển nào bạn sẵn có bằng click chọn nút Browse để duyệt. Ở đây ta chọn .COM Components và duyệt đến điều khiển ActiveX Microsoft Office Chart 11.0 để thêm vào. Nhắp OK và chờ xem kết quả.
	Hình minh họa:
Và bây giờ trên TOOLBOX đã có thêm điều khiển mới cho ta thực hiện:
Chương 13 ta sẽ tìm hiểu thêm về COM/ActiveX cụ thể hơn.
6. Tổng kết
Bạn hãy làm một bảng tổng kết những gì đã làm ở chương này. Nếu có thể, hãy thử xây dựng bất cứ chương trình đơn giản nào theo ý muốn.