Bài 11: Thiết kế Form như sau - 21 BÀI TẬP VB.N- 123docz.net

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.

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:

(Name) Caption Text

WhiteToolStripMenuItem BlueToolStripMenuItem

RedToolStripMenuItem ExitToolStripMenuItem LargeToolStripMenuItem SmallToolStripMenuItem

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

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

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 LargeToolStripMenuItem.Enabled = True SmallToolStripMenuItem.Enabled = False End Sub

End Class

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.

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:

+ Chọn một trong các nút chương trình Dialog thông báo ngay nút bạn vừa chọn

+ Dùng nút Exit trong trình đơn Dialogs kết thúc chương trình. Chương trình dùng hộp thoại Yes/No để hỏi bạn chắc chắn muốn dừng chương trình chọn nút Yes.

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:

(Name) Caption Text

OkCancelDialogsToolStripMenuItem AbortRetryIgnoreDialogToolStripMenuItem

YesNoCancelDialogToolStripMenuItem YesNoDialogToolStripMenuItem RetryCancelDialogToolStripMenuItem

ExitToolStripMenuItem

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

Public Class Form1

Private Sub OkCancelDialogsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles OkCancelDialogsToolStripMenuItem.Click

Dim testmsg As Integer

testmsg = MsgBox("Vũ Lâm Tùng", 1, "Tieu de thong bao") If testmsg = 1 Then

MsgBox("Ban vua nhan OK", vbInformation) Else

MsgBox("Ban vua nhan Cancel", vbInformation) End If

End Sub

Private Sub AbortRetryIgnoreDialogToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles AbortRetryIgnoreDialogToolStripMenuItem.Click

Dim testmsg As Integer

testmsg = MsgBox("Vũ Lâm Tùng", 2, "Tieu de thong bao")

If testmsg = 3 Then MsgBox("Ban vua nhan Abort", vbInformation) If testmsg = 4 Then MsgBox("Bạn vừa ấn Retry ", vbInformation) If testmsg = 5 Then MsgBox("Bạn vừa ấn Ignore ", vbInformation) End Sub

Private Sub YesNoCancelDialogToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles YesNoCancelDialogToolStripMenuItem.Click

Dim testmsg As Integer

testmsg = MsgBox("Vũ Lâm Tùng", 3, "Tieu de thong bao") If testmsg = 6 Then MsgBox("Ban vua nhan Yes", vbInformation) If testmsg = 7 Then MsgBox("Bạn vừa ấn No ", vbInformation) If testmsg = 2 Then MsgBox("Bạn vừa ấn Cancel ", vbInformation) End Sub

Private Sub YesNoDialogToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles YesNoDialogToolStripMenuItem.Click

Dim testmsg As Integer

testmsg = MsgBox("Vũ Lâm Tùng", 4, "Tieu de thong bao") If testmsg = 6 Then

MsgBox("Ban vua nhan Yes", vbInformation) Else

MsgBox("Ban vua nhan No", vbInformation) End If

End Sub

Private Sub RetryCancelDialogToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RetryCancelDialogToolStripMenuItem.Click

Dim testmsg As Integer

testmsg = MsgBox("Vũ Lâm Tùng", 5, "Tieu de thong bao") If testmsg = 4 Then

MsgBox("Ban vua nhan Retry", vbInformation) Else

MsgBox("Ban vua nhan Cancel", vbInformation) End If

End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

If MsgBox("Bạn có chắc chắn muốn thoát", vbYesNo + vbExclamation, "Tieu de thong bao") = MsgBoxResult.Yes Then End

End Sub End Class

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.

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

Yêu cầu:

+ Khi bấm vào một nút chuột nào đó, đối tượng Shape xuất hiện hình tương ứng với nút. Ví

dụ khi bạn bấm vào nút Circle, đối tượng Shape hiện ngay đường tròn.

+ Độ dày đường biên các hình phụ thuộc vào giá trị hiện hành của thanh cuộn.

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:

(Name) Caption Text

HScrollBar1 Kich cơ

Button1 rectangle

Button2 Square

Button3 oval

Button4 Circle

Button5 rounded rectangle

Button6 rounded square

Button7 Exit

OvalShape1 Tròn

OvalShape2 E líp

RectangleShape1 Chữ nhật

RectangleShape2 Vuông

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

Public Class Form1

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

HScrollBar1.Maximum = 90 HScrollBar1.Minimum = 0 End Sub

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

RectangleShape1.Visible = True RectangleShape2.Visible = False OvalShape2.Visible = False OvalShape1.Visible = False End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

RectangleShape2.Visible = True RectangleShape1.Visible = False OvalShape2.Visible = False OvalShape1.Visible = False End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click

OvalShape2.Visible = True RectangleShape1.Visible = False RectangleShape2.Visible = False OvalShape1.Visible = False End Sub

Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click

OvalShape1.Visible = True RectangleShape1.Visible = False RectangleShape2.Visible = False OvalShape2.Visible = False End Sub

Private Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click

RectangleShape1.Visible = True OvalShape1.Visible = True RectangleShape2.Visible = False OvalShape2.Visible = False End Sub

Private Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click

OvalShape1.Visible = True

RectangleShape2.Visible = True RectangleShape1.Visible = False OvalShape2.Visible = False End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

End End Sub

Private Sub HScrollBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles HScrollBar1.ValueChanged

RectangleShape1.BorderWidth = HScrollBar1.Value RectangleShape2.BorderWidth = HScrollBar1.Value OvalShape1.BorderWidth = HScrollBar1.Value OvalShape2.BorderWidth = HScrollBar1.Value End Sub

End Class

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.

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

Yêu cầu:

+ Khi chạy chương trình, cá thông tin trong Combol được tự động điền vào như trên (Gợi ý:

chú ý sử dụng sự kiện Form _load của biểu mẫu)

+ Khi ta Click chuột vào nút lệnh “Remove to List box” thì Item đang được chọn của Combol sẽ bị đẩy sang List box và Item đó sẽ bị loại ra khỏi Combol.

+ Khi ta Click chuột vào nút lệnh “Remove to Combol Box” thì Item đang được chọn của List box sẽ bị đẩy sang Combol và Item đó sẽ bị loại ra khỏi List Box.(Hướng dẫn: Chú ý sử dụng các phương pháp AddItem, RemoveItem, .... của đối tượng ComBox và List Box)

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:

(Name) Caption Text

Button1 Remove to List box

Button2 Remove to Combol Box

ListBox1 ComboBox1

Label1 Trình độ

Label2 List box

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

Public Class Form1

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

ListBox1.Items.Add(item:=ComboBox1.SelectedItem) ComboBox1.Items.RemoveAt(0)

End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

ComboBox1.Items.Add(item:=ListBox1.SelectedItem) ListBox1.Items.RemoveAt(0)

End Sub End Class

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.

Bài 16:

Thiết kế form như sau

Yêu cầu:

+ Khi ta Click chuột lên hộp danh sách ổ đĩa và chọn ổ đĩa bất kỳ, thì các thư mục ứng với ổ

đĩa đó sẽ xuất hiện trên hộp danh sách các thư mục.

+ Khi ta Click chuột 2 lần lên một Folder bất kỳ trong hộp danh sách các thư mục thì tất cả các File sẽ hiện lên trong hộp danh sách các tệp tin.

+ Khi ta Click chuột lên hộp Combol thì một danh sách xuất hiện. Các Item trong danh sách này chính là các phần mở rộng của các tệp tin. Khi ta chọn một trong số Item đó thì tên hộp danh sách các tệp tin chỉ ”đọng” lại các tệp tin có phần mở rộng như đã chọn trong hộp Combol.

+ Khi ta Click chuột lên một tệp bất kỳ trong danh sách các tệp tin thì cả đường dẫn và tên tệp tin đó sẽ xuất hiẹn trong Text1.

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

(Hướng dẫn: Chú ý các thuộc tính Path, FileName, Filter,.... của các đối tượng Driver, File List box,....)

Nhập code cho từng phần tử đã tạo

Public Class Form1

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

ComboBox1.Items.Add("All file (*.*)") ComboBox1.Items.Add("Text file (*.txt)") ComboBox1.Items.Add("Html file (*.html)") End Sub

Private Sub DirListBox1_Change(ByVal sender As Object, ByVal e As System.EventArgs) Handles DirListBox1.Change

FileListBox1.FileName = DirListBox1.Path TextBox1.Text = DirListBox1.Path

End Sub

Private Sub DriveListBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DriveListBox1.TextChanged

DirListBox1.Path = DriveListBox1.Drive End Sub

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

If MsgBox("Bạn có chắc chắn muốn thoát chương trình của Tùng", vbYesNo + vbExclamation, "Tieu de thong bao") = MsgBoxResult.Yes Then End

End Sub

Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged

FileListBox1.FileName = Filter() End Sub

End Class