form3.frm

office 2000中可以排版维吾尔文字。该程序只能在win98操作系统下正常运行

VERSION 5.00
Begin VB.Form Form3 
   BackColor       =   &H00FF8080&
   BorderStyle     =   0  'None
   Caption         =   "Form2"
   ClientHeight    =   7140
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   9525
   Icon            =   "Form3.frx":0000
   LinkTopic       =   "Form2"
   Picture         =   "Form3.frx":030A
   ScaleHeight     =   7140
   ScaleWidth      =   9525
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   3000
      Left            =   2400
      Top             =   3120
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "维文排版输入法"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080FFFF&
      Height          =   375
      Left            =   6720
      TabIndex        =   1
      Top             =   120
      Width           =   2655
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080FFFF&
      Height          =   195
      Left            =   5040
      TabIndex        =   0
      Top             =   960
      Width           =   105
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim balga As Boolean
Private Sub Form_Load()
Timer1.Enabled = True
Form3.Move ((Screen.Width - Form3.Width) / 2), ((Screen.Height - Form3.Height) / 2)
SetWindowPos hWnd, -1, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
balga = True
End Sub
Private Sub Timer1_Timer()
If balga = False Then
End
Unload Me
End
     Exit Sub
End If
If balga = True Then
balga = False
End If
End Sub