编辑框

开发平台：
Visual Basic

frmIcoPictures.frm：源码内容
							VERSION 5.00
Begin VB.Form frmIcoPictures 
   Appearance      =   0  'Flat
   BackColor       =   &H00FFE0E0&
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   1935
   ClientLeft      =   4725
   ClientTop       =   4035
   ClientWidth     =   5430
   ControlBox      =   0   'False
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   129
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   362
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   1905
      Left            =   0
      ScaleHeight     =   127
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   357
      TabIndex        =   0
      Top             =   0
      Width           =   5355
      Begin VB.PictureBox Picture2 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         ForeColor       =   &H80000008&
         Height          =   255
         Left            =   120
         ScaleHeight     =   15
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   55
         TabIndex        =   1
         Top             =   240
         Visible         =   0   'False
         Width           =   855
         Begin VB.Label Label2 
            AutoSize        =   -1  'True
            BackColor       =   &H00C0FFFF&
            Caption         =   "Label2"
            Height          =   180
            Left            =   15
            TabIndex        =   2
            Top             =   30
            Width           =   540
         End
      End
      Begin 工程1.HoverControl btnFace 
         Height          =   375
         Index           =   0
         Left            =   0
         TabIndex        =   3
         Top             =   0
         Width           =   375
         _ExtentX        =   661
         _ExtentY        =   661
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Caption         =   ""
      End
      Begin VB.Image imgTemp 
         Height          =   405
         Left            =   2700
         Stretch         =   -1  'True
         Top             =   90
         Width           =   435
      End
   End
End
Attribute VB_Name = "frmIcoPictures"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 '''''''''''''''''''''''''''''''''''''''''''
'版权所有
'深圳纵横网络服务有限公司  2004年10月
'
'honjan@126.com
'honjan@tom.com
'请不要删除此版权版权信息
'不得用于未经授权用途
'''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''
'PRTX 通讯开发组件   www.webp2p.com
'
'深圳市纵横网络服务有限公司  2006 年 8 月
'本文件演示文字输入，表情输入和显示，以及截屏功能
'使用前，请注册peocx.ocx  webr.ocx  screencap.ocx
'如果没有请联系 www.webp2p.com
'
'    *******    *******    **********  **       **
'    ********   ********   **********   **     **
'    **    **   **    **       **        **   **
'    **   **    **   **        **         ** **
'    ** **      **  **         **          ***
'    ***        ****           **          ***
'    **         ** **          **         ** **
'    **         **  **         **        **   **
'    **         **   **        **       **     **
'    **         **    **       **      **       **
'本三个控件可以在您的软件中使用，
'本公司开发和销售成套 PRTX 网络通讯开发包，'PRTX 适合任何互联网通讯
'包括文字，P2P内存传输组件，P2P语音，P2P视频，P2P文件传输，P2P远程协助，P2P电子白板开发套件，使用P2P传输，高性能服务器，分布式解决方案
'
Option Explicit
Dim m_nPage As Integer   '第几页
Dim m_nPicType As Integer  '是否是预先安装的表情，不需要发文件过去。
Public m_frm As Form1
Private m_sFace() As String
Const g_lanSmileyStr = "微笑,大笑,眨眼,正在思考...,惊讶,吐舌笑脸,困惑,哭泣,转动眼睛,尴尬,难过,得意,失望,困了,傲慢,保密,咬牙切齿,书呆子,讽刺,悄悄话,生病,生气,可爱,聚会笑脸,飞机,手机,信,生日蛋糕,咖啡,酒杯,礼物,破碎的心,红心,红唇,啤酒,时钟,女孩,男孩,左侧拥抱,右侧拥抱,弯月,强,差,凋谢的花,玫瑰"
  
Private Sub btnFace_Click(Index As Integer)
  
    frmIcoPictures.Hide
   'frmIcoPictures.Move 0
   
   m_frm.InsertPics Index, m_nPage, m_nPicType
   m_frm.P2PEdit.SetFocus
'  Dim ind As Integer
'  ind = m_nPage * 100 + index
'  Dim strP As String
'  strP = App.Path & "smiley" & m_nPage & "" & index & ".gif"
'  frmTalkTo.P2PEdit.InsertPic strP, ind, "", m_nPicType
 ' Debug.Print "插入图" & strP & "index: "; ind & "m_nPicType: " & m_nPicType
  
End Sub
Private Sub btnFace_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
If Picture2.Visible = False Then Picture2.Visible = True
Label2.Caption = m_sFace(Index)
Picture2.Width = Label2.Width + 4
If Index < 36 Then
    Picture2.Move btnFace(Index).Left, btnFace(Index).Top + btnFace(Index).Height + 10
Else
    Picture2.Move btnFace(Index).Left, btnFace(Index).Top - Picture2.Height - 2
End If
End Sub
Private Sub Form_Deactivate()
    'Me.Visible = False
   
    frmIcoPictures.Hide
    Picture2.Visible = False
   ' frmIcoPictures.Move 0
   ' picImgTxt.Visible = False
   ' picImgTxt.Left = 238
End Sub
Private Sub Form_Load()
 'me.icon = nothing
    m_nPage = 1
    m_nPicType = 1
    
 m_sFace = Split(g_lanSmileyStr, ",")
 Picture2.Visible = False
   ' picImgTxt.Visible = False
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  On Error Resume Next
     Dim i As Integer
    For i = 1 To (SMILEY_ROWS + 1) * (SMILEY_COLS) - 1
        Set frmIcoPictures.btnFace(i).Image = Nothing
         Unload frmIcoPictures.btnFace(i)
        ' Debug.Print I & "放了"
       ' Set btnFace(i) = Nothing
     Next i
End Sub

						