有意思的老人源码

博客专家认证

业界专家认证

2004-09-15 09:54:48

Option Explicit
Dim sims As IAgentCtlCharacterEx
Dim sims_id

Private Sub cmdLoad_Click()
Dim acs
Agent1.Connected = True
Agent1.Characters.Load sims_id, acs
Set sims = Agent1.Characters.Character(sims_id)
End Sub

Private Sub cmdUnload_Click()
Agent1.Characters.Unload sims_id
End Sub

Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 '说话
sims.Speak Text1
Case 1 '想
sims.Think Text1
Case 3 '身体向左
sims.Play ("GestureLeft")
Case 2 '惊讶
sims.Play ("Surprised")
Case 4 '请的姿势
sims.Play ("Pleased")
Case 5 '右
sims.Play ("GestureRight")
Case 6 '上
sims.Play ("GestureUp")
Case 7 '下
sims.Play ("GestureDown")
End Select
End Sub

Private Sub Command2_Click()
sims.Show
sims.Left = 800
sims.Top = 600
sims.Width = 80
sims.Height = 80
sims.MoveTo 300, 400
End Sub

Private Sub Command3_Click()
sims.Hide
End Sub

可以显示卡通老人的各种动作。该代码在（win2000以上版本有效）

－－－－－－－
源码下载地址：
http://blog.csdn.net/yefanqiu
中的【叶帆程序】－有意思的老人源码

...全文

513 30 打赏收藏转发到动态举报

写回复

30 条回复

切换为时间正序

请发表友善的回复…

发表回复

叶帆 2004-09-20

打赏
举报

回复

【叶帆开源区】其它链接
XP界面窗体制作（可放缩、可缩小到托盘）
http://community.csdn.net/Expert/topic/3387/3387552.xml?temp=.416424
有意思的老人源码
http://community.csdn.net/Expert/topic/3376/3376547.xml?temp=.1939661
VB源码之友
http://community.csdn.net/Expert/topic/3365/3365079.xml?temp=7.926577E-02
定制公用对话框（如photoshop的文件打开对话框）
http://community.csdn.net/Expert/topic/3385/3385386.xml?temp=.2206842
绝对经典的扫雷源码(仿微软扫雷界面）－－可以作弊呢！！！
http://community.csdn.net/Expert/topic/3380/3380429.xml?temp=.3048517
MSComm串口通信示例
http://community.csdn.net/Expert/topic/3387/3387736.xml?temp=.2366754
任意透明窗体－－运用API实现特异窗体
http://community.csdn.net/Expert/topic/3389/3389796.xml?temp=.8869898

VBDN 2004-09-18

打赏
举报

回复

关注

叶帆 2004-09-18

打赏
举报

回复

up

碧海情天-赵亮 2004-09-16

打赏
举报

回复

第一次见到这个老头是在一个网页上，看了它的源码，和上面创建及调用方法一样。

留下些什么 2004-09-16

打赏
举报

回复

up

CrazyDogHH3 2004-09-16

打赏
举报

回复

找到一个BUG呀~~如果选择卸载老人然后再点显示就会出错~~HOHO~~应该改动一下~~

flc 2004-09-16

打赏
举报

回复

学习ING

yelang771 2004-09-16

打赏
举报

回复

忘了說了
Dim sims As IAgentCtlCharacterEx
用户定义类型未定义?

誰來弄下

Apple200228 2004-09-16

打赏
举报

回复

Office助手,没有什么稀奇的!

jone999 2004-09-16

打赏
举报

回复

tks:)

nik_Amis 2004-09-16

打赏
举报

回复

这个是Office里面的助手吧？
没什么希奇

starsoulxp 2004-09-16

打赏
举报

回复

是什么东西？

yelang771 2004-09-16

打赏
举报

回复

sims 是什么東西? 在繁體下運行不了啊

yelang771 2004-09-16

打赏
举报

回复

up

caojinrong 2004-09-16

打赏
举报

回复

接分而来。

yijiansong 2004-09-16

打赏
举报

回复

去看一看

啊维 2004-09-16

打赏
举报

回复

接分。。去看一看

apple1980 2004-09-16

打赏
举报

回复

去看一看

ryuginka 2004-09-16

打赏
举报

回复

运行不起来。
Dim sims As IAgentCtlCharacterEx 是什么类型啊

Agent1是什么控件

icecanal 2004-09-16

打赏
举报

回复

Dim sims As IAgentCtlCharacterEx
用户定义类型未定义?

加载更多回复（10）

网上收集到游戏源码分享~

本公众号由以下老铁赞助，感谢他们❗️朋友圈发了一个小问题，被刷爆了???? 问题是：老人怕死，女人怕老，小孩怕笨，男人怕什么？整整被刷频了4页，这个话题这么有意思的啊！那就不要浪费了，于是有了这篇公众号。看了那么多答案，我觉得还是我看到的那个答案比较准确。男人怕『穷』这个答案比较接近，但是我们有勤劳的双手，也不会那么怕是不是，不就是累点嘛。我看到什么怕老婆、怕女人、怕软、怕尿鞋上、怕洗碗、怕生病、怕老人...

《魔塔》》是一种策略类的固定数值RPG游戏。本篇主要讨论红塔游戏，侧重于路线的寻找。一般RPG类游戏可以使用脚本语言来编写任务剧情，这样可以使得剧情更复杂和灵活多变，这同样适用于魔塔游戏。但是为了自动生成关卡的目的，还是使用数据驱动的方法来实现游戏逻辑，这样方便编写搜索算法。游戏关卡的设计一般可以使用编辑器来编辑，编辑器很好实现，但要设计一个耐玩的关卡似乎不太简单，后面会做一些自动生成的尝试。...

根据这篇文章弄了几天，终于弄好了~~步骤基本正确，是因为Trinity的版本在不断更新，所以按照这个步骤弄现在会出现问题。弄好的支持国服13930，不过服务器里面是英文的。不过没关系，我主要是要创建起这个环境，方便调试和研究WOW服务端的架构和细节。下一步就是调试跟踪代码了~~

缘起因由在一个无所事事的周末下午，突然想起魔兽世界，官方的账号很久没有上了，里面的大小号现在连满级都不是。以前曾经搭过传奇和星际争霸战网的私服自娱自乐，也听说过魔兽世界有开源的服务端模拟，既然兴致来了就小小的研究一下。目前魔兽世界的私服比较流行的是MaNGOS和Trinity，二者都是模拟魔兽世界服务端。MaNGOS“号称”是一个研究型项目，目的是为了学习大规模的C++项目开发，有

7,785

社区成员

197,585

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章