大家好,我用matlab生成了com组件,下面是vb中的程序:
Private fa As component.f
Private x(1 To 360) As Variant
Private y(1 To 360) As Variant
Private ga As component1.g
Private Sub Command1_Click()
Image1.Picture = Clipboard.GetData()
Dim f As Variant
Call fa.f(1, f, x, y)
Label1.Caption = "圆度误差为:" & Round(f, 5)
End Sub
Private Sub Command2_Click()
Image1.Picture = Clipboard.GetData()
Dim g As Variant
Call ga.g(1, g, x, y)
Label1.Caption = "圆度误差为:" & Round(g, 5)
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
On Error GoTo handle_error
Dim fa As component.f
Dim ga As component1.g
Set fa = New component.f
Set ga = New component1.g

Exit Sub
handle_error:
MsgBox (Err.Description)
End Sub
为什么在运行时fa和ga为nothing,这是怎么回事啊?各位高手帮忙看看吧