?? var_def.bas
字號:
Attribute VB_Name = "Var_Def"
Public g_MyWs As Workspace
Public g_d_Base As Database
Public g_ProjectFile As String
Public g_ProDir As String
Public g_CurDir As String
Public Const g_P = 206264.806286
Public Const PI = 3.141592653
Public Const g_MaxNum As Long = 3000 '定向點最大個數
Public g_H_AB As Double 'ab 高差
Public g_S_AB As Double 'ab 距離
Public g_HA As Double 'a點儀器高
Public g_A_H(g_MaxNum) As Double
Public g_A_V(g_MaxNum) As Double
Public g_B_H(g_MaxNum) As Double
Public g_B_V(g_MaxNum) As Double
Public g_Potname(g_MaxNum) As String
Public g_X_B As Double
Public g_Y_B As Double
Public g_XC(g_MaxNum) As Double
Public g_YC(g_MaxNum) As Double
Public g_ZC(g_MaxNum) As Double
Public g_PotNum As Integer
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -