incareamodifier.cls

漂亮的VB版本的界面,界面可以进行扩展并且所需要的代码又非常的少。是一个优秀的原码你可以下载学习之用。

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "INCAreaModifier"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
' ==================================================================================================
' 源程序由 http://vbaccelerator.com 提供(并有DLL库文件)。但由于有一些BUG，导致程序无法正常运行。
'
' 所以，我(天生三排牙，Mail：[e-mail])将它重新整理了一下，并写成了新的DLL库。
'
' 但是，BUG在所难免，所以，请使用的各位小虾、大侠们多提提意见，我也会在有空的时候再修改这个程序的。
'
' 当然，源程序以及DLL库都是免费的，你可以在任何地方使用。但请适当保留原作者信息，以示对原作者的尊重。
'
' 如果你对该程序进行了修改，增加了新的功能，希望能Mail一份给我，让我也分享你的喜悦。谢谢！
' ==================================================================================================

Option Explicit
'===================================================
'
'===================================================
Public Property Get hwnd() As Long

End Property
'===================================================
'
'===================================================
Public Sub GetTopMarginHeight(cy As Long)

End Sub
'===================================================
'
'===================================================
Public Sub GetLeftMarginWidth(cx As Long)

End Sub
'===================================================
'
'===================================================
Public Sub GetRightMarginWidth(cx As Long)

End Sub
'===================================================
'
'===================================================
Public Sub GetBottomMarginHeight(cy As Long)

End Sub
'===================================================
'
'===================================================
Public Sub NCPaint(ByVal hdc As Long, ByVal lLeft As Long, ByVal lTop As Long, ByVal lRight As Long, ByVal lBottom As Long)

End Sub
'===================================================
'
'===================================================
Public Sub HitTest(ByVal x As Long, ByVal y As Long, ByRef eHitTest As ECNCHitTestConstants)

End Sub
'===================================================
'
'===================================================
Public Sub NCMouseDown(ByVal x As Long, ByVal y As Long, ByRef bHandled As Boolean, ByVal hdc As Long, ByVal lLeft As Long, ByVal lTop As Long, ByVal lRight As Long, ByVal lBottom As Long)

End Sub
'===================================================
'
'===================================================
Public Sub NCMouseUp(ByVal x As Long, ByVal y As Long, ByVal hdc As Long, ByVal lLeft As Long, ByVal lTop As Long, ByVal lRight As Long, ByVal lBottom As Long)

End Sub
'===================================================
'
'===================================================
Public Sub InitMenuPopup(ByVal wParam As Long, ByVal lParam As Long)

End Sub
'===================================================
'
'===================================================
Public Sub ExitMenuLoop()

End Sub
'===================================================
'
'===================================================
Public Function AltKeyAccelerator(ByVal vKey As KeyCodeConstants) As Long

End Function