开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 输入法编程 > 查看源码
Form3.frm
资源名称：JSiemXP2008-11-14.rar　[点击查看]
上传用户：hyb6888
上传日期：2016-01-24
资源大小：5186k
文件大小：2k
源码类别：

输入法编程

开发平台：

Visual C++

Form3.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form Form3 
  3.    Caption         =   "Form3"
  4.    ClientHeight    =   3090
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form3"
  9.    ScaleHeight     =   3090
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  '窗口缺省
  12.    Begin VB.Frame Frame3 
  13.       Caption         =   "设置默认输入法"
  14.       Height          =   615
  15.       Left            =   480
  16.       TabIndex        =   0
  17.       Top             =   1080
  18.       Width           =   3015
  19.       Begin VB.ComboBox Combo1 
  20.          BeginProperty Font 
  21.             Name            =   "宋体"
  22.             Size            =   12
  23.             Charset         =   134
  24.             Weight          =   400
  25.             Underline       =   0   'False
  26.             Italic          =   0   'False
  27.             Strikethrough   =   0   'False
  28.          EndProperty
  29.          Height          =   360
  30.          ItemData        =   "Form3.frx":0000
  31.          Left            =   90
  32.          List            =   "Form3.frx":0002
  33.          OLEDropMode     =   1  'Manual
  34.          TabIndex        =   2
  35.          Text            =   "输入法选择"
  36.          Top             =   210
  37.          Width           =   1785
  38.       End
  39.       Begin VB.CommandButton Command1 
  40.          Caption         =   "指定"
  41.          Height          =   375
  42.          Left            =   2310
  43.          TabIndex        =   1
  44.          Top             =   165
  45.          Width           =   615
  46.       End
  47.    End
  48. End
  49. Attribute VB_Name = "Form3"
  50. Attribute VB_GlobalNameSpace = False
  51. Attribute VB_Creatable = False
  52. Attribute VB_PredeclaredId = True
  53. Attribute VB_Exposed = False
  54. Private Sub Combo1_Click()
  55. Dim se As Long
  56. se = Combo1.ListIndex
  57. 'ActivateKeyboardLayout hKBA(se), 0
  59. End Sub
  61. Private Sub Command1_Click()
  62. Dim se As Long
  64. se = Combo1.ListIndex
  65. If (se >= 0) Then
  66.    SetOrderIME hKBA(se)
  67. End If
  69. End Sub
  71. Private Sub Form_Load()
  73.     StartmyIME '初始化输入控制控件
  74.     i = 0
  75.     While (hKBAstr(i) <> "")
  76.        Combo1.AddItem hKBAstr(i)
  77.        i = i + 1
  78.     Wend
  80. End Sub