VB6.0调用ActivexDLL出错，求帮忙找上原因_VB小疑点~高手们请留步~_VB调用基准DLL里面的鼠标图标__脚本百事通
稍等，加载中……
^_^请注意，有可能下面的2篇文章才是您想要的内容：
VB6.0调用ActivexDLL出错，求帮忙找上原因
VB小疑点~高手们请留步~
VB调用基准DLL里面的鼠标图标
VB6.0调用ActivexDLL出错，求帮忙找上原因
VB6.0调用ActivexDLL出错，求帮忙找下原因我用VB6.0创建了一个activexDLL，名称为SH.DLL，在其中定义了MIS1，MIS2，MIS33个类文件，
其中MIS1定义了一个函数Public Function Trans(Request As MIS2, Response As MIS3) As Long，
MIS2中定义了输入的数据类型：Public PNumber As String
Public SNumber As String等一些数据
MIS中定义了一些要输出的数据类型：Public PNumber As String
Public SNumber As String
我另外用VB6.0做了一个EXE测试程序，代码如下：
Private Sub Command1_Click()
Dim a As Object
Dim b As Object
Dim c As Object
Set a = CreateObject("SH.MIS1")
Set b = CreateObject("SH.MIS2")
Set c = CreateObject("SH.MIS3")
Dim ret As Long
.PNumber = 1
.SNumber = 2
ret = a.TransProcess(b, c)
在执行到ret = a.TransProcess(b, c) 会返回“运行时错误13：类型不匹配”的错误
如果我把代码修改成如下：
Private Sub Command1_Click()
Dim a As New SH.MIS1
Dim b As New SH.MIS2
Dim c As New SH.MIS3
.PNumber = 1
.SNumber = 2
ret = a.TransProcess(b, c)
并在工程--引用里增加SH.DLL的引用，就可以正常运行，没有报错
谁可以告诉我这两个调用方法的区别是什么吗？
如果我需要使用第一种调用方法，我应该怎么去修改程序，才能不报错？------解决方案--------------------“MIS中定义了一些要输出的数据类型：Public PNumber As String
Public SNumber As String”这个地方写错了，应该是MIS3中定义了输出数据类型------解决方案--------------------留贴是个好习惯！
VB小疑点~高手们请留步~
VB小问题~~~~高手们请留步~~~command4是一个查找功能~~~Dim Rs As ADODB.RecordsetDim Cn As ADODB.Connection
'这两行是通用里的Private Sub Form_Load()
Set Rs = New ADODB.RecordsetSet Cn = New ADODB.ConnectionDim cnstr As StringDim Sql As Stringcnstr = "provider=User ID =password = 880805;initial catalog = 小区物业管理;Data Source = WAXSNYBB\WAXSN"Cn.Open cnstrSql = "select * from 业主信息"Rs.CursorLocation = adUseClientRs.Open Sql, Cn, adOpenDynamic, adLockOptimisticText1.Text = Rs(0)Text2.Text = Rs(1)Text3.Text = Rs(2)Text4.Text = Rs(3)Text5.Text = Rs(4)Text6.Text = Rs(5)Text7.Text = Rs(6)End SubPrivate Sub Command4_Click()Dim cz As Stringcz = InputBox$("请输入业主编号", "查找")Set Rs = Cn.Execute("select count (*) from 业主信息 where 业主编号 like'" & cz & "'")Text1.Text = Rs(0)Text2.Text = Rs(1)Text3.Text = Rs(2)Text4.Text = Rs(3)Text5.Text = Rs(4)Text6.Text = Rs(5)Text7.Text = Rs(6)End Sub数据库链接神什么的都正常现在的问题时 当我运行后,点击command4按钮,输入了 业主编号 之后弹出个框框实时错误3265在对用所需名称或序数的集合中未找到项目点调试后,黄色框框定位在text2.text = RS(1)这一行上对了,我RS(0),也就是表中的第一列是 业主编号我删掉text2.text = RS(1)后黄色框框就定位在text3.text = RS(2)这是什么原因呢,应该怎样修改代码呢,请高手们指点一下,不胜感激!------解决方案--------------------VB code
Private Sub Command4_Click()
Dim cz As String
cz = InputBox$("请输入业主编号", "查找")
Set Rs = Cn.Execute("select * from 业主信息 where 业主编号 like'" & cz & "'")
if Rs.EOF or Rs.BOF then Exit sub
Text1.Text = Rs(0)
Text2.Text = Rs(1)
Text3.Text = Rs(2)
Text4.Text = Rs(3)
Text5.Text = Rs(4)
Text6.Text = Rs(5)
Text7.Text = Rs(6)
------解决方案--------------------Dim Rs As ADODB.RecordsetDim Cn As ADODB.Connection '这两行是通用里的Private Sub Form_Load()
Set Rs = New ADODB.RecordsetSet Cn = New ADODB.ConnectionDim cnstr As StringDim Sql As Stringcnstr = "provider=User ID =password = 880805;initial catalog = 小区物业管理;Data Source = WAXSNYBB\WAXSN"Cn.Open cnstrSql = "select * from 业主信息"Rs.CursorLocation = adUseClientRs.Open Sql, Cn, adOpenDynamic, adLockOptimisticText1.Text = Rs(0)Text2.Text = Rs(1)Text3.Text = Rs(2)Text4.Text = Rs(3)Text5.Text = Rs(4)Text6.Text = Rs(5)Text7.Text = Rs(6)End SubPrivate Sub Command4_Click()Dim cz As Stringcz = InputBox$("请输入业主编号", "查找")Set Rs = Cn.Execute("select count (*) from 业主信息 where 业主编号 like'" & cz & "'")’该语句执行后，覆盖Load事件中加载的业主信息数据，该命令只返回唯一的一列（条目数量）Text1.Text = Rs(0)'rs(0)之后的列都将无效Text2.Text = Rs(1)Text3.Text = Rs(2)Text4.Text = Rs(3)Text5.Text = Rs(4)Text6.Text = Rs(5)Text7.Text = Rs(6)End Sub数据库链接神什么的都正常现在的问题时 当我运行后,点击command4按钮,输入了 业主编号 之后弹出个框框实时错误3265在对用所需名称或序数的集合中未找到项目点调试后,黄色框框定位在text2.text = RS(1)这一行上对了,我RS(0),也就是表中的第一列是 业主编号我删掉text2.text = RS(1)后黄色框框就定位在text3.text = RS(2)这是什么原因呢,应该怎样修改代码呢,请高手们指点一下,不胜感激!上述蓝色语句改为：Set Rs = Cn.Execute("select * from 业主信息 where 业主编号 like '%" & cz & "%'")
VB调用基准DLL里面的鼠标图标
VB调用标准DLL里面的鼠标图标
在VC++里面建立一个资源DLL,里面有字符串,图片和ICON,这些怎么调用在网上都有说明,却没有介绍怎么调用鼠标的光标.
大家都知道VB6本身不支持动画光标和彩色的,如果需要可以用API,我可以实现这个功能.但如果要访问DLL里面就没有办法了.不知道
哪位高手知道..指点一二?------解决方案--------------------用DrawIcon或者是更高级的DrawIconEx，然后好像还要配合ExtractIcon用
Public Declare Function DrawIcon Lib "user32" Alias "DrawIcon" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Public Declare Function DrawIconEx Lib "user32" Alias "DrawIconEx" (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long
Public Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
别人有个介绍，我就是在这里面看的http://blog.csdn.net/tanaya/article/details/120362------解决方案--------------------但是想用动画ANI那就得用很复杂的东西……我也是找了很久才找到
/home/vb/code/libraries/graphics_and_gdi/animated_cursors_in_vb/vbaccelerator_animated_cursor_classes_sample.asp
上面这个是示例，我现在用的就是这个，代码太多了，我都不知道可以删掉那些无用的……（VB新人）
不过这个代码不支持exe和dll，我自己手动给cAniCursor.cls里面的“LoadFromFile”子程序仿照前面那个简单的修改了下，把原先的
m_hCur = LoadImageString(App.hInstance, sFileName, IMAGE_CURSOR, 0, 0, lFlags)
改成了下面这个，就能在加载时也读取exe或dll的了（需要加入其没有的ExtractIcon的生明和那两个存文件地址和图标编号的变量）
If InStr(sFileName, ".exe,") && 0 Then
dll_path = Left(sFileName, InStr(sFileName, ".exe,") + 3)
dll_ico_num = Right(sFileName, Len(sFileName) - InStr(sFileName, ".exe,") - 4)
m_hCur = ExtractIcon(App.hInstance, dll_path, dll_ico_num)
ElseIf InStr(sFileName, ".dll,") && 0 Then
dll_path = Left(sFileName, InStr(sFileName, ".dll,") + 3)
dll_ico_num = Right(sFileName, Len(sFileName) - InStr(sFileName, ".dll,") - 4)
m_hCur = ExtractIcon(App.hInstance, dll_path, dll_ico_num)
m_hCur = LoadImageString(App.hInstance, sFileName, IMAGE_CURSOR, 0, 0, lFlags) '一般
如果您想提高自己的技术水平，欢迎加入本站官方1号QQ群：&&，&&2号QQ群：，在群里结识技术精英和交流技术^_^
本站联系邮箱：问：求问这一双adidas superstar 内增高鞋是正品吗？_百度知道
你好，很高兴帮你解答！增高鞋不是能让你长高的鞋，只是鞋跟比较高，能让你看起来更高点。增高鞋是现阶段，最为科学、最为普及、最为方便的物理增高产品。增高鞋，准确的称呼应该是内增高鞋，其原理与女士穿的高跟鞋是一样的，但是区别在于，内增高鞋增高在鞋内，外观上看来与普通鞋子是完全一样的。增高鞋的主流增高尺寸为增高5-10厘米。这个数值范围内的增高鞋，穿着十分舒适，隐形增高效果也可以得到最大的发挥！随着时代的发展，人们对内增高鞋的接受程度越来越高，这也大大刺激了内增高鞋行业的发展。鞋款种类日渐丰富，大有赶超普通通鞋款之势，商务正装鞋、时尚休闲鞋、休闲皮鞋、休闲板鞋、运动鞋等。内增高鞋有一定的专业性，在生产过程中区别于普通鞋子。因此在选择时，需要选择具有一定生产历史的品牌。其实，我们平时穿普通鞋，只是一种习惯。为什么不改一下这种习惯呢？首先，内增高鞋在外观上与普通鞋子完全一样，一样美观，一样时尚。隐形增高，高而不显。其次，内增高鞋在价位上与普通高档皮鞋持平，花同样的钱，为何不穿可以增高的鞋子呢？第三，内增高鞋的款式越来越多，风格越来越时尚，完全可以满足现代人的穿着与审美需要！最后，穿上内增高鞋，就能自然健康的增高5-10公分，何乐而不为呢？试着尝试内增高，试着改变一下传统的穿鞋习惯，就会有很大的不同！
其他类似问题
为您推荐：
内增高鞋的相关知识
其他3条回答
天啊！怎么说
型号代码收入进去无法查询
标假多少买的
为什么是假的
大神 能和我说怎么看的吗？花那么多钱买到高仿好难过啊！
你可以去专卖店看一下对比一下
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁&&&& 跳到页
回复:16&查看:847
昵称：小敢鬼
UID: 409056
注册 来自 广东湛江赤坎
#1 &各位大哥师傅求帮忙找下我的国三天剑提速的问题。
国三天剑125行程14500公里了，一直都是用嘉实多超霸，现在仔细发现3档20时码提速的时候，感觉齿轮碰几下，然后速度加上去的时候就没什么问题了，我试了朋友的本田150和铃木EN125-2A都没这个问题，请问是哪里出问题啦？
UID: 606655
注册 来自 江苏
沙发。不懂不误导.......
UID: 534298
注册 来自 江苏省宜兴市
这问题还得请渝老大！
UID: 603708
手一抖。。
昵称：自由两轮车
UID: 240452
注册 来自 湖北黄石
变速比的问题！正常。每个车的性格不同，就有不同的控制技巧。
昵称：阿龙
UID: 533002
注册 来自 南宁
好车！！！
UID: 393037
注册 来自 山东泰安
<div id="post_档跑20？你车3档已经达到EN的4档了，长期这样跑要打齿的！宁可低档高速不要高档低速！
UID: 565290
？(本消息来自手机摩托迷：.cn/)
昵称：冰红茶
UID: 601149
注册 来自 YAMAHA机车部落
你托档了&&3档20迈
昵称：小敢鬼
UID: 409056
注册 来自 广东湛江赤坎
&&Quote:Originally posted by 豹骑 at
3档跑20？你车3档已经达到EN的4档了，长期这样跑要打齿的！宁可低档高速不要高档低速！ 谢谢你的解答，那么出现这问题需要怎么样修好呢？
昵称：小敢鬼
UID: 409056
注册 来自 广东湛江赤坎
&&Quote:Originally posted by 御用厨子 at
你托档了&&3档20迈 既然托档了，为什么幻影和EN都没事呢？
UID: 393037
注册 来自 山东泰安
&&Quote:Originally posted by xiaogangui at
既然托档了，为什么幻影和EN都没事呢？ 幻影排量大动力足一点所以没事而EN发动机变速比比较小，EN用3档跑20和雅马哈3档跑20是不一样的，雅马哈3档速比已经接近EN4档的速比，也就是你在用EN的四档跑20，你只看几档跑几十你没看两个车的速比！发动机设计不同！EN5档4500转速度是50左右，天剑天戟系列5档4500转速度是60左右！你说两车档位速比一样吗？
[ Last edited by 豹骑 on
at 14:10 ]
昵称：小敢鬼
UID: 409056
注册 来自 广东湛江赤坎
&&Quote:Originally posted by 豹骑 at
幻影排量大动力足一点所以没事而EN发动机变速比比较小，EN用3档跑20和雅马哈3档跑20是不一样的，雅马哈3档速比已经接近EN4档的速比，也就是你在用EN的四档跑20，你只看几档跑几十你没看两个车的速比！发动机设计 ... 谢谢你的解答，那么按照你的说法，我车这样就是正常的，只不过是我以前开惯了铃木GS所以3档都是保持20跑的。
UID: 496716
注册 来自 河南省焦作市
拖档、拖档了，拖几下转速上去了自然就好了嘛，以后应该避免这样骑车，伤车啊！
UID: 215565
为楼主的智商感到拙计~~~
昵称：兰翔
UID: 607384
注册 来自 新疆喀什
我只能说你是骑老爷车的命，跑快点就没事了，，，，。
UID: 393037
注册 来自 山东泰安
&&Quote:Originally posted by xiaogangui at
谢谢你的解答，那么按照你的说法，我车这样就是正常的，只不过是我以前开惯了铃木GS所以3档都是保持20跑的。 恩，你应该改改习惯，每个车都有每个车的设计，EN6档机的6档变速比才和雅马哈5档变速比一样，就像一个苹果切6份和切5份每一份的大小是不一样的
&&&& 跳到页
网购有风险,下单须谨慎!!
网购很快乐,细心多辨别!!后使用快捷导航没有帐号？
只需一步，快速开始
查看: 3514|回复: 12
最后登录贡献度13 金元3825 银行存款0 注册时间阅读权限50帖子主题精华0积分435UID4671062
高级玩家, 积分 435, 距离下一级还需 165 积分
贡献度13 金元3825 注册时间积分435精华0帖子
前几天看见了，现在怎么也找不到了，各种搜索了一个多小时了。各位帮帮忙啊。
最后登录贡献度202 金元8262 银行存款0 注册时间阅读权限90帖子主题精华0积分1634UID4444209
游戏狂人, 积分 1634, 距离下一级还需 366 积分
贡献度202 金元8262 注册时间积分1634精华0帖子
自己搜索吧
最后登录贡献度13 金元3825 银行存款0 注册时间阅读权限50帖子主题精华0积分435UID4671062
高级玩家, 积分 435, 距离下一级还需 165 积分
贡献度13 金元3825 注册时间积分435精华0帖子
我搜了一个多小时，各种关键词都试过了，就是找不到了。。
最后登录贡献度81 金元6805 银行存款0 注册时间阅读权限90帖子主题精华0积分1005UID2676405
游戏狂人, 积分 1005, 距离下一级还需 995 积分
贡献度81 金元6805 注册时间积分1005精华0帖子
最后登录贡献度106 金元9264 银行存款0 注册时间阅读权限90帖子主题精华0积分1350UID4506127
生我何用？不能欢笑。灭我何用？不减狂骄。
游戏狂人, 积分 1350, 距离下一级还需 650 积分
贡献度106 金元9264 注册时间积分1350精华0帖子
虽然我不知道LZ说的是什么
最后登录贡献度20 金元3138 银行存款0 注册时间阅读权限50帖子主题精华0积分394UID4678523
高级玩家, 积分 394, 距离下一级还需 206 积分
贡献度20 金元3138 注册时间积分394精华0帖子
那mod高科没用不起～～
最后登录贡献度13 金元3825 银行存款0 注册时间阅读权限50帖子主题精华0积分435UID4671062
高级玩家, 积分 435, 距离下一级还需 165 积分
贡献度13 金元3825 注册时间积分435精华0帖子
十分感谢wutianyu。
最后登录贡献度0 金元619 银行存款0 注册时间阅读权限25帖子主题精华0积分62UID3892988
中级玩家, 积分 62, 距离下一级还需 188 积分
贡献度0 金元619 注册时间积分62精华0帖子
膝盖中箭mod组(TM) 剛出的，還在第一頁!!
為何女豬腳表情如此...
最后登录贡献度0 金元611 银行存款0 注册时间阅读权限20帖子主题精华0积分61UID1899641
初级玩家, 积分 61, 距离下一级还需 39 积分
贡献度0 金元611 注册时间积分61精华0帖子
这么好啊， 我也想要
最后登录贡献度0 金元611 银行存款0 注册时间阅读权限20帖子主题精华0积分61UID1899641
初级玩家, 积分 61, 距离下一级还需 39 积分
贡献度0 金元611 注册时间积分61精华0帖子
zhao bu dao a
最后登录贡献度0 金元89 银行存款0 注册时间阅读权限15帖子主题精华0积分9UID1759321
新手玩家, 积分 9, 距离下一级还需 41 积分
贡献度0 金元89 注册时间积分9精华0帖子
楼主我也找不到啊
最后登录贡献度0 金元1242 银行存款0 注册时间阅读权限25帖子主题精华0积分124UID7049276
中级玩家, 积分 124, 距离下一级还需 126 积分
贡献度0 金元1242 注册时间积分124精华0帖子
刚看到的，还不懂哪儿找资源啊。
最后登录贡献度0 金元187 银行存款0 注册时间阅读权限15帖子主题精华0积分19UID7447427
新手玩家, 积分 19, 距离下一级还需 31 积分
贡献度0 金元187 注册时间积分19精华0帖子
权限不够啊啊啊啊啊啊啊啊
Powered by