Kiều Mạnh
I don't program, I beat code into submission!!!
- Tham gia
- 9/6/12
- Bài viết
- 5,538
- Được thích
- 4,132
- Giới tính
- Nam
1/ ý tưởng xuất phát từ chủ đề sau
www.giaiphapexcel.com
2/ Rảnh thay vì chơi game thì Tôi chơi code cho vui thôi
3/ Úp đây cho ai thích thì sử dụng nó
4/ Tôi xuất Hàm API và COM song song ai iu cái chi dùng cái đó nó như nhau
5/ Sử dụng Từ VBA code như sau
sau Khi chay code trên thì hình ảnh như sau ... Nếu ta chạy liên tục thì Icon sẽ thay đổi theo cho vui chút
6/ Sử dụng trên VB6 như sau
7/ khi viết chuẩn Hàm API thì sử dụng tốt trên mọi ngôn ngữ chỉ khác cách khai báo và sử dụng
8/ Chê VB6 nhưng VBA còn cùi gấp nhiều lần VB6 ... VBA và VB6 được phát triển cùng thời điểm với nhau nhưng VB6 xử lý nhiều thứ tốt hơn VBA
9/ Úp phía dưới là code VBA và VB6 cho ai thích thì dùng ... không thích bỏ qua
Hiển thị MessageBox & tự đóng sau khoảng thời gian ấn định
Do nhu cầu công việc, mình cần 1 MessageBox hiện thì nội dung tin theo mong muốn & sẽ tự đóng lại sau 1 khoảng thời gian ấn định ( tự ấn định luôn :P ). Mình đã tìm hiểu nhiều trên mạng về Sleep, Wait, TimeSerial, DateAdd, Sendkey ... nhưng không đáp ứng được mong muốn ( có cái chạy được nhưng...
www.giaiphapexcel.com
2/ Rảnh thay vì chơi game thì Tôi chơi code cho vui thôi
3/ Úp đây cho ai thích thì sử dụng nó
4/ Tôi xuất Hàm API và COM song song ai iu cái chi dùng cái đó nó như nhau
5/ Sử dụng Từ VBA code như sau
Mã:
Dim IconType As Long
Sub IncrementIconTypeCounter()
IconType = IconType + 1
End Sub
Sub Test_NotifyIcon()
Dim TD As String
Dim TB As String
Dim ATimeout As Long
ATimeout = 1
Call IncrementIconTypeCounter
TD = "Th" & ChrW(244) & "ng B" & ChrW(225) & "o"
TB = "Gi" & ChrW(7843) & "i Ph" & ChrW(225) & "p Excel C" _
& ChrW(244) & "ng C" & ChrW(7909) & " Tuy" & ChrW(7879) _
& "t V" & ChrW(7901) & "i C" & ChrW(7911) & "a B" & ChrW(7841) & "n !"
Call NotifyIconA(TD, TB, IconType, ATimeout)
Range("A1").Value = IconType
End Subsau Khi chay code trên thì hình ảnh như sau ... Nếu ta chạy liên tục thì Icon sẽ thay đổi theo cho vui chút
6/ Sử dụng trên VB6 như sau
Mã:
Private Declare Function NotifyIconA Lib "NotifyIcon32.dll" _
(ByRef title As Variant, ByRef msg As Variant, _
ByVal IconType As Long, ByVal ATimeout As Long) As Variant
Rem ========================
Dim IconType As Long
Sub IncrementIconTypeCounter()
IconType = IconType + 1
End Sub
Rem ========================
Private Sub Command1_Click()
Dim result As Boolean
Dim title As Variant
Dim msg As Variant
Dim ATimeout As Long
ATimeout = 5
Call IncrementIconTypeCounter
Rem =========
title = "Th" & ChrW(244) & "ng B" & ChrW(225) & "o"
msg = "Gi" & ChrW(7843) & "i Ph" & ChrW(225) & "p Excel C" _
& ChrW(244) & "ng C" & ChrW(7909) & " Tuy" & ChrW(7879) _
& "t V" & ChrW(7901) & "i C" & ChrW(7911) & "a B" & ChrW(7841) & "n !"
Rem =========
result = NotifyIconA(title, msg, IconType, ATimeout)
Rem =========
If result Then
Debug.Print "Notification sent successfully."
Else
Debug.Print "Failed to send notification."
End If
End Sub7/ khi viết chuẩn Hàm API thì sử dụng tốt trên mọi ngôn ngữ chỉ khác cách khai báo và sử dụng
8/ Chê VB6 nhưng VBA còn cùi gấp nhiều lần VB6 ... VBA và VB6 được phát triển cùng thời điểm với nhau nhưng VB6 xử lý nhiều thứ tốt hơn VBA
9/ Úp phía dưới là code VBA và VB6 cho ai thích thì dùng ... không thích bỏ qua
Lần chỉnh sửa cuối:
. Chắc phải theo anh Vũ lên núi tu luyện 7, 7, 49 ngày mới ngộ ra được.
