... lienhe@docs.vn Tel : 09 18.775. 368 Lập trình cơ sở dữ liệu Visualbasic6. 0, Nhà xuất bản thống kê 200 1. Giáo trình Cơ sở dữ liệu Access, Nhà xuất bản thống kê 200 0. MDSN Library Visual Studio 6.0. Giáo ... Email : lienhe@docs.vn Tel : 09 18.775. 368 Chơng I.Giới thiệu ngôn ngữ lập trình Visual Basic6. 0 I. Khái quát về VisualBasic6. 0: VisualBasic là cái gì? Visual (trực quan) là phần thảo ... nghìn ngời sử dụng qua mạng hay qua Internet.II. Khả năng của VisualBasic6. 0 2.1.Các điểu khiển của VisualBasic6. 0 VisualBasic6.0 đa vào nhiều điều khiển ActiveX mới. Ngoài những điều khiển...
... User selects bằng cách click hay drag-drop • Những cáchdùng Property Sorted • Cáchdùng Multiselect • Dùng để display Events • Dùng để Search hay process text • Cáchdùng Itemdata song ... ra bằng cách Click nút Print, hoặc Copy chúng vào Clipboard bằng cách Click nút Copy. Dùng ItemData 1 Chương Bảy - Dùng List Controls Có hai loại List controls dùng trong VB6. Ðó là ... một con số. Tức là, sau khi gọi FreeFile phải dùng nó ngay bằng cách Open một File rồi mới gọi FreeFile lần kế để có một con số khác. Ðể ý cáchdùng chữ Input, Output cho files là relative (tương...
... sau:Mã số Số rãnh đọc Tiêu chuẩn2 104 007 1 1 và 2 ISO/ANSI2 104 007 3 2 v à 3 ISO/ANSI2 104 007 5 2 ISO/ANSI2 104 007 9 1 và 2 ISO/ANSI2 104 008 0 2 ISO/ANSI2 104 008 1 1 và 2 ISO/ANSIHiện nay có nhiều ... ngôn ngữ mới nhất là VisualBasic6.0 hỗ trợ nhiều tính năng mạnh như OLE DB để lập trình dữ liệu. Các lập trình viên đã có thể dùngVisualBasic6.0 để tự mở rộng Visual Basic. Phí Xuân Nam ... truyền trong 0. 05 đến 0.06 giây, khoảng cách giữa hai lần quẹt thẻ là 0. 1 giây để có thời gian nạp lại điện. Phần mềm máy tính có thể chấp nhận khoảng trống giữa các ký tự là 0. 1 giây.Các...
... InputBox$("Please enter your name", "What 's your name?", "John", 200 0, 100 0) MsgBox "Hi " & strReply & ", it 's great to meet you!", ... printercdlCFScalableOnly &H 200 00 Chỉ hiển thị các scalable Fonts như TrueType fonts mà bạn đã cài vào máyNếu bạn muốn cho user nhiệm ý để chọn màu thì thêm 2 56 vào trị số của Flags.Dưới đây ... program gọi. Muốn dùng các Dialogs ấy trong VB6 ta phải reference Comdlg32.ocx bằng IDE Menu command Project | Components rồi chọn và Apply Microsoft Common Dialog Control 6.0. Microsoft Common...
... from Location( 700 , 500 ) to Location (2 800 , 2 400 0) Line ( 700 , 500 )-(2 800 , 2 400 ), vbRed ' Draw a red line from Location(2 800 ,2 400 ) to Location (1 800 , 900 ) Line -(1 800 , 900 ), vbRed ' ... 200 0,1 500 with radius equal 800 Circle ( 200 0, 1 500 ), 800 ' Draw a vertical line from center Line ( 200 0, 1 500 )-Step (0, 800 ) ' Draw a horizontal line from center Line ( 200 0, 1 500 )-Step( 800 , ... CmdTrianI_Click() ' Drawing a black triangle: METHOD I Line ( 700 , 500 )-(2 800 , 2 400 ) Line (2 800 , 2 400 )-(1 800 , 900 ) Line (1 800 , 900 )-( 700 , 500 ) End Sub Private Sub CmdTrianII_Click() ' Drawing...
... Editing End Sub Trong Browse mode, Form có dạng như sau: Chương Mười Bốn - Dùng Control DataControl DataTừ VB5, VisualBasic cho lập trình viên một control để truy cập cơ sỡ dữ liệu, tên nó chỉ ... rắc rối của ODBC. Cách lập trình với RDO đơn giản như DAO, nhưng thật ra nó dùng ODBC nên cho phép users nối với nhiều databases. Tuy nhiên, RDO không được thịnh hành lắm. VB6 tiếp tục hổ trợ ... nên ta vẫn có thể tiếp tục dùng nó rất hữu hiệu trong hầu hết các áp dụng. Do đó bài nầy và bài kế sẽ tập trung vào những kỹ thuật lập trình phổ biến với DAO. Cách dùng giản tiện của control...
... đo lường ta dùng để biểu diễn khoảng cách. Trong bài trước ta đã Bạn có thể tải về chương trình Graphics.zip tại đây. Chương Mười Hai - Dùng Đồ Họa (Phần II)In trên màn ảnhVB6 có method Print ... cửa sổ Properties như sau: Dùng GraphicsĐã có một chút căn bản về graphics của VB6, bây giờ ta có thể đặt những graphics lên form. Có hai cách để làm chuyện ấy:• Dùng Graphical Controls: Ta ... ấy được vẽ trong graphic địa phương chớ không được VB6 kể là một phần của cửa sổ. Muốn tránh trở ngại nầy ta phải dặn VB6 nhớ vẽ lại bằng cách set property AutoRedraw của form và Picture1 ra...
... ' Keep only the latest 100 0 events If lstHexadecimal.ListCount >= 100 0 Then ' Remove the first Item, i.e. the oldest item lstHexadecimal.RemoveItem 0 End If ' Highlight ... ngày lấy từ Computer System và có dạng như Hex30Jun01.log. Tức là ta sẽ dùng một LogFile khác cho mỗi ngày. Mỗi khi quangày mới, program tự động dùng một LogFile mới. Nhớ là khi muốn viết vào ... 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 dùng MultiSelect Cho đến giờ User click vào Listbox...
... (IAge >= 18) Then IAnumber = 1 Else IAnumber = 0 End If If (sPersonalWorth > 100 000 0) Then IBnumber = 1 Else IBnumber = 0 End If If (IAnumber = 1) And (IBnumber = 1) Then ... bAdult = (IAge >= 18) bRich = (sPersonalWorth > 100 000 0) Sau đây là bảng liệt kê những VarTypes thông dụng:Giá trị VarType Chú thích 0- vbEmpty Không có gì trong variant1-vbNull Không có ... = 9 myStudentMarks(8) = 10 myStudentMarks(9) = 6 myStudentMarks( 10) = 7 TotalMark = 0 ' This statement is not required as VB6 initialises TotalMark to 0 ' Go through all students...
... User selects bằng cách click hay drag-drop • Những cáchdùng Property Sorted • Cáchdùng Multiselect • Dùng để display Events • Dùng để Search hay process text • Cáchdùng Itemdata song ... FileNumber, anItem Dim sFirstName As String * 10 ' fixed length string of 10 characters Dim sSurName As String * 10 ' fixed length string of 10 characters ' Obtain Folder where this ... nó trong mode Output và tuyên bố từ rày trở đi sẽ dùng một con số (FileNumber) để đại diện cái File thay vì dùng chính FileName. Ðể tránh dùng một FileNumber đã hiện hữu, tốt nhất ta hỏi xin...
... List1.ItemData(List1.NewIndex) = 62 3 10 List1.AddItem "Tran The Tam" List1.ItemData(List1.NewIndex) = 42859 List1.AddItem "Alan Bradshaw" List1.ItemData(List1.NewIndex) = 63 732 List1.AddItem ... hết ( tức là Index =0) trong List1 và xử lý Item ấy. Trong bài nầy ta chỉ Remove Item 0 rồi Add nó vào List2. Private Sub Timer1_Timer() Dim Item If List1.ListCount > 0 Then ' Look ... phục vụ một Chương Bảy - Dùng List Controls (bài thứ ba)Listbox Search trong Text File 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...
... thì nó bị mờ và user không dùng được.Bạn dùng các dấu mũi tên chỉ lên và xuống để di chuyển MenuItem đã được selected lên và xuống trong danh sách các MenuItems. Bạn dùng button Delete để hủy ... vào trong Registry và bất cứ lúc nào chỉ giữ lại tên của 3 Files mới dùng nhất.Dưới đây là code dùng để thêm tên File mới dùng nhất vào Registry:Private Sub mnuOpen_Click() ' Initialise ... ActiveX Components v.v. dùng trong computer. Trong Registry, data được sắp đặt theo từng loại theo đẳng cấp. Bạn có thể Edit trực tiếp trị số các Keys trong Registry bằng cách dùng Registry Editor.Trong...
... thiÖu vÒ VB6 21 Giới thiệu về VisualBasic6 • VisualBasic là gì ? • Các phiên bản khác nhau của VB • Cài đặt VB6 • Tìm kiếm trợ giúp khi sử dụng VB6 Ph¸t triÓn øng dông víi VB6 72 ... 46 3.12 Dialog Box Dialog box dùng để hỏi người dùng dữ liệu cần thiết hoặc dùng để hiện thông tin cho người dùng. Dialog box là một kiểu đối tượng form đặc biệt mà có thể tạo theo 3 cách: ... control trong VisualBasic theo cách tương tự. Form vµ Control 323.5 Text box Text box (hộp soạn thảo) dùng để nhập dữ liệu từ người dùng hay hiển thị dữ liệu. Tuy nhiên, không nên dùng Textbox...