vb.txt

一个关于VB读取INI文件的参考资料,希望对大家学习VB有些帮助.

vb 读取ini文件(API函数使用) - 唸 尐 憂 的 天 空 - CSDNBlog正在处理中，请稍后……   
      唸 尐 憂 的 天 空
      莪 只 是 大 海 里 面 的 一 滴 水surro

        CSDN |  技术中心 |  BLOG首页 |  我的首页 |  我的文章 |  我的空间 |  联系作者 |  搜索 |  写文章   
             23篇原创: 0篇翻译: 42篇转载: 12342次点击: 3个评论: 0个Trackbacks 


公告


我的简历
您还没有启用开放简历的功能，如果您想即刻享用，请访问CSDN人才频道
订阅博客
    










文章
  C++专区(RSS)
  VB专区(RSS)
  莪的软件(RSS)
  感情生活(RSS)
  技术杂谈(RSS)
  网游日子(RSS)
  音速软件专区(RSS)
收藏
相册
存档
  2007年09月(12)
  2007年08月(53)
最近评论
  netbtxhy：怎么看不见附件呀？
  cwhfox：您好，我下不了呀，我的QQ2855885可以加我为好友吗
  surro：因为莪自己用的就是七彩虹的9550显卡.呵呵.所以记录下


上一篇: Visual Basic10个小编程 | 下一篇: KeyCode对照表


  vb 读取ini文件(API函数使用)     
模块代码
      以下是模块片段：
       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 
       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

窗体引用
      以下是读取代码片段：
      Dim ret As Long 
      Dim buff As String 
      buff = String(255, 0) 
      ret = GetPrivateProfileString("Myapp", "text1", "text1", buff, 256, 
      "c:aa.ini") 
      ’若.ini MyApp中无text1，则采用叁数三的值 
      Text1.Text = buff 
      buff = String(255, 0) 
      ret = GetPrivateProfileString("Myapp", "text2", "text2", buff, 256, 
      "c:aa.ini") 
      Text2.Text = buff 
      buff = String(255, 0) 
      ret = GetPrivateProfileString("Myapp2", "text3", "text3", buff, 256, 
      "c:aa.ini") 
      Text3.Text = buff

      以下是写入片段：
      Dim success As Long 
      success = WritePrivateProfileString("MyApp", "text1", Text1.Text, 
      "c:aa.ini") 
      ’叁数一 Section Name 
      ’叁数二 於.ini中的项目 
      ’叁数三 项目的内容 
      ’叁数四 .ini文件的名称 
      success = WritePrivateProfileString("MyApp", "text2", Text2.Text, 
      "c:aa.ini") 
      success = WritePrivateProfileString("MyApp2", "text3", Text3.Text, 
      "c:aa.ini")

说明：读取和写入为模块中定义的两个api函数 
WritePrivateProfileString()和WritePrivateProfileString(),这两个函数有4个参数  参数1为section， 
参数2为keyword，参数2为keyword，参数2为value，参数4为filename，具体见下：
c:text.ini-------------filename
[section1] 
keyword1=valuel 
keyword2=value2 
…… 
[section2] 
keyword1=value1 
keyword2=value2 
…… 
 
 


Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1751881


[收藏到我的网摘]   [发送Trackback]  surro发表于 2007年08月20日 18:24:00 


相关文章：
  [c#]:如何在C＃中读写INI文件(一) 2004-06-14 chenyu001
  利用WINDOWS标准函数来删除INI文件内容 2002-08-23 snsins
  如何在C＃中读写INI文件 2005-01-18 freehul
  如何在C＃中读写INI文件 2004-08-06 fun1984
  利用LineDDA函数做简单动画 2004-08-01 goodname008
  更多内容...




特别推荐：想在这里投放广告？点击查看详情 
  Intel编译器基本优化选项
  想要掌握编译器使用必看的内容 函数
  如何开发智能客户端应用
  离线应用模块的合理利用 模块
  Java EE开源框架培训
  蓝点世纪外企高端Java软件工程师培训助你实现月薪 1000-6000元的飞跃！4个月积累1年的经验值 
  让架构师真正成为SOA实施领航者
  采访webMethods公司SOA市场营销部副总裁 关于SOA教育的问题，以及除了IT因素外，SOA教 
  如何安全地将Linux root特权下放
  如何改变系统 setuid root 二进制 代码将Linux root特权交给用户 
 
上一篇: Visual Basic10个小编程 | 下一篇: KeyCode对照表


评论
没有评论。 
 
发表评论 

      大名： 
      请输入尊姓大名 
      网址： 
      校验码： 检验码无效!  看不清,换一张 
      评论  
      请输入评论 
       
          
      当前用户设置只有注册用户才能发表评论。如果你没有登录，请点击登录 

Powered by: 
  
Copyright © surro