討論區快速選單
知識庫快速選單
網路投保旅行平安險 政府補助!學嵌入式+物聯網 傑米的攝影旅遊筆記
[ 回上頁 ] [ 討論區發言規則 ]
執行出現Invalid qualifier
更改我的閱讀文章字型大小
作者 : mindrage(mindrage)
[ 貼文 7 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 3 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2017/2/14 下午 02:58:16
小弟寫了一個小功能面積計算的功能

表單的元件有
length.textbox
width.textbox
diagonal.textbox
ng.textbox
total.label
commit.button


Private Sub commit_Click()
    Dim nw1, nw2 As Single
    Dim nX1, nX2 As Single
    Dim nD1, nD2 As Single
    Dim nr, nS As Single
    Dim homen, mihomen As Single
    
    nw1 = length.Text 【希望能取得length這個textbox的值放到nw1】
    nw2 = width.Text 【同上,放置nw2】
    nr = diagonal.Text 【同上,放置nr】
    mihomen = ng.Text 【同上,放置mihomen】
    
    If (nr > nw1 And nr > nw2) And (nw1 > 0 And nw2 > 0) Then
     nX1 = nw1 / nr
     nX2 = nw2 / nr
     nD1 = Atn(-nX1 / Sqr(-nX1 * nX1 + 1)) + 2 * Atn(1)
     nD2 = Atn(-nX2 / Sqr(-nX2 * nX2 + 1)) + 2 * Atn(1)
     nS = nr * nr * (3.1415926535 - 2 * (nD1 + nD2)) / 4 + nr * (nw2 * Sin(nD1) + nw1 * Sin(nD2)) / 2
     nS = Int(nS)
     homen = Int(nS - mihomen) / 100
     total.Caption = homen.text 【homen取得的值丟入total的label呈現】
     Else
     homen = 0
     total.Caption = 0
    
     End If
End Sub

執行會發生錯誤訊息,Compile error: Invalid qualifier
作者 : ozzy123(ozzy) 資訊類作業求救卓越專家C++卓越專家貼文超過4000則人氣指數超過30000點
[ 貼文 4466 | 人氣 37262 | 評價 10860 | 評價/貼文 2.43 | 送出評價 49 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人mindrage註記此篇回應為很有道理 2017/2/14 下午 03:59:24
https://msdn.microsoft.com/en-us/library/office/gg251679.aspx

for you reference and enable your debugger and trace your codes step by step and line by line and then you will find the location (line) where errors occur
 板主 : 小樓
 > Visual Basic 6.0/VBA - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Visual Basic 6.0/VBA - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Visual Basic 6.0/VBA
1 阿戊 10670 
2 小樓 8650 
3 Jones 5270 
4 水瓶天賞 2340 
5 joe 2230 
6 史努比 1950 
7 阿呆紅 1440 
8 tt's 1250 
9 青衫 1150 
10 羅啟章 1020 
Visual Basic 6.0/VBA
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
0.125