frmmain.frm

此为交通信号机的方案生成软件

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form FrmMain 
   BackColor       =   &H00C0C0C0&
   Caption         =   "HHX方案生成系统"
   ClientHeight    =   6510
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   9480
   FillColor       =   &H00C0C0C0&
   Icon            =   "FrmMain.frx":0000
   LinkTopic       =   "form1"
   ScaleHeight     =   6510
   ScaleWidth      =   9480
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSComDlg.CommonDialog cd 
      Left            =   960
      Top             =   3240
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin MSCommLib.MSComm MSComm1 
      Left            =   2280
      Top             =   3360
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DTREnable       =   -1  'True
   End
   Begin VB.TextBox TxtEdit 
      Appearance      =   0  'Flat
      BackColor       =   &H00FF0000&
      ForeColor       =   &H00FFFFFF&
      Height          =   495
      Left            =   5400
      TabIndex        =   1
      Top             =   2640
      Visible         =   0   'False
      Width           =   1335
   End
   Begin MSFlexGridLib.MSFlexGrid GridScheme 
      Height          =   2415
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Visible         =   0   'False
      Width           =   3495
      _ExtentX        =   6165
      _ExtentY        =   4260
      _Version        =   393216
      Rows            =   45
      Cols            =   41
      BackColor       =   16777215
      BackColorSel    =   -2147483643
      AllowBigSelection=   0   'False
      ScrollTrack     =   -1  'True
      Enabled         =   -1  'True
      FillStyle       =   1
      AllowUserResizing=   3
   End
   Begin VB.Menu MnuScheme 
      Caption         =   "信号灯色方案"
      Begin VB.Menu MnuSchemeMade 
         Caption         =   "新建"
      End
      Begin VB.Menu w 
         Caption         =   "-"
      End
      Begin VB.Menu MnuSchemeLoad 
         Caption         =   "打开"
      End
      Begin VB.Menu qqq 
         Caption         =   "-"
      End
      Begin VB.Menu MnuSchemeSave 
         Caption         =   "存盘"
      End
      Begin VB.Menu q12 
         Caption         =   "-"
      End
      Begin VB.Menu MnuSchemeSaveAs 
         Caption         =   "另存为"
      End
      Begin VB.Menu d1 
         Caption         =   "-"
      End
      Begin VB.Menu MnuEditSchemeTable 
         Caption         =   "编辑方案表"
      End
      Begin VB.Menu qw1 
         Caption         =   "-"
      End
      Begin VB.Menu MnuMakeText 
         Caption         =   "生成黄辉先文件"
      End
      Begin VB.Menu qwer 
         Caption         =   "-"
      End
      Begin VB.Menu MnuOpenHHXFile 
         Caption         =   "刷新方案表"
      End
      Begin VB.Menu fr 
         Caption         =   "-"
      End
      Begin VB.Menu MnuPrint 
         Caption         =   "打印"
      End
      Begin VB.Menu e34 
         Caption         =   "-"
      End
      Begin VB.Menu MnuExit 
         Caption         =   "退出"
      End
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 
Private Sub Form_Load()
       GridScheme.Width = Screen.Width
       
       GridScheme.Height = Screen.Height
End Sub

Private Sub Form_Unload(Cancel As Integer)
        End
End Sub

Private Sub GridScheme_Click()
       Dim a, b As Integer
       Dim Mc, Mr As Integer
       'GridScheme.col = GridScheme.MouseCol
       GridScheme.Row = GridScheme.MouseRow
       Mc = GridScheme.MouseCol
       Mr = GridScheme.MouseRow
       a = Int((GridScheme.Row - 1) / 8)
       b = (GridScheme.Row - 1) Mod 8
       
       If Mc > 0 And Mr > 0 And Mr < 33 Then
                  '设置灯色
       Select Case b
         Case 0
             If DataMatrix(Mr, Mc) = 0 Then
                Set GridScheme.CellPicture = LoadPicture(App.Path + "\red.bmp")
                DataMatrix(Mr, Mc) = 1
             'ElseIf DataMatrix(Mr, Mc) = 1 Then
               ' Set GridScheme.CellPicture = LoadPicture(App.Path + "\greenw.bmp")
               ' DataMatrix(Mr, Mc) = 2
             'ElseIf DataMatrix(Mr, Mc) = 2 Then
                'Set GridScheme.CellPicture = LoadPicture("")
                'DataMatrix(Mr, Mc) = 0
             Else
                Set GridScheme.CellPicture = LoadPicture("")
                DataMatrix(Mr, Mc) = 0
             End If
          Case 1
             If DataMatrix(Mr, Mc) = 0 Then
                Set GridScheme.CellPicture = LoadPicture(App.Path + "\green.bmp")
                DataMatrix(Mr, Mc) = 1
             ElseIf DataMatrix(Mr, Mc) = 1 Then
                Set GridScheme.CellPicture = LoadPicture(App.Path + "\greenw.bmp")
                DataMatrix(Mr, Mc) = 2
             Else
                Set GridScheme.CellPicture = LoadPicture("")
                DataMatrix(Mr, Mc) = 0
             End If
         
         Case 2
             If DataMatrix(Mr, Mc) = 0 Then
                Set GridScheme.CellPicture = LoadPicture(App.Path + "\red.bmp")
                DataMatrix(Mr, Mc) = 1
             
            Else
                Set GridScheme.CellPicture = LoadPicture("")
                DataMatrix(Mr, Mc) = 0
             End If
             
         Case 3
             If DataMatrix(Mr, Mc) = 0 Then
                Set GridScheme.CellPicture = LoadPicture(App.Path + "\yellow.bmp")
                DataMatrix(Mr, Mc) = 1
             
             Else
                Set GridScheme.CellPicture = LoadPicture("")
                DataMatrix(Mr, Mc) = 0
             End If
         Case 4
             If DataMatrix(Mr, Mc) = 0 Then
                Set GridScheme.CellPicture = LoadPicture(App.Path + "\green.bmp")
                DataMatrix(Mr, Mc) = 1
             ElseIf DataMatrix(Mr, Mc) = 1 Then
                Set GridScheme.CellPicture = LoadPicture(App.Path + "\greenw.bmp")
                DataMatrix(Mr, Mc) = 2
             
             Else
                Set GridScheme.CellPicture = LoadPicture("")
                DataMatrix(Mr, Mc) = 0
             End If
          Case 5, 6, 7
             If DataMatrix(Mr, Mc) = 0 Then
                Set GridScheme.CellPicture = LoadPicture(App.Path + "\green.bmp")
                DataMatrix(Mr, Mc) = 1
             
             ElseIf DataMatrix(Mr, Mc) = 1 Then
                Set GridScheme.CellPicture = LoadPicture(App.Path + "\greenw.bmp")
                DataMatrix(Mr, Mc) = 2
             
             Else
                Set GridScheme.CellPicture = LoadPicture("")
                DataMatrix(Mr, Mc) = 0
             End If
          End Select
           
        ElseIf Mc > 0 And Mr > 32 And Mr < 41 Then
            If DataMatrix(Mr, Mc) = 0 Then
                Set GridScheme.CellPicture = LoadPicture(App.Path + "\green.bmp")
                DataMatrix(Mr, Mc) = 1
             
             ElseIf DataMatrix(Mr, Mc) = 1 Then
                Set GridScheme.CellPicture = LoadPicture(App.Path + "\greenw.bmp")
                DataMatrix(Mr, Mc) = 2
             
             Else
                Set GridScheme.CellPicture = LoadPicture("")
                DataMatrix(Mr, Mc) = 0
             End If
         ElseIf Mc > 0 And Mr > 40 Then
            EditGrid GridScheme, TxtEdit
        
        End If
           
           
            
       
       
       

End Sub
Sub GridScheme_LeaveCell()
    
    
    If TxtEdit.Visible = False Then Exit Sub
    GridScheme = TxtEdit
    TxtEdit.Visible = False
End Sub
  
  '添加编辑功能。。。

Sub GridScheme_GotFocus()
     'If GridScheme.col > 0 And GridScheme.row > 24 Then
     'EditGrid GridScheme, TxtEdit
    'Else