Bài giảng Visual Basic 6.0 - Phần 2 trình bày những nội dung chính sau: Các cấu trúc điều khiển, mảng – chuỗi, textbox – listbox - combobox, scrollbar – image – timer, picturebox - mouse. Mời các bạn cùng tham khảo để biết thêm các nội dung chi tiết.
Visual Basic 6.0 Nguyễn Đăng Quang quangnd@hcmute.edu.vn Chương Các cấu trúc điều khiển Cấu trúc IF Dạng (một dịng) if then (Chỉ có lệnh viết sau then) Dạng (nhiều dòng) if then Max = a If Max < b then max = b End if (Có nhiều lệnh viết sau then) Nguyễn Đăng Quang UTE-HCM 2005 Cấu trúc IF… Dạng if then Elseif then … Else End if If a > b then Max = a Else Max = b End if Nguyễn Đăng Quang UTE-HCM 2005 Cấu trúc Select case Dạng: Select case Case Case … Case else End select Select Case Weekday(nDay) Case VnDay = “Chủ nhật” Case VnDay = “Thứ hai” Case VnDay = “Thứ ba” Case VnDay = “Thứ tư” Case VnDay = “Thứ năm” Case VnDay = “Thứ sáu” Case VnDay = “Thứ bảy” End select Nguyễn Đăng Quang UTE-HCM 2005 Lệnh lặp For Next For = to [ step ] Next thực từ đến , giá trị thay đổi theo S=0 For i = to 10 s=s+i Next i S=0 For i = to 10 step s=s+i Next i Nguyễn Đăng Quang UTE-HCM 2005 Kết thúc sớm lệnh lặp FOR S=0 For i = to 10 s=s+i Next i S=0 For i = to 10 s=s+i If i = then exit for Next i Lặp 10 lần Phát biểu exit for kết thúc sớm lệnh lặp For Nguyễn Đăng Quang UTE-HCM 2005 Lệnh lặp Do Loop Do while Loop Các lệnh vòng lặp bắt đầu thực điều kiện lặp lại điều kiện sai i=1 Do while i 10 Nguyễn Đăng Quang UTE-HCM 2005 Chương trình Có hai loại chương trình Visual Basic, Sub (thủ tục) function (hàm) Nguyễn Đăng Quang UTE-HCM 2005 Sự kiện Timer: Xảy Timer đếm hết khoảng thời gian định nghĩa thuộc tính Interval Private Sub Timer1_Timer() Label1.caption = Time End Sub Nguyễn Đăng Quang UTE-HCM 2005 Giải thuật dx dy Hướng chuyển động Hướng Hướng Hướng Hướng sang phải: dx > sang trái: dx Sử dụng biến để xác định hướng Đang chuyển động bóng: DirX – Hướng ngang (0-Trái, 1-Phải) DirY – Hướng dọc (0-Xuống, 1-Lên) Xét điều kiện biên để làm thay đổi DirX DirY Nguyễn Đăng Quang UTE-HCM 2005 Một số đối tượng dẫn xuất từ ListBox & ComboBox DriveListBox FileListBox DirListBox Nguyễn Đăng Quang UTE-HCM 2005 DriveListBox Hộp chọn chứa danh sách ổ dĩa hệ thống Thuộc tính thường sử dụng: Drive – Chuỗi cho biết ổ dĩa chọn Sự kiện thường sử dụng: Change – Xảy thay đổi ổ dĩa chọn Nguyễn Đăng Quang UTE-HCM 2005 DirListBox Trình bày thư mục dĩa Thuộc tính thường sử dụng: Path – Đường dẫn muốn chọn Sự kiện thường sử dụng: Change – Xảy người sử dụng click chọn thư mục Nguyễn Đăng Quang UTE-HCM 2005 FileListBox Đối tượng trình bày danh sách tập tin thư mục Các thuộc tính: Path – Đường dẫn FileName – Tên tập tin chọn Pattern: Loại tập tin muốn trình bày VD: *.BMP; *;JPG; *.ICO; *.WMF Nguyễn Đăng Quang UTE-HCM 2005 Chương 9: PictureBox - Mouse PictureBox Thuộc tính Phương thức đồ họa Thuộc tính đơn vị vẽ Ghi nạp ảnh Xử lý mouse Các kiện mouse Thuộc tính drawmode Nguyễn Đăng Quang UTE-HCM 2005 PictureBox Là đối tượng điều khiển dùng để trình bày hình ảnh Khác với Image chỗ Image trình bày ảnh, khơng thể xử lý ảnh Có phương thức đồ họa cho phép xử lý ảnh xoá ảnh, vẽ thêm Dùng làm đối tượng chứa để chứa đối tượng khác Nguyễn Đăng Quang UTE-HCM 2005 Thuộc tính Picture Giữ hình ảnh cần trình bày, sử dụng LoadPicture để nạp tập tin ảnh BorderStyle Kiểu viền 0-None , 1- Fixed Single Align Vị trí đặc biệt form 0-None,1-Align Top, 2-Align Bottom, 3-Align Left, 4-Align Right AutoSize True/False: Thuộc tính tự động điều chỉnh kích thước PictureBox để thể đầy đủ đối tượng chứa (giống thuộc tính stretch Image) FillColor Màu tô (Giống Shape) FillStyle Mẫu tô (Giống Shape) DrawStyle Kiểu nét vẽ Nguyễn Đăng Quang UTE-HCM 2005 Thuộc tính DrawWidth Bề dày nét vẽ tính theo điểm Có giá trị 0-32767 CurrentX, CurrentY Tọa độ vẽ PictureBox Được cập nhật sau lệnh vẽ AutoRedraw True/False:Nội dung vẽ PictureBox tự động vẽ lại thay đổi kích thước Nguyễn Đăng Quang UTE-HCM 2005 Các phương thức đồ họa Pset [Step] (x,y), color Print Cls Line [Step] (x1,y1) – [Step] (x2,y2), Color, BF Circle [Step] (x, y), radius, color, start, end [,aspect] Nguyễn Đăng Quang UTE-HCM 2005 Thuộc tính đơn vị vẽ ScaleMode Qui định đơn vị vẽ, có giá trị - User: Đơn vị vẽ người dùng định nghĩa - Twip: 1440 twips = 1’’, 567 twips = cm (Đơn vị mặc định) - Point: 72 = 1’’ - Pixel: Đơn vị điểm hình - Character: Tính theo đơn vị ký tự - Inch - Milimeter - Centimeter ScaleHeight ScaleWidth Qui định đơn vị tính theo ScaleMode ScaleLeft, ScaleTop Qui định lại trục tọa độ PictureBox Giá trị mặc định (0,0) Nguyễn Đăng Quang UTE-HCM 2005 Ghi nạp ảnh Nạp ảnh: Picture1.Picture = LoadPicture(“C:\Window\setup.bmp”) Ghi ảnh dạng Bitmap SavePicture Picture1.Image, “MyPic.bmp” Nguyễn Đăng Quang UTE-HCM 2005 Các kiện mouse MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Nguyễn Đăng Quang UTE-HCM 2005 Tham số Button Nút mouse bấm, có giá trị sau: - vbLeftButton: Nút trái - vbRightButton: Nút phải - vbMiddleButton: Nút Shift Trạng thái phím Shift, Ctrl Alt xảy kiện Mouse Có giá trị sau: - vbShiftMask: Bấm Shift - vbCtrlMask: Bấm Control - vbAltMask: Bấm Alternate X,Y Tọa độ xảy kiện Nguyễn Đăng Quang UTE-HCM 2005 ... t = t+a(10) Nguyễn Đăng Quang UTE-HCM 20 05 Mảng Mảng tập hợp phần tử kiểu liệu đánh thứ tự Số thứ tự phần tử gọi số a 10 -9 17 -5 (1) (2) (3) (4) (5) Nguyễn Đăng Quang UTE-HCM 20 05 Khai báo... để qui định kiểu combobox Nguyễn Đăng Quang UTE-HCM 20 05 Thuộc tính Style Nguyễn Đăng Quang UTE-HCM 20 05 Chương Scrollbar – Image – Timer Nguyễn Đăng Quang UTE-HCM 20 05 Scrollbar Là đối tượng... Số phần tử thuộc tính List Nguyễn Đăng Quang UTE-HCM 20 05 ListBox Danh sách giá trị thuộc tính List nhập lúc thiết kế Bấm Ctrl-Enter để xuống dòng nhập giá trị Nguyễn Đăng Quang UTE-HCM 20 05