Khi nhấn chọn mục nào trong khung, chọn hình sẽ hiển thị hình tương ứng ở bên dưới
Khi nhấn chọn mục nào trong khung, chọn màu sẽ hiển thị hình tương ứng ở bên dưới
Khi nhấn nút đóng sẽ thoát khỏi chương trình
Bài làm
dùng một đối tượng Shape để hiển thị các kiểu hình . dùng 1 command button để tạo nút đóng
Website học trực tuyến – www.videobook.vn
Dùng 2 đối tượng Frame để chứa các nút option
Dùng 8 đối tượng option button để chọn hình và định dạng
Thiết kế giao diện
Tạo form với giao diện như trên, thiết lập thuộc tính cho điều khiển Đối tượng điều khiển thuộc tính giá trị
Form Name frmDohoa
Caption Do hoa trong VB FontName VNI-Times
FontSize ông 11
Shape Shape1 Name shpHinh
Command Command1 Name cmdThuchien Caption thục hiện
Command2 Name cmdDong
Caption đóng
Frame Frame1 Name fraHinh
Caption chọn kiểu hình
Frame2 Name fraMau
Caption chọn màu Option Button Option1 Name optHinh
Index 0
Caption hình chũ nhật
Option2 Name optHinh
Index 1
Caption Hình vuoâng
Website học trực tuyến – www.videobook.vn
Index 2
Caption Hình elip
Option4 Name optHinh
Index 3
Caption Hình tròn
Option5 Name optMau
Index 0
Caption màu đen
Option6 Name optMau
Index 1
Caption màu trắng
Option7 Name optMau
Index 2
Caption màu nâu
Option8 Name optMau
Index 3
Caption màu vàng
Viết lệnh xử lý
• mã lệnh cho sư kiện form được nạp lên bộ nhớ Private Sub Form_Load()
OptHinh(0).Value = True optMau(0).Value = True End Sub
--- • mã lệnh cho sự kiện click chọn màu Private Sub optMau_Click(Index As Integer)
Website học trực tuyến – www.videobook.vn
Select Case Index Case 0
shpHinh.FillColor = QBColor(0) 'Mau den Case 1
shpHinh.FillColor = QBColor(15) 'Mau trang Case 2
shpHinh.FillColor = QBColor(12) 'Mau do Case 3
shpHinh.FillColor = QBColor(14) 'Mau vang End Select
End Sub
--- • mã lệnh cho sự kiện click chọn hình Private Sub OptHinh_Click(Index As Integer) shpHinh.Shape = Index
End Sub
--- • mã lệnh cho sự kiện click nút đóng Private Sub cmdDong_Click()
If MsgBox("Ban co nuon thoat chuong trinh ?", vbQuestion + _ vbYesNo, "Thong bao") = vbYes Then
End End If End Sub
Website học trực tuyến – www.videobook.vn
BÀI 13: TẠO FORM GIẢI TRÍ TRONG VISUA
khi rê chuột vào nút “Oiii !không bao giờ” thì nút này xẽ bị di chuy ển đến một vị trí khác trên form (ngăn không cho nut nhấn)
người dùng chỉ có thể nhấn nút “Anh yeu em !”, Khi nhấn nút “Anh yeu em !”sẽ hiển thị câu thông báo
Bài làm
.dùng 1 đối tượng Label để hiển thị câu hỏi, 2 command button để tạo 2 nút nhấn , dùng phương thức Move cuẩ nút nhấn để làm cho nút di truyển đến vị trí khác trên Form dựa vaò 2 thuộc tính ScaleWidth va ScaleHeight của form
Website học trực tuyến – www.videobook.vn
1) thiết kế giao diện
Đối tượng điểu khiển Thuộc tính giá trị
Form Name frmDohoa
Caption Do hoa trong VB FontName time new Roman FontSize 14
Label Label1 Name lblHoi
Caption anh có yêu em không ???
Command Command1 Name cmdYes
Caption anh yêu em !
Command2 Name cmdNo
Caption Oiii ! Không bao giờ
2) Viết mã lệnh xử lý
• mã lệnh xử lý khi người dùng nhấn chuột “Oiii ! Không bao giờ Private Sub cmdNo_MouseMove(Button As Integer, Shift As Integer, _ X As Single, Y As Single)
cmdNo.Move Rnd * (Me.ScaleWidth - cmdNo.Width), Rnd * _ (Me.ScaleHeight - cmdNo.Height)
End Sub
--- • Mã lệnh cho nút “Anh yeu em”
Website học trực tuyến – www.videobook.vn
Private Sub cmdYes_Click()
MsgBox "OI !!! CAU TRA LOI TUYET VOI !" & vbCrLf & _ "NHUNG EM CON YEU ANH GAP NHIEU LAN", vbExclamation, "I LOVE YOU"
End Sub
---
• mã lệnh xử lý sự kiện Gotfocus của nut “Oiii ! Khong bao giờ” Private Sub cmdNo_GotFocus()
cmdYes.SetFocus End Sub
Website học trực tuyến – www.videobook.vn
BÀI TẬP 14: TẠO MENU ĐỒ HỌA TRONG VISUA
Taïo 2 menu Hinh ve vaø Chon mau to nhö sau
Khi nhấn chọn mục nào trong trong menu “Hinh ve” và “Chon mau to” sẽ đánh dấu check lên tên của mục đó
Sau khi chọn hình và màu nào cho hình ,
Thiết kế giao diện
Website học trực tuyến – www.videobook.vn
Đối tượng điều khiển thuộc tính giá trị
Form Name frmDohoa
Caption Do hoa trong VB FontName time new Roman FontSize 11
menu Menu1 Name mnuHinh cấp 1
Caption &Hinh ve
Menu Name mnuHcn cấp 2
Caption hình chữ nhật Name mnuVuong cấp 2 Caption Hình vuông Name mnuElip cấp 2 Caption Hình elip Name mnuTron cấp 2 Caption Hình tròn
Menu2 Name mnuMauto cấp 1
Caption chọn màu tô Name mnuDen cấp 2 Caption màu đen
Name mnuTrang cấp 2 Caption màu trắng
Name mnuDo cấp 2
Caption màu đỏ
Website học trực tuyến – www.videobook.vn
Caption màu vàng
Viết mã lệnh xử lý
• mã lệnh khai báo biến toàn cục
Dim dx As Long, dy As Long, ve As Boolean ---
• Mã lenh cho sự kiện khi người dùng nhấn nut chuột xuống
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As _ Single, Y As Single)
dx = X: dy = Y ve = True End Sub
---
• Mã lệnh xử lý khi người dùng drag chuột trên Form để vẽ hình Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As _ Single, Y As Single
If ve = True Then Me.Refresh
If mnuhcn.Checked = True Then ‘ Vẽ hình chữ nhật If Shift = vbShiftMask Then
If X > Y Then
Line (dx, dy)-(dx + (Y - dy), Y), , BF Else
Website học trực tuyến – www.videobook.vn
End If Else
Line (dx, dy)-(X, Y), , BF End If
End If
If mnuvuong.Checked = True Then ‘Vẽ hình vuông If X > Y Then
Line (dx, dy)-(dx + (Y - dy), Y), , BF Else
Line (dx, dy)-(X, dy + (X - dx)), , BF End If
End If
If mnuelip.Checked = True Then ‘vẽ hình elip If Shift = vbShiftMask Then
If X > Y Then
Circle (dx + (Y - dy) \ 2, dy + (Y - dy) \ 2), Abs(Y - dy) \ 2 Else
Circle (dx + (X - dx) \ 2, dy + (X - dx) \ 2), Abs(X - dx) \ 2 End If
Else
If X > Y Then
Circle (dx + (X - dx) \ 2, dy + (Y - dy) \ 2), Abs(X - dx) \ 2,,,_ , Abs(Y - dy) / Abs(X + 1 - dx)
Website học trực tuyến – www.videobook.vn
Else
Circle (dx + (X - dx) \ 2, dy + (Y - dy) \ 2), Abs(Y - dy) \ 2,,,_ , Abs(Y - dy) / Abs(X + 1 - dx)
End If End If End If
If mnutron.Checked = True Then ‘Vẽ hình tron If X > Y Then
Circle (dx + (Y - dy) \ 2, dy + (Y - dy) \ 2), Abs(Y - dy) \ 2 Else Circle (dx + (X - dx) \ 2, dy + (X - dx) \ 2), Abs(X - dx) \ 2 End If End If End If End Sub ---
• Mã lệnh cho sự kiện khi người dùng thả nút chuôt
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As _ Single, Y As Single)
ve = False End Sub
--- • Mã lệnh cho menu màu đen
Website học trực tuyến – www.videobook.vn
Private Sub mnuden_Click()
Me.FillColor = vbBlack : Me.ForeColor = vbBlack mnuDen.Checked = True mnuTrang.Checked = False mnuDo.Checked = False mnuVang.Checked = False End Sub --- • Mã lệnh cho menu Màu nâu Private Sub mnuDo_Click()
Me.FillColor = vbRed : Me.ForeColor = vbRed mnuDen.Checked = False
mnuTrang.Checked = False mnuDo.Checked = True mnuVang.Checked = False End Sub
• mã lệnh cho menu Hình elip Private Sub mnuelip_Click() mnuelip.Checked = True mnuvuong.Checked = False mnuhcn.Checked = False mnutron.Checked = False End Sub
Website học trực tuyến – www.videobook.vn
--- • Mã lệnh cho menu Hình chũ nhật Private Sub mnuhcn_Click()
mnuhcn.Checked = True mnuvuong.Checked = False mnuelip.Checked = False mnutron.Checked = False End Sub --- • Mã lệnh cho menu màu trắng Private Sub mnuTrang_Click() Me.FillColor = vbWhite Me.ForeColor = vbWhite mnuDen.Checked = False mnuTrang.Checked = True mnuDo.Checked = False mnuVang.Checked = False End Sub --- • Mã lệnh cho menu Hình tròn Private Sub mnutron_Click()
mnutron.Checked = True mnuvuong.Checked = False
Website học trực tuyến – www.videobook.vn
mnuelip.Checked = False mnuhcn.Checked = False End Sub
--- • Mã lệnh cho menu màu vàng Private Sub mnuVang_Click() Me.FillColor = vbYellow Me.ForeColor = vbYellow mnuDen.Checked = False mnuTrang.Checked = False mnuDo.Checked = False mnuVang.Checked = True End Sub --- • Mã lệnh cho menu Hình elip Private Sub mnuvuong_Click() mnuvuong.Checked = True mnuhcn.Checked = False mnuelip.Checked = False mnutron.Checked = False End Sub
Website học trực tuyến – www.videobook.vn
BÀI 15: VIẾT PHƯƠNG TRÌNH SOẠN THẢO