[Q] Thong Bao Mail giong yahoo messenger

[mkdinh]

Hello cac ban,

Co ban na`o da~ tu*ng lam phan giong nhu* la thong bao so mails in mailbox khi online yahoo messenger or msn messenger tu* ddo ma minh co the go thang le^n web site dde check mail


??


Neu ban nao biet, hay giup minh thanks.

[White_Rose]

Bạn chỉ cần sử dụng một HyperLink control thôi. Có thể tự viết (rất đơn giản) hoặc lấy free ở trên mạng.

[Nicky]

Ý bạn là muốn một cửa sổ nhỏ nằm trên TaskBar huh ?

[White_Rose]

Không phải đâu, là cái hộp nhỏ nhỏ hiện lên phía trên tray bar lúc có mail, lúc friends online, offline... trong một khoảng thời gian ngắn rồi ẩn đi ý.

[Nicky]

Này Mkdinh mình chỉ có thể giúp bạn một chuyện thôi. Đó là khi bấm vào nó sẽ tự động mở 1 địa chỉ xác định bằng trình duyệt Net mặc định. Bạn đến đây thử xem sao nhé http://coolcode4you.fateback.com hoặc www.vb4u.dk3.com
Còn vấn đề kia để Nicky suy nghĩ thêm thử có cách nào không nhé !
C ya !!

[White_Rose]

Gửi bạn hai cái tutorial nhỏ này

---------Web Link-------------
If you want to add a web link (i.e. to your home page) in a program of yours, you have to call a API function.

First, add this declaration in the declarations section of a public standard module:

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Const SW_NORMAL = 1

Then, put this code where you want the link to pop-up:

Dim X
X = ShellExecute(hwnd, "Open", URL, &O0, &O0, SW_NORMAL)

Replacing URL with the URL of the web page to show (i.e. "www.jump.to/vbprogzone").

You can put the above two instructions anywhere in your program. The best place is in the Click event of a Label formatted as a link (blu fore color and underline text).
You can put this instruction in the MouseMove event of the Label...

labelname.ForeColor = vbRed

...and this in the MouseMove event of the form...

labelname.ForeColor = vbBlue

...(where labelname is the name of the link label), and the link will become red when you move the mouse on it (as in the browser!).



-----------Email-----------------
If you want to add a web link (i.e. to your home page) in a program of yours, you have to call a API function.

First, add this declaration in the declarations section of a public standard module:

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Const SW_NORMAL = 1

Then, put this code where you want the link to pop-up:

Dim X
X = ShellExecute(hwnd, "Open", "mailto:" & EMailAddress, &O0, &O0, SW_NORMAL)

Replacing EMailAddress with the email address of the person to write to (i.e. "mike-stewart@aol.com").

You can put the above two instructions anywhere in your program. The best place is in the Click event of a Label formatted as a link (blu fore color and underline text).
You can put this instruction in the MouseMove event of the Label...

labelname.ForeColor = vbRed

...and this in the MouseMove event of the form...

labelname.ForeColor = vbBlue

...(where labelname is the name of the link label), and the link will become red when you move the mouse on it (as in the browser!).