六子技术网首页

六子技术网

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

    技术文章MAP

    文章

    完整的VB读写INI源码 带注释

    日期:2019/10/3 0:16:55来源分类:编程开发

     我们用VB开发程序的时候 有时候需要选择程序的一些功能进行操作,但是这些功能有些是每次都要选择填写的,这个时候我们就需要让程序自动保存他的配置,那么我们就用到了 ini文件  VB 可以将一些信息数据保存到ini文件里面,以后每次打开的时候回先从INI里面读取配置,这样用户就不用每次都做选择了

    代码如下====================

    Option Explicit
    Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
    Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

    ~~~~~~~~~~~~~~~~~~~以上是声明API~~~~~~~~~~~~ 

    Dim write1 As Long   '写入数据

    write1 = WritePrivateProfileString("全部文章内容", "数量", Text1.Text, App.Path & "\set1.ini")

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Dim read_OK As Long   '读取数据
        Dim read2 As String
          read2 = String(255, 0)
               read_OK = GetPrivateProfileString("全部文章内容", "数量", "0", read2, 256, App.Path & "\set1.ini")
       Text1.Text = read2

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

    随机推荐

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

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

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