dy_bianliang.bas

用于公路、轻轨及铁路双线线间距工程计算的源程序。

Attribute VB_Name = "dy_bianliang"
Public g_windows As String       '得到windows系统的路径及文件名
Public g_acadr14 As String       '得到acadr14软件的路径及文件名
Public g_excel As String         '得到excel软件的路径及文件名
Public g_ultraedit As String     '得到ultraedit软件的路径及文件名

Public lj_ruanjian As String       '本软件文件的路径
Global lj_shuju As String          '数据文件的路径
Global biaoshi As Integer         'frmfile中"打开"按钮的计算标识



Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long