frmdemo.frm

GB码与BIG5码的相互转换(200KB).zip

VERSION 5.00
Begin VB.Form frmDemo 
   Caption         =   "BIG <=> GB DEMO"
   ClientHeight    =   4320
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6345
   LinkTopic       =   "Form1"
   ScaleHeight     =   4320
   ScaleWidth      =   6345
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture1 
      Align           =   2  'Align Bottom
      BorderStyle     =   0  'None
      Height          =   690
      Left            =   0
      ScaleHeight     =   690
      ScaleWidth      =   6345
      TabIndex        =   3
      Top             =   3630
      Width           =   6345
      Begin VB.CommandButton Command3 
         Caption         =   "INS"
         Height          =   495
         Left            =   3100
         TabIndex        =   4
         Top             =   120
         Width           =   1215
      End
      Begin VB.CommandButton Command1 
         Caption         =   "GB2BIG"
         Height          =   495
         Left            =   300
         TabIndex        =   1
         Top             =   120
         Width           =   1215
      End
      Begin VB.CommandButton Command2 
         Caption         =   "BIG2GB"
         Height          =   495
         Left            =   1700
         TabIndex        =   2
         Top             =   120
         Width           =   1215
      End
   End
   Begin VB.TextBox Text1 
      Height          =   3405
      Left            =   60
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Text            =   "frmDemo.frx":0000
      Top             =   60
      Width           =   6195
   End
End
Attribute VB_Name = "frmDemo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
    Text1.Text = GB2BIG(Text1.Text)
End Sub

Private Sub Command2_Click()
    Text1.Text = BIG2GB(Text1.Text)
End Sub

Private Sub Command3_Click()
    MsgBox IIf(CheckBIG(Text1.Text), "BIG5", "GB"), , "内码"
End Sub

Private Sub Form_Load()
    Call InitDATA
End Sub

Private Sub Form_Resize()
If Me.WindowState <> 1 Then _
    Text1.Move 30, 30, Me.ScaleWidth - 60, Me.ScaleHeight - 60 - Picture1.ScaleHeight
End Sub