mdlsch.bas

此为交通信号机

Attribute VB_Name = "Mdlsch"
Public Sub initschgrid(stepnum As Integer)
FrmMain.GridScheme.Width = Screen.Width - 150
     FrmMain.GridScheme.Height = Screen.Height / 2 - 400
     FrmMain.GridScheme.Cols = stepnum + 2
     FrmMain.GridScheme.row = 0
     
         '设置表格参数
     For i = 0 To stepnum + 1
        
       FrmMain.GridScheme.ColWidth(i) = 2 * (FrmMain.GridScheme.Width - FrmMain.GridScheme.ColWidth(0)) / (stepnum + 1)
         
       If i = 0 Then
        
       FrmMain.GridScheme.col = i
       FrmMain.GridScheme.Text = "步伐号"
       FrmMain.GridScheme.ColAlignment(i) = flexAligncenter
      
       ElseIf i = stepnum + 1 Then
        FrmMain.GridScheme.col = i
       FrmMain.GridScheme.Text = "周期"
       FrmMain.GridScheme.ColAlignment(i) = flexAligncenter
       Else
       FrmMain.GridScheme.col = i
       FrmMain.GridScheme.Text = Str(i)
       FrmMain.GridScheme.ColAlignment(i) = flexAligncenter
       End If
        
     Next
    
  FrmMain.GridScheme.col = 0
    For i = 1 To 16
     If i = 1 Then
        FrmMain.GridScheme.row = i
       'FrmMain.GridScheme.col = i
       FrmMain.GridScheme.Text = "定周期"
       FrmMain.GridScheme.ColAlignment(i) = flexAligncenter
   Else
   FrmMain.GridScheme.ColAlignment(i) = flexAligncenter
   FrmMain.GridScheme.row = i
   FrmMain.GridScheme.Text = "方案" + Str(i - 1)
   End If
   Next
   FrmMain.GridScheme.Visible = True
End Sub
Public Sub initmtgrid(stepnum As Integer)
   Frmmul.MutimeGrid.Width = Screen.Width - 300
    
   Frmmul.MutimeGrid.Height = Screen.Height / 2 - 500
  ' Frmmul.MutimeGrid.Top = Frmmul.MutimeGrid.Height + 500
   Frmmul.MutimeGrid.Cols = stepnum + 2
   Frmmul.MutimeGrid.row = 0
     
         '设置表格参数
     For i = 0 To stepnum + 1
       
     Frmmul.MutimeGrid.ColWidth(i) = 2 * (FrmMain.MGrid1.Width - Frmmul.MutimeGrid.ColWidth(0)) / (stepnum + 1)
         
        If i = 0 Or i = 1 Then
       'FrmMain.MutimeGrid.MergeCol = True
     Frmmul.MutimeGrid.col = i
       If i = 0 Then
     Frmmul.MutimeGrid.Text = "时段序号"
       End If
     Frmmul.MutimeGrid.ColAlignment(i) = flexAligncenter
       Else
     Frmmul.MutimeGrid.col = i
     Frmmul.MutimeGrid.Text = Str(i - 1)
     Frmmul.MutimeGrid.ColAlignment(i) = flexAligncenter
        End If
        
     Next
    Frmmul.MutimeGrid.col = 0
    For j = 1 To 6
       If j Mod 2 = 1 Then
       Frmmul.MutimeGrid.RowHeight(j) = 2 * Frmmul.MutimeGrid.RowHeight(0)
       End If
   Next
Frmmul.MutimeGrid.col = 0
    For i = 1 To 6
     Frmmul.MutimeGrid.ColAlignment(i) = flexAligncenter
     Frmmul.MutimeGrid.row = i
      
      If i <= 2 Then
       
     Frmmul.MutimeGrid.Text = "平日"
      ElseIf i >= 3 And i < 5 Then
     
     Frmmul.MutimeGrid.Text = "周六"
     Else
      
     Frmmul.MutimeGrid.Text = "假日"
     End If
     
   Next
Frmmul.MutimeGrid.col = 1
   For i = 1 To 6
    Frmmul.MutimeGrid.ColAlignment(i) = flexAligncenter
    Frmmul.MutimeGrid.row = i
      If (i Mod 2) Then
      Frmmul.MutimeGrid.Text = "切换时间"
      Else
      Frmmul.MutimeGrid.Text = "控制方案"
      End If
  Next
Frmmul.MutimeGrid.Visible = True
End Sub