... 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...
... 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...
... 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 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 ... 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: 9ToNo =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...
... -1 .79 76 9 3134 862 32E+308 - 1 .79 76 9 3134 862 32E+308. Kiểu dữ liệu này được gọi là độ chính xác kép. Currency Dữ liệu tiền tệ chứa các giá trị số từ -922.3 37. 203 .68 5. 477 ,5808 - 922.3 37. 203 .68 5. 477 ,58 07. ... trị số nguyên từ 0 – 255 Integer Các giá trị số nguyên từ -32 76 8 – 32 76 7 Long Các giá trị số nguyên từ -21 474 8 364 8 – 21 474 8 364 7. Kiểu dữ liệu này thường được gọi là số nguyên dài. Single ... chương trình kết quả là: Trang 40 Visual Basic I. Giới thiệu về VisualBasic6. 0 Visual Basic6. 0 (VB6) là một phiên bản của bộ công cụ lập trình VisualBasic (VB), cho phép người dùng tiếp...
... 800 point2.Y = 60 0 g = Me.CreateGraphics g.DrawRectangle(pent1, rect) Dim x As Integer = 0 Dim y As Integer = 0 Dim width As Integer = 200 Dim height As Integer = 100 Dim rect1 As New ... System.EventArgs) Handles Button1.Click Dim g As Graphics Dim point1, point2 As Point Dim rect As Rectangle Dim pent1 As New Pen(Color.Red, 3) Dim redBrush As New SolidBrush(Color.Red) ... point1, point2) End Sub. + Mô tả các đối tượng đồ họa Dim point1, point2 As Point Dim x As Rectangle Dim pent1 As New Pen(Color.Red, 3) Dim choi As New SolidBrush(Color.Red)+ Cách phương thức...