SolidWorks二次開發新手求大神助攻，一個簡單的問題

廣仔依舊

以下程序在SolidWorks二次開發運行時，系統提醒 “錯誤13 類型不匹配 ”
哪里除了問題？該怎么修改？請大神給出意見！
/ a4 c/ @3 r! c, a( p$ U, ]
. ?* O) o+ Z& C+ iPrivate Sub Command1_Click()
" W( C/ D( l& k8 M, g! BDim A As Single, B As Single
! e1 G0 |& R# z3 p( w3 `5 fDim C As Single, D As Single
$ A4 Z& o- z& S: T4 ?. O4 A" N; gA = Text1.Text
: o, ]0 _! P7 {! n6 I" n" hB = Text2.Text
  v3 H7 |+ _! P  H5 b/ C" WC = Text3.Text
1 _  |% J/ P1 h) E4 {. YD = Sin(0.5 * Text4.Text * 3.14159 / 180)
Text5.Text = A * (Form9.Text7.Text + Form9.Text4.Text)
" z9 O: l/ D9 h6 g* Q* Q0 `Text6.Text = 2 * Text5.Text * D / (C - 1)
+ B# ]+ f  ^0 w) p  @( m; AText7.Text = C * Text6.Text
8 J' b, s0 H. \% t( Y: V. X8 IText8.Text = Sqr(Text5.Text * Text5.Text + Text7.Text * Text7.Text - 2 * Text5.Text * Text7.Text * D)
# a( G% R/ [. uEnd Sub

zerowing

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

廣仔依舊

zerowing 發表于 2014-6-3 11:31
% l, O# a8 X  h8 l1 @哎。VB又忘得差不多了。你試試在 Text.text用val（）函數取下值再賦值給單浮點函數ABCD。

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

vappga

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