求助 vb 调用matlab 编好的com 组件 有关解线性方程组的

hahaysw

我用matlab 生成一个com 组件想在vb中调用，但自己没弄成，所以希望大家帮我看看问题出在哪里，我这有两个com 组件分别是dell 和untitled1分别有不同的功能 dell 是个解线性方程组的，难度较大。另外一个是求y=sqty(x)的简单com 组建 。我自己做了一个y=sqrt(x) 关键问题是不能显示出返回值来我的di二个com vb程序的类名是 gh1   这个com我也做了个程序 但是编辑框不能输入文字 请大家看看怎么了
- E" J$ E$ a# b1 r" s第一个com 的类名是dell 我也做了个简单的调用vb程序 但没有定义其他变量
附件为保险我再重发一下
. Z  y. i8 v4 r+ X2 M8 H 第一个.zip (67.68 KB, 下载次数: 0)

2011-12-23 09:23 上传

点击文件名下载附件
第一个
下载积分: 体力 -2 点

$ d: Y* b4 v1 r. J1 u) n# _% \" G
3 t2 Y5 }  e7 A 第二个.zip (67.52 KB, 下载次数: 2)

2011-12-24 10:46 上传

点击文件名下载附件
第二个
下载积分: 体力 -2 点

下面是我的第二个程序的代码

# S' x6 R0 Z/ }: @. e" U  l& APrivate Sub Form_Load()
' ^8 V- }( F% w0 M7 E' e
" Q4 X7 n9 |, ^
Dim x As Double
& P' a, ~8 p  b0 B+ wDim y As Variant
Dim mat As gh1
On Error GoTo handle_error
6 c3 z( r9 A  [( g7 t
8 F2 ?$ i4 e; o, y1 T% ^
Set mat = New gh1
x = 4
y = 2
0 X: n2 K, c/ r& ~  _8 kCall mat.gh(1, y, x)
$ n& K5 }& C! H& [5 E+ n% dSet mat = Nothing
( [$ X: q( n5 ^2 Q$ _8 gText2.Text = y
) m3 R: I9 O5 y
7 d* @7 o6 d# {+ M8 s+ n! i+ G5 V5 Ghandle_error: MsgBox (Err.Description)
8 f$ \7 H# y0 Z" Q; |: M. D
End Sub
* F0 x# k" K1 o4 A4 G0 n
* r; B) O  J( {, H) v7 xPrivate Sub Text1_Change()
0 Z5 l& e) g* X9 B' p- Ox = CDbl(Text1.Text)
End Sub

Private Sub Text2_Change()
Text2.Text = yEnd Sub
我估计是红字这，肯定错了但我也不知该改成什么 ，请高手帮忙。
9 j0 m# D& r1 B& M: h1 `4 `8 @ 本人 qq 1531145753  

hahaysw

大家好我的那个问题是终于解决了，我就不悬赏了。

sxjm567

顶下再看哈

hahaysw

这个我解决了，在matalb 中文论坛里有我解决的相关文件

hucchongzi