输入法编程

开发平台：
Visual C++

Form4.frm：源码内容
							VERSION 5.00
Begin VB.Form Form4 
   BorderStyle     =   0  'None
   Caption         =   "Form4"
   ClientHeight    =   855
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   3165
   ControlBox      =   0   'False
   LinkTopic       =   "Form4"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   855
   ScaleWidth      =   3165
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text2 
      BackColor       =   &H000000FF&
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   405
      Left            =   180
      MousePointer    =   1  'Arrow
      TabIndex        =   9
      Text            =   "input"
      Top             =   4200
      Visible         =   0   'False
      Width           =   855
   End
   Begin VB.Image Image7 
      Height          =   60
      Left            =   -90
      MousePointer    =   10  'Up Arrow
      Picture         =   "Form4.frx":0000
      Stretch         =   -1  'True
      ToolTipText     =   "缩小窗口"
      Top             =   0
      Width           =   5055
   End
   Begin VB.Image Image3 
      Height          =   90
      Left            =   -180
      MousePointer    =   1  'Arrow
      Picture         =   "Form4.frx":0491
      Stretch         =   -1  'True
      ToolTipText     =   "启停输入法"
      Top             =   780
      Width           =   5055
   End
   Begin VB.Image Image8 
      Height          =   3465
      Left            =   0
      MousePointer    =   1  'Arrow
      Picture         =   "Form4.frx":0922
      Stretch         =   -1  'True
      Top             =   -90
      Width           =   90
   End
   Begin VB.Image Image4 
      Height          =   3435
      Left            =   3060
      MousePointer    =   1  'Arrow
      Picture         =   "Form4.frx":0FF7
      Stretch         =   -1  'True
      Top             =   -60
      Width           =   105
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      Caption         =   " 《极速五笔》"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00404000&
      Height          =   435
      Index           =   0
      Left            =   1200
      MousePointer    =   1  'Arrow
      TabIndex        =   8
      Top             =   4170
      Width           =   1650
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      Caption         =   "版 权 人:王  华"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   1
      Left            =   345
      MousePointer    =   1  'Arrow
      TabIndex        =   7
      Top             =   60
      Width           =   4530
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      Caption         =   "发布日期:2005年5月"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   2
      Left            =   330
      MousePointer    =   1  'Arrow
      TabIndex        =   6
      Top             =   420
      Width           =   4530
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   3
      Left            =   330
      MousePointer    =   1  'Arrow
      TabIndex        =   5
      Top             =   810
      Width           =   4530
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   4
      Left            =   345
      MousePointer    =   1  'Arrow
      TabIndex        =   4
      Top             =   1140
      Width           =   4530
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   5
      Left            =   345
      MousePointer    =   1  'Arrow
      TabIndex        =   3
      Top             =   1500
      Width           =   4530
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   7
      Left            =   345
      MousePointer    =   1  'Arrow
      TabIndex        =   1
      Top             =   1860
      Width           =   4530
   End
   Begin VB.Image Image2 
      Height          =   2895
      Left            =   90
      MousePointer    =   15  'Size All
      Picture         =   "Form4.frx":16CC
      Stretch         =   -1  'True
      ToolTipText     =   "要移动窗口吗？"
      Top             =   60
      Width           =   270
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   6
      Left            =   345
      MousePointer    =   1  'Arrow
      TabIndex        =   2
      Top             =   2220
      Width           =   4530
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   8
      Left            =   345
      MousePointer    =   1  'Arrow
      TabIndex        =   0
      Top             =   2580
      Width           =   4530
   End
   Begin VB.Image Image5 
      Height          =   3420
      Left            =   0
      Picture         =   "Form4.frx":1F22
      Stretch         =   -1  'True
      Top             =   60
      Width           =   3105
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Dim Down As Integer
Dim SY As Single
Dim SX As Single
Dim myTop As Single
Dim myLeft As Single
Dim hight As Long
Dim FirstHight As Long
Dim style  As Integer
Private Sub Form_Load()
    style = 0
    WinTogether = False
    Image5.Height = Form4.Height
    FirstHight = 435
    NumPicture = 1
    
End Sub
Private Sub Image2_Click()
   MySetActiveWindow act
End Sub
Private Sub Image2_DblClick()
   MySetActiveWindow act
End Sub
Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   Label1_MouseDown 0, Button, Shift, x, y
End Sub
Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
   Label1_MouseMove 0, Button, Shift, x, y
End Sub
Private Sub Image2_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
   Label1_MouseUp 0, Button, Shift, x, y
End Sub
Private Sub Image3_Click()
    MySetActiveWindow act
     keybd_event 27, 0, 0, 1
End Sub
Private Sub Image4_Click()
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   
   If (fso.FileExists(WorkPath & "back" & NumPicture & ".jpg") = False) Then
       NumPicture = 1
   End If
   
   If (fso.FileExists(WorkPath & "back" & NumPicture & ".jpg")) Then
       Image5.Picture = LoadPicture(WorkPath & "back" & NumPicture & ".jpg")
   End If
  
   NumPicture = NumPicture + 1
   
   MySetActiveWindow act
End Sub
Private Sub Image4_DblClick()
    MySetActiveWindow act
End Sub
Private Sub Image5_Click()
     MySetActiveWindow act
End Sub
Private Sub Image5_DblClick()
     MySetActiveWindow act
End Sub
Private Sub Image7_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If (Button = 1) Then
   If (Form4.Height <= 60) Then
      Image7.ToolTipText = "缩小窗口"
      Form4.Height = Form4Hight
   Else
       Form4Hight = Form4.Height
       Form4.Height = 60
      Image7.ToolTipText = "还原窗口"
   End If
Else
     If (style = 0) Then
        WindowVisable Form4.hwnd
        style = 1
     Else
        ShapeWindow Form4.hwnd, &HFFFFFF
        style = 0
     End If
End If
MySetActiveWindow act
End Sub
Private Sub Image8_Click()
   Dim aa As Long
   aa = 20
   FirstHight = FirstHight + aa
   Label1(0).FontSize = Label1(0).FontSize + 1
   Label1(0).Height = Label1(0).Height + FirstHight
   
   
   Label1(0).width = Label1(0).width + aa * 5
   For i = 1 To 8
      Label1(i).Top = Label1(i).Top + aa
      Label1(i).width = Label1(i).width + aa * 5
   Next
   
   Form4.Height = Form4.Height + aa
   Form4.width = Form4.width + aa * 5
   
   Image8.Height = Image8.Height + aa
   Image4.Left = Form4.width - 105
   Image4.Height = Image4.Height + aa
   
   Image3.Top = Image3.Top + aa
   Image3.width = Form4.width + 100
   
   Image2.Top = Image2.Top + aa
   Image5.Height = Form4.Height
   Image5.width = Form4.width + 100
    
   Image7.width = Form4.width + 100
  
End Sub
Private Sub Label1_Click(Index As Integer)
Dim dd As Long
     Label1.Item(Index).BackColor = 1000
     If Form1.Text1.Text <> "" Then
         mySendKey = 49 + Index
        'keybd_event 49 + Index, 0, 0, 1     '产生键
     End If
    
End Sub
Private Sub Label1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
  
  Down = 1
  SX = x
  SY = y
  myTop = Form4.Top
  myLeft = Form4.Left
End Sub
Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
  
  If Down = 1 Then
    If (WinTogether = True) Then
         Form1.Left = Form4.Left
         Form1.Top = Form4.Top - Form1.Height
    End If
    Form4.Top = Form4.Top - (SY - y)
    Form4.Left = Form4.Left - (SX - x)
  End If
End Sub
Private Sub Label1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
  Down = 0
  MySetActiveWindow act
End Sub
Private Sub Label1_DragDrop(Index As Integer, Source As Control, x As Single, y As Single)
     Label1.Item(Index).BackColor = 1000
End Sub
Private Sub Label2_Click()
    MySetActiveWindow act
End Sub
Private Sub Label2_DblClick()
    MySetActiveWindow act
End Sub
Private Sub Text2_Change()
Dim st As String
Dim ss As String
Dim i  As Integer
Dim line As Integer
Dim temhight As Long
Dim ww As Long
  
  line = 0 '行数
  i = 0
  ss = "dd"
  st = Text2.Text
  
   While (ss <> "")
        If line > 7 Then
           ss = ""
        Else
           ss = MyCutStr(st, ";")
        End If
        If (ss = "") Then
            Label1(i).Caption = st
        Else
            Label1(i).Caption = ss
            i = i + 1
        End If
    line = line + 1 '统计行数
  Wend
  
  
  Form5.Label1.Caption = Label1(0).Caption
  
  'Form1.Label2 = Form1.Label2.Caption + Label1(0).Caption
  '15为标签重叠量 150上下边框
  If (line = 1) Then
     temhight = 0
     Form4.Height = 8     'Height至少为8正常 在只有一切
     
     Form4.Top = Form5.Top
  Else
     temhight = (line - 1) * (375 - 15) + 150
         
     If (myFullWinRect.bottom - myFullWinRect.Top) * 6 < Form5.Top Then
       
       Form4.Top = Form5.Top - temhight
       Image3.Top = temhight - 90 '向上长
       Form4.Height = temhight
     Else
       
       Form4.Top = Form5.Top + Form5.Height
       Image3.Top = temhight - 90
       Form4.Height = temhight '向下长
      
    End If
     Form4.Left = Form5.Left
  End If
  
  Image5.Height = Form4.Height
  
End Sub

						