★★简单问题送高分★★：写一个类，实现画圆和保存图片的方法，如何写？

Question

to Jackyin:主题上写的有，在vb中写一个类，实现画圆和保存图片2种方法，如何写？
要求：编译成dll文件后在asp中能够调用，实现画圆和保存图片2种方法

Answer 1

做成OCX控件吧，DLL不太可能。

Answer 2

to bucher:谁说的，现在很多asp图象组件还不是用vb做的！

Answer 3

我正在做这个,用ActiveX控件,问题在于:当浏览页面时,总是弹出一个安全对话框,非常难受,Un1提供过一个解决方法,可惜不是vb做的.

Answer 4

to storyxlx:能不能把你的源程序email一份给我，不胜感激！[email protected]

Answer 5

dim f as from1sub class_init...
set f= new form1
load f
f.autoredraw=true
end sub
public sub Circle(..)
 f.circle(..)
end subpublic sub Save(..)
 SavePicture f.Image, ..
end subsub Class_Ter...
 unload f
 set f = nothing
end sub

Answer 6

to Un1:thank you,but 我试过，不行。
你未免考虑得太简单了吧

Answer 7

To deak:
    你好像要画透明的ActiveX控件，我有一个例子发给你。
To Un1:
    你来真是太好了，我正有问题问你：
    我在IE中使用自己的ActiveX控件,当浏览页面时,总是弹出一个安全对话框,非常难受，我看过你的贴子，在注册表中加入两项内容即可，但好像不是vb实现的。vb中提供了脚本安全的选项
，可是使用后却无法读入参数，我想知道：1你的方法做的控件可否能使用参数？2若可以能否给一个VB的例子？不胜感谢！！！

Answer 8

to Un1:首先你这个程序在vb中不能运行，其次做成asp组件的话是不能用到form对象的

Answer 9

to storyxlx:thank you,但对我用处不是很大

Answer 10

to storyxlx 你好：
1：我在 http://www.csdn.net/expert/topic/73/73233.shtm 中的问题确实存在，我自己编译 usercontrol 测试过可以，但前些天冶游一些网友说不行，我想是不是 IE 版本的问题？我使用 Win98II。
2：在网页中接受参数可以使用 Script 赋值或 PARAM..等标记，但这种方法的参数值我认为是在UserControl_ReadProperties中读进去的，你是否编程？to deak 老大：
你不是要我这样才说行吧？：）'class1.cls
Option ExplicitDim f As Form2Private Sub Class_Initialize()
    Set f = New Form2
    Load f
    f.AutoRedraw = True
End SubPrivate Sub Class_Terminate()
    Unload f
    Set f = Nothing
End SubPublic Sub CircleA(X As Single, Y As Single, R As Single)
    f.Circle (X, Y), R
End SubPublic Sub Save(FileName As String)
    SavePicture f.Image, FileName
End Sub'form1.frm
'放一个 commandbuttonOption ExplicitPrivate Sub Command1_Click()
    Dim c As Class1
    Set c = New Class1
    c.CircleA 1000, 1000, 200
    c.Save "c:\download\a.bmp"
End Sub'form2

Answer 11

to Un1:还是你牛b，thank you very much,add score