ActiveX控件中使用PictureBox

Question

现在我想用ActiveX控件中使用PictureBox的Line方法,Scale方法,DrawStyle属性CurrentX属性,CurrentY属性,当我生成OCX文件时怎么也无法使用,出错了,怎么也无法弄出来.大家能否给个例子看看?

Answer 1

   首先我创建一个ActiveX control 然后在控件中添加一个PictureBox,在UserControl_Resize定义了坐标,
定义一个DrawChart过程,希望把个控件生成ocx文件,在新建的工程中方便在窗体调用DrawChart进行画线ActiveX control 中代码
   Private Sub UserControl_Resize()
       picX.AutoRedraw = True '用储存在内存中的图象进行重绘    
        picX.Scale (2, 30)-(4., -40) '定义坐标
   End Sub   Public Sub DrawChart(X1 As Double, X2 As Double, Y1 As Double, Y2 As Double)
       picX.Line (X1,Y1)-(X2,Y2)
   End SubFrom中代码
Private Sub Command1_Click()
   Call UC1.DrawChart(2, 0, 4, 0)
End Sub
结果提示错误:
Run-time error'5'
Invalid procedure Call or gument不知道是不是我的写法本身就有问题还是?我是菜鸟,请大家多指点.   能的话给个例子,感激不尽!

Answer 2

UC1这个控件名称没错?代码上看起来没有什么问题.我直接复制你代码到工程,正常.你的工程有问题吧[email protected]发来.

Answer 3

不好意思,请假了半个月,现在才回来,UC1没有ｎｅｗ?  UC1还要NEW吗?myjian,你生成了ocx文件,在新建的工程中的窗体中可以调用DrawChart进行画线吗?

Answer 4

myjian,我昨天把程序发给你了,有没有看出问题?

Answer 5

你的问题主要是调试问题调试一下就可以了我回的MAIL里告诉了你联调的方法,应该可以比较方便地解决这个问题.