| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 723 人关注过本帖
标题:麻烦各位高手给做个注释
只看楼主 加入收藏
xxaxx
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2007-2-8
收藏
 问题点数:0 回复次数:2 
麻烦各位高手给做个注释
程序代码:
 
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString 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 lplFileName As String) As Long

 

 
Private r As Long
Private entry As String
Private iniPath As String

 

 
Function GetFromINI(AppName As String, KeyName As String, FileName As String) As String
   Dim RetStr As String
   RetStr = String(255, Chr(0))
   GetFromINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), FileName))
End Function


这是一部分代码..全部在 附件里面,如果怕有毒的话就别下了. 就直接把上面的给加下注释好么??? 我是新人

对了还有一个问提

entry$ = Text1.Text  
iniPath$
这是什么意思 为什么要加$符号啊????  谢谢各位了

INI范例(4KB).ZIP (3.68 KB)
搜索更多相关主题的帖子: 注释 麻烦 
2007-12-01 16:08
xxaxx
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2007-2-8
收藏
得分:0 
我也希望找个 师傅 如果有人愿意.直接发论坛短消息 给我你的联系QQ吧
2007-12-01 16:10
wangtuan7788
Rank: 1
等 级:新手上路
帖 子:286
专家分:0
注 册:2007-10-8
收藏
得分:0 
上面那部分都是win  API声明,具体的你查下API操作手册,论坛里有,你找找吧

你笑我和你们不一样,我笑你们大家都一样~
2007-12-02 17:45
快速回复:麻烦各位高手给做个注释
数据加载中...
 
   



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

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