六子技术网首页

六子技术网

  • 网站首页
  • HTML/CSS
  • javascript
  • seo优化
  • PS美工
  • 系统安全
  • 漏洞预警
  • 编程学习
  • 原创专区
  • 【六子技术网】是一家综合技术门户,为您提供网站建设,编程开发,安全维护,漏洞预警等技术文章

    技术文章MAP

    文章

    VB Check信息保存到INI的方法和思路附送代码

    日期:2019/10/6 15:34:03来源分类:编程开发

    大家都知道 VB的INI是保存text文本信息很不错的,但是选择框如何保存到INI里面呢?下面给大家附送详细的讲解和代码

    不多说 代码如下==========================

    Private Sub Check2_Click()
    If Check2.Value = 1 Then
    xml.Caption = "1"
    Else
    xml.Caption = "0"
    End If
    End Sub

    ·······························一下为保存INI配置····································

    Dim write1 As Long
           write1 = WritePrivateProfileString("基本信息", "xml开关", xml.Caption, App.Path & "\rpeizhi.ini")

    ·······················································································

    Private Sub Form_Load()

    Dim read_OK As Long
        Dim read2 As String
         read2 = String(255, 0)   
    read_OK = GetPrivateProfileString("基本信息", "xml开关", "0", read2, 256, App.Path & "\rpeizhi.ini")
       xml.Caption = read2
       If xml.Caption = "1" Then
       Check2.Value = 1
       Else
       Check2.Value = 0
       End If
      
    End Sub

    注意需要建立以个 xml.caption 来存储 Check的value 值  通过这个值来判断和操作

    如果连VB读写INI都不会的 请看 http://www.liuzi.net/bc/html/3867.html 这篇文章

    本文由六子技术网小编:屌爆侠编辑整理 - 转载请注明来源 - http://www.liuzi.net/bc/html/3872.html

    随机推荐

    • 该分类还没有添加任何内容!
    • 该分类还没有添加任何内容!

    Copyright 2005-2019 【六子技术网】 版权所有 黑ICP备16886888号

    声明:本站所有文章来自互联网 如有异议 请联系本站管理员