... 118 GiáotrìnhVisualBasic 6.0 Các thuộc tính View: Thay đổi cách trình bày đối tượng listview, có giá trị sau: Hằng Giá trị Ý nghĩa lvwIcon Trình bày đối tượng icon lớn ... mnuList_Click() ListView1 .View = lvwList End Sub Nguyễn Đăng Quang GiáotrìnhVisualBasic 6.0 119 Private Sub mnuRpt_Click() ListView1 .View = lvwReport End Sub Private Sub mnuSmall_Click() ListView1 .View ... trọng nhất, chứa danh sách phần tử trình bày ComboItems Mỗi 124 GiáotrìnhVisualBasic 6.0 phần tử đối tượng có kiểu ComboItem Thuộc tính giống ListItems ListItem Listview Cách truy xuất phần tử...
... mô tả tiến trình, có giá trị: 0ccScrollingStandard 1-ccScrollingSmooth Lập trình ProgressBar thường gồm việc qui định gía trị Min, Max trước tiến trình thực Trong trình thực tiến trình (thường ... Value cập nhật Ví dụ sau minh hoạ tiến trình gán giá trị cho mảng có 1000 phần tử Dim A(1000) As Integer Private Sub Form_Load() 148 GiáotrìnhVisualBasic 6.0 With ProgressBar1 Min = Max = ... thường (Lấy từ Imagelist) SelImage Hình ảnh nút trạng thái chọn (Lấy từ Imagelist) Ví dụ: Sử dụng đối tượng Treeview trình bày sơ đồ tổ chức công ty Kova hình Sử dụng đối tượng ImageList với hình...
... Button.index Case 130 GiáotrìnhVisualBasic 6.0 Do_Open Case Do_Save End Select End Sub Định nghĩa nút Toolbar lúc chạy chươngtrình Có thể thêm nút Toolbar lúc chạy chươngtrình phương thức Add ... trạng hoạt động chươngtrình thông báo trạng thái nút bấm Sử dụng Đặt statusbar lên form Click mục (Custom) properties windows, xuất hộp thoại Property Pages 132 GiáotrìnhVisualBasic 6.0 Hình ... 128 GiáotrìnhVisualBasic 6.0 Hình 13.1: Thẻ Button b Thẻ Button Các nút bấm Toolbar quản lý mảng Buttons (là thuộc tính Toolbar) Các thuộc tính nút bấm trình bày thẻ Buttons:...
... khiển chươngtrình Nguyễn Đăng Quang GiáotrìnhVisualBasic 6.0 II 161 MỘT CHƯƠNGTRÌNH VÍ DỤ Phần trình bày chươngtrình ví dụ có giao diện hình 16.2 Hình 16.2: Giao diện chươngtrình ví dụ Chương ... Kéo-nhả File 166 GiáotrìnhVisualBasic 6.0 Windows Explorer hỗ trợ kéo nhả tập tin nhiều ứng dụng windows làm đối tượng đích cho hoạt động kéo-nhả từ windows explorer Phần trình bày cách thực ... biến cố OLEDragDrop xảy ra, VisualBasic kích hoạt biến cố OLECompleteDrag Người lập trình phải viết lệnh biến cố để hoàn tất Nguyễn Đăng Quang GiáotrìnhVisualBasic 6.0 165 thao tác thực đối...
... (submenu) muốn sử dụng chương trình, Check để chọn lệnh muốn xuất menu, Uncheck để bỏ lệnh xuất hiện, bấm nút để di chuyển thứ tự xuất mục menu bấm nút Next 158 GiáotrìnhVisualBasic 6.0 Hình 15.3: ... FileName, rtfRTF Eîxit sub End With ErrorOpen: MsgBox "Not save" End Sub Nguyễn Đăng Quang GiáotrìnhVisualBasic 6.0 151 c Find(string, start, end, option) Tìm kiếm chuỗi RichTextBox, chuỗi tìm ... style) nút lệnh Toolbar Private Sub tbr_ButtonClick(ByVal Button As MSComctlLib.Button) 152 GiáotrìnhVisualBasic 6.0 Select Case Button.Index Case rtfBox.SelBold = Not rtfBox.SelBold Case rtfBox.SelItalic...
... RecCount Dim fnum As Integer, fsize As long Dim recsize As Integer fnum = freefile() 112 GiáotrìnhVisualBasic 6.0 recsize = Len(MyRecord) ' Mở file Open "TESTFILE" For Random As #fnum Len = ... đoạn chươngtrình Open "F:\Test.txt" For Output As #1 For i = To 10 Print #1, "Line " & i Next Close #1 Sẽ đọc sau Open "F:\Test.txt" For Input As #1 For i = To 10 Nguyễn Đăng Quang GiáotrìnhVisual ... 110 GiáotrìnhVisualBasic 6.0 • Tập tin truy xuất ngẫu nhiên (Random Access File): Là tập tin cho phép đọc...
... vbRightButton Then PopupMenu mnuListPopup End Sub 106 II GiáotrìnhVisualBasic 6.0 COMMON DIALOG Là lớp hộp đối thoại thường sử dụng ứng dụng chạy windows Các loại hộp thoại gồm: - Hộp thoại thao tác ... Control, chọn MicrosoftCommon Dialog Control - Bấm nút Apply, biểu tượng xuất Toolbox Để đưa vào chương trình: - Double-Click để đặt đối tượng lên form Để làm xuất hộp thoại chuơng trình, sử dụng ... 104 GiáotrìnhVisualBasic 6.0 - Phần cùng: Các thuộc tính mục chọn Các thuộc tính phải xác định định nghĩa...
... With Pict1 DrawWidth = FillStyle = vbFSSolid Nguyễn Đăng Quang GiáotrìnhVisualBasic 6.0 95 FillColor = vbYellow Circle (120 0, 120 0), 1000, vbGreen End With - Vẽ Ellipse đặc, bán kính trục Y ... vbMergePen màu Ví dụ 1: Viết chươngtrình vẽ tự mouse Chế độ vẽ bắt đầu bấm phím trái di chuyển Kết thúc chế độ vẽ nhả phím trái Nguyễn Đăng Quang GiáotrìnhVisualBasic 6.0 101 Private Sub Form_MouseDown(Button ... -pi To pi Step 0.2 ‘ Hệ số giãn đồ thị theo trục x ‘ Hệ số giãn đồ thị theo trục y 94 GiáotrìnhVisualBasic 6.0 Picture1.Line -(Xc + kx * i, Yc - ky * Sin(i)) Next I Ví dụ 4: Vẽ đồ thị hàm...
... chạy chương trình, sử dụng phím mũi tên DataControl để duyệt xem mẫu tin Sử dụng data-bound listbox (DBList) combobox (DBCombo) Giả sử có bảng liệu cho sau: Nguyễn Đăng Quang GiáotrìnhVisualBasic ... rs.MovePrevious rs.MoveFirst 86 GiáotrìnhVisualBasic 6.0 Ví dụ: Thiết kế form duyệt bảng Titles cở sở liệu BIBLIO.MDB không sử dụng DataControl Giao diện chươngtrình có dạng hình 8.14 Hình 8.14: ... 74 GiáotrìnhVisualBasic 6.0 Đối tượng điều khiển có kết nối sở liệu đối tượng điều khiển có thêm thuộc tính (Datasource, DataField) cho phép kết nối với field bảng liệu để trình bày...
... WMF, CUR, ICO Ví dụ: Nạp tập tin ảnh từ dĩa Image1.Picture = LoadPicture(“C: \WINDOWS\ SETUP.BMP”) GiáotrìnhVisualBasic 6.0 71 III TIMER Đối tượng dùng xử lý kiện thời gian Lệnh viết đối tượng ... 70 Đối tượng Shape Thuộc tính Giá trị Name Shape1 FillStyle - Solid Shape - Rectangle GiáotrìnhVisualBasic 6.0 Các Textbox (Mảng) Thuộc tính Giá trị Name txtColor Đối tượng Hscrollbar (mảng) ... Image Timer để tạo đối tượng hoạt động chươngtrình Image1 Thuộc tính Name Picture Visible Image2 Thuộc tính Name Picture Visible Hình 7.1: Form chươngtrình tạo đối tượng chuyển động Image3...
... khác Việc di chuyển thực nhấp đúp listbox Giao diện chươngtrình hình 6.7 Hình 6.7: Form chươngtrình ví dụ Nguyễn Đăng Quang 64 GiáotrìnhVisualBasic 6.0 Lệnh cho nút viết sau: Private Sub cmdMove_Click() ... lstSquare.TopIndex End Sub Nguyễn Đăng Quang GiáotrìnhVisualBasic 6.0 62 Một số ví dụ Ví du 1: Sử dụng thuộc tính ItemData Thiết kế chươngtrình với Form gồm Listbox, Textbox trình bày phần tử chọn Itemdata ... GiáotrìnhVisualBasic 6.0 56 Hình 6.1: Các Form chươngtrình sọan thảo văn Trên form (đặt tên frmMain), có đối tượng sau:...
... chuỗi Ví dụ: Left( VisualBasic ,6)= Visual Right(s,n): Trả n ký tự bên phải chuỗi Ví dụ: Right( VisualBasic ,5)= Basic Mid(s,i,n): Trả n ký tự chuỗi vị trí i Ví dụ: Mid( VisualBasic ,8,3)=”Bas” ... Là mảng khai báo với từ khóa Dim trình bày phần Mảng tĩnh khai báo với số phần tử xác định trước để chươngtrình dịch dành vùng nhớ phù hợp Giáo trìnhVisualBasic 6.0 45 b.Mảng động Là mảng ... Cells(1 To 200, 20) As Integer ' Sai Nguyễn Đăng Quang GiáotrìnhVisualBasic 6.0 46 Có thể hủy mảng lệnh Erase Đối với mảng động, VisualBasic giải phóng vùng nhớ cấp phát cho mảng; mảng tĩnh,...
... > 99)) V CHƯƠNGTRÌNH CON Khi viết chươngtrình lớn, để tránh viết lại nhiều lần đoạn chươngtrình giống nhau, người ta định nghĩa đoạn chươngtrình giống nhau, dùng nhiều lần chươngtrình thành ... chươngtrình giống nhau, dùng nhiều lần chươngtrình thành module chươngtrình , gọi chươngtrình Các chươngtrình định nghĩa nơi chươngtrình tên, có yêu cầu sử dụng, gọi tên định nghĩa Ví dụ: Private ... Function Hypotenuse (A As Integer, B As Integer) As double Hypotenuse = Sqr(A ^ + B ^ 2) End Function Gọi hàm Nguyễn Đăng Quang GiáotrìnhVisualBasic 6.0 40 Dim x As double x = Hypotenuse(Text1.Text,...
... toàn chươngtrình Private sub XXX() Form1 … Form2 m … Private sub xxx() End sub Public m As Integer … m … End sub Nguyễn Đăng Quang Module Biến m sử dụng toàn chươngtrìnhGiáotrìnhVisualBasic ... (1 -12) Năm Ngày tuần (1-Chủ nhật, 2-Thứ hai, 7-Thứ bảy) Nguyễn Đăng Quang Ví dụ Dim dt As Date Dt = Date Day( #12/ 2/00#)=2 Month( #12/ 2/00#) =12 Year(( #12/ 2/00#)=2000 Weekday(Date) GiáotrìnhVisual ... Một biến khai báo tồn phạm vi khai báo, phạm vi mà sử dụng lại VisualBasic xem biến • Biến khai báo chươngtrình có ý nghĩa chươngtrình Trong ví dụ sau, biến X, Y, Z có ý nghĩa thủ tục xử lý...
... GiáotrìnhVisualBasic 6.0 18 d Sự kiện (Event) Là tác động lên đối tượng, đối tượng phản ứng lại theo cách tùy theo biến cố tác động vào Người lập trình định nghĩa lệnh để chươngtrình ... F5 để chạy chương trình, để ý Message Box xuất theo thứ tự trình tự Initialize Load Unload Hình 2.2: Kiểm tra kiện Load, Unload, Initialize Nguyễn Đăng Quang 22 GiáotrìnhVisualBasic 6.0 Ví ... chọn màu theo màu chuẩn windows chọn màu tùy ý thẻ tương ứng thuộc tính cửa sổ thuộc tính (Hình 2.1) Hình 2.1: Các thẻ chọn màu GiáotrìnhVisualBasic 6.0 19 Bảng sau trình bày số khai báo giá...
... GiáotrìnhVisualBasic 6.0 Hình 1.8: Chươngtrình có form • Cửa sổ Form: Quản lý cửa sổ sử dụng chươngtrình Mỗi cửa sổ chươngtrình gọi form Chươngtrình có form có nhiêu cửa sổ form Hình trình ... 165 Kéo nhả File 165 GiáotrìnhVisualBasic 6.0 Chương Giới thiệu I CÁC MÔI TRƯỜNG LẬP TRÌNH Lập trình: Viết chươngtrìnhChươngtrình phải chạy Hệ điều hành Trên máy PC ... Các công cụ lập trình thông dụng Windows: BPW (Borland Pascal for Windows) , BCW (Borland C for Windows) , Delphi, Visual C++, VisualBasic Nguyễn Đăng Quang GiáotrìnhVisualBasic 6.0 II CÁC...
... Viết chươngtrình nhập liệu đội tuyển bóng đá giới giống tập Danh sách cầu thủ nhập trình bày Listview Yêu cầu: Quốc tịch cầu thủ chọn ImageCombo với danh sách hình Có thể thay đổi cách trình ... bấm phím phải chuột PictureBox Chươngtrình cho phép lưu hình vẽ lên tập tin đọc tập tin ảnh vẽ vào để sửa chữa Sử dụng Common Dialog để thực chức Bài tập VisualBasic - Phần nâng cao 183 - Sau ... 180 Bài tập visualbasic phần data - - Bấm F5 để chạy chươngtrình Sử dụng nút Next, Previous DataControl để duyệt xem liệu Trong trình xem, thử điều chỉnh liệu, di chuyển...
... tập VisualBasic - Phần thuật toán 177 Bài : Viết chươngtrình cho phép nhập vào mảng A có phần tử xếp mảng A theo thứ tự tăng dần, giảm dần Giao diện tự thiết kế cho phù hợp Bài 10 : Viết chương ... tự thiết kế cho phù hợp Bài 12 : Viết chươngtrình nhập vào câu không 50 ký tự Đếm xem câu có chữ “Pascal” Giao diện tự thiết kế cho phù hợp Bài 13 : Viết chươngtrình nhập vào câu có không 50 ... b Tính tổng chữ số câu Bài 14 : Viết chươngtrình nhập vào câu, đếm xem câu có ch ữ hoa, chữ thường Giao diện tự thiết kế cho phù hợp Bài 15 : Viết chươngtrình nhập vào câu, tìm xem câu vừa nhập...
... cho ô nhập liệu Sử dụng lệnh End để kết thúc chươngtrình thay dùng lệnh Unload Me Bài tập Viết chươngtrình giải biện luận phương trình bậc Chươngtrình có kiểm tra liệu nhập Các thông báo lỗi ... Bài tập 12 Viết chươngtrình máy tính số nguyên đơn giản cách sử dụng mảng đối tượng điều khiển Bài tập 13 Viết chươngtrình thực chươngtrình soạn thảo văn đơn giản, chươngtrình cho phép thực ... ệ ể ứ ố ả ị ứ ị ị ủ ộ xảy kiện ị ủ ấ Bài tập VisualBasic - Phần 172 Bài tập Viết chươngtrình nhập họ tên, phái ngày tháng n ăm sinh người Chươngtrình thông báo tuổi nhân xưng người theo tuổi...
... với chươngtrình khuyến họ làm sau kết thúc chươngtrình Nếu cần nhiều thông tin hơn, khảo sát khách hàng tiến hành để biết có người nhớ tới chương trình, họ nghì nó, người lợi từ chươngtrình ... phí cho chươngtrình khuyến Quy mô kích thích phải đạt mức tối thiểu để triển khai chươngtrình thành công Kích thích nhiều kết doanh số tăng với tốc độ giảm dần Hình thức phổ biến chươngtrình ... buổi triển lãm thương mại - Triển khai chươngtrình khuyến c Xây dựng chươngtrình khuyến Những người làm marketing phải có thêm số định để định rõ toàn chươngtrình khuyến mãi, xác định qui mô kích...