【叶帆开源区】－ YFEdit（仿金山词霸数据显示区）控件（示例源码）

博客专家认证

业界专家认证

2004-10-06 12:30:08

金山词霸的界面想必大家都很熟悉，它的数据显示区就很有特色。我的api浏览器和叶帆成语词典就是仿它的界面。现在我把这部分整理成控件，大家可以一起共享！
谢谢大家测试，谢谢大家支持

【演示界面】--------------------------------
http://www.bjjr.com.cn/yefan/pic/yfedit.jpg

【源码下载】--------------------------------
http://blog.csdn.net/yefanqiu/
【叶帆源码】－>YFEdit(仿金山词霸）控件

【部分源码摘要】--------------------------------
'*************************************************************************
'**模块名：frmTest
'**说明：叶帆软件工作室（YFSoft）版权所有2004 - 2005(C)
'**创建人：叶帆
'**日期：2004-10-05 23:27:28
'**修改人：
'**日期：
'**描述：YFSoft控件使用演示
'**版本：V1.0.0
'*************************************************************************
Option Explicit
Dim strTitle() As String '标题
Dim strData() As String '内容
Dim lngColor() As Long '字体颜色

'*************************************************************************
'**函数名：chkEdit_Click
'**输入：无
'**输出：无
'**功能描述：编辑设置
'**全局变量：
'**调用模块：
'**作者：叶帆
'**日期：2004-10-05 23:31:36
'**修改人：
'**日期：
'**版本：V1.0.0
'*************************************************************************
Private Sub chkEdit_Click()
If chkEdit.Value = 0 Then
YFEdit1.EditFlag = False
Else
YFEdit1.EditFlag = True
End If
End Sub

'*************************************************************************
'**函数名：cmdAdd_Click
'**输入：无
'**输出：无
'**功能描述：数据添加
'**全局变量：
'**调用模块：
'**作者：叶帆
'**日期：2004-10-05 23:27:48
'**修改人：
'**日期：
'**版本：V1.0.0
'*************************************************************************
Private Sub cmdAdd_Click()
ReDim strTitle(4) As String
ReDim strData(4) As String
ReDim lngColor(4) As Long

strTitle(0) = "控件说明"
strTitle(1) = "属性"
strTitle(2) = "方法"
strTitle(3) = "事件"
strTitle(4) = "联系方式"

strData(0) = "YFEdit是一款仿金山词霸数据显示区的控件。可添加的数据条目数最大为32个。该控件免费发放，欢迎大家使用。"

strData(1) = "<EditFlag>" + vbCrLf
strData(1) = strData(1) + "编辑开关：True 可编辑，False 只读。"

strData(2) = "<SetData>－设置数据" + vbCrLf
strData(2) = strData(2) + "intNum(Integer) - 输入的数据个数" + vbCrLf
strData(2) = strData(2) + "strTitle()(String) - 输入的数据标题" + vbCrLf
strData(2) = strData(2) + "strData()(String) - 输入的数据内容" + vbCrLf
strData(2) = strData(2) + "TitleFontColor(Variant) - 标题的颜色" + vbCrLf
strData(2) = strData(2) + "DataFontSize(Variant) - 数据字体的大小" + vbCrLf
strData(2) = strData(2) + "TitleFontSize(Variant) - 标题字体的大小" + vbCrLf

strData(2) = strData(2) + "<GetData>－获取指定数据" + vbCrLf
strData(2) = strData(2) + "lngNo(Long = -1) - 数据索引号，默认值－1 表示全部" + vbCrLf
strData(2) = strData(2) + "bTitleFlag(Boolean = False) - 返回数据是否包含标题内容"

strData(3) = "<DataWord>－返回光标处的文本" + vbCrLf
strData(3) = strData(3) + "index - 数据索引号" + vbCrLf
strData(3) = strData(3) + "Shift - 鼠标按键 1 鼠标左键 2 鼠标右键" + vbCrLf
strData(3) = strData(3) + "StrWord - 单词内容"

strData(4) = "YFSoft －叶帆软件工作室" + vbCrLf
strData(4) = strData(4) + "Email:yefan@vip.sina.com"

lngColor(1) = RGB(0, 150, 0)
lngColor(2) = RGB(0, 0, 200)
lngColor(3) = RGB(200, 0, 0)

YFEdit1.SetData 5, strTitle, strData, lngColor

End Sub

'*************************************************************************
'**函数名：cmdGetData_Click
'**输入：无
'**输出：无
'**功能描述：获取数据
'**全局变量：
'**调用模块：
'**作者：叶帆
'**日期：2004-10-05 23:32:45
'**修改人：
'**日期：
'**版本：V1.0.0
'*************************************************************************
Private Sub cmdGetData_Click()
If chkTitle.Value = 0 Then
txtData = YFEdit1.GetData(cmbGetData.ListIndex - 1, False)
Else
txtData = YFEdit1.GetData(cmbGetData.ListIndex - 1, True)
End If
End Sub

－－－－－－－－－－－－－－－－－－－－－－－－－－
如果哪位朋友对控件源码感兴趣，有两个办法可以获取控件源码
1、提供优秀的源码彼此切磋。
2、注册VB源码之友的正式用户。

－－－－－－－－－－－－－－－－－－－－－－－－－－
【叶帆开源区】链接

1、XP界面窗体制作（可放缩、可缩小到托盘）
http://community.csdn.net/Expert/topic/3387/3387552.xml?temp=.416424
2、VB源码之友
http://community.csdn.net/Expert/topic/3365/3365079.xml?temp=7.926577E-02
3、定制公用对话框（如photoshop的文件打开对话框）
http://community.csdn.net/Expert/topic/3380/3380429.xml?temp=.3048517
4、MSComm串口通信示例
http://community.csdn.net/Expert/topic/3387/3387736.xml?temp=.2366754
5、任意透明窗体－－运用API实现特异窗体
http://community.csdn.net/Expert/topic/3389/3389796.xml?temp=.8869898
6、鼠标滚轮控件
http://community.csdn.net/Expert/topic/3408/3408708.xml?temp=.9069178

...全文