sử dụng visual basic 6 0

... : 09 18.775. 368 Chơng I. Giới thiệu ngôn ngữ lập trình Visual Basic 6. 0 I. Khái quát về Visual Basic 6. 0: Visual Basic là cái gì? Visual (trực quan) là phần thảo khảo phơng pháp đợc sử dụng ... lienhe@docs.vn Tel : 09 18.775. 368 Lập trình cơ sở dữ liệu Visual basic 6. 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 ... lienhe@docs.vn Tel : 09 18.775. 368 ợc tất cả các trình duyệt Web sử dụng) bằng cách đa ra kiểu đề án mới khác: ứng dụng DHTML. 2.4. Khả năng dữ liệu của Visual Basic 6. 0 Visual Basic 6. 0 cung cấp các...

Ngày tải lên: 17/04/2013, 13:43

... vo i tượng để mở của sổ Visual Basic có thể dùng t hp phớm ALT + F11. ãCú th thay i i tượng và sự kiện xảy ra trên đối tượng thông qua 2 combobox trong cửa sổ Visual Basic. Tóm tắt các bc s ... nhanh của số Visual Basic thông qua tổ hợp phím ALT + F11 hoặc click đúp vào đối tượng bất kỳ. Nên đặt tên các đối tượng theo quy tắc chung để dễ dàng nhận biết kiểu đối tượng khi sử dụng VBA. ... ng cho nhiu s kin xy ra trên cùng một đối tượng bằng cách chọn sự kiện ở combox trong của sổ Visual Basic. (Ví dụ có thể cùng viết hoạt động cho sự kiện click, click đúp,…) Tóm tắt Trước khi...

Ngày tải lên: 26/08/2013, 10:10

Ngày tải lên: 14/12/2013, 22:55

Ngày tải lên: 21/03/2014, 19:45

Ngày tải lên: 26/11/2014, 21:49

... sau: Mã số Số rãnh đọc Tiêu chuẩn 2 104 007 1 1 và 2 ISO/ANSI 2 104 007 3 2 v à 3 ISO/ANSI 2 104 007 5 2 ISO/ANSI 2 104 007 9 1 và 2 ISO/ANSI 2 104 008 0 2 ISO/ANSI 2 104 008 1 1 và 2 ISO/ANSI Hiện nay có nhiều ... ngôn ngữ mới nhất là Visual Basic 6. 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ùng Visual Basic 6. 0 để tự mở rộng Visual Basic. Phí Xuân Nam ... làm một chương trình có thể ứng dụng trong thực tiễn. Em đã chọn đề tài: Hệ Thống Chấm Công Sử Dụng Công Nghệ Thẻ sử dụng ngôn ngữ lập trình Visual Basic 6. 0 Cho dù đã rất cố gắng nhưng do...

Ngày tải lên: 20/12/2012, 16:13

Ngày tải lên: 27/12/2013, 20:41

Ngày tải lên: 14/10/2014, 00:09

... Dim i, anItem Dim sFirstName As String * 10 ' fixed length string of 10 characters Dim sSurName As String * 10 ' fixed length string of 10 characters lstTemp.Clear ' Clear ... 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 ... 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...

Ngày tải lên: 28/08/2012, 15:46

... InputBox$("Please enter your name", "What 's your name?", "John", 200 0, 100 0) MsgBox "Hi " & strReply & ", it 's great to meet you!", ... printer cdlCFScalableOnly &H 200 00 Chỉ hiển thị các scalable Fonts như TrueType fonts mà bạn đã cài vào máy Nế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 ... command Project | Components rồi chọn và Apply Microsoft Common Dialog Control 6. 0. Microsoft Common Dialog Control 6. 0 cho ta sáu dạng Dialogs tùy theo gọi Method nào: Tên Method Open File ShowOpen Save...

Ngày tải lên: 16/10/2013, 04:15

... 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...

Ngày tải lên: 22/10/2013, 11:15

... Data Từ VB5, Visual Basic cho lập trình viên một control để truy cập cơ sỡ dữ liệu, tên nó chỉ đơn sơ là Data. Như ta biết, có một cơ sỡ dữ liệu Microsoft gói kèm khi ta mua VB6 - đó là Jet ... database nằm trong folder E:\Program Files\Microsoft Visual Studio\VB98, nhưng trên computer của khách thì database nằm trong folder C:\VB6\DataControl chẳng hạn. Do đó, khi chương trình khởi ... chương trình bạn ở đâu trong hard disk của computer khách. Nếu bạn đang học VB6 từ xa, khi nộp bài database cho giám thị VB6 mà bạn hardcode (viết chết cứng) vị trí của file database trong lúc thiết...

Ngày tải lên: 26/10/2013, 18:15

... form. Cái góc Trên Trái là Trung tâm tọa độ của screen hay form. Ở đó tọa độ X và Y đều bằng 0, ta viết là 0, 0. Nếu ta đi lần qua phải theo chiều rộng của screen thì tọa độ X tăng lên. Nếu ta đi dọc ... form. Twips là Default Coordinate System của VB6. Trong hệ thống nầy mỗi điểm là tương đương với 1/ 567 centimeter. Do đó, nếu bạn vẽ một dường dài 567 twips nó sẽ hiển thị dài 1cm trên màn ảnh, ... màn ảnh VB6 có method Print cho ta in thẳng trên Form, PictureBox hay Printer. Ba loại control nầy được coi như những khung vải mà họa sĩ vẽ lên. Bạn hãy khởi động một chương trình VB6 mới. Đặt...

Ngày tải lên: 04/11/2013, 21:15

... ' 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 ... 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 ý là ListCount ... listbox Const MaxLinesPerPage = 50 Dim msg, i, j, PageNo, NumLines, HasSome, Margin HasSome = False ' Flag indicating existence of data Margin = Space( 10) ' Make a margin of 5 characters ...

Ngày tải lên: 04/11/2013, 21:15

... 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 variant 1-vbNull Không có ... 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 StandForTheElection ... = 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...

Ngày tải lên: 24/01/2014, 02:20

... 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 ... 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 lên một hàng, Listbox sẽ generate Event lstNames_Click. ... CmdExit_Click() End End Sub Giả sử ta click vào tên John Smith trên Listbox, ta sẽ thấy tên ấy cũng đuợc display trong Label lblName. Nhân tiện đây ta sửa cái Sub CmdSave_Click lại một chút...

Ngày tải lên: 24/01/2014, 02:20

... 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 ... head of the queue Item = List1.List (0) ' Process Item - just add it to List2 here List2.AddItem Item ' Remove item from queue List1.RemoveItem 0 End If End Sub Bạn có thể download...

Ngày tải lên: 24/01/2014, 02:20

... làm việc với một Object trong Windows tiện nhất là ta có thể làm hiển thị Context Menu (Menu áp dụng cho đúng tình huống) bằng một Mouse click. Thông thường đó là Right Click và cái Context Menu ... Edit sẽ mất bốn dấu chấm, tức là trồi một bậc trong Menu. Nếu muốn cho User dùng Alt key để xử dụng Menu, bạn đánh thêm dấu & trước character bạn muốn trong menu Caption. Thí dụ Alt-F sẽ ... MenuItem &Open tên mnuOpen, thì khi bạn Click lên Caption nó trên Form trong lúc thiết kế, VB6 IDE sẽ hiển thị cái vỏ của Sub mnuOpen_Click(), giống như Sub cmdButton_Click() của một CommandButton:...

Ngày tải lên: 24/01/2014, 02:20