?? frmmain.frm
字號(hào):
VERSION 5.00
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "I/O 輸出庫文件"
ClientHeight = 1290
ClientLeft = 45
ClientTop = 330
ClientWidth = 5190
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 1290
ScaleWidth = 5190
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton cmdCreate
Caption = "&Create"
Default = -1 'True
Height = 350
Left = 1935
TabIndex = 0
Top = 795
Width = 1245
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "單擊 Create 按鈕生成漢字轉(zhuǎn)聲母的庫文件 GB2312SM.Lib 。"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 180
Left = 165
TabIndex = 1
Top = 203
Width = 4860
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdCreate_Click()
Dim lngH&, lngASCII&
Dim strL$, strU$
Dim lngL&, lngU&
Dim strTmp$, tmpOne$
Dim FileNum&
Screen.MousePointer = vbHourglass
Me.Enabled = False
On Error GoTo ErrWrite:
FileNum& = FreeFile
Open App.Path & "\GB2312SM.Lib" For Output As #FileNum
For lngH& = &H81 To &HFE
strL$ = "&H" & Hex(lngH&) & "40"
strU$ = "&H" & Hex(lngH&) & "FE"
lngL& = Val(strL$) + &H10000
lngU& = Val(strU$) + &H10000
' 生成聲母列表
strTmp$ = ""
For lngASCII& = lngL& To lngU&
tmpOne$ = ReturnSM$(lngASCII& - &H10000)
strTmp$ = strTmp$ & tmpOne$
Next lngASCII&
Print #FileNum, strTmp$
Next lngH&
Close #FileNum
MsgBox "寫文件 GB2313SM.Lib 成功!", vbInformation
Me.Enabled = True
Screen.MousePointer = vbDefault
Exit Sub
ErrWrite:
Err.Clear
Close #FileNum
MsgBox "寫文件 GB2313SM.Lib 失敗!", vbInformation
Me.Enabled = True
Screen.MousePointer = vbDefault
End Sub
Private Function ReturnSM$(ByVal lngASCII&)
Select Case lngASCII&
Case &HB0A1 To &HB0C4
ReturnSM$ = "A"
Case &HB0C5 To &HB0FE, &HB1A1 To &HB1FE, _
&HB2A1 To &HB2C0
ReturnSM$ = "B"
Case &HB2C1 To &HB2FE, &HB3A1 To &HB3FE, _
&HB4A1 To &HB4ED
ReturnSM$ = "C"
Case &HB4EE To &HB4FE, &HB5A1 To &HB5FE, _
&HB6A1 To &HB6E9
ReturnSM$ = "D"
Case &HB6EA To &HB6FE, &HB7A1
ReturnSM$ = "E"
Case &HB7A2 To &HB7FE, &HB8A1 To &HB8C0
ReturnSM$ = "F"
Case &HB8C1 To &HB8FE, &HB9A1 To &HB9FD
ReturnSM$ = "G"
Case &HB9FE, &HBAA1 To &HBAFE, &HBBA1 To &HBBF6
ReturnSM$ = "H"
Case &HBBF7 To &HBBFE, &HBCA1 To &HBCFE, _
&HBDA1 To &HBDFE, &HBEA1 To &HBEFE, _
&HBFA1 To &HBFA5
ReturnSM$ = "J"
Case &HBFA6 To &HBFFE, &HC0A1 To &HC0AB
ReturnSM$ = "K"
Case &HC0AC To &HC0FE, &HC1A1 To &HC1FE, _
&HC2A1 To &HC2E7
ReturnSM$ = "L"
Case &HC2E8 To &HC2FE, &HC3A1 To &HC3FE, _
&HC4A1 To &HC4C2
ReturnSM$ = "M"
Case &HC4C3 To &HC4FE, &HC5A1 To &HC5B5
ReturnSM$ = "N"
Case &HC5B6 To &HC5BD
ReturnSM$ = "O"
Case &HC5BE To &HC5FE, &HC6A1 To &HC6D9
ReturnSM$ = "P"
Case &HC6DA To &HC6FE, &HC7A1 To &HC7FE, _
&HC8A1 To &HC8BA
ReturnSM$ = "Q"
Case &HC8BB To &HC8F5
ReturnSM$ = "R"
Case &HC8F6 To &HC8FE, &HC9A1 To &HC9FE, _
&HCAA1 To &HCAFE, &HCBA1 To &HCBF9
ReturnSM$ = "S"
Case &HCBFA To &HCBFE, &HCCA1 To &HCCFE, _
&HCDA1 To &HCDD9
ReturnSM$ = "T"
Case &HCDDA To &HCDFE, &HCEA1 To &HCEF3
ReturnSM$ = "W"
Case &HCEF4 To &HCEFE, &HCFA1 To &HCFFE, _
&HD0A1 To &HD0FE, &HD1A1 To &HD1B8
ReturnSM$ = "X"
Case &HD1B9 To &HD1FE, &HD2A1 To &HD2FE, _
&HD3A1 To &HD3FE, &HD4A1 To &HD4D0
ReturnSM$ = "Y"
Case &HD4D1 To &HD4FE, &HD5A1 To &HD5FE, _
&HD6A1 To &HD6FE, &HD7A1 To &HD7F9
ReturnSM$ = "Z"
Case Else
ReturnSM$ = Chr(lngASCII&)
End Select
End Function
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -