ứng dụng dll trong visual basic 6 0

Dùng List Controls trong visual Basic 6

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

... lstHexadecimal.AddItem Format(Now, "dd/mm/yyyy hh:nn:ss") & " " & Mess ' Keep only the latest 100 0 events If lstHexadecimal.ListCount >= 100 0 Then ' Remove the first Item, i.e the oldest item lstHexadecimal.RemoveItem ... Len(HexStr) = Then HexStr = "0" & HexStr msg = msg + HexStr & " " Next i HexDisplay = msg ' Return result string for Function End Function Trong program nầy, Listbox đạt đến 100 0 items lần hàng thêm ... FileName, 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 program's...

23
985
7

Sử dụng Menu trong Visual Basic

Ngày tải lên : 22/08/2012, 11:04

... GetSetting(App.Title, "Settings", "WordWrap", "False") = "True" ) End Sub Lúc đầu chưa có Registry "0" (string "0" converted Val 0) default value cho Left Top, "False" default value mnuWordWrap.Checked Ngoài ta ... Editor Trong hình ta chọn Ctrl+O cho mnuOpen By default, menuItem Enabled Visible Lúc thiết kế bạn cho MenuItem giá trị khởi đầu Enabled Visible cách dùng Checkboxes Enabled Visible Trong chạy ... Configurations, ActiveX Components v.v dùng computer Trong Registry, data đặt theo loại theo đẳng cấp Bạn Edit trực tiếp trị số Keys Registry cách dùng Registry Editor Trong program nầy ta bắt program nhớ vị...

11
1.1K
5

Dùng Dialogs trong visual basic

Ngày tải lên : 22/08/2012, 11:04

... strReply As String strReply = InputBox$("Please enter your name", "What 's your name?", "John", 200 0, 100 0) MsgBox "Hi " & strReply & ", it 's great to meet you!", vbOKOnly, "Hello" End Sub Để ý parameters ... Fonts ảnh printer cdlCFScalableOnly &H 200 00 Chỉ hiển thị scalable Fonts 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êm 2 56 vào trị số Flags Dưới code user chọn ... Menu command Project | Components chọn 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...

15
984
5

Các loại dữ kiện trong Visual Basic 6

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

... nhau: ABC, memory Text String nầy biểu diễn số 01 000 001 0 100 001 001 000 011 (trong binary) hay 414243 (trong Hex, nhóm bits tương đuơng với Hex digit) VB6 cho ta Function tiện lợi để làm việc với Text ... String biểu diễn memory số 00 1 100 0 100 1 100 100 01 100 11 Binary hay 313233 Hex Như có cách biểu diễn số 123 mà không dùng Text String không? Dĩ nhiên Con số 123 7B Hex hay 01 11 101 1 Binary, ta chứa số ... cho tất keys bàn phím đuợc gọi ASCII Theo quy ước nầy digit "1" biểu diễn số 48 (00 1 100 01) nút Enter số 13 (00 0 100 11) Chắc có lẽ bạn đoán theo quy ước ASCII, pattern (dạng) bits (1 byte) biểu diễn...

9
1K
5

Database trong Visual Basic 6

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

... Error, kết NULL Làm việc với versions khác Nếu máy bạn chạy MSAccess 200 2 bạn làm việc với Access database file version 97, 200 0 200 2 Nếu cần phải convert từ version nầy qua version khác, bạn dùng ... entry báo cáo (reports) Kèm theo với Visual Basic 6. 0 ta mua copy Database Engine MSAccess Tên Jet Database Engine, lõi MSAccess DBMS Các chương trình VB6 truy cập database qua Jet Database Engine ... không thích hợp với ứng dụng có nhiều người dùng lúc Trong đó, Database Server SQLServer chạy riêng để phục vụ chương trình khách (client) cần Database Server thich hợp cho ứng dụng có nhiều users...

9
1.1K
7

Viết code trong Visual Basic 6

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

... cha mẹ kiếm 100 ngàn trở lên năm HAY học sinh có Intelligent Quotient cao 1 60 đăng ký học sinh đại học tư: If ((StudentAge >= 18) And (ParentIncome >= 100 000 )) Or (StudentIQ > 1 60 ) Then EnrollStudentAtPrivateUniversity ... FALSE TRUE TRUE TRUE Trong thí dụ học sinh 18 tuổi trở lên cha mẹ kiếm 100 ngàn trở lên năm đăng ký học sinh đại học tư: If (StudentAge >= 18) And (ParentIncome >= 100 000 ) Then EnrollStudentAtPrivateUniversity ... Next Total 4 +6+ 8+ 10+ 12+14+ 16= 70 Trong thí dụ ta dùng STEP số âm sau: For i = 16 To Step -2 ' Iterate from 16 to with Step=-2 Total = Total + i ' Add the number to the Total Next Trong trường...

10
3.6K
49

Ứng dụng Access và Visual Basic.Net để xây dựng và quản lý hệ thống bài học, bài tập hóa học phần Hidrocacbon

Ngày tải lên : 30/01/2013, 14:14

... sử dụng 1.4.2 Ứng dụng ngôn ngữ lập trình VB.Net [34] + Visual Basic. Net không đơn giản phiên nâng cấp Visal Basic 6. 0 mà ngôn ngữ lập trình hoàn hảo, chuyên nghiệp Nó phận, với Visual C#, Visual ... Office/ Microsoft Office Access 200 7(có thể dùng Microsoft 200 3 được) Hình 2.3 Vào chương trình Microsoft Access 200 7 Cửa sổ sau xuất Hình 2.4 Cửa sổ ứng dụng Access 200 7 Double Click Blank Database, ... tính đa thể cổ điển, tử phương pháp -Visual Basic. Net cho phép nhà lập trình phát triển xây dựng ứng dụng, hỗ trợ ứng dụng gốc, đồ hoạ cường tráng -Visual Basic. Net hỗ trợ kiểu liệu (system object),...

120
1.3K
2

Hướng dẫn sử dụng control trong visual basic

Ngày tải lên : 20/11/2013, 20:57

... đường tròn tâm 200 0,1 500 bán kính 800 Circle ( 200 0, 1 500 ), 800 ' Vẽ đường thẳng ngang từ tâm Line ( 200 0, 1 500 )-Step (0, 800 ) ' Vẽ đường thẳng ứng từ tâm Line ( 200 0, 1 500 )-Step( 800 , 0) End Sub Bước ... Private Sub mnuTgDen_Click() ' Vẽ tam giác với màu đen Line ( 700 , 500 )-(2 800 , 2 400 ) Line (2 800 , 2 400 )-(1 800 , 900 ) Line (1 800 , 900 )-( 700 , 500 ) End Sub Bước 14: Vẽ tam giác với màu đỏ tọa độ Sự kiện ... ( 300 0, 400 0)-( 3 60 0, 4 500 ), vbMagenta Dùng chữ Step để nói khác biệt từ CurrentX CurrentY: Ví dụ: Line Step( 400 , 60 0) -Step( 800 , - 500 ), vbGreen Nếu trước thực thi dòng mã CurrentX= 3 60 0 CurrentY=4 500 ...

114
833
2

Mô Hình hóa Lò điện cảm ứng. Mô phỏng trên visual basic 6

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

... Hien thi Form Dim y( 100 000 0) As Single Dim x( 100 000 0) As Single Dim z( 100 000 0) As Single Dim w( 100 000 0) As Single Dim k As Single Const tt = 0. 01, hso_x = 100 , hso_y = 40 Dim j As Single Dim ... To 100 00 Step 500 Form4.Picture4.Line (k + 300 , 0) -(k + 300 , hso_y * 100 ), vbBlack 'Ve truc ngang(thoi gian) Next k For k = To 100 00 Step 500 Form4.Picture4.Line ( 300 , k)-((hso_x * 100 ) + 200 , ... 100 End Sub Private Sub Ketqua_Click() Form4.Show Dim y( 100 000 ) As Single Dim u( 100 000 ) As Single Dim z( 100 000 ) As Single Trang 29 Đồ án môn học: Trang bị điện Dim w( 100 000 ) As Single Dim x( 100 000 0)...

35
688
0

các mẹo vặt trong visual basic 6

Ngày tải lên : 05/07/2014, 14:24

... 40 characters cho hàng, ( 40 characters chiều rộng Docket) Muốn gởi trọn 40 characters bạn phải ghép thêm blank spaces cho dòng dài đủ 40 characters Thí dụ: strLine = Space( 40) ' Initialise 40 ... Timer1.Interval = 500 0 ' Set duration in milliseconds Timer1.Enabled = True 'Start Timer1 Sub Timer1_Timer() Timer1.Enabled = False ' Code tiếp tục công việc End Sub Làm thùng rác cháy lửa giây Trong xử ... Không biết bạn có để ý thấy cách chờ đợi gặp trở ngại lúc gần đến nừa đêm giây Khi Finish lớn 3 60 0* 24 giây Timer không đạt đến số để nhảy khỏi Loop Giống lập gia đình vậy, làm suốt đời, lối thoát...

19
504
0

Một số control nâng cao trong Visual Basic 6.0 pot

Ngày tải lên : 07/07/2014, 11:20

... có tác dụng chọn Format dtpCustom) Nên tham khảo format hiển thị ngày/giờ Excel Ví dụ: Giả sử chọn ngày 31 tháng 10 năm 200 4, sử dụng chuỗi định dạng hiển thị d-mmm-yy kết hiển thị 31-Oct -04 Trang ... (sử dụng TreeView), bên phải thông tin bên thư mục chọn (sử dụng ListView, có nhiều cách trình bày khác nhau) Trang 6/ 13 Vào menu Project  Components, chọn Microsoft Window Common Control 6. 0 ... Common Control 6. 0 Trên công cụ xuất số control Chúng ta chọn sử dụng đối tượng ImageList Sau bổ sung đối tượng ImageList lên form, click bên phải chuột vào đối tượng này, chọn Properties Trong hộp...

13
769
6