hhanzitopinyin.ctl

汉字转拼音控件 输入一个汉字,可得到相应的拼音 用于资料检索

VERSION 5.00
Begin VB.UserControl HHanZiToPinYin 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00FF0000&
   ClientHeight    =   480
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   480
   ScaleHeight     =   480
   ScaleWidth      =   480
   Begin VB.Image Image1 
      Height          =   480
      Left            =   30
      Top             =   0
      Visible         =   0   'False
      Width           =   480
   End
End
Attribute VB_Name = "HHanZiToPinYin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True


Private Sub UserControl_Initialize()
    UserControl.Width = Image1.Width
    UserControl.Height = Image1.Height
    UserControl.PaintPicture Image1.Picture, 0, 0, UserControl.Width, UserControl.Height, 0, 0, Image1.Width, Image1.Height
End Sub


Public Function Xpic(Index As Integer) As Picture
    If Index = 0 Then Exit Function
    Set Xpic = LoadResPicture(100 + Index, 0)
End Function

Private Sub UserControl_Resize()
    UserControl.Width = Image1.Width
    UserControl.Height = Image1.Height
End Sub