⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 公路技术标准.frm

📁 饮羽公路测设（glcs） 由20多个公路测量、设计、试验和施工组织设计等小软件组成。如《中桩大地坐标》可以计算不等长缓和曲线的中桩和边桩的大地坐标；《缓和曲线反算》可以根据切线长、外距长或缓和曲线长求
💻 FRM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
            AutoSizeMouse   =   -1  'True
            FrozenRows      =   0
            FrozenCols      =   0
            AllowUserFreezing=   3
            BackColorFrozen =   0
            ForeColorFrozen =   0
            WallPaperAlignment=   9
         End
      End
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00400040&
      Caption         =   "关闭"
      Height          =   375
      Left            =   5760
      MouseIcon       =   "公路技术标准.frx":08BC
      Picture         =   "公路技术标准.frx":0CFE
      TabIndex        =   0
      Top             =   5640
      Width           =   975
   End
End
Attribute VB_Name = "frmgljszz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Combo1_Click()
'公路等级

    On Error GoTo handlerror
    
    For i = 0 To VSFlexGrid1.Rows - 1
        VSFlexGrid1.TextMatrix(i, 1) = ""
        VSFlexGrid1.TextMatrix(i, 3) = ""
    Next i
    
    If Combo1.Text = "高速公路" Then
        Combo2.Clear
        Combo2.AddItem "120km/h"
        Combo2.AddItem "100km/h"
        Combo2.AddItem "80km/h"
        
        Combo3.Clear
        
        VSFlexGrid1.TextMatrix(3, 3) = "1/100"
    End If
    
    If Combo1.Text = "一级公路" Then
        Combo2.Clear
        Combo2.AddItem "100km/h"
        Combo2.AddItem "80km/h"
        Combo2.AddItem "60km/h"
        
        Combo3.Clear
        
        VSFlexGrid1.TextMatrix(3, 3) = "1/100"
    End If
    
    If Combo1.Text = "二级公路" Then
        Combo2.Clear
        Combo2.AddItem "80km/h"
        Combo2.AddItem "60km/h"
        
        Combo3.Clear
        
        VSFlexGrid1.TextMatrix(3, 3) = "1/50"
    End If
    
    If Combo1.Text = "三级公路" Then
        Combo2.Clear
        Combo2.AddItem "40km/h"
        Combo2.AddItem "30km/h"
        
        Combo3.Clear
        
        VSFlexGrid1.TextMatrix(3, 3) = "1/25"
    End If
    
    If Combo1.Text = "四级公路" Then
        Combo2.Clear
        Combo2.AddItem "20km/h"
        
        Combo3.Clear
        
        VSFlexGrid1.TextMatrix(3, 3) = "按具体情况确定"
    End If
    
    If Trim(Combo1.Text) <> "" Then VSFlexGrid1.TextMatrix(0, 1) = Combo1.Text
    
    
    Exit Sub
handlerror:

End Sub

Private Sub combo3_Click()
'车道数
    
    On Error GoTo handlerror
    
    If Combo1.Text = "高速公路" Or Combo1.Text = "一级公路" Then
        If Combo2.Text = "120km/h" Then
            If Combo3.Text = "8" Then
                VSFlexGrid1.TextMatrix(3, 1) = "45.00m"
                VSFlexGrid1.TextMatrix(4, 1) = "42.00m"
            End If
            If Combo3.Text = "6" Then
                VSFlexGrid1.TextMatrix(3, 1) = "34.50m"
                VSFlexGrid1.TextMatrix(4, 1) = "－－－"
            End If
            If Combo3.Text = "4" Then
                VSFlexGrid1.TextMatrix(3, 1) = "28.00m"
                VSFlexGrid1.TextMatrix(4, 1) = "26.00m"
            End If
            VSFlexGrid1.TextMatrix(0, 3) = "210"
            VSFlexGrid1.TextMatrix(1, 3) = "－－－"
            VSFlexGrid1.TextMatrix(2, 3) = "－－－"
        End If
        
        If Combo2.Text = "100km/h" Then
            If Combo3.Text = "8" Then
                VSFlexGrid1.TextMatrix(3, 1) = "44.00m"
                VSFlexGrid1.TextMatrix(4, 1) = "41.00m"
            End If
            If Combo3.Text = "6" Then
                VSFlexGrid1.TextMatrix(3, 1) = "33.50m"
                VSFlexGrid1.TextMatrix(4, 1) = "－－－"
            End If
            If Combo3.Text = "4" Then
                VSFlexGrid1.TextMatrix(3, 1) = "26.00m"
                VSFlexGrid1.TextMatrix(4, 1) = "24.50m"
            End If
            VSFlexGrid1.TextMatrix(0, 3) = "160m"
            VSFlexGrid1.TextMatrix(1, 3) = "－－－"
            VSFlexGrid1.TextMatrix(2, 3) = "－－－"
        End If
        
        If Combo2.Text = "80km/h" Then
            If Combo3.Text = "6" Then
                VSFlexGrid1.TextMatrix(3, 1) = "32.00m"
                VSFlexGrid1.TextMatrix(4, 1) = "－－－"
            End If
            If Combo3.Text = "4" Then
                VSFlexGrid1.TextMatrix(3, 1) = "24.50m"
                VSFlexGrid1.TextMatrix(4, 1) = "21.50m"
            End If
            VSFlexGrid1.TextMatrix(0, 3) = "110m"
            VSFlexGrid1.TextMatrix(1, 3) = "－－－"
            VSFlexGrid1.TextMatrix(2, 3) = "－－－"
        End If
        If Combo2.Text = "60km/h" Then
            If Combo3.Text = "4" Then
                VSFlexGrid1.TextMatrix(3, 1) = "23.00m"
                VSFlexGrid1.TextMatrix(4, 1) = "20.00m"
            End If
            VSFlexGrid1.TextMatrix(0, 3) = "75m"
            VSFlexGrid1.TextMatrix(1, 3) = "－－－"
            VSFlexGrid1.TextMatrix(2, 3) = "－－－"
        End If
    End If
    
    If Combo1.Text = "二级公路" Or Combo1.Text = "三级公路" Or Combo1.Text = "四级公路" Then
        If Combo2.Text = "80km/h" Then
            VSFlexGrid1.TextMatrix(3, 1) = "12.00m"
            VSFlexGrid1.TextMatrix(4, 1) = "10.00m"
            
            VSFlexGrid1.TextMatrix(0, 3) = "110m"
            VSFlexGrid1.TextMatrix(1, 3) = "220m"
            VSFlexGrid1.TextMatrix(2, 3) = "550m"
        End If
        If Combo2.Text = "60km/h" Then
            VSFlexGrid1.TextMatrix(3, 1) = "10.00m"
            VSFlexGrid1.TextMatrix(4, 1) = "8.50m"
            
            VSFlexGrid1.TextMatrix(0, 3) = "75m"
            VSFlexGrid1.TextMatrix(1, 3) = "150m"
            VSFlexGrid1.TextMatrix(2, 3) = "350m"
        End If
        If Combo2.Text = "40km/h" Then
            VSFlexGrid1.TextMatrix(3, 1) = "8.50m"
            VSFlexGrid1.TextMatrix(4, 1) = "－－－"
            
            VSFlexGrid1.TextMatrix(0, 3) = "40m"
            VSFlexGrid1.TextMatrix(1, 3) = "80m"
            VSFlexGrid1.TextMatrix(2, 3) = "200m"
        End If
        If Combo2.Text = "30km/h" Then
            VSFlexGrid1.TextMatrix(3, 1) = "7.50m"
            VSFlexGrid1.TextMatrix(4, 1) = "－－－"
            
            VSFlexGrid1.TextMatrix(0, 3) = "30m"
            VSFlexGrid1.TextMatrix(1, 3) = "60m"
            VSFlexGrid1.TextMatrix(2, 3) = "150m"
        End If
        If Combo2.Text = "20km/h" Then
            If Combo3.Text = "2" Then
                VSFlexGrid1.TextMatrix(3, 1) = "6.50m"
                VSFlexGrid1.TextMatrix(4, 1) = "－－－"
                VSFlexGrid1.TextMatrix(5, 1) = "3.00m"
            End If
            If Combo3.Text = "1" Then
                VSFlexGrid1.TextMatrix(3, 1) = "4.50m"
                VSFlexGrid1.TextMatrix(4, 1) = "－－－"
                VSFlexGrid1.TextMatrix(5, 1) = "3.50m"
            End If
            
            VSFlexGrid1.TextMatrix(0, 3) = "20m"
            VSFlexGrid1.TextMatrix(1, 3) = "40m"
            VSFlexGrid1.TextMatrix(2, 3) = "100m"
        End If
    End If
    
    
    If Trim(Combo3.Text) <> "" Then VSFlexGrid1.TextMatrix(2, 1) = Trim(Combo3.Text)
    
    Exit Sub
handlerror:

End Sub


Private Sub Combo2_Click()
'设计车速

    On Error GoTo handlerror
    
    If Combo1.Text = "高速公路" Or Combo1.Text = "一级公路" Then
        If Combo2.Text = "120km/h" Or Combo2.Text = "100km/h" Then
            Combo3.Clear
            Combo3.AddItem "4"
            Combo3.AddItem "6"
            Combo3.AddItem "8"
        End If
        If Combo2.Text = "80km/h" Then
            Combo3.Clear
            Combo3.AddItem "4"
            Combo3.AddItem "6"
        End If
        If Combo2.Text = "60km/h" Then
            Combo3.Clear
            Combo3.AddItem "4"
        End If
    End If
    
    If Combo1.Text = "二级公路" Or Combo1.Text = "三级公路" Or Combo1.Text = "四级公路" Then
        If Combo2.Text = "80km/h" Or Combo2.Text = "60km/h" Or Combo2.Text = "40km/h" Or Combo2.Text = "30km/h" Then
            Combo3.Clear
            Combo3.AddItem "2"
        End If
        If Combo2.Text = "20km/h" Then
            Combo3.Clear
            Combo3.AddItem "1"
            Combo3.AddItem "2"
        End If
    End If
    
    If Trim(Combo2.Text) <> "" Then VSFlexGrid1.TextMatrix(1, 1) = Combo2.Text
    
    If Combo2.Text = "120km/h" Then
        VSFlexGrid1.TextMatrix(6, 1) = "1000m"
        VSFlexGrid1.TextMatrix(7, 1) = "650m"
        VSFlexGrid1.TextMatrix(8, 1) = "5500～7500m"
        VSFlexGrid1.TextMatrix(4, 3) = "3"
        VSFlexGrid1.TextMatrix(5, 3) = "300m"
        VSFlexGrid1.TextMatrix(6, 3) = "17000m"
        VSFlexGrid1.TextMatrix(7, 3) = "11000m"
        VSFlexGrid1.TextMatrix(8, 3) = "6000m"
        VSFlexGrid1.TextMatrix(9, 3) = "4000m"
        VSFlexGrid1.TextMatrix(10, 3) = "100m"
        VSFlexGrid1.TextMatrix(5, 1) = "3.75m"
        VSFlexGrid1.TextMatrix(9, 1) = "100m"
        VSFlexGrid1.TextMatrix(10, 1) = "200m"
    End If
    If Combo2.Text = "100km/h" Then
        VSFlexGrid1.TextMatrix(6, 1) = "700m"
        VSFlexGrid1.TextMatrix(7, 1) = "400m"
        VSFlexGrid1.TextMatrix(8, 1) = "4000～5250m"
        VSFlexGrid1.TextMatrix(4, 3) = "4"
        VSFlexGrid1.TextMatrix(5, 3) = "250m"
        VSFlexGrid1.TextMatrix(6, 3) = "10000m"
        VSFlexGrid1.TextMatrix(7, 3) = "6500m"
        VSFlexGrid1.TextMatrix(8, 3) = "4500m"
        VSFlexGrid1.TextMatrix(9, 3) = "3000m"
        VSFlexGrid1.TextMatrix(10, 3) = "85m"
        VSFlexGrid1.TextMatrix(5, 1) = "3.75m"
        VSFlexGrid1.TextMatrix(9, 1) = "85m"
        VSFlexGrid1.TextMatrix(10, 1) = "170m"
    End If
    If Combo2.Text = "80km/h" Then
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -