form2.frm

查询汉字区位码

VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "Form1"
   ClientHeight    =   3750
   ClientLeft      =   60
   ClientTop       =   390
   ClientWidth     =   5805
   LinkTopic       =   "Form1"
   ScaleHeight     =   3750
   ScaleWidth      =   5805
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "Command2"
      Height          =   1095
      Left            =   4440
      TabIndex        =   7
      Top             =   120
      Width           =   1335
   End
   Begin VB.ListBox lw 
      Height          =   1680
      Left            =   120
      TabIndex        =   6
      Top             =   1920
      Width           =   2175
   End
   Begin VB.ListBox lm 
      Height          =   1680
      Left            =   2400
      TabIndex        =   5
      Top             =   1920
      Width           =   2175
   End
   Begin VB.TextBox pp 
      Height          =   495
      Left            =   120
      TabIndex        =   4
      Top             =   1320
      Width           =   5535
   End
   Begin VB.TextBox tt 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   21.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   3480
      TabIndex        =   3
      Text            =   "朋"
      Top             =   240
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      Caption         =   "查码"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1215
      Left            =   4680
      TabIndex        =   2
      Top             =   1920
      Width           =   975
   End
   Begin VB.TextBox t1 
      DataField       =   "码"
      DataSource      =   "Data1"
      Height          =   495
      Index           =   1
      Left            =   120
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   720
      Width           =   3015
   End
   Begin VB.TextBox t1 
      DataField       =   "字"
      DataSource      =   "Data1"
      Height          =   495
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Text            =   "Text1"
      Top             =   120
      Width           =   3015
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "F:\bas-program\汉字区位码\汉字码表.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   480
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "汉字码表"
      Top             =   4320
      Width           =   4335
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Command1_Click()
For i = 0 To Len(pp.Text) - 1
    pp.SelStart = i
    pp.SelLength = 1
    tt = pp.SelText
Next
End Sub

Private Sub Command2_Click()

'lw  lm
Close
Open "d:\ma.txt" For Output As 2
For i = 0 To lw.ListCount - 1
    lw.ListIndex = i
    lm.ListIndex = i
    Write #2, (lw.Text & lm.Text)
Next

End Sub

Private Sub tt_Change()
Data1.RecordSource = "select * from [汉字码表] where [字] = " & "'" & tt.Text & "'"
'‘MsgBox (Data1.RecordSource)
If Data1.RecordSource <> "" Then Data1.Refresh
tt.SelStart = 0
tt.SelLength = 1
'disp.SelText = t1(1) & t1(0)
lw.AddItem t1(0)
lm.AddItem t1(1)
End Sub