输入法编程

开发平台：
Visual C++

Form2.frm：源码内容
							VERSION 5.00
Begin VB.Form Form2 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "版权申明"
   ClientHeight    =   2910
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   5745
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   194
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   383
   StartUpPosition =   2  '屏幕中心
   Begin VB.Image Image2 
      Height          =   1065
      Left            =   4200
      Picture         =   "Form2.frx":0000
      Stretch         =   -1  'True
      Top             =   1470
      Width           =   1365
   End
   Begin VB.Line Line2 
      BorderColor     =   &H000000FF&
      BorderWidth     =   5
      X1              =   0
      X2              =   408
      Y1              =   176
      Y2              =   176
   End
   Begin VB.Label Label4 
      Caption         =   "版 权 人： 王   华"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   240
      TabIndex        =   3
      Top             =   2280
      Width           =   2895
   End
   Begin VB.Line Line1 
      BorderColor     =   &H000000FF&
      BorderWidth     =   5
      X1              =   -8
      X2              =   400
      Y1              =   96
      Y2              =   96
   End
   Begin VB.Label Label3 
      Caption         =   "发行日期： 2005年5月1日"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   240
      TabIndex        =   2
      Top             =   1920
      Width           =   3735
   End
   Begin VB.Label Label2 
      Caption         =   "软件名称：《极速五笔》"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   240
      TabIndex        =   1
      Top             =   1560
      Width           =   3255
   End
   Begin VB.Label Label1 
      Caption         =   $"Form2.frx":42AE
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   1215
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   5415
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Type BROWSEINFO
hwndOwner As Long
pidlRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Private Const BIF_RETURNONLYFSDIRS = 1
Private Const MAX_PATH = 260
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BROWSEINFO) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
Private Declare Function outsource Lib "codemanage.dll" (ByVal Code As String, ByVal CodeSourceas As String) As Boolean
Private Declare Function creat Lib "codemanage.dll" (ByVal Code As String, ByVal CodeSourceas As String) As Boolean
Private Sub Form_Unload(Cancel As Integer)
    Form2.Hide
    Form1.Show
    Form5.Show
    Form4.Show
End Sub
Private Sub Image2_Click()
    Form2.Hide
    Form1.Show
    Form5.Show
    Form4.Show
End Sub

						