frmpath.frm

一个交通专用的gis-T系统

VERSION 5.00
Begin VB.Form frmPath 
   Caption         =   "新建项目选择"
   ClientHeight    =   1725
   ClientLeft      =   3735
   ClientTop       =   4395
   ClientWidth     =   6120
   Icon            =   "frmPath.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1725
   ScaleWidth      =   6120
   Begin VB.CommandButton Command4 
      Caption         =   "帮助(&H)"
      Height          =   375
      Left            =   120
      TabIndex        =   4
      Top             =   1320
      Width           =   855
   End
   Begin VB.CommandButton Command3 
      Caption         =   "取消(&C)"
      Height          =   375
      Left            =   5040
      TabIndex        =   3
      Top             =   1320
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "导入路网(&I)"
      Height          =   375
      Left            =   3720
      Picture         =   "frmPath.frx":014A
      TabIndex        =   2
      Top             =   1320
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "新建路网(&N)"
      Default         =   -1  'True
      Height          =   375
      Left            =   2400
      Picture         =   "frmPath.frx":0CF0
      TabIndex        =   1
      Top             =   1320
      Width           =   1335
   End
   Begin VB.Frame Frame1 
      Caption         =   "请选择新建项目操作类型"
      Height          =   1095
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   5895
      Begin VB.Label Label1 
         Caption         =   $"frmPath.frx":177B
         Height          =   615
         Left            =   120
         TabIndex        =   5
         Top             =   360
         Width           =   5535
      End
   End
End
Attribute VB_Name = "frmPath"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hWnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
'See Module1.bas for global variable declarations
Private Declare Function HtmlHelpA Lib "hhctrl.ocx" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long



Private Sub Command1_Click()
    Load Frmwizard
    Frmwizard.Show
    Unload Me
End Sub

Private Sub Command2_Click()
    Load FrmNewProject
    FrmNewProject.Show
    Unload Me
End Sub

Private Sub Command3_Click()
    Unload Me
End Sub

Private Sub Command4_Click()
Dim tempstr
tempstr = App.Path & "\HELP.CHM::/html/newproject.htm"
HtmlHelpA Main.hWnd, tempstr, 0, 0
End Sub