精致玩家小KK 精致玩家小KK
关注数: 7 粉丝数: 271 发帖数: 4,674 关注贴吧数: 2
歌曲数据管理系统正式版1.0.0发布 嗯,先引用一下从前的旧图片作个大概说明吧 简介.您可以通过本程序读取单机文件夹的rnr_script文件夹里面的music.txt,或单机文件夹下的rnr_script.pak,程序会在里面读取出该单机的歌曲列表信息为您提供浏览、编辑、文件管理、文件处理、分析等服务 您可以在设置绑定一个指定的障碍编辑器,前提是这个编辑器会接受命令行运行参数,本程序1.0.0版本默认搭载Linda的1.0.0.188版障碍编辑器,目前只有这个编辑器和幻丽穿行编辑器支持读取命令行运行参数,就是只能绑定这两款编辑器,日后老奏的版本会支持,期待他更新吧~1.加歌方便快捷,读取一个单机歌表,打开歌曲包文件夹,拖动r2n文件,或者歌曲包文件夹,或者歌曲包里面的txt到表格中即可添加歌曲(支持混合拖动),详见帮助-程序使用说明-加歌方法   的解说,非r2n结构的歌曲包,歌曲信息.txt文件必须放在rnr_script目录的外面,不能放在rnr_script里面2.最近的文件,免去您读取文件时在文件夹跳来跳去找文件的麻烦3.分析功能-查找出大致有哪些错误,这些错误将可能影响到游戏无法正常运行 (正式版还多了个分析pak是否损坏选项)4.自定义字段的排序,经常关注文件名字段吗?BMP。XML排前面吧!5.唔。。虽然不是专业的音频文件播放器,可这回我还真学会做一个音乐播放器了~哈哈,除了可以添加来自不同单机的歌曲以外,还能拖动自己喜欢的非R2游戏的mp3音乐文件到表格中,与喜欢的R2歌曲一起听哦!6.播放器迷你模式,,那个。。播放进度定位不怎么完美,有空自己做一个滚动条控件好了,目前的话`因为我不相信用户们会老是闲着无聊拖着进度条左放右放~所以不担心这个东西会影响什么7.想在自己常用的单机上玩到另一个单机的歌曲,又不会加歌?又不会提取歌曲?打开它的数据源(于是,你只需要知道哪个文件是歌曲信息文件就能打开,然后做下面的操作就可以了!文件会自己帮你复制过去,保存表格后就开游戏玩吧!)8.不想老按着表格的横向滚动条左转右转,而编辑的数据又在右边,或又不想在单元格之间跳来跳去?那用TXT编辑模式吧,如果你连TXT编辑都不习惯的话我估计你不用处理歌曲数据了``编辑完后会自动将数据导回表格里面,除非你删除字段或者节点,否则,如果仅仅是修改字段信息的话,不会出现丢失情况的!没有大量的music.txt编辑经验的新手慎用!9.想快速浏览这个文件吗,右击,定位-就帮你打开这个文件夹并选定了~定位不太完美,比如定位的文件超出屏幕显示范围时,它不帮你自动滚屏-0-要自己拖横向滚动条过去看,不过因为被选中了,拖一下好快就被发现了,总地来说还是挺好用的
如何让ListView控件显示当前定位到的选定行 以下是我做的一个ListView控件的全文搜索函数,说到底其实我不会用那个FindItem方法... 这里有一个问题,如果一屏显示10行内容,我搜的内容在第15行找到了,确实第15行被选中了,但是屏幕不滚动到第15行,求教如何能够让屏幕滚屏到那里~      If LV1.ListItems.Count = 0 Then Exit Sub      If TxFind.Text <> "" Then          Dim i&, j&, FS&, FindStr$: FindStr = TxFind.Text          If SelIndex = 0 Then       'SelIndex是一个全局变量,每次点击表格时都会记录当前点击的列序号              FS = 1          Else              FS = SelIndex + 1     '从下一行开始搜          End If          For i = FS To LV1.ListItems.Count              If InStr(1, LCase(LV1.ListItems(i)), LCase(FindStr)) > 0 Then                  LV1.SelectedItem.Selected = False    '因为支持多选,我必须控制搜索时会单选搜索到的位置                  LV1.SetFocus                  LV1.ListItems(i).Selected = True                  SelIndex = i   '点击位置定位到搜索目的地                  Exit For              ElseIf i = LV1.ListItems.Count Then   '如果搜到最后还是搜不到,从头开始搜                  For j = 1 To SelIndex + 1                      If InStr(1, LCase(LV1.ListItems(i)), LCase(FindStr)) > 0 Then                          LV1.SelectedItem.Selected = False                          LV1.SetFocus                          LV1.ListItems(j).Selected = True                          SelIndex = j                          Exit For                      ElseIf j = SelIndex + 1 Then    '跑完一圈了还是没有                          Msgbox "找不到与 “" & FindStr & "” 相关的列表项"                      End If                  Next              End If          Next      End If
跟菜鸟对话的烦恼_Top3 你们=不是指贴吧里的你们 ~~~~~~~~~~~~~ 我还要工作,我还要做饭做家务,还免费弄个练习机分享给你们玩,还要抽时间跟我的朋友们联络一下,还要处理一下生活中锁碎的事情,还要学习两样就业技能增加自己的就业领域…… 我帮你,是不是你给我完成以上这些事?第200+个人拜托一件 需时不短 的事给我,小事情,两下子能帮完你的就是了,居然长期练号,教你做单机,教你做歌之类的,我的生活怎么顾?你们都不会做人,醒醒吧,我不恨你,不怨你,只希望你懂事点 第200+个实例对话: =============== 觉醒☆栤葑   17:17:56 K-大屎                                 (首先就是不礼貌)     K-dash   17:18:06 ? 觉醒☆栤葑   17:18:13 K-大屎                                 (我不回答你就是因为你不礼貌!你不尊重我,还想我尊重你吗?) 觉醒☆栤葑   17:18:25 拜托你件事 觉醒☆栤葑   17:18:43 行不 觉醒☆栤葑   17:18:48 我马上就上学了 觉醒☆栤葑   17:18:54 上学你给我玩玩我的号行不 觉醒☆栤葑   17:19:14 行不 17:19:15 觉醒☆栤葑给您发送了一个窗口抖动。 17:19:15 觉醒☆栤葑给您发送了一个窗口抖动。 K-dash   17:19:59 不行                                        (如果你礼貌点,我还会说“抱歉,不行”) 觉醒☆栤葑   17:20:05 额 觉醒☆栤葑   17:20:06 why K-dash   17:20:38 不想解释                                 (200+个人这样问,我要回答200+次?不想解释了,人家不愿意就是不愿意,说不服你就有义务帮你?) 觉醒☆栤葑   17:20:53 你不解释就正确了 觉醒☆栤葑   17:21:01 解释就是掩饰你要给我掩饰吗? K-dash   17:22:42 随便你认为 觉醒☆栤葑   17:22:58 随便=随身携带便便 K-dash   17:23:04 黑名单,88 觉醒☆栤葑   17:23:10 滚吧                                           (道德败坏) 觉醒☆栤葑   17:23:16 滚楼
首页 1 2 下一页