我的精品类模块！

button

很好，值得学习借鉴。

!!!橄榄树

OK

welcpa

以下是引用张振林在2005-4-2 5:28:00的发言：

请给一个应用的实例。

setting基本实例1

[此贴子已经被作者于2005-4-3 16:26:26编辑过]

bbmouse

不错哦，正在学习中

magiclifes

真的要好好研究研究！多谢

welcpa

感谢大家支持，希望各位高手把研究体会和应用实例一起共享，众人拾材火焰高！

shuiyuan

以下是引用welcpa在2005-4-2 23:40:00的发言： 感谢大家支持，希望各位高手把研究体会和应用实例一起共享，众人拾材火焰高！

我也刚开始看这个，您的作品就是我的学习材料。

谢谢

welcpa

以下是引用shuiyuan在2005-4-3 5:11:00的发言：

部分使用详解1

HTTP://club.excelhome.net/viewth ... extra=&page=1#90152

好东东，收藏。

建议：最好是放到一个文件中

响应shuiyuan兄建议，应用参考转回，下面是一些test例子：请在模块插入

*****test2**********************

Sub test2() '打开立即窗口，按F5查看 Dim oSettings As Settings Dim oSetting As Setting Dim nIndex As Integer Set oSettings = New Settings Set oSetting = oSettings.Item("部门") '把 Item("部门") 替换成 Item(8) ，再试试 Debug.Print oSetting.Value Set oSetting = Nothing Set oSettings = Nothing End Sub

*****test3*************************************

Sub LOOKAllSettings() '打开立即窗口和sheet3 Dim oSettings As Settings Dim oSetting As Setting Dim nIndex As Integer Set oSettings = New Settings Sheet3.Select For nIndex = 1 To oSettings.Count Set oSetting = oSettings.Item(nIndex) Debug.Print oSetting.Name & " = " & oSetting.Value Sheet3.Cells(nIndex, 1) = oSetting.Value Next Set oSetting = Nothing Set oSettings = Nothing End Sub

*************************

或许你在对象浏览器中，搜索"Setting"关键字，在“类”中，查看(粗体的)setSettingType，Setting，Settings的"成员"，点击成员，便于你更深入的理解，这个自定的“Setting类”。

发现和内置对象有什么，不同了吗？

[此贴子已经被作者于2005-4-3 16:31:34编辑过]

welcpa

********test4*********************

Sub BadLookAllSettings() Dim oSettings As Settings Dim oSetting As Setting Dim nIndex As Integer Dim ws As Worksheet Set oSettings = New Settings For Each oSetting In oSettings 'error'438 Set oSetting = oSettings.Item(nIndex) Debug.Print oSetting.Name & " = " & oSetting.Value Next Set oSetting = Nothing Set oSettings = Nothing End Sub

****************************

看到和test3的区别了吗？

原因是我们定义的对象实际上不是EXCEL中真正的对象，只是对真正对象的引用或者说是"假"对象，真正的对象是支持上述用法的！

[此贴子已经被作者于2005-4-3 14:48:08编辑过]

welcpa

******test5************************

'第1次按F5一次，

'第2次,打开本地窗口,再一直按着F8一次直到出现 'hello'消息框， '观察本地窗口！和工作表Sheet("Settings")

Sub DemonSettings() Dim oSettings As Settings Dim oSetting As Setting Set oSettings = New Settings Set oSetting = oSettings.Add("Test New Setting") With oSetting .ChangeEditMode True .Description = "This is a test setting." .Value = "Testing" .EventHandler = "SayHello" End With oSetting.Value = "Show me the event handler" oSetting.Delete Set oSetting = Nothing Set oSettings = Nothing End Sub

Sub SayHello() MsgBox "Hello " & Application.UserName End Sub

*****************************

setting对象的基本用法