Val strKey As String, ByVal vData As Variant)
'''' WriteIniStr IniFileName, CurrentSection, strKey, Str(vData)
'''' End Property
''''**
''''** 获得布儿值设置
''''**
Public Property Get IniBoolean(ByVal strKey As String, Optional ByVal bolDefault As Boolean = False) As Boolean
Dim strData As String
strData = GetIniStr(CurrentSection, strKey)
On Error Resume Next
IniBoolean = CBool(strData)
If Err.Number <> 0 Then
IniBoolean = bolDefault
End If
On Error GoTo 0
End Property
'''' Public Property Let IniBooleanl(ByVal strKey As String, ByVal bolData As Boolean)
'''' WriteIniStr IniFileName, CurrentSection, strKey, IIf(bolData, "True", "False")
'''' End Property
''''******************************************************************************
''''************* 定义内部私有的过程 ***********************
''''******************************************************************************
''''** 初始化模块
Private Sub Class_Initialize()
Me.Reset
End Sub
###############################################################################
clsWindow.cls 内容
###############################################################################
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 ''''True
Persistable = 0 ''''NotPersistable
DataBindingBehavior = 0 ''''vbNone
DataSourceBehavior = 0 ''''vbNone
MTSTransactionMode = 0 ''''NotAnMTSObject
END
Attribute VB_Name = "clsWindow"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
''''******************************************************************************
''''**
''''** 窗体状态类模块
''''**
''''** 本模块用户处理窗体的大小,位置,状态.
''''**
''''** 编制 : 袁永福
''''** 时间 : 2001-12-7
''''**
''''** 该模块在配第5版补丁的VB6.0企业版/Windows98第二版的环境下调试通过
''''**
''''******************************************************************************
''''** 声明API函数及常量 **
Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) _
As Long
Private Declare Function FlashWindow Lib "user32" _
(ByVal hwnd As Long, _
ByVal bInvert As Long) _
As Long
Private Declare Function UpdateWindow Lib "user32" _
(ByVal hwnd As Long) As Long
''''Private Declare Function SendMessage& Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any)
''''Private Declare Function SendMessageBynum& Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long)
Private Const WM_CHAR = &H102
Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As String) _
As Long
''''Private Declare Function GetDC Lib "user32" (ByVal Hwnd As Long) As Long
''''Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" _
(ByVal hdc As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal lpString As String, _
ByVal nCount As Long) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
''''Private Declare Function ReleaseDC Lib "user32" _
(ByVal Hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function InvalidateRect Lib "user32" _
(ByVal hwnd As Long, _
lpRect As RECT, _
ByVal bErase As Long) _
As Long
Private Declare Function ValidateRect Lib "user32" _
(ByVal hwnd As Long, _