运行时错误'374': 激活控件'VB.UserControl'失败.这个控件可能与您的应用程序不兼容.确定您使用的这个版 20
用的VB6.0编程工具,自己编写了一个ActiveX(ocx)控件和一个ActiveX(dll)控件,在dll控件中引用了ocx控件对象,在测试环境下,运行时无错误提示,...
用的VB6.0编程工具,自己编写了一个ActiveX(ocx)控件 和一个 ActiveX(dll)控件,在dll控件中引用了ocx控件对象,在测试环境下,运行时无错误提示,当我把他们分别生成.ocx文件和.dll文件,然后拷贝到c:\windows\system32目录下并注册,在用VB6.0编写的应用程序中引用这两个控件,然后运行时就会报这个错误。请大家帮忙解决,谢谢!
展开
3个回答
展开全部
1.病毒木马造成的,在当今互联网时代,病毒坐着为了获得更多的牟利,常用病毒绑架应用程序和系统文件,然后某些安全杀毒软件把被病毒木马感染的应用程序和系统文件当病毒杀了导致出现应用程序错误。
2.应用程序组件丢失,应用程序完整的运行需要一些系统文件或者某些ll文件支持的,如果应用程序组件不完整也会导致应用程序出错。
应用程序自身的bug引起的应用程序发生异常,人没有完人,程序也一样的,程序员只能做到尽量让bug出现少点,出现一个就解决一个bug。
3.应用软件与操作系统或其他应用软件发生不兼容造成应用程序发生异常。
4.操作系统自身的问题,操作系统本身有bug ,也会导致出现崩溃 应用程序错误 该内存不能为read。
5.电脑硬件兼容性也会引起的,还有散热不好,超频等也会出现应用程序错误的。
应用程序错误怎么办?
1.先排除是不是病毒木马引起的,请使用金山卫士进行木马查杀,
⑴、进入主界面进入【查杀木马】
⑵、然后点击【快速扫描】即可
2.用金山卫士进行漏洞修复,解决系统本身造成的应用程序发生异常。
⑴、进入主界面进入【漏洞修复】
⑵、然后点击【立即修复】即可
3.如果是单一某个应用程序引起的应用程序错误,那就尝试重新卸载该软件进行重新安装。如果还是无法解决,就关闭其他软件看是否能解决。
4.以上方法还是无法解决,那就肯能是硬件问题引起的,那就分别检查内存条,主板,散热器等等。这个建议找专业硬件维修商解决,不推荐大家自己手动解决。
2.应用程序组件丢失,应用程序完整的运行需要一些系统文件或者某些ll文件支持的,如果应用程序组件不完整也会导致应用程序出错。
应用程序自身的bug引起的应用程序发生异常,人没有完人,程序也一样的,程序员只能做到尽量让bug出现少点,出现一个就解决一个bug。
3.应用软件与操作系统或其他应用软件发生不兼容造成应用程序发生异常。
4.操作系统自身的问题,操作系统本身有bug ,也会导致出现崩溃 应用程序错误 该内存不能为read。
5.电脑硬件兼容性也会引起的,还有散热不好,超频等也会出现应用程序错误的。
应用程序错误怎么办?
1.先排除是不是病毒木马引起的,请使用金山卫士进行木马查杀,
⑴、进入主界面进入【查杀木马】
⑵、然后点击【快速扫描】即可
2.用金山卫士进行漏洞修复,解决系统本身造成的应用程序发生异常。
⑴、进入主界面进入【漏洞修复】
⑵、然后点击【立即修复】即可
3.如果是单一某个应用程序引起的应用程序错误,那就尝试重新卸载该软件进行重新安装。如果还是无法解决,就关闭其他软件看是否能解决。
4.以上方法还是无法解决,那就肯能是硬件问题引起的,那就分别检查内存条,主板,散热器等等。这个建议找专业硬件维修商解决,不推荐大家自己手动解决。
展开全部
Option Explicit
Dim mX As Long, mY As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button And vbLeftButton Then
mX = X: mY = Y
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button And vbLeftButton Then
Me.Move Me.Left - mX + X, Me.Top - mY + Y
End If
End Sub
把form换成要移动的控件名称就可以实现移动了。
Dim mX As Long, mY As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button And vbLeftButton Then
mX = X: mY = Y
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button And vbLeftButton Then
Me.Move Me.Left - mX + X, Me.Top - mY + Y
End If
End Sub
把form换成要移动的控件名称就可以实现移动了。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
微软查查374,这样也问不明朗。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询