魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~4读写ini文件
2024-06-30 11:00:37
魔塔之拯救白娘子 完整工程下载地址：
读写ini.bas 用来读写ini文件
Option Explicit '读写INI声明Dim TempBol
Public iniFileName As String
Public Declare Function GetPrivateProfileInt Lib "Kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Public 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
Public Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As LongPublic Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
'-----------------------判断文件与文件夹是否存在函数
Public Function FiFoExists(ByVal FileName As String) As BooleanIf FileName <> "" Then FiFoExists = CBool(PathFileExists(FileName))
End Function
'-----------------------判断文件是否存在函数
Public Function FileExists(ByVal FileName As String) As BooleanDim TempBol As BooleanIf FileName <> "" Then TempBol = CBool(PathFileExists(FileName))If TempBol Then FileExists = Not FolderOrFile(FileName)
End Function
'-----------------------判断文件夹是否存在函数
Public Function FolderExists(ByVal FileName As String) As Boolean
If FileName <> "" Then TempBol = CBool(PathFileExists(FileName))
If TempBol Then FolderExists = FolderOrFile(FileName)
End Function
'-----------------------判断一个路径是文件夹还是文件
Public Function FolderOrFile(strPath As String) As BooleanIf GetAttr(strPath) And vbDirectory Then FolderOrFile = True Else FolderOrFile = False
End Function'****************************************获取Ini字符串值(Function)******************************************
Function GetIniS(ByVal SectionName As String, ByVal KeyWord As String, ByVal DefString As String) As StringDim ResultString As String * 144, Temp As IntegerDim s As String, i As IntegerTemp% = GetPrivateProfileString(SectionName, KeyWord, "", ResultString, 144, AppProFileName(iniFileName))'检索关键词的值If Temp% > 0 Then '关键词的值不为空s = ""For i = 1 To 144If Asc(Mid$(ResultString, i, 1)) = 0 ThenExit ForElses = s & Mid$(ResultString, i, 1)End IfNextElseTemp% = WritePrivateProfileString(SectionName, KeyWord, DefString, AppProFileName(iniFileName))'将缺省值写入INI文件s = DefStringEnd IfGetIniS = s
End Function'**************************************获取Ini数值(Function)***************************************************
Function GetIniN(ByVal SectionName As String, ByVal KeyWord As String, ByVal DefValue As Long) As LongDim d As Long, s As Stringd = DefValueGetIniN = GetPrivateProfileInt(SectionName, KeyWord, DefValue, AppProFileName(iniFileName))If d <> DefValue Thens = "" & dd = WritePrivateProfileString(SectionName, KeyWord, s, AppProFileName(iniFileName))End If
End Function'***************************************写入字符串值(Sub)**************************************************
Sub SetIniS(ByVal SectionName As String, ByVal KeyWord As String, ByVal ValStr As String)
Dim res%
res% = WritePrivateProfileString(SectionName, KeyWord, ValStr, AppProFileName(iniFileName))
End Sub
'****************************************写入数值(Sub)******************************************************
Sub SetIniN(ByVal SectionName As String, ByVal KeyWord As String, ByVal ValInt As Long)Dim res%, s$s$ = Str$(ValInt)res% = WritePrivateProfileString(SectionName, KeyWord, s$, AppProFileName(iniFileName))
End Sub'这是我自已不知道怎样清除一个键(keyword) 时
'写的一个清除字符串值的过程，是有write函数写入一个空的值实现的，'Sub DelIniS(ByVal SectionName As String, ByVal KeyWord As String)
'Dim retval As Integer
'retval = WritePrivateProfileString(SectionName, KeyWord, "", AppProFileName(iniFileName))
'End Sub
'其实0&表示前面的一个被清除，我多写了一个“”，如果是清除section就少写一个Key多一个“”。'***************************************清除KeyWord"键"(Sub)*************************************************
Sub DelIniKey(ByVal SectionName As String, ByVal KeyWord As String)Dim RetVal As IntegerRetVal = WritePrivateProfileString(SectionName, KeyWord, 0&, AppProFileName(iniFileName))
End Sub'如果是清除section就少写一个Key多一个“”。
'**************************************清除 Section"段"(Sub)***********************************************
Sub DelIniSec(ByVal SectionName As String) '清除section
Dim RetVal As Integer
RetVal = WritePrivateProfileString(SectionName, 0&, "", AppProFileName(iniFileName))
End Sub'*************************************定义Ini文件名(Function)***************************************************
'定义ini文件名
Function AppProFileName(iniFileName)AppProFileName = App.Path & "\" & iniFileName & ".ini"
End Function'#######################################################################'用法: 首先 定义iniFileName="文件名" 不需要 加ini后缀
'这就是说，你可以赋值给iniFileName就可以写入记录，而且你可以随时写入不同的ini文件(不管这个文件是否已存在），通过修改这个公用变量。'然后 DelInikey（ByVal SectionName As String, ByVal KeyWord As String） 清除键
'DelIniSec(ByVal SectionName As String)) 清除部
'SetIniN(ByVal SectionName As String, ByVal KeyWord As String, ByVal ValInt As Long) 写入数
'GetIniN(ByVal SectionName As String, ByVal KeyWord As String, ByVal DefValue As Long)读取数
'SetIniS (ByVal SectionName As String, ByVal KeyWord As String, ByVal ValStr As String) 写入字符
'GetIniS(ByVal SectionName As String, ByVal KeyWord As String, ByVal ValStr As String) 读取字符'调用例子如下:Sub RiniN()Dim Initemp As StringInitemp = iniFileName '暂存原来的Ini文件名iniFileName = App.EXEName '写入到另外一个Ini文件，App.EXEName是你的程序的名程' If GetIniN("lstBackup", "backupnumber", 0) < lstBackUp.ListCount Then'这里的第三个参数“0”表示在没有找到指定的键值时返回的缺省值为“0”'SetIniN "lstBackup", "backupnumber", lstBackUp.ListCount'......'End IfiniFileName = Initemp '继续使用原来的Ini文件
End Sub魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~4读写ini文件相关推荐
- 魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~20开始游戏-对话处理
魔塔之拯救白娘子 完整工程下载地址: <魔塔之拯救白娘子>流程分析6:对话处理 游戏的对话处理比较简单,仅仅是根据游戏流程提供简单的对话系统,没有涉及复杂的东西.下边是设计的窗体: Opt ...
- 魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~1游戏引擎
魔塔之拯救白娘子 完整工程下载地址: 前边学习了DX8的相关知识后,想做一个游戏试试看.这里我选取了魔塔这个比较大众化的小游戏.主要是魔塔的游戏画面比较固定,也很简单,似乎很容易做.下边就开始做吧. ...
- 魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~24开始游戏-屏幕截图
魔塔之拯救白娘子 完整工程下载地址: 魔塔之拯救白娘子>流程分析8:屏幕截图和通用申明 有网友问我主窗口设计界面是什么样子?下图就是:frmMain.frm 设计界面非常清爽,只有一个tiemr ...
- 魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~8地图编辑器-处理流程
魔塔之拯救白娘子 完整工程下载地址: <魔塔之拯救白娘子>处理流程: ①在主游戏窗口里添加一个timer控件,名称为:timerDraw 作用:根据running状态绘制不同的背景 Ena ...
- 魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~18开始游戏-物体碰撞检测
魔塔之拯救白娘子 完整工程下载地址: <魔塔之拯救白娘子>流程分析4:物体碰撞检测 处理方式分2步,第一步是游戏时主角显示处理:当主角移动时需要擦除上一个坐标位的主角,然后在新位置上放置主 ...
- 魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~6地图编辑器-初始化
魔塔之拯救白娘子 完整工程下载地址: 从今天开始我将写一下<魔塔之拯救白娘子>的游戏地图编辑器,俗话说,事半功倍.把地图编辑器搞好,基本一个游戏就写好了三分之一了.可以说,魔塔的地图是相对 ...
- 魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~9地图编辑器-卡通选择
魔塔之拯救白娘子 完整工程下载地址: <魔塔之拯救白娘子>地图编辑器:流程控制-卡通选择 本课主要讲一下,卡通图片的选择.如下图所示. 卡通图片由3种: ①基础类:25个,主要是路面.NP ...
- 魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~16开始游戏-自动寻路（A星算法）
魔塔之拯救白娘子 完整工程下载地址: <魔塔之拯救白娘子>流程分析2: ⑤游戏界面鼠标点击判断以及自动寻路: 自动寻路的效果如下: 源码如下: Sub 游戏界面鼠标点击判断() Dim m ...
- 魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~13开始游戏-初始化
魔塔之拯救白娘子 完整工程下载地址: 上几节介绍了地图编辑器编写情况,现在开始介绍<魔塔之拯救白娘子>开始游戏后的处理. 游戏开始后的流程处理如下: 一.初始化: 当running=1的时 ...
最新文章
- oracle查看数据库是否恢复成功_记一次解决docker下oracle数据库故障事例
- ASP.NET MVC 入门11、使用AJAX
- C++ 求一元二次方程的根
- python etree详解_使用lxml.etree解析python alexa结果
- Java配置环境变量、方法和原因
- 性能测试oracle瓶颈定位,性能测试难点之瓶颈分析
- C# 14位日期型字符串yyyyMMddHHmmss转变为日期格式
- JSP中常用的字体类型
- PS图片的两种大小及修改，psd源码文件，图层概念
- lammps案例：堆垛层错能的计算
- rtbeginreg.html文件,【答疑】安装3DMAX2014版本出现“Autodesk Licensing”的小窗口 - 视频教程线上学...
- 收货地址表结构 以及创建修改流程
- 邓俊辉 数据结构 图
- imageJ执行宏脚本出现了灰蒙蒙的图片。
- 笔记 -- 时间复杂度 log2n
- 学习笔记：分库分表之中间件Mycat实战
- 标题隐藏_经典街机游戏《三国志》，二十多年后你告诉我还有隐藏必杀
- mysql 时区设定_mysql的时区设置
- 数学建模进入“新课标”，告别了“刷题”“押题”数学应该怎么学？
- 软件性能测试方案怎么编写?