ctlframe.ctl

这是一个完美版本的的超强文件编辑器,支持各种程序的语法高亮,支持插件和宏录制,支持XP菜单,支持浏览器浏览等等功能,记得有位网友做文件编辑器要求我给他一个支持语法高亮和DockWindows技术的代码

VERSION 5.00
Begin VB.UserControl ctlFrame 
   ClientHeight    =   1695
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   3900
   ControlContainer=   -1  'True
   ScaleHeight     =   1695
   ScaleWidth      =   3900
   Begin VB.Line LineLeft 
      BorderColor     =   &H00FFFFFF&
      X1              =   0
      X2              =   0
      Y1              =   0
      Y2              =   375
   End
   Begin VB.Line LineTop 
      BorderColor     =   &H00FFFFFF&
      X1              =   0
      X2              =   2505
      Y1              =   0
      Y2              =   0
   End
   Begin VB.Line LineBottom 
      BorderColor     =   &H80000010&
      X1              =   0
      X2              =   2505
      Y1              =   0
      Y2              =   0
   End
   Begin VB.Line LineRight 
      BorderColor     =   &H80000010&
      X1              =   2520
      X2              =   2520
      Y1              =   0
      Y2              =   420
   End
End
Attribute VB_Name = "ctlFrame"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：05/06/19
'描  述：完整版本的超强文件编辑器
'网  站：http://www.mndsoft.com/
'e-mail：[e-mail]
'OICQ  : 88382850
'****************************************************************************
Option Explicit
Public Event Resize()
Private Sub UserControl_Resize()
    LineLeft.Y2 = UserControl.ScaleHeight
    LineTop.X2 = UserControl.ScaleWidth - 15
    LineRight.Y2 = UserControl.ScaleHeight
    LineRight.X1 = UserControl.ScaleWidth - 15
    LineRight.X2 = UserControl.ScaleWidth - 15
    LineBottom.X2 = UserControl.ScaleWidth
    LineBottom.Y2 = UserControl.ScaleHeight - 15
    LineBottom.Y1 = UserControl.ScaleHeight - 15
    RaiseEvent Resize
End Sub