• 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 554 kết quả

gửi bởi Zeroplus
T.Ba 17/04/2012 12:55 pm
Chuyên mục: [VB] Mẹo vặt khác
Chủ đề: Tự xóa chính mình sau khi thoát.
Trả lời: 12
Xem: 5997

Re: Tự xóa chính mình sau khi thoát.

Chào các bác! E muốn viết 1 file exe có nội dung như sau: + chạy file Unlock.exe 8s rồi "tắt" chứ ko phải xóa nó đi + sau đó chạy file shortcut của window: profile.ink Em lại chưa biết gì về VB. Học cái này để nhập môn lập trình. Mong các bác hướng dẫn em cách viết file này bằng VB (máy e...
gửi bởi Zeroplus
T.Hai 16/04/2012 7:00 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Hàm API Trong VB6
Trả lời: 4
Xem: 876

Re: Hàm API Trong VB6

Vào msdn xem đi bạn. Hướng dẫn đầy đủ trong đó
gửi bởi Zeroplus
T.Năm 12/04/2012 1:32 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Nhờ mọi người giúp về nút X
Trả lời: 2
Xem: 475

Re: Nhờ mọi người giúp về nút X

Dùng vòng lặp Unload tất cả form
[vb]

Public Sub UnloadAllForms()
Dim Form As Form
For Each Form In Forms
Unload Form
Set Form = Nothing
Next Form
End Sub

Private Sub Form_Unload(Cancel As Integer)
call UnloadAllForms
End Sub

[/vb]
gửi bởi Zeroplus
T.Tư 11/04/2012 5:41 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Hỏi: Copy cả 1 folder?
Trả lời: 2
Xem: 584

Re: Hỏi: Copy cả 1 folder?

Đương nhiên là được, có điều nó không có sẵn hàm cho bạn. Bạn phải tự viết ra hàm đó thôi. Để copy thư mục. Bạn phải liệt kê được nó có bao nhiêu thư mục con & file bên trong, rồi mới dùng vòng lặp copy từng thứ cho đến hết. Để liệt kê được thư mục con và file bạn có thể dùng control FileListBox...
gửi bởi Zeroplus
T.Ba 10/04/2012 7:27 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Vẽ lên trên Picture hay Image
Trả lời: 3
Xem: 716

Re: Vẽ lên trên Picture hay Image

doduc812 đã viết: hoặc nếu không liệu có vẽ được đường thẳng trên Picturebox không vậy?

Để vẽ trên picturebox thì bạn chỉnh AutoRedraw của Picturebox = True
Sau đó vào phần code:
Ví dụ:
[vb]Picture1.Line (0, 0)-(5000, 5000)[/vb]
gửi bởi Zeroplus
T.Ba 10/04/2012 8:29 am
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Vẽ lên trên Picture hay Image
Trả lời: 3
Xem: 716

Re: Vẽ lên trên Picture hay Image

Vẽ line trên picturebox cũng giống như vẽ trên form zậy
gửi bởi Zeroplus
CN 01/04/2012 11:27 am
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Hỏi về cách lưu ảnh vào ổ cứng máy tính trong VB6
Trả lời: 15
Xem: 1659

Re: Hỏi về cách lưu ảnh vào ổ cứng máy tính trong VB6

Chắc tại thẻ code vb nó xuống hàng nên bác hiểu sai ý cháu. Nguyên câu của cháu là Vẽ trên picture1 thì muốn lưu chỉ cần: SavePicture Picture1.Image, "C:\1.bmp" không cần qua trung gian. Tức là không cần chép từ picture1 sang picture2 rồi mới lưu ( vì nó lưu được line nhưng không lưu contr...
gửi bởi Zeroplus
T.Bảy 31/03/2012 10:20 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Hỏi về cách lưu ảnh vào ổ cứng máy tính trong VB6
Trả lời: 15
Xem: 1659

Re: Hỏi về cách lưu ảnh vào ổ cứng máy tính trong VB6

Hóa ra nó chỉ đơn giản thế này thôi các bác ạ: chả cần chụp ảnh màn hình làm gì cả Đầu tiên đặt Autoredraw của picture1 = true sau đó: Picture2.Picture = Picture1.Image SavePicture Picture2.Image, "C:\1.bmp" Như vậy là toàn bộ hình ảnh của picture1 sẽ đc lưu tại C:\1.bmp , kể cả những con...
gửi bởi Zeroplus
T.Sáu 30/03/2012 9:08 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: help; lọc dữ liệu
Trả lời: 4
Xem: 925

Re: help; lọc dữ liệu

Code đây bạn. File1.txt là file cần lọc. File2.txt là file kết quả [vb] Private Sub Loc() Dim sTmp As String Open "C:\File1.txt" For Input As #1 Open "C:\File2.txt" For Output As #2 Do While Not EOF(1) Line Input #1, sTmp If InStr(1, sTmp, "Reader", vbTextCompare) <> 0 ...
gửi bởi Zeroplus
T.Sáu 30/03/2012 8:48 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Thực hiện tính toán mà không cần đến nút command
Trả lời: 4
Xem: 893

Re: Thực hiện tính toán mà không cần đến nút command

Theo như chủ topic nói thì nên viết vào trong sự kiện click của combobox luôn [vb] Private Sub Combo1_Click() Select Case Combo1.List(Combo1.ListIndex) Case "+" text3.Text = Val(Text1.Text) + Val(Text2.Text) Case "-" text3.Text = Val(Text1.Text) - Val(Text2.Text) Case "*&quo...
gửi bởi Zeroplus
T.Ba 27/03/2012 3:47 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Các bạn cho hỏi về tách chuỗi
Trả lời: 2
Xem: 1150

Re: Các bạn cho hỏi về tách chuỗi

Dùng hàm split để tách nó ra. Bạn search hàm split nghen
gửi bởi Zeroplus
T.Ba 20/03/2012 8:57 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Giúp em về đọc file trong VB6
Trả lời: 4
Xem: 1039

Re: Giúp em về đọc file trong VB6

Code trên chỉ mở dialog chọn file chứ có đọc gì đâu. Hinh như bạn post thíu
gửi bởi Zeroplus
T.Ba 20/03/2012 11:44 am
Chuyên mục: Visual Basic for Application (VBA)
Chủ đề: Lập Trình Ứng Dụng MobileVB.
Trả lời: 7
Xem: 1208

Re: Lập Trình Ứng Dụng MobileVB.

Mình cũng không đi sâu vào điện thoại vì kiến thức có hạn. Nhưng mình có một số web sau giúp bạn được: Lập trình cho iOS : http://diendan.congdongcviet.com/forumdisplay.php?f=10 Lập trình android & Java : http://diendan.congdongcviet.com/forumdisplay.php?f=11 http://www.droidviet.com/forum/lap-t...
gửi bởi Zeroplus
CN 18/03/2012 7:16 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: giúp mình tạo cái tìm file với
Trả lời: 8
Xem: 1082

Re: giúp mình tạo cái tìm file với

Dùng api findfirstfile và findnextfile để tìm file au. Trong vblib có đó bạn
gửi bởi Zeroplus
T.Sáu 16/03/2012 12:49 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: Lập trình cờ caro
Trả lời: 8
Xem: 3463

Re: Lập trình cờ caro

Mình đã hoàn thành game rồi :), cảm ơn mọi người đã giúp đỡ :) Nhưng có vấn đề này mình vẫn muốn nhờ mọi người chỉ giáo: Chả là mình làm theo hướng dẫn trong sách, thì khi chơi ở kiểu chơi Máy - Người, thì khi mình đánh đâu thì máy nó chặn ngay ở đó :(, vậy có bạn nào có code tìm nước đi tối ưu cho...
gửi bởi Zeroplus
T.Năm 15/03/2012 5:10 pm
Chuyên mục: Visual Basic for Application (VBA)
Chủ đề: Lập Trình Ứng Dụng MobileVB.
Trả lời: 7
Xem: 1208

Re: Lập Trình Ứng Dụng MobileVB.

Bạn nên đổi qua học Java, C để viết ứng cho điện thoại. Chứ dùng mobile vb nó chỉ hỗ trợ 1 số dòng máy thôi
gửi bởi Zeroplus
T.Hai 12/03/2012 7:29 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: kiểm tra ip và DNS
Trả lời: 7
Xem: 1198

Re: kiểm tra ip và DNS

[vb]Public Sub GetDNSServer() Dim Output, DNS1 As String Set objShell = CreateObject("WScript.Shell") Set objExecObject = objShell.Exec("%comspec% /c ipconfig /all") Output = objExecObject.StdOut.ReadAll() Set objExecObject = Nothing DNS1 = Trim(Replace(Mid(Output, InStr(InStr(1,...
gửi bởi Zeroplus
T.Hai 12/03/2012 7:24 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: cách load random các picture vào mảng nxn command
Trả lời: 4
Xem: 759

Re: cách load random các picture vào mảng nxn command

Bạn đã biết chèn ngẫu nhiên các bức ảnh vào control thì bạb chỉ cần ghi nhớ control ở vị trí đó được chèn ảnh thứ mấy rồi dùng hàm If.... Then để xét điều kiện Ví dụ: Bạn có 8 ảnh đặt tên là : Img1.jpg , img2.jpg ,..... img8.jpg Mỗi 1 ảnh chèn vào 2 control. Nên ví dụ control 1 được chèn ảnh 1 thì g...
gửi bởi Zeroplus
CN 11/03/2012 11:15 pm
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: cách load random các picture vào mảng nxn command
Trả lời: 4
Xem: 759

Re: cách load random các picture vào mảng nxn command

Bạn hongtamtk nói cụ thể hơn đi chứ bạn trả lời giống như thách đố vậy. Đến hàm randomize mà bạn còn viết tắt thì mấy ai hiểu nổi
gửi bởi Zeroplus
CN 11/03/2012 10:18 am
Chuyên mục: Visual Basic 6 và Visual Basic Script (VB & VBS)
Chủ đề: kiểm tra ip và DNS
Trả lời: 7
Xem: 1198

Re: kiểm tra ip và DNS

Bạn thử đoạn code này xem, mới tìm lại trong thư viện. Nó đọc giá trị trả về từ lệnh ipconfig /all rồi dùng các hàm cắt chuỗi để lọc ra DNS Server [vb]Public Function GetDNSServer() As String Dim Output Set objShell = CreateObject("WScript.Shell") Set objExecObject = objShell.Exec("%c...

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