SolidWorks二次開發(fā)新手求大神助攻，一個(gè)簡單的問題

廣仔依舊

以下程序在SolidWorks二次開發(fā)運(yùn)行時(shí),，系統(tǒng)提醒 “錯(cuò)誤13 類型不匹配 ”
% W9 l# |) Y. I2 D( M# V4 \哪里除了問題,？該怎么修改,？請(qǐng)大神給出意見,！
2 k9 B; q2 L" @& E
Private Sub Command1_Click()
1 H; t# j5 h! _6 hDim A As Single, B As Single
0 g. q. I4 d% c- e4 V' b7 X2 hDim C As Single, D As Single
A = Text1.Text
B = Text2.Text
: l' X1 W, {) R' nC = Text3.Text
! e" x' U! p* r$ `5 cD = Sin(0.5 * Text4.Text * 3.14159 / 180)
$ A& X, f% A3 K  MText5.Text = A * (Form9.Text7.Text + Form9.Text4.Text)
6 G. d8 X3 h2 Y: F; a. a; EText6.Text = 2 * Text5.Text * D / (C - 1)
Text7.Text = C * Text6.Text
Text8.Text = Sqr(Text5.Text * Text5.Text + Text7.Text * Text7.Text - 2 * Text5.Text * Text7.Text * D)
End Sub

zerowing

哎,。VB又忘得差不多了。你試試在 Text.text用val（）函數(shù)取下值再賦值給單浮點(diǎn)函數(shù)ABCD,。

廣仔依舊

zerowing 發(fā)表于 2014-6-3 11:31
) s( j( Q0 i" n  I: ~, p, H) ?( w哎,。VB又忘得差不多了。你試試在 Text.text用val（）函數(shù)取下值再賦值給單浮點(diǎn)函數(shù)ABCD,。

試了一下,，還是不行。,。不過還是謝謝你啦

vappga

類型不匹配,，你把single改成Double