• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Chỉ tìm thấy 71 kết quả

gửi bởi Dark.Cosmos
T.Bảy 22/07/2017 1:48 am
Chuyên mục: [VB] Mã nguồn
Chủ đề: DCS - Mã nguồn VB6 Multithreading (đa nhiệm cho vb6)
Trả lời: 0
Xem: 116

DCS - Mã nguồn VB6 Multithreading (đa nhiệm cho vb6)

Mã nguồn VB6 Multithreading VB6 Dark.Cosmos Xử lý đa nhiệm trong VB6 Có thể sử dụng vòng lặp không có DoEvents và Sleep để test full CPU Usage với 4 luồng trở lên. Đây chỉ là code mẫu, mọi người có thể tùy chỉnh lại cho phù hợp tùy nhu cầu sử dụng. DCS - Multithreading.zip DCS - Multithreading.png
gửi bởi Dark.Cosmos
T.Năm 13/07/2017 1:49 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Hỏi về code xuống dòng khi in đoạn văn bản dài trong 1 ô
Trả lời: 1
Xem: 583

Re: Hỏi về code xuống dòng khi in đoạn văn bản dài trong 1 ô

Tạo 1 Form, thiết lập font của From đó giống font của văn bản. Sau đó sử dụng function From.TextWidth("VănBản") để lấy độ dài của văn bản: Dim textW!: textW = From.TextWidth("VănBản") textW lúc này có đơn vị là Twips, sử dụng function From.ScaleX để đổi sang đơn vị muốn dùng. Sử ...
gửi bởi Dark.Cosmos
T.Năm 13/07/2017 1:29 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: lỗi floating point khi đọc và hiển thị giá trị từ thanh ghi
Trả lời: 1
Xem: 526

Re: lỗi floating point khi đọc và hiển thị giá trị từ thanh ghi

Cái này mình chưa bao giờ đụng tới, nhưng ngó sơ qua có thấy vài điểm bất thường: '******Get two 16 registers and read into MyData Array****** Ở cái ghi chú này mình thấy nó ghi lấy 2 lần thanh ghi 16 , hình như tổng cộng của cả 2 lần chỉ có 4 byte thôi => 1 lần là 2 byte. Nhưng code của bạn: Dim My...
gửi bởi Dark.Cosmos
T.Năm 13/07/2017 12:37 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Tốc độ vòng for va Do
Trả lời: 1
Xem: 944

Re: Tốc độ vòng for va Do

Hỏi hay lắm. (y) Mình mạn phép trả lời nhé, có gì không đúng mong góp ý. Ở hàm "for", giả sử for i = 0 to 2000000000 thì "for" sẽ sử dụng toán tử so sánh bé hơn hoặc bằng , ở đây là so sánh xem i có bé hơn hoặc bằng 2000000000 hay không. Còn trong đoạn code ví dụ của bạn. Hàm &qu...
gửi bởi Dark.Cosmos
T.Năm 13/07/2017 10:22 am
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Giúp em về vấn đề keypress
Trả lời: 1
Xem: 640

Re: Giúp em về vấn đề keypress

sử dụng API SetWindowsHookEx ( https://msdn.microsoft.com/en-us/library/windows/desktop/ms644990(v=vs.85).aspx ) với tham số idHook là WH_KEYBOARD_LL (13), tham số lpfn là địa chỉ của thủ tục hook, tham số hMod và dưThreadId là 0 để hook keyboard toàn cục. Tại thủ tục hook, kiểm tra sự kiện nhấn phí...
gửi bởi Dark.Cosmos
T.Năm 13/07/2017 9:41 am
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: button thực thi liên tục
Trả lời: 1
Xem: 713

Re: button thực thi liên tục

Nội dung bài viết của bạn quá ngắn.
gửi bởi Dark.Cosmos
T.Năm 13/07/2017 9:25 am
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Hỏi? Lỗi khi lấy ngày giờ trên Internet
Trả lời: 1
Xem: 590

Re: Hỏi? Lỗi khi lấy ngày giờ trên Internet

Option Explicit Function InternetTime(Optional GMTDifference As Integer) As Date '----------------------------------------------------------------------------------- 'This function returns the Greenwich Mean Time retrieved from an internet server. 'You can use the optional argument GMTDifference in...
gửi bởi Dark.Cosmos
T.Năm 13/07/2017 8:57 am
Chuyên mục: Bài viết hướng dẫn
Chủ đề: DCS - Lỗi ngớ ngẫn của vb6 khi sử dụng array với "with" statement. (This array is fixed or temporarily locked)
Trả lời: 1
Xem: 261

DCS - Lỗi ngớ ngẫn của vb6 khi sử dụng array với "with" statement. (This array is fixed or temporarily locked)

[vb] Option Explicit Private Type dtTest A As Long B As Long End Type Private aryTest() As dtTest Private Sub Form_Initialize() Const c& = 10 ReDim aryTest(c) As dtTest Dim i&: For i = 0 To 10 With aryTest(i) .A = i .B = -i End With Next Call ShowTestInfo End Sub Private Sub Form_Terminate()...
gửi bởi Dark.Cosmos
T.Hai 19/09/2016 1:33 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: SaveAs file MSWord không được như ý muốn.
Trả lời: 2
Xem: 755

Re: SaveAs file MSWord không được như ý muốn.

ko rành về cái này lắm, nhưng link ở dưới có thể giúp đc cho bạn.
https://msdn.microsoft.com/en-us/librar ... 36084.aspx
gửi bởi Dark.Cosmos
T.Hai 19/09/2016 1:32 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: lấy giá trị checkbox
Trả lời: 4
Xem: 1123

Re: lấy giá trị checkbox

Nếu bạn đã chắc chắn là đã lấy đúng hWnd của checkbox ở chương trình khác mà không dùng code ở trên để check được thì bạn thử chạy chương trình check của bạn dưới quyền quản trị xem. (Make ProjectName.exe >> chuột phải lên file ProjectName.exe mới make xong và chọn "Run as Administrator" >...
gửi bởi Dark.Cosmos
T.Hai 25/07/2016 12:53 am
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: So sánh lớn nhất và nhỏ nhất trong vb6
Trả lời: 1
Xem: 819

Re: So sánh lớn nhất và nhở nhất trong vb6

Dim a&, b&, c&: a=1: b=8: c=5
Dim mx&: mx = iif(a>=b, a, b)
If(c>mx) then mx=c
Msgbox cstr(mx)
gửi bởi Dark.Cosmos
T.Hai 18/07/2016 10:06 am
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Gõ có dấu trong VB6
Trả lời: 1
Xem: 750

Re: Gõ có dấu trong VB6

Hình như trên 4rum có rồi thì phải. Bạn tìm thử đi.
gửi bởi Dark.Cosmos
T.Hai 18/07/2016 9:59 am
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Print #filemunber, trong VB6
Trả lời: 1
Xem: 917

Re: Print #filemunber, trong VB6

Đoạn code đó chắc nằm trong 1 vòng lặp hay 1 event nào đấy. Có thể dùng tạm cách dưới đây(cách này sẽ tốn bộ nhớ, ct chạy chậm): Open pathfile for output thay cho append. Static s1$: s1 = s1 & CP & " " & DK & " " & TR & " " & CP & " ...
gửi bởi Dark.Cosmos
T.Hai 18/07/2016 9:04 am
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: lấy giá trị checkbox
Trả lời: 4
Xem: 1123

Re: lấy giá trị checkbox

Bạn lấy hưnd của checkbox ở chương trình khác như thế nào. Post đoạn mã bạn dùng đề lấy hwnd lên mình xem thử.
gửi bởi Dark.Cosmos
T.Hai 18/07/2016 9:00 am
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Giúp đỡ lưu dữ liệu vào MS Access bị lộn xộn.
Trả lời: 1
Xem: 770

Re: Giúp đỡ lưu dữ liệu vào MS Access bị lộn xộn.

Ko nhớ là recordset có thuộc tính sort (sắp xếp) hay ko. Nếu có thì bạn thiết lập lại = none hoặc false. Dữ liệu ở dưới mình thấy nó tự sắp xếp theo 0-1 a-z. Cụ thể: 741,876 > 741,882 > 741,888 (tăng dần). 741,876 807,408 872,941 938,475 3:14:05 CH 16/06/2016 741,882 807,414 872,947 938,481 3:14:08 ...
gửi bởi Dark.Cosmos
T.Hai 16/05/2016 8:45 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Nhờ giúp Không tự động xuống hàng trong rictextbox
Trả lời: 1
Xem: 1044

Re: Nhờ giúp Không tự động xuống hàng trong rictextbox

Cái bạn đang cần hình như là thuộc tính Wordwrap chứ ko phải Multiline.
Multiline chỉ xuống dòng khi gặp ký tự xuống dòng [vbcr, vbcrlf, vbnewline, chr(vbkeyEnter), chr(13),...]
gửi bởi Dark.Cosmos
T.Sáu 11/03/2016 10:58 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Nhờ dịch và sửa code từ file EXE
Trả lời: 4
Xem: 826

Re: Nhờ dịch và sửa code từ file EXE

.
ReplaceHotKey.zip
(101.4 KiB) Đã tải 87 lần

Chép file DCS_ReplaceHotkey.exe vào thư mục chứa Auto.exe và chạy ReplaceHotkey.exe,
thiết lập lại các phím tắt theo ý muốn rồi nhấn "Run Auto.exe with new HotKey" là đc.
gửi bởi Dark.Cosmos
T.Năm 10/03/2016 3:39 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Xin giúp đỡ lấy tên file vào 1 textbox
Trả lời: 3
Xem: 992

Re: Xin giúp đỡ lấy tên file vào 1 textbox

Bổ sung thêm hàm lấy tên file: 1. Lấy tên file tin thông qua đường dẫn dù file không tồn tại: [vb] Function dGetFileNameByPath(sFullPathFile$) As String On Error Resume Next Dim lL&: lL = Len(sFullPathFile): If (lL < 1) Then Exit Function Dim aPF: aPF = Split(sFullPathFile, "\"): lL = ...

Chọn tìm kiếm nâng cao