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

廣仔依舊

以下程序在SolidWorks二次開發(fā)運(yùn)行時(shí)，系統(tǒng)提醒 “錯(cuò)誤13 類型不匹配 ”
2 g) M) Q1 v: n  I: L. i4 e哪里除了問題？該怎么修改？請(qǐng)大神給出意見！

Private Sub Command1_Click()
Dim A As Single, B As Single
/ p# b0 f* D+ N/ mDim C As Single, D As Single
3 |% ~4 M8 G- nA = Text1.Text
8 x) w6 q# v0 ^0 lB = Text2.Text
  T& J1 {& x6 D  d+ _- wC = Text3.Text
D = Sin(0.5 * Text4.Text * 3.14159 / 180)
$ f" q2 v! a- |7 IText5.Text = A * (Form9.Text7.Text + Form9.Text4.Text)
1 A! P9 X  Q  \9 K! GText6.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)
2 o# i) m7 X# u1 Y) L- WEnd Sub

zerowing

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

廣仔依舊

zerowing 發(fā)表于 2014-6-3 11:31
/ |9 u2 i; N+ z- _6 Q$ D* A哎。VB又忘得差不多了。你試試在 Text.text用val（）函數(shù)取下值再賦值給單浮點(diǎn)函數(shù)ABCD。

5 l/ J* ~6 X8 S試了一下，還是不行。。不過還是謝謝你啦

vappga

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