Câu lạc bộ Visual Basic

Không biết có anh em nào bị cái này không, ẩn volume, battery- khi vào custom thì nó hide luôn không cho chọn. Cứ bị hoài nên viết cái tool fix luôn cho lẹ , anh em nào cần thì dùng (Source code ở dưới)

hiển thị dữ liệu vào bảng ,dữ liệu bạn lấy từ file access à?

bạn đặt giá trị interval =1000 nữa

[vb]Private Sub BatDau_Click() Dim a As Integer, b As Integer a = STT Mod 3 'Gán a = STT chia cho 3 If a >= 1 Then b = a + 1 Else b = a - 2 'Nếu a lớn hơn hoặc bằng 1 thì b = a+1 nếu không thì b = a -2 Call HamX(b, a) ' gọi hàm HamX với giá trị b, a ở trên MsgBox "a = " & a & "...

chà từ 2k8 tới giờ tính ra e cũng 8 năm rồi hề

chào anh

@NTN copy cũng phải biết nó là vb.net hay vb6 chứ ông nhỏ @hocvb2016 Gửi bạn :) [vb]Private Sub Text1_KeyPress(KeyAscii As Integer) Const CTRL_A As Integer = 1 If KeyAscii = CTRL_A Then SelectAllText Text1 End Sub Private Sub SelectAllText(ByVal txt As TextBox) txt.SelStart = 0 txt.SelLength = Len(t...

bạn gửi thiếu module

@ahihi219
[vb]Private Sub Command1_Click()
Form1.Show
End Sub

Private Sub Command2_Click()
Form2.Show
End Sub
[/vb]

gửi bạn :D [vb]Private Sub mnuCopy_Click () Clipboard.Clear Clipboard.SetText Text1.SelText End Sub Private Sub mnuCut_Click () Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = "" End Sub Private Sub mnuPaste_Click () Text1.SelText = Clipboard.GetText() End Sub [/vb]

form2.show thôi bạn

hình như hôm bữa mình cũng có code 1 bài cho bạn nào đó y chang câu hỏi như thế này mà???

bạn lưu lại ngày sử dụng phần mềm cuối cùng ? bật lên là check , nếu mà ngày sử dụng cuối cùng nhỏ hơn ngày trên máy thì báo lỗi và out

phần mềm bạn có cần dùng internet không , nếu có thì check time trên server là khỏi chạy đâu luôn

"cập nhật vào database để ở đâu cũng có thể theo dõi qua website " dùng access rất phiền phức

+ Dùng data SQL , dùng máy mình làm server
+ Chuyển import excel vào data cũng không khó đâu

không biết có đúng ý bạn không

[vbnet]Dim sourceFile As String
Dim targetFile As String
sourceFile = "C:\test.txt"
targetFile = "C:\test_copy.txt"
If System.IO.File.Exists(sourceFile) = True Then
System.IO.File.Copy(sourceFile, targetFile)
MsgBox("File Copied")
End If[/vbnet]

nếu là vb6 thì bạn tham khảo code này của mình http://www.caulacbovb.com/forum/viewtop ... 7&p=151279

viewtopic.php?t=24307
bài viết này nói rất rõ thuật toán , có sẵn code .