Private Sub Form_Load()
init
Call dd2kj(codnt)
end sub
Public Type Coor
L As Double
La As Double
H As Double
X As Double
Y As Double
Z As Double
End Type
Sub init()
Public codnt As Coor
end sub
Sub dd2kj(codnt As Coor) '這里出現Byref引數型別不符
L = codnt.L
La = codnt.La
H = codnt.H
codnt.X = (eth.N + H) * Cos(L) * Cos(La)
codnt.Y = (eth.N + H) * Cos(L) * Sin(La)
codnt.Z = (eth.N(1 - eth.e2) + H) * Sin(L)
End Sub
uj5u.com熱心網友回復：
Public codnt As Coor 這句放到 通用區域后 又提示缺少陣列uj5u.com熱心網友回復：
少了個* 、。。。。。。。。。uj5u.com熱心網友回復：
你的 Init( ) 程序完全是錯誤的，根本就不符合語法規范。你貼出來的代碼，從 Public Type Coor 開始的內容，應該全部放到一個 bas模塊中。
然后，把 Public codnt As Coor 這句提到 Sub init() 之前，把 Sub init() 整個程序洗掉。
再把 Form_Load( ) 中的 init 這個洗掉。
程式代碼就可以正常運行了（前提是你的其它變數、型別之類的東西，有正確的定義和使用）。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/93883.html
標籤：VB基礎類
上一篇：數值加密
下一篇：上位機資料顯示