Nombre: PropertyGrid 1.2
Descripción:
'###########################################################################'
' Title: PropertyGrid '
' Author: Heriberto Mantilla Santamaría '
' Company: HACKPRO TM '
' Created: 20/11/06 '
' Version: 1.02 (11 December 2006) '
' '
' Copyright © 2006 HACKPRO TM. All rights reserved '
'###########################################################################'
'---------------------------------------------------------------------------'
' PropertyGrid '
'---------------------------------------------------------------------------'
' CREDITS '
'---------------------------------------------------------------------------'
' Paul Caton '
' Steve McMahon '
' Richard Mewett '
' Paul R. Territo, Ph.D '
' Carles P.V '
' Fred.cpp '
' Jim Jose '
' Calendar (I don't found the name of PSC Contributor in the code '
' CodeId=61147, I put the name later) '
'---------------------------------------------------------------------------'
' DEDICATION '
'---------------------------------------------------------------------------'
' Dedicated to the prettiest girl that I have known XD, T.Q.M mibi '
'---------------------------------------------------------------------------'
' IMPORTANT NOTE '
'---------------------------------------------------------------------------'
' Feel free to use this UC in your App's, provided ALL credits remain '
' intact. Only dishonorable thieves download code that REAL programmers '
' work hard to write and freely share with their programming peers, then '
' remove the comments and claim that they wrote the code. '
'---------------------------------------------------------------------------'
' HISTORY '
'---------------------------------------------------------------------------'
' (*) Fixed SComboBox Control. '
' (*) Fixed (+) Treeview draw. '
' (*) Fixed DrawXPTheme Function in Win98. '
' (*) Now work keys in the CoolList with UC PropertyGrid. '
' (*) Fixed help resize. '
' (*) Fixed isButton when is pressed. '
' (*) Remove inneccesary code in SComboBox. '
' (*) Remove API's and Const's aren't used. '
' (*) Fixed the text focus. '
' (*) Fixed call events. '
' (*) Fixed Scrollbar Visible/Hide. '
' (*) Added McCalendar UC by Jim Jose. '
' (*) Edit a little McCalendar. '
' (*) Fixed little error's. '
' (*) Added simple click in (+)/(-). '
' (*) Added Redraw if the last select don't appear well. '
' (*) Now is compatibility with VB 5.0 and VB 6.0. '
'---------------------------------------------------------------------------'
' Testing only in Win98SE and WinXP SP2 '
'---------------------------------------------------------------------------'
URL: http://www.mygnet.net/codigos/vb/controles/propertygrid_1_dot_2.2587
Código Fuente:
Option Explicit
'----------------------------------------------------------------------------------------->
' Scrollbar's Steve McMahon (steve@dogma.demon.co.uk)
'----------------------------------------------------------------------------------------->
Private isXp As Boolean
Private lStyle As Long
Private m_bNoFlatScrollBars As Boolean
Private m_hWnd As Long
Private m_lSmallChange As Long
Private Value1 As Long
' Hack for XP Crash with VB6 controls:
Private m_hMod As Long
Private Declare Function CreateWindowEx Lib "user32" _
Alias "CreateWindowExA" ( _
ByVal dwExStyle As Long, _
ByVal lpClassName As String, _
ByVal lpWindowName As String, _
ByVal dwStyle As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal nWidth As Long, _
ByVal nHeight As Long, _
ByVal hWndParent As Long, _
ByVal hMenu As Long, _
ByVal hInstance As Long, _
lpParam As Any) As Long
Private Declare Function FlatSB_GetScrollInfo Lib "comctl32.dll" ( _
ByVal hWnd As Long, _
ByVal code As Long, _
LPSCROLLINFO As SCROLLINFO) As Long
Private Declare Function FlatSB_SetScrollInfo Lib "comctl32.dll" ( _
ByVal hWnd As Long, _
ByVal code As Long, _
LPSCROLLINFO As SCROLLINFO, _
ByVal fRedraw As Boolean) As Long
Private Declare Function FlatSB_SetScrollProp Lib "comctl32.dll" ( _
ByVal hWnd As Long, _
ByVal Index As Long, _
ByVal newValue As Long, _
ByVal fRedraw As Boolean) As Long
Private Declare Function FlatSB_ShowScrollBar Lib "comctl32.dll" ( _
ByVal hWnd As Long, _
ByVal code As Long, _
ByVal fRedraw As Boolean) As Long
Private Declare Function GetScrollInfo Lib "user32" ( _
ByVal hWnd As Long, _
ByVal n As Long, _
LPSCROLLINFO As SCROLLINFO) As Long
Private Declare Function InitialiseFlatSB Lib "comctl32.dll" Alias "InitializeFlatSB" (ByVal lhWnd _
As Long) As Long
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Declare Function MoveWindow Lib "user32" ( _
ByVal hWnd As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal nWidth As Long, _
ByVal nHeight As Long, _
ByVal bRepaint As Long) As Long
Private Declare Function SetScrollInfo Lib "user32" ( _
ByVal hWnd As Long, _
ByVal n As Long, _
lpcScrollInfo As SCROLLINFO, _
ByVal BOOL As Boolean) As Long
Private Declare Function ShowScrollBar Lib "user32" ( _
ByVal hWnd As Long, _
ByVal wBar As Long, _
ByVal bShow As Long) As Long
Private Declare Function UninitializeFlatSB Lib "comctl32.dll" (ByVal hWnd As Long) As Long
Descargar