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

广仔依旧

以下程序在SolidWorks二次开发运行时，系统提醒 “错误13 类型不匹配 ”
% b, E# X6 Y: r! v  l; M! p5 _哪里除了问题？该怎么修改？请大神给出意见！
5 M3 M% J) i, g7 ^. G, X
+ V2 r2 `/ {! }Private Sub Command1_Click()
Dim A As Single, B As Single
0 a  Z! [, C" b: q1 k" ?Dim C As Single, D As Single
2 B7 m4 ^' N- O0 @7 [0 rA = Text1.Text
7 N* X4 m1 k; F# R8 t% wB = Text2.Text
2 H8 f- \. O" l9 M* P4 eC = Text3.Text
D = Sin(0.5 * Text4.Text * 3.14159 / 180)
Text5.Text = A * (Form9.Text7.Text + Form9.Text4.Text)
! M( `  H' P  k; V' z3 ]Text6.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（）函数取下值再赋值给单浮点函数ABCD。

广仔依旧

zerowing 发表于 2014-6-3 11:31
哎。VB又忘得差不多了。你试试在 Text.text用val（）函数取下值再赋值给单浮点函数ABCD。

1 l8 E/ e( t/ S  ]. Q2 N! ^试了一下，还是不行。。不过还是谢谢你啦

vappga

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