... ôn nầy là statement For i = 0 To lstNames.ListCount - 1. VB6 chỉ tính value của lstNames.ListCount -1 một lần lúc khởi sự For Loop mà thôi (tức là lstNames.ListCount -1 = 6) , nó không lưu ý ... then use this as an indication to force a new page If NumLines > 0 Then ' Add extra blank lines to make up a page before inserting page number For j = NumLines - 1 To MaxLinesPerPage ... hề được processed.Bạn có thể download program có bug nầy để chạy thử cho biết. Sub CmdDeleteSelectedItems_Click cần phải được viết lại để dùng While Loop, thayvì For Loop. Trong While Loop,...
... Những câu hỏi về VisualBasic Những mẹo vặt của Visual Basic Lập trình với VBAĐược cung cấp từ Vivosoft Trong thí dụ nầy, Listbox lstNames có 7 hàng ( Items). Con số Items ... có thể download chương trình nầy (SortedList.zip) để có luôn cả project.Trong bài tới ta sẽ học thêm các áp dụng khác của ListBox. Các liên mạng VB khác Khóa Hàm Thụ VisualBasic6. 0 Chương ... FirstName/SurName positions before adding to lstTemp lstTemp.AddItem sSurName & sFirstName Next lstNames.Clear ' Clear lstNames ' Iterate though every item of lstTemp For i = 0 To lstTemp.ListCount...
... Listbox tên lstNames nằm trong một Form. Trong lstNames ta đánh vào tên của bảy người, mỗi lần xuống hàng nhớ đánh Ctrl-Enter, thay vì chỉ Enter, nếu không VB6 tưởng ta đã đánh xong nên close ... Listbox lstNames có 7 hàng ( Items). Con số Items nầy là Property ListCount của Listbox. Các Items của Listbox được đếm từ 0 đến ListCount-1. Trong trường hợp nầy là từ 0 đến 6. Khi User click ... output file , using FileNumber as FileHandle Open FileName For Output As FileNumber ' Now iterate through each item of lstNames For i = 0 To lstNames.ListCount - 1 ' Write the List...
... Solution Trang: 26/ 265 Giáo trình đào t o VisualBasic6. 0ạ 7. 3.3 H p danh sách t p tinộ ậ 78 7. 4 Đi u khi n richtextboxề ể 78 7. 4.1 Ph ng th c loadfileươ ứ 79 7. 4.2 Ph ng th c savefileươ ứ 79 8 S d ... Software Solution Trang:35/ 265 Giáo trình đào t o VisualBasic6. 0ạ13 .6 T o đ i t ng đ thao tác trên c u trúc c a m t CSDLạ ố ượ ể ấ ủ ộ 177 13 .6. 1 T o m t CSDLạ ộ 177 13 .6. 2 S d ng đ i t ng TableDef ... Explorerử ổ 26 3.2.3 T o đ ánạ ề 26 3.2.4 Đ i thu c tính đ ánổ ộ ề 26 3.2.5 L u và đ t tên đ ánư ặ ề 27 FPT Software Solution Trang:1/ 265 Giáo trình đào t o VisualBasic6. 0ạc a VisualBasic cũng...
... 1 .66 666 66 5 \ 3 cho ta 1 Function Round đuợc dùng để bỏ bớt các con số nằm phía sau decimal point. Thí dụ: Round ( 12.34 5 67 89, 4 ) chỉ giữ lại 4 con số sau decimal point và cho ta 12.34 57 ... trong memory để chứa một con số nguyên từ -32 76 8 đến 32 76 7 . Ðể ý là 32 76 8 = 2^15 (2 lũy thừa 15) , tức là trong memory các con số từ 32 76 8 đến 65 535 được dùng để biểu diễn các số âm. Một lần ... computer như thế nào. 5 Còn Long dùng 4 byte để để chứa một con số nguyên từ -21 474 8 364 8 đến 21 474 8 364 7. Nếu bạn dùng Integer mà bị Oveflow error khi làm toán nhân thì assign các con số...
... "'" then use this as an indication to force a new page 17 Ta biết rằng ListBox có thể chứa rất nhiều hàng text (con số hàng tối đa là 65 535). Ta đã quen với việc hiển thị content ... List1.ItemData(List1.NewIndex) = 62 310 List1.AddItem "Tran The Tam" List1.ItemData(List1.NewIndex) = 42859 List1.AddItem "Alan Bradshaw" List1.ItemData(List1.NewIndex) = 63 73 2 List1.AddItem ... output file , using FileNumber as FileHandle Open FileName For Output As FileNumber ' Now iterate through each item of lstNames For i = 0 To lstNames.ListCount - 1 anItem = lstNames.List(i)...
... frmMyForm cùng một lúc như trong thí dụ sau: Dim firstForm As frmMyForm Dim secondForm As frmMyForm Set firstForm = New frmMyForm Set secondForm = New frmMyForm firstForm.Show secondForm.Show ... declare firstForm và secondForm là những Objects của Class frmMyForm. Sau đó ta làm nên (instantiate) các Objects firstForm và secondForm bằng statements Set = New firstForm và secondForm còn được ... Ngay cả một form tên frmMyForm mà ta viết trong VB6 chẳng hạn, nó cũng là một Class. Thường thường ta dùng thẳng frmMyForm như sau: frmMyForm.Show Trong trường hợp nầy thật ra frmMyForm tuy...
... (reports). Kèm theo với VisualBasic6. 0 khi ta mua là một copy của Database Engine của MSAccess. Tên nó là Jet Database Engine, cái lõi của MSAccess DBMS. Các chương trình VB6 có thể truy cập database ... đầu, nếu không cho trị số của một field, thì field ấy có trị số là NULL. Thường thường, VisualBasic6. 0 không thích NULL value nên ta phải thử một field với Function IsNULL() để đảm bảo nó ... version 97, 2000 và 2002. Nếu cần phải convert từ version nầy qua version khác, bạn có thể dùng Access DBMS Menu Command Tools | Database Utilities | Convert Database | To Access 2002 File Format...
... 9 ToNo =6 nên execution sẽ đi qua cái FOR loop 3 lần. Lần thứ nhất i=4, lần thứ nhì i=5 ,và lần thứ ba thì i =6. Sau đó, khi i =7 thì nó lớn hơn ToNo ( =6) nên execution nhảy ra khỏi FOR loop. ... 4 to 16 with Step=2 Total = Total + i ' Add the number to the TotalNext Total sẽ bằng 4 +6+ 8+10+12+14+ 16= 70 . Trong thí dụ trên ta cũng có thể dùng STEP số âm như sau: For i = 16 To 4 ... số chẳn từ 4 đến 16 ta có thể làm cho i tăng value lên 2 (thay vì 1) mỗi khi đến cuối loop. Tức là i=4 ,6, 8 .v.v Ta sẽ thêm chữ STEP trong FOR statement như sau: For i = 4 To 16 Step 2 '...
... tạo VisualBasic6. 0 FPT Software Solution Trang:15/ 260 2.3.8 Trợ giúp Không những làm chủ ngôn ngữ lập trình Visual basic, bạn cũng cần phải sử dụng thuần thục môi trường Visualbasic ... sở dữ liệu 130 12.1 .6 Dùng VisualBasic để tạo một cơ sở dữ liệu 130 12.1 .7 Các mối quan hệ 140 Giáo trình đào tạo VisualBasic6. 0 FPT Software Solution Trang:50/ 260 Grouping line ... Label1.Caption = Time End Sub 2.2 Các tính năng mới trong Visualbasic6. 0 2.2.1 Khái quát vắn tắt về Visualbasic6. 0 Nếu bạn chưa quen với Visual basic, tựa đề của phần này có thể làm nhầm lẫn đôi...