Lap trinh Visual Basic

giáo trình visual basic
(Các bài tập thực hành và một số nội dung cơ bản)

Tạo một Form gồm 1 textbox (txt), 3 nút command (cmd1,cmd2,cmd3) (hien thi loi chao, Clea, Exit) để điều khiển dòng chữ lời chào trên Textbox.
Giải:
Tạo Form theo mẫu:


Và viết lệnh cho các sự kiện:
Private Sub cmd1_Click()
txt = "Visual Basic xin kinh chao tat ca cac ban"
End Sub

Private Sub cmd2_Click()
txt = " "
End Sub

Private Sub cmd3_Click()
End
End Sub




Tạo Form gồm 1 Picturebox(ảnh), khi chạy form thì ta kích chuột vào đâu trong Form thì ảnh hiện đến ở vị trí đó.
Giải:
Tạo form theo mẫu:
Tạo 1 Picturebox, vào thuộc tính Picture để chọn ảnh cho mục này, và vào mục Name: pt.


Viết lệnh cho sự kiện:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
pt.Move X, Y (phải gõ vào)
End Sub





Tạo Form gồm:3 Picturebox (pt1, pt2, pt3) (theo mẫu tương tự trên) và 3 Optionbuttom (ot1, ot2, ot3) để chọn ảnh, khi ta chọn ảnh cần di chuyển và kích vào đâu trên form thì ảnh đó sẽ di chuyển đến đó.
Giải
Tạo Form theo mẫu:


Viết lệnh cho sự kiện:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If ot1.Value = True Then
pt1.Move X, Y
End If
If ot2.Value = True Then
pt2.Move X, Y
End If
If ot3.Value = True Then
pt3.Move X, Y
End If
End Sub





Nhập thông tin hoten và tuoi cua SV, khi nhập tuoi nếu ta nhập ký tự thì nó sẽ không cho nhập mà chỉ hiện mã và kt vừa nhập, còn các trường hợp khác thì nó sẽ cho nhập và hiển thị KT, mã của kt vừa nhập.
Giải:
Tạo Form theo mẫu:
Tạo 1 Textbox để nhập DL, 2 Label (L1, L2) để hiển thị mã và kt vừa nhập, tạo thêm các Label để thông báo (chú thích), tạo 2 Option Buttom (ot1, ot2) để chọn nhập Ten hay Tuoi.


Và viết lệnh cho các sự kiện:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If ot2.Value = True Then
L1.Caption = Chr(KeyAscii)
L2.Caption = KeyAscii
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0
End If
If ot1.Value = True Then
L1.Caption = Chr(KeyAscii)
L2.Caption = KeyAscii
End If
End Sub





Tạo Form gồm 1 HscrollBar (hs), và 1 Textbox để hiển thị giá trị phần trăm của HscrollBar, giá trị của HscrollBar từ 0 đến 100 và gía trị khi bắt đầu chạy là 50, khi ta kéo con trỏ thì Textbox hiển thị số % tương ứng.
Giải:
Tạo Form theo mẫu:


1 Textbox (txt), vào các sự kiện của HscrollBar chọn:
Max: 100, Min: 0, Value: 50.
Viết các câu lệnh cho các sự kiện như sau:
Private Sub Form_Load()
txt.Text = hs.Value
End Sub

Private Sub hs_Scroll()
txt.Text = hs.Value
End Sub






Tạo Form gồm: 1 Textbox (txt), 3 Checkbox (c1, c2, c3) để hiển thị in đậm, in nghiêng, gạch chân cho dòng chữ trong Textbox.
Giải:








Tạo Form 1 Textbox để chọn Lop, khi đó sẽ hiện thông tin của lớp đó và tạo nút Command để in danh sách của lớp đó.