form1.frm

vb默认工程创建器

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "VB默认工程创建器"
   ClientHeight    =   1815
   ClientLeft      =   5040
   ClientTop       =   4245
   ClientWidth     =   7590
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   ScaleHeight     =   1815
   ScaleWidth      =   7590
   Begin VB.CommandButton cmdOpen 
      Caption         =   "打开"
      Enabled         =   0   'False
      Height          =   375
      Left            =   4440
      TabIndex        =   8
      Top             =   1320
      Width           =   1335
   End
   Begin VB.ComboBox comboType 
      Height          =   300
      ItemData        =   "Form1.frx":030A
      Left            =   840
      List            =   "Form1.frx":0314
      TabIndex        =   7
      Text            =   "标准EXE"
      Top             =   1320
      Width           =   1455
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "退出"
      Height          =   375
      Left            =   6120
      TabIndex        =   6
      Top             =   1320
      Width           =   1335
   End
   Begin VB.TextBox txtProjectName 
      Height          =   270
      Left            =   840
      TabIndex        =   4
      Text            =   "新建工程"
      Top             =   360
      Width           =   6615
   End
   Begin VB.CommandButton cmdPath 
      Caption         =   ".."
      Height          =   375
      Left            =   7080
      TabIndex        =   3
      Top             =   900
      Width           =   375
   End
   Begin VB.TextBox txtPath 
      Height          =   270
      Left            =   840
      Locked          =   -1  'True
      TabIndex        =   1
      Top             =   960
      Width           =   6255
   End
   Begin VB.CommandButton cmdCreate 
      Caption         =   "创建"
      Height          =   375
      Left            =   2760
      TabIndex        =   0
      Top             =   1320
      Width           =   1335
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "工程名："
      Height          =   180
      Left            =   0
      TabIndex        =   5
      Top             =   360
      Width           =   720
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "放置路径："
      Height          =   180
      Left            =   0
      TabIndex        =   2
      Top             =   960
      Width           =   900
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit



Private Sub cmdCreate_Click()
   If Trim(txtProjectName.Text) <> "" Then
      If Dir(txtPath.Text, vbDirectory) = "" Then
         MkDir txtPath.Text
      End If
      Select Case LCase(Trim(comboType.Text))
      Case "标准exe"
         Call WriteTextFile(txtPath.Text & "\frmMain.frm", VBForm1(ProjectName))
         Call WriteTextFile(txtPath.Text & "\MSSCCPRJ.SCC", VBSCC(ProjectName))
         Call WriteTextFile(txtPath.Text & "\" & ProjectName & ".vbp", VBVBP(ProjectName, "bas" & ProjectName))
         Call WriteTextFile(txtPath.Text & "\" & ProjectName & ".vbw", VBVBW("bas" & ProjectName))
         Call WriteTextFile(txtPath.Text & "\bas" & ProjectName & ".bas", VBbas("bas" & ProjectName))
         Me.Caption = "VB标准EXE工程：" & ProjectName & "已经在:" & NowPath & "  创建完成！"
         cmdOpen.Enabled = True
      Case "activedll"
         Const ClsName = "Class1"
         Const basName = "basPublic"
         Call WriteTextFile(txtPath.Text & "\" & ClsName & ".cls", ClsStr_Dll(ClsName))
         Call WriteTextFile(txtPath.Text & "\MSSCCPRJ.SCC", SCCstr_DLL(ProjectName))
         Call WriteTextFile(txtPath.Text & "\" & basName & ".bas", VBbas(basName))
         Call WriteTextFile(txtPath.Text & "\" & ProjectName & ".vbp", ProjectStr_DLL(ClsName, basName, ProjectName))
         Me.Caption = "VB Active DLL工程：" & ProjectName & "已经在:" & NowPath & "  创建完成！"
         cmdOpen.Enabled = True
      End Select
   Else
      Me.Caption = "请输入工程名"
   End If
End Sub

Private Sub cmdExit_Click()
   End
End Sub

Private Sub cmdOpen_Click()
   Call ShellExecute(0, "Open", txtPath.Text & "\" & txtProjectName.Text & ".vbp", "", GetFilePath(txtPath.Text), 1)
   cmdOpen.Enabled = False
End Sub

Private Sub cmdPath_Click()
   Dim Tmp As String
   Tmp = BrowseFolder(Me, "保存到...")
   If Trim(Tmp) <> "" Then
      NowPath = Tmp
   End If
   Call txtProjectName_Change
End Sub

Private Sub Form_Load()
   NowPath = GetDesktopPath()
   txtPath.Text = NowPath
   Call txtProjectName_Change
End Sub

Private Sub txtProjectName_Change()
   ProjectName = Trim(txtProjectName.Text)
   txtPath.Text = Replace(NowPath & "\" & ProjectName, "\\", "\")
End Sub

Private Sub txtProjectName_DblClick()
   txtProjectName.SelStart = 0
   txtProjectName.SelLength = Len(txtProjectName.Text)
End Sub

Private Sub txtProjectName_KeyPress(KeyAscii As Integer)
   Select Case KeyAscii   '/\:*?"<>|
   Case Asc("/")
      KeyAscii = 0
   Case Asc("\")
      KeyAscii = 0
   Case Asc(":")
      KeyAscii = 0
   Case Asc("*")
      KeyAscii = 0
   Case 34   '"
      KeyAscii = 0
   Case Asc("<")
      KeyAscii = 0
   Case Asc(">")
      KeyAscii = 0
   Case Asc("|")
      KeyAscii = 0
   End Select
End Sub