frmmsg.frm

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

VERSION 5.00
Begin VB.Form frmmsg 
   AutoRedraw      =   -1  'True
   BorderStyle     =   0  'None
   Caption         =   "提示"
   ClientHeight    =   1950
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   3495
   Icon            =   "frmmsg.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   130
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   233
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin 工程1.xp_canvas xp_canvas1 
      Height          =   1935
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   3495
      _ExtentX        =   6165
      _ExtentY        =   3413
      Caption         =   "提示"
      Begin 工程1.xpcmdbutton cmdexit 
         Height          =   375
         Left            =   1080
         TabIndex        =   2
         Top             =   1440
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   661
         Caption         =   "确定"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "软件拒绝你的使用，请提供商联系！"
         ForeColor       =   &H00FF0000&
         Height          =   180
         Index           =   0
         Left            =   480
         TabIndex        =   3
         Top             =   1080
         Width           =   2880
      End
   End
   Begin VB.PictureBox xptopbuttons1 
      Height          =   315
      Left            =   4440
      ScaleHeight     =   255
      ScaleWidth      =   255
      TabIndex        =   0
      Top             =   3840
      Width           =   315
   End
End
Attribute VB_Name = "frmmsg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub cmdexit_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    xp_canvas1.Height = Me.ScaleHeight
    xp_canvas1.Width = Me.ScaleWidth
    cmdexit.State = Default_
    Beep
    xp_canvas1.make_trans Me
    xptopbuttons1.Top = 120
    Label1(0).Caption = msg_txt
End Sub

Private Sub Form_Unload(Cancel As Integer)
'    frmmain.xp_canvas1.SetFocus
End Sub

Private Sub Timer1_Timer()
    On Error Resume Next
    Me.SetFocus
End Sub