输入法编程

开发平台：
Visual C++

Form1.frm：源码内容
							VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3600
   ClientLeft      =   60
   ClientTop       =   390
   ClientWidth     =   6060
   LinkTopic       =   "Form1"
   ScaleHeight     =   3600
   ScaleWidth      =   6060
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command5 
      Caption         =   "Command5"
      Height          =   615
      Left            =   990
      TabIndex        =   5
      Top             =   2400
      Width           =   1575
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Command3"
      Height          =   675
      Left            =   2760
      TabIndex        =   4
      Top             =   1290
      Width           =   1485
   End
   Begin VB.CommandButton Command2 
      Caption         =   "建立"
      Height          =   555
      Left            =   600
      TabIndex        =   3
      Top             =   1320
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "上一页"
      Height          =   615
      Left            =   3510
      TabIndex        =   2
      Top             =   90
      Width           =   1335
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Left            =   1890
      TabIndex        =   1
      Top             =   120
      Width           =   1215
   End
   Begin VB.CommandButton Command4 
      Caption         =   "下一页"
      Height          =   375
      Left            =   600
      TabIndex        =   0
      Top             =   150
      Width           =   915
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function DLLstart Lib "TranChiDll.dll" (fcmywnd As Long) As Integer
Private Declare Function keyprogress Lib "TranChiDll.dll" (ByVal wparam As Integer, ByVal ss As String, ByVal SendENbuf As String, ByVal SendCH As String, ByVal Midtems As String, ByVal Control As String) As Boolean
Private Declare Function getnextpage Lib "TranChiDll.dll" (ByVal Midtems As String, ByVal torword As Integer) As Boolean
Private Declare Function outsource Lib "TranChiDll.dll" (ByVal code As String, ByVal userSources As String, ByVal base As Long, ByVal goldeNum As Long, ByVal goldeLen As Long) As Boolean
Private Declare Function OutsourceOne Lib "TranChiDll.dll" (ByVal code As String, ByVal userSources As String, ByVal base As Long, ByVal goldeNum As Long, ByVal goldeLen As Long) As Boolean
Private Declare Function ChissToCode Lib "TranChiDll.dll" (ByVal MainCodeLibName As String, ByVal chiss As String, codess As String) As Boolean
Private Declare Function creat Lib "TranChiDll.dll" (ByVal CodeSources As String, ByVal userdefine As String, ByVal ExCodeSource As String, ByVal code As String, ByVal base As Long, ByVal goldeNum As Long, ByVal goldeLen As Long) As Boolean
Private Declare Function creatNotest Lib "TranChiDll.dll" (ByVal CodeSources As String, ByVal userdefine As String, ByVal ExCodeSource As String, ByVal code As String, ByVal base As Long, ByVal goldeNum As Long, ByVal goldeLen As Long) As Boolean
Private Declare Function TestLib Lib "TranChiDll.dll" (ByVal code As String, ByVal base As Long, ByVal goldeNum As Long, ByVal goldeLen As Long) As Boolean
Private Declare Function insertNewWord Lib "TranChiDll.dll" (ByVal Enss As String, ByVal Chss As String) As Boolean
Dim s2 As String
Dim s3 As String
Dim s4 As String
Dim s5 As String
Dim s6 As String
Private Sub Command1_Click()
Dim ss As String
  ss = "                                                       "
  getnextpage ss, 0
End Sub
Private Sub Command2_Click()
    If (creatNotest(App.Path & "CodeSource.txt", App.Path & "userSource.txt", App.Path & "winpy.txt", App.Path & "Code.txt", 64, 27, 4)) Then
       MsgBox "生成词典失败"
    Else
       'SaveRegLong HKEY_CURRENT_USER, "Software\jsime", "jsime", "1"
    End If
End Sub
Private Sub Command3_Click()
   TestLib App.Path & "Code.txt", 64, 27, 4
End Sub
Private Sub Command4_Click()
Dim ss As String
  ss = "                                                       "
  getnextpage ss, 1
   
End Sub
Private Sub Command5_Click()
   insertNewWord "d", "处理"
   
End Sub
Private Sub Form_Load()
   DLLstart 0
End Sub
Private Sub Text1_Change()
Dim DD As Long
     DD = Asc(UCase(Text1.Text))
     keyprogress DD, "-", "-", "-", "-", "-"
     
End Sub

						