SolidWorks二次开发新手求大神助攻，一个简单的问题

广仔依旧

以下程序在SolidWorks二次开发运行时，系统提醒 “错误13 类型不匹配 ”
8 u: {- `, [' `3 Q哪里除了问题？该怎么修改？请大神给出意见！
) j/ J1 [ s6 x* ^6 X! \
$ ^, G" d% F3 {; yPrivate Sub Command1_Click()
Dim A As Single, B As Single
, x' C8 A7 L' |5 S3 m" Y7 QDim C As Single, D As Single
E$ b/ p( t* U/ sA = Text1.Text
+ W$ R. R* }& M1 w( s! wB = Text2.Text
C = Text3.Text
0 a3 O+ j6 F: N0 a4 lD = Sin(0.5 * Text4.Text * 3.14159 / 180)
- O" g. f+ m$ S) z6 fText5.Text = A * (Form9.Text7.Text + Form9.Text4.Text)
8 C J' h: z) w4 M1 X+ h5 ^/ u. dText6.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)
: |) ?0 R' @* R- ?3 `2 y# p8 C% UEnd Sub

zerowing

哎。VB又忘得差不多了。你试试在 Text.text用val（）函数取下值再赋值给单浮点函数ABCD。

广仔依旧

zerowing 发表于 2014-6-3 11:31
- ?' B' |0 j* `! Q% b哎。VB又忘得差不多了。你试试在 Text.text用val（）函数取下值再赋值给单浮点函数ABCD。

4 v0 n" [" b" F1 f! J试了一下，还是不行。。不过还是谢谢你啦

vappga

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