Cách tạo ChatBox qua mạng LAN bằng UsrerForm VBA (1 người xem)

[xuantam1991]

Chào Các anh chị và các bạn!
Ai có code hoặc form chatbox trong VBA như trong Video này không cho mình tham khảo với.!

[video=youtube;7ZxDSg1qEbc]https://www.youtube.com/watch?v=7ZxDSg1qEbc[/video]

 

[xuantam1991]

Chào mọi người.!
Sau thời gian tìm hiểu, mình đã tạo được 1 chatbox tàm tạm.
Mình còn 2 điểm muốn chỉnh sửa mong mọi người giúp đỡ:
1. Khi đánh tiếng việt màn hình chat bị lỗi Font:
Cái này mình nghĩ do khi Print #1 ra file CSV nó bị lỗi Font:

Private Sub sendbutton_Click()
Dim chattext As String
Dim retry_flag As Boolean
Dim ErrNo As Integer
User = Application.UserName
If chatbox.Value <> "" Then
chattext = "[" & User & "]: " & chatbox.Valuechatbox.Value = ""
retry:
On Error Resume Next
Open "C:\chat.csv" For Output As #1
Print #1, chattext; Tab; Format(Now(), ", hh:mm:ss")
Close #1ErrNo = ErrOn Error GoTo 0
If ErrNo <> 0 And retry_flag <> True Then
retry_flag = True
Application.Wait Now + TimeValue("00:00:01")
GoTo retry
End If
End If
chatbox.SetFocus
End Sub

=> Nhờ mọi người xem có cách nào print # nó không bị lỗi không nhé, mình đang dùng Times New Roman

2. Mình muốn khi có tin nhắn mới hộp chatbox sẽ popup hoặc có dấu hiệu gì đó để thông báo.

Cảm ơn mọi người đã giúp đỡ!

 

[dhn46]

Mấy năm trước tôi cũng từng vọc vạch vấn đề này và có 1 file tự viết tương tự điều bạn quan tâm.

Bạn tham khảo Link sau nhé:

http://www.giaiphapexcel.com/forum/showthread.php?85143-Excel-Chat