| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 466 人关注过本帖
标题:关于保存OCX控件的值,麻烦路过的瞄一下
取消只看楼主 加入收藏
lvweiren
Rank: 1
等 级:新手上路
帖 子:9
专家分:5
注 册:2013-8-22
结帖率:0
收藏
已结贴  问题点数:20 回复次数:3 
关于保存OCX控件的值,麻烦路过的瞄一下
把控件的值写入INI 发现 ListIndex 的值不能被写入,适用于FORM的保存控件代码也不能在OCX里运行。

但是OCX界面里有这么一段代码是可以保存所有控件的值,但是我不知道怎么把这个ini设置成自定义路径和名字

麻烦大神看一看了。。。

'以下是OCX界面代码
Public Sub OnSave()
    ClearControlData    '固定位置,不需要进行修改
    '**************************************************************以下的内容,可以自己修改或者删除
      SaveControlData xueliang.Name, xueliang.ListIndex
    SaveControlData huicheng.Name, huicheng.ListIndex
    SaveControlData ditu.Name, ditu.ListIndex
    SaveControlData dixue.Name, dixue.ListIndex
    SaveControlData siwang.Name, siwang.ListIndex
End Sub

'以下是模块
Option Explicit
Public ControlDataCollection As New Collection

Public Sub SaveControlData(ControlName As String, ControlValue As Variant)
    If VarType(ControlValue) = vbBoolean Then
        ControlValue = CInt(ControlValue)
    End If

    Dim TempControlData As ControlData
    With TempControlData
        .Name = ControlName
        .Value = ControlValue
    End With

    ControlDataCollection.Add TempControlData, ControlName
End Sub

Public Function LoadControlData(ControlName As String) As String
    LoadControlData = ControlDataCollection(ControlName).Value
End Function

Public Sub ClearControlData()
    On Error Resume Next
    Set ControlDataCollection = Nothing
    Set ControlDataCollection = New Collection
End Sub
2013-08-22 09:29
lvweiren
Rank: 1
等 级:新手上路
帖 子:9
专家分:5
注 册:2013-8-22
收藏
得分:0 
回复 2楼 风吹过b
模块里能加 SaveControlData 的自定义路径吗?
2013-08-22 10:12
lvweiren
Rank: 1
等 级:新手上路
帖 子:9
专家分:5
注 册:2013-8-22
收藏
得分:0 
回复 4楼 风吹过b
那你能做一个吗?我可以给RMB
2013-08-22 14:14
lvweiren
Rank: 1
等 级:新手上路
帖 子:9
专家分:5
注 册:2013-8-22
收藏
得分:0 
回复 4楼 风吹过b
我查过所有代码  都没有涉及到定义ini路径  所以我好蛋疼
2013-08-22 14:16
快速回复:关于保存OCX控件的值,麻烦路过的瞄一下
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.029656 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved