该文本控件基于cArea类实现(涉及部分不多,需要得可以直接从cArea里面抠出来) 该文本控件目前支持以下方法及属性 ====方法==== 初始化:Init(ByVal dwID As Long) ====属性==== 设置背景透明:Property Let BackTransparent(ByVal IsTrue As Boolean)(暂不实装) 设置背景颜色:Property Let BackColor(ByVal crSet As Long) 设置文本颜色:Property Let TextColor(ByVal crSet As Long) 设置字体大小:Property Let FontSize(ByVal dwSize As Long) 设置矩形区域:Property Let SetRect(ByRef sSet As RECT) 该文本控件 设置背景透明 未实装原因是该功能需要重写绘图逻辑,故暂未实装