21 BÀI TẬP VB.NET 2010

Bài 1: Thiết kế Form như sau: Yêu cầu: + Khi ta Click chuột lên nút lênh Show thì trên nền của Form hiện ra dòng chữ Trung tâm tin học Bách Khoa + Khi ta Click chuột lên nút lệnh Clear thì dòng chữ trên Form biến mất. + Khi ta Click chuột lên nút lệnh Exit thì chương trình biến mất (Hướng dẫn: Sử dụng sự kiện (Event) Click của đối tượng Command Button và phương thức Print của Form) Bài 2: Chương trình Hello Yêu cầu: + Khi Click chuột lên nút Display Hello thì trong Text Box xuất hiện dòng chữ Hello World + Khi Click chuột lên Clear thì dòng chữ trong Text Box biến mất + Khi ta Click chuột lên nút lệnh Exit thì chương trình chấm dứt (Hướng dẫn: Sử dụng sự kiện (Event) Click của đối tượng Command Button và thuộc tính Text của đối tượng Text Box) Bài 3: Thiết kế Form như sau: Yêu cầu: + Khi Click chuột lên nút lệnh Bold thì các dòng chữ trong Text1 và Text 3 đậm lên + Khi Click chuột lên nút lệnh Normal thì các dòng chữ trở lại bình thường + Khi Click chuột lên nút lệnh Trans thì các dòng chữ trong Text 1 và Text 3 đổi chỗ cho nhau (Hướng dẫn bạn có thể dùng Text 2 làm trung gian) + Khi Click chuột lên nút lênh Text thì con trỏ sẽ tự động xuất hiện trong Text 1 để ta chuẩn bị nhập dữ liệu (Chú ý khi con trỏ hội tụ vào trong Text 1 thì văn bản hiện có của Text 1 sẽ tự động được bôi đen)

Trang 1

Cách tạo From

Bước 1: Mở chương trình vitua

Nhấp vào biểu tượng

Bước 2:

Click vào File chọn New project

hoặc ấn tổ hợp phím Ctrl+Shift+N cửa sổ New pjoyect sẽ hiện ra ta chọn

windows Forms Application

Ta có thể đổi tên tại ô Name của cửa sổ Sau đó ấn OK

Trang 2

Bước 3: Thiết kế From

Trong cửa sổ thiết kế:

Ta dùng chuột kéo thả các biểu tượng công cụ phía bên trái màn hình vào Form để tạo giao diện cần thiết.

Thay đổi các thuộc tính của các công cụ bằng các thuộc tính ở bên phải màn hình (Properties)

Ví dụ: ta tạo một nút Exit

Ta Click vào Button và kéo ra form thay đổi tên tại ô Text trong cửa sổ Properties

Trang 3

Nhập code: Đặt con trỏ trong form nhấn chuột phải chọn View Code

Cửa sổ code hiện ra

Chọn nút, texboxt… Ở ô Form và các sự kiện tại ô Declarations tiến hành nhập mã.

Trang 4

Sau khi nhập xong code bạn tiến hành tes bài bằng nút có biểu tượng trên thanh công cụ

BÀI TẬP

Bài 1: Thiết kế Form như sau:

Yêu cầu:

+ Khi ta Click chuột lên nút lênh Show thì trên nền của Form hiện ra dòng chữ

"Trung tâm tin học Bách Khoa"

+ Khi ta Click chuột lên nút lệnh Clear thì dòng chữ trên Form biến mất.

+ Khi ta Click chuột lên nút lệnh Exit thì chương trình biến mất

Hướng dẫn cách làm

Bước 1:

1 Thiết kế giao diện, tạo các nút bấm, các ô như hình.

2 Đặt tên như sau:

Label1

Trang 5

Bước 2: Chèn code cho các nút bấm cụ thể như sau:

Bước 3: Text thử chương trình:

Sau khi đã hoàn thành mọi thao tác trên, các bạn ấn trên thanh công cụ để chạy thử chương trình, Chúc bạn thành công.

Trang 6

Yêu cầu:

+ Khi Click chuột lên nút Display Hello thì trong Text Box xuất hiện dòng chữ

"Hello World!!!"

+ Khi Click chuột lên Clear thì dòng chữ trong Text Box biến mất

+ Khi ta Click chuột lên nút lệnh Exit thì chương trình chấm dứt

Bước 1: Thiết kế giao diện:

1 Thiết kế giao diện, tạo các nút bấm, các ô Text Box như trên đã hướng dẫn.

Text Box

+ Nút Display hello:

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles

+ Nút Exit: Tươn tự bài 1

Trang 7

chỗ cho nhau (Hướng dẫn bạn có thể dùng Text 2 làm trung gian)

+ Khi Click chuột lên nút lênh Text thì con trỏ sẽ tự động xuất hiện trong Text 1

để ta chuẩn bị nhập dữ liệu (Chú ý khi con trỏ hội tụ vào trong Text 1 thì văn bản hiện

có của Text 1 sẽ tự động được bôi đen)

Trang 8

+ Nút Bold:

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles

Button1.Click

TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Bold)

TextBox3.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Bold)

TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Regular)

TextBox3.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Regular)

End Sub

Chú thích: Ngược lại với nút lệnh khi ta kích vào nút lệnh thì các dòng chữ trong

Txt1 và Txt3 sẽ chở về trạng thái bình thường.

Chú thích: khi kích lên nút lệnh này thì các dòng chữ ở Txt1 và Txt3 sẽ đổi chỗ cho

nhau nhờ trung gian là Txt2.

Chú thích: Khi kích vào nut lệnh này thì con trỏ sẽ tự động chuyển đến Txt1 lúc này

bạn có thể bôi đen bất kỳ dòng chữ nào và thay chúng bằng dòng chữ khác được.

+ Nút Exit: Tương tự bài 1.

Trang 9

Yêu cầu:

+ Khi Click chuột lên nút lệnh "+" thì tổng a+b xuất hiện ở Text 3

+ Khi Click chuột lên nút lệnh "-" thì hiệu a-b xuất hiện ở Text 3

+ Khi Click chuột lên nút lệnh "*" thì tích axb xuất hiện ở Text 3

+ Khi Click chuột lên nút lệnh "/" thì thương a/b xuất hiện ở Text 3

+ Khi Click chuột lên nút lệnh "Mod" thì phần dư a/b xuất hiện ở Text 3

Trang 10

Button6 Exit Text Box

Trang 11

Trang 12

Yêu cầu:

+Khi ta thay đổi vị trí con chạy của thanh cuộn thì Text Box sẽ hiển thị vị trí hiện tại của con chạy.

+ Khi Click chuột lên nút lệnh Exit thì chương trình chấm dứt

Textbox1

HScrollBar1

+ Code đầy đủ

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles

Me.Load

HScrollBar1.Maximum = 100

HScrollBar1.Minimum = 0

End Sub

Private Sub HScrollBar1_ValueChanged(ByVal sender As Object, ByVal e As

System.EventArgs) Handles HScrollBar1.ValueChanged

TextBox1.Text = HScrollBar1.Value & "mgh"

End Sub

+ Nút Exit: Tươn tự bài 1

Trang 13

Yêu cầu:

+ Khi Click chuột vào các Check Box và các Option chương trình sẽ hiện trạng thái của các hộp kiểm tra và nút chọn trong nhãn (label) lblChoice.

+ Khi Click chuột lên nút lênh Exit thì chương trình biến mất.

Trang 14

+ CheckBox1 :

Private Sub CheckBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles

CheckBox1.Click

If CheckBox1.Checked = True Then Label1.Text = "on"

If CheckBox1.Checked = False Then Label1.Text = "off"

End Sub

+ CheckBox2 :

CheckBox2.Click

End Sub

+ CheckBox3 :

CheckBox3.Click

Trang 15

Yêu cầu:

+ Bấm mouse vào các mũi tên hay con chạy trên thanh cuộn đứng để chọn N + Bấm Sum It Chương trình tính toán và hiển thị kết quả vào trong Text Box + Khi Click chuột lên nút lệnh Exit thì chương trình chấm dứt.

Trang 16

Private Sub VScrollBar1_ValueChanged(ByVal sender As Object, ByVal e As

System.EventArgs) Handles VScrollBar1.ValueChanged

Label1.Text = VScrollBar1.Value

End Sub

Trang 17

Yêu cầu:

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As

System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

If RadioButton1.Checked = True Then PictureBox1.Location = New Size(e.Location.X - moveoffset.X, e.Location.Y - moveoffset.Y)

End Sub

Trang 18

Yêu cầu:

+ Khi bạn bấm chuột trên Form họpp soạn thảo txtResult thông báo phím mouse nào được bấm

+ Khi bạn nhả chuột thì nội dung trong txtResult sẽ biến mất

+ Khi Click chuột lên nút lệnh Exit thì chương trình chấm dứt.

Trang 19

+ Form1_MouseDown:

If e.Button = Windows.Forms.MouseButtons.Left Then TextBox1.Text = " Chuột trái bấm

Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As

System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp

If e.Button = Windows.Forms.MouseButtons.Left Then TextBox1.Text = ""

If e.Button = Windows.Forms.MouseButtons.Right Then TextBox1.Text = ""

If e.Button = Windows.Forms.MouseButtons.Middle Then TextBox1.Text = ""

End Sub

Yêu cầu:

+ Chương trình sẽ đánh dấu/xoá trên từng hộp tuỳ thuộc phím mouse tương ứng được bấm hay buông trong khi di chuyển mouse.

Trang 20

+ Khi Click chuột lên nút lệnh Exit thì chương trình chấm dứt.

If e.Button = Windows.Forms.MouseButtons.Left Then CheckBox1.Checked = True

If e.Button = Windows.Forms.MouseButtons.Right Then CheckBox3.Checked = True

If e.Button = Windows.Forms.MouseButtons.Middle Then CheckBox2.Checked = True

End Sub

+ Form1_MouseUp :

Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As

System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp

If e.Button = Windows.Forms.MouseButtons.Left Then CheckBox1.Checked = False

If e.Button = Windows.Forms.MouseButtons.Right Then CheckBox3.Checked = False

If e.Button = Windows.Forms.MouseButtons.Middle Then CheckBox2.Checked = False

Trang 21

Menu có cấu trúc như sau:

Color

Set Color

Red Blue White Exit

Size

Small Large

Yêu cầu:

+ Bắt dầu chương trình mục White trong trình đơn của mục Set Color không cho phéo chọn Điều này cần thiết để phù hợp logic chương trình Vì khi bắt đầu nền Form màu trắng, chẳng lẽ lại cho phép màu nền từ trắng thành trắng Tương tự Small trong trình đơn Size cũng không cho phép chọn vì Form đang ở dạng nhỏ.

+ Sau khi bạn chọn mục Large trong trình đơn Size, Form lớn toàn màn hình Đồng thời mục Large bị che đi.

+ Sau khi bạn đổi nền Form mục tương ứng của màu nền mới bị che đi.

+ Dùng mục Exit trong trình đơn Colors kết thúc chương trình.

Trang 22

Bước 1:

1 Thiết kế giao diện, tạo các nút bấm, các ô như hình.

Public Class Form1

Private Sub WhiteToolStripMenuItem_Click(ByVal sender As Object, ByVal e As

System.EventArgs) Handles WhiteToolStripMenuItem.Click

Me.BackColor = Color.White

WhiteToolStripMenuItem.Enabled = False

BlueToolStripMenuItem.Enabled = True

RedToolStripMenuItem.Enabled = True

End Sub

Private Sub BlueToolStripMenuItem_Click(ByVal sender As Object, ByVal e As

System.EventArgs) Handles BlueToolStripMenuItem.Click

Me.BackColor = Color.Blue

BlueToolStripMenuItem.Enabled = False

RedToolStripMenuItem.Enabled = True

WhiteToolStripMenuItem.Enabled = True

End Sub

Private Sub RedToolStripMenuItem_Click(ByVal sender As Object, ByVal e As

System.EventArgs) Handles RedToolStripMenuItem.Click

Me.BackColor = Color.Red

BlueToolStripMenuItem.Enabled = True

WhiteToolStripMenuItem.Enabled = True

RedToolStripMenuItem.Enabled = False

End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As Object, ByVal e As

System.EventArgs) Handles ExitToolStripMenuItem.Click

End

End Sub

Private Sub LargeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As

System.EventArgs) Handles LargeToolStripMenuItem.Click

Me.WindowState = FormWindowState.Maximized

Trang 23

LargeToolStripMenuItem.Enabled = False

SmallToolStripMenuItem.Enabled = True

End Sub

Private Sub SmallToolStripMenuItem_Click(ByVal sender As Object, ByVal e As

System.EventArgs) Handles SmallToolStripMenuItem.Click

Me.WindowState = FormWindowState.Normal

Bài 12: Thiết kế Form như sau:

Yêu cầu:

+ Chương trình dùng hàm MsgBox() hiển thị các họp đối thoại với nhiều nút ấn khác nhau và thông báo nút ấn nào vừa được chọn Ví dụ chọn Abort - Retry - Cancel dialog trong trình đơn Dialogs chương trinh Dialogs hiện hộp thoại như hình sau:

Định dạng
Số trang	32
Dung lượng	0,91 MB

21 BÀI TẬP VB.NET 2010

Bài 11: Thiết kế Form như sau