... cái file và mất hết những gì nó chứa trước đây).
Sub DisplayInHEX(inString)
Dim Mess, LogFileName
' Convert ASCII to Hex
Mess = HexDisplay(inString)
' Prefix with date and time ... dùng method RemoveItem. Ta sẽ viết code cho Sub
CmdDeleteSelectedItems_Click() như sau:
Private Sub CmdDeleteSelectedItems_Click()
Dim i
For i = 0 To lstNames.ListCount - 1
If lstNames.Selected(i) ... whole content of the listbox
Const MaxLinesPerPage = 50
Dim msg, i, j, PageNo, NumLines, HasSome, Margin
HasSome = False ' Flag indicating existence of data
Margin = Space(10) ' Make...
... 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 nữa, nhớ rằ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 ... 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 ... sau:
Private Sub CmdLoad_Click()
Dim i, Pos
Dim FileName, FileNumber, anItem
Dim sFirstName As String * 10 ' fixed length string of 10 characters
Dim sSurName As String * 10 ' ... khi display mỗi Item đều có FisrtName bên trái.
Code để sort tên theo SurName cũng giống như CmdSort_Add nhưng thêm thắt chút ít như sau:
Private Sub lblSurName_Click()
Dim i, anItem
Dim...
...
' Declare an object of Class StdFont of VB6
Dim myFont As StdFont
Set myFont = New StdFont
myFont.Name = "Arial"
myFont.Bold = True
Dim myBox As clsBox
Set myBox = New clsBox ... thể tạo ra hai, ba Objects của Class 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 ... ấ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...
... (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ó ... cách nhất định.
Ta sẽ dùng Access Database biblio.mdb, nằm ở C:\Program Files\Microsoft Visual
Studio\VB98\biblio.mdb để minh họa các ý niệm cần biết về cơ sở dữ liệu.
Trong database nầy...
... 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 ... 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. Kết quả là
Total=15 và được display trong Textbox txtTotal, sau khi được ... đó. Thí dụ trong Form2 ta có định
nghĩa DisplayData là:
Public Sub DisplayData
. . . .
End Sub
Trong Form1, ta gọi DisplayDta như sau:
9
ToNo =6 nên execution sẽ đi qua cái FOR loop 3 lần....
... 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...