EXCEL聊天室已完成初稿老跨斗编辑.docVIP

EXCEL聊天室已完成初稿，求改进意见 上一篇 / 下一篇 ?2007-11-30 21:18:20 / 个人分类：学习 /blog/html/85/34885-978.html 查看( 253 ) / 评论( 15 ) 前提:将一EXCEL文件放在公司的局域网的共享交换区内,该文件设置为共享,同时有几个人打开.想实现的结果:当有其中一个人保存该文件时,有没有办法给每个打开这文件的用户(可以不包括保存文件的人)都发送一个消息?(即所有打开这个文件的人的EXCEL窗口中会弹出一信息框)另外有一设想:在一个加载宏中,做一个窗体,像网上聊天室的聊天窗口一样,上下各一个文本框,右边一个按钮,上面的文本框显示聊天记录,下面的文本框给用户输入消息.右边的按钮做发送消息,为了实现速度不慢,将聊天记录存放在一个放在同样目录下的文本文件中(文本文件以当天日期命名,避免一直累存数据量太大),当有人点击按钮发送信息时,将要发送的信息内容追加在文本文件中,同时上面的文本框读取该文本文件的所有内容(将最新消息取出),在这同时,发送一个信息给打开这个文件的所有人,让他们知道这时有新消息.(又或者将一个自定义工具栏建立在每个人的当前工作薄窗口中,工具栏的标题就是最新发送的信息)现在的难点是如何在有人点击发送按钮时(发送消息时),通知所有打开这文件的人.请各位大侠帮忙.谢谢 ![ 本帖最后由 Richard_scut 于 2007-11-26 23:15 编辑 ] EXCEL聊天室.rar(2007-10-29 21:11:04, Size: 5.18 KB, Downloads: 13) 论坛模式 推荐 收藏 分享给好友 管理 TAG: Richard_scut 发布于2007-10-30 10:22:54 做了一个初稿，但是通知其他用户的部分不懂如何做，请各大侠指教。谢谢！按日期保存TXT文件，将聊天记录存放在TXT文件中，激活聊天窗口时，将TXT文件的内容写到聊天记录框中，发送消息时，将发送框内容加入聊天记录框中，同时追加写入TXT文件中。见附件。 聊天室.rar(2007-10-30 10:22:54, Size: 11.2 KB, Downloads: 24) Richard_scut 发布于2007-11-01 12:45:41 使用了一个定时的功能，总算勉强实现了：每隔20秒刷新一次聊天窗口，大家都可以获取别人发的新消息；同时，每次发送消息的时候，也刷新一次聊天窗口，以获取别人发的新消息；缺点：由于每隔20秒刷新一次聊天窗口，导致焦点老是丢失（如正在某EXCEL窗口用鼠标滚动工作表的单元格，突然失去焦点了，又要点击一下工作表才能重新滚动）。若能解决就好了。 EXCEL聊天室.rar(2007-11-01 12:45:41, Size: 23.4 KB, Downloads: 33) WXHNR 发布于2007-11-01 16:12:24 这个一般用WINSOCK控件（Microsoft WinSock Control）来做。 wangmingbai 发布于2007-11-01 16:32:03 有创意,支持高手~~~~~~~ Richard_scut 发布于2007-11-03 13:10:40 WXHNR 前辈能帮忙把例子做出来吗？谢谢！ Richard_scut 发布于2007-11-12 16:29:26 经过了一点改进，但还有很多不完善的地方，希望能得到高手的指点进行改进。非常感谢！加载宏中：1、默认是将TXT存放在D盘，但要多人聊天的话，必需是要放在局域网的一共享文件夹内，大家都要有读写该文件夹的权限（适用于局域网），故大家在拿到附件后，请将路径“D：\修改为相应的局域网共享路径；2、由于计算机的登陆名一般不是中文，故里面用了一个函数转换为中文名，大家可以将该函数里面的名字酌情修改为相关的人员；[ 本帖最后由 Richard_scut 于 2007-11-12 16:36 编辑 ] EXCEL聊天室.rar(2007-11-12 16:29:26, Size: 32.2 KB, Downloads: 40) hai167发布于2007-11-16 16:44:08 怎麼老是提示“找不到路徑”，是不是需要在D盤建立一個txt文件，文件名應該是什麼？謝謝！Open D:\ mydate For Append As #1 Richard_scut 发布于2007-11-16 20:00:09 不需要建立任何文件的,程序会自动创建以当天日期命名的TXT文件记录聊天信息的. 有点好玩发布于2007-11-16 22:23:27 高手，不错，学习了！不过怎