... 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 ý là ListCount giảm value ... default, Listbox không có Horizontal Scrollbar. Muốn tạo ra nó
bạn phải thêm hai câu dưới đây vào một Basic module:
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" ... highlight nó
với background màu vàng. Ðể mousepointer lên trên chữ i của lstNames.Selected(i),
VB6 sẽ popup message nho nhỏ i = 4.
Chương Bảy - Dùng List Controls (bài thứ hai)
Listbox
Cách...
... 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ủa ListBox.
Các liên mạng VB khác
Khóa Hàm Thụ VisualBasic6. 0
Chương Bảy - Dùng List Controls
C
ó hai loại List controls dùng trong VB6. Ðó là Listbox và Combobox. Cả
hai đều display ... 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 lên
một hàng, Listbox sẽ generate Event lstNames_Click. Lúc bấy giờ ta có
thể...
... 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 ... "Amount in VN Dong is " & VNDong
VB6 cho ta hai cách chia, đó là / dùng cho Single/Double và \ dùng cho Integer.
5 / 3 cho ta 1 .66 666 66
5 \ 3 cho ta 1
Function Round đuợc dùng ... 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ố...
... 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 ... 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 của một text ... 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.
14
'...
... ấy. Chắc bạn đã để ý thấy trong VB6 từ
dùng hai từ Class và Object lẫn lộn nhau. Đều nầy cũng không quan trọng, miễn là bạn nắm vững ý
nghĩa của chúng.
VB6 có yểm trợ Class mà ta có thể triển ... Event Click để cho ta xử lý
trong Sub myCommandButton_Click(), chẳng hạn. Classtrong VB6 không có hổ trợ Visual
components, tức là không có chứa những controls như TextBox, Label .v.v Tuy nhiên, ... Property Let.
Thí dụ ta cho clsBox một Property mới, gọi là Font dùng object của class stdFont của VB6. Trong
clsBox ta declare một Private variable mFont và viết một Property Set Font như sau:
Private...
... (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ó ... nhau
Nếu máy bạn đang chạy MSAccess2002 thì bạn có thể làm việc với Access database file 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...
... 4 to 16 with Step=2
Total = Total + i ' Add the number to the Total
Next
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 ... DisplayDta như sau:
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 ... 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 '...