frmroot.frm

1、从Keil C源代码中自动提取中文字符

VERSION 5.00
Begin VB.Form frmRoot 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "汉字提取及转换"
   ClientHeight    =   3270
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   5040
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3270
   ScaleWidth      =   5040
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmd 
      Caption         =   "退出(&X)"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Index           =   3
      Left            =   1200
      TabIndex        =   3
      Top             =   2580
      Width           =   2715
   End
   Begin VB.CommandButton cmd 
      Caption         =   "点阵数据转换(&C)"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Index           =   2
      Left            =   540
      TabIndex        =   2
      Top             =   1620
      Width           =   3735
   End
   Begin VB.CommandButton cmd 
      Caption         =   "提取汉字点阵数据(&H)"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Index           =   1
      Left            =   540
      TabIndex        =   1
      Top             =   840
      Width           =   3735
   End
   Begin VB.CommandButton cmd 
      Caption         =   "从源文件提取汉字(&F)"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Index           =   0
      Left            =   540
      TabIndex        =   0
      Top             =   60
      Width           =   3735
   End
End
Attribute VB_Name = "frmRoot"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Private Sub cmd_Click(Index As Integer)
  Select Case Index
    Case 0
      frmChineseFetch.Show vbModal
    Case 1
      Call RunHZDotReader
    Case 2
      
    Case 3
      Unload Me
  End Select
End Sub

Private Sub RunHZDotReader()
  Dim pID&, pHwnd&
  On Error GoTo RunCfgErr
  pID = Shell(App.Path + "\HZDotReader.Exe", vbNormalFocus)
  pHwnd = OpenProcess(SYNCHRONIZE, 0, pID)
  If pHwnd <> 0 Then
    pID = WaitForSingleObject(pHwnd, INFINITE)
    CloseHandle pHwnd
  End If
  Exit Sub
RunCfgErr:
  MsgBox Err.Description, vbCritical + vbSystemModal, "设置"
End Sub