各位急救啊!!關於ASP調用VB寫的ActiveX Dll的問題
lingq 2006-06-23 02:49:24 ASP調用VB寫的ActiveX Dll
asp部份的代碼:
set rsObj= Server.CreateObject("Pro.Obj")
cErr = rsObj.CreateCutPic()
if cErr <> "" then
end if
ActiveX Dll裡有一個form和一個Class
VB部份的代碼:
工程名(Pro)
1:Class(Obj)
Public function DrawPIC() As Variant
Dim frm As frmCutDraw
Set frm = New frmCutDraw
frm.DrawPIC
Set frm = Nothing
End function
2:Form(frmCutDraw)
Public function DrawPIC() As Variant
Picture1為VB中的控件PictureBox
Picture1.AutoRedraw = True
Picture1.ScaleMode = 3
Picture1.ForeColor = RGB(255, 255, 255)
Picture1.Line (0, 0)-(50, 50), , BF
Picture1.AutoRedraw = False
End function
我在Debug的情況下PictureBox的Line方法執行沒有錯誤,
但把ActiveX Dll 編譯成Dll後Picturebox的Line方法執行就會出現錯誤.