国产精品乱码一区-性开放网站-少妇又紧又爽视频-西西大胆午夜人体视频-国产极品一区-欧美成人tv-四虎av在线-国产无遮挡无码视频免费软件-中文字幕亚洲乱码熟女一区二区-日产精品一区二区三区在线观看-亚洲国产亚综合在线区-五月婷婷综合色-亚洲日本视频在线观看-97精品人人妻人人-久久久久久一区二区三区四区别墅-www.免费av-波多野结衣绝顶大高潮-日本在线a一区视频高清视频-强美女免费网站在线视频-亚洲永久免费

機械社區

標題: SolidWorks二次開發新手求大神助攻，一個簡單的問題 [打印本頁]
作者: 廣仔依舊    時間: 2014-6-3 11:08
標題: SolidWorks二次開發新手求大神助攻，一個簡單的問題
以下程序在SolidWorks二次開發運行時，系統提醒 “錯誤13 類型不匹配 ”
9 J/ Y9 `$ `* g4 F哪里除了問題？該怎么修改？請大神給出意見！
5 Z# f1 T( |3 C( J5 ]6 r& J
; k  W- d+ J$ w1 _8 OPrivate Sub Command1_Click()
" {$ L0 ~. ~5 gDim A As Single, B As Single& D% W& R% O7 ~# E6 b  r
Dim C As Single, D As Single
& S# T+ S1 t1 h& S3 J6 WA = Text1.Text
: y4 o( q1 g/ }- g; S6 hB = Text2.Text
! }$ a: N: a$ R8 G! X3 h: w% ?3 Q2 WC = Text3.Text
, l8 H' x+ H; `9 z, z9 MD = Sin(0.5 * Text4.Text * 3.14159 / 180)
% A9 C0 B* l, VText5.Text = A * (Form9.Text7.Text + Form9.Text4.Text)
3 ?3 h7 T  }4 z* C  L# w' `6 W% W; \4 vText6.Text = 2 * Text5.Text * D / (C - 1)! Z* \7 x. V# e/ M! p0 k9 }7 d
Text7.Text = C * Text6.Text/ b9 o( f) R; K3 u
Text8.Text = Sqr(Text5.Text * Text5.Text + Text7.Text * Text7.Text - 2 * Text5.Text * Text7.Text * D)( ~- V6 g  M" W+ A
End Sub
作者: zerowing    時間: 2014-6-3 11:31
哎。VB又忘得差不多了。你試試在 Text.text用val（）函數取下值再賦值給單浮點函數ABCD。
作者: 廣仔依舊    時間: 2014-6-3 11:45
zerowing 發表于 2014-6-3 11:31 ( `+ G+ [. U! f: ]
哎。VB又忘得差不多了。你試試在 Text.text用val（）函數取下值再賦值給單浮點函數ABCD。
4 Z9 e" P8 s' j) R( y
試了一下，還是不行。。不過還是謝謝你啦
作者: vappga    時間: 2014-6-3 13:40
類型不匹配，你把single改成Double



歡迎光臨 機械社區 (http://m.whclglass.com.cn/) Powered by Discuz! X3.5