精致玩家小KK
精致玩家小KK
关注数: 7
粉丝数: 271
发帖数: 4,674
关注贴吧数: 2
新同事的名字很难读啊!!!!!!!!!!!!!!!!!!!!!!!! 她叫金锦晶 - - 金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶金锦晶晶锦金晶晶锦金晶晶锦金晶晶锦金晶晶锦金晶晶锦金晶晶锦金晶晶锦金晶晶锦金晶晶锦金晶晶锦金晶晶锦金晶晶锦金晶晶锦金晶晶锦金晶晶锦金晶晶锦金晶晶锦金晶晶锦金晶晶锦金晶晶锦金锦金晶锦金晶锦金晶锦金晶锦金晶锦金晶锦金晶锦金晶锦金晶锦金晶锦金晶锦金晶锦金晶锦金晶锦金晶
【字迹】Music编辑器的部分手稿 一共有25张纸左右...都是上班时没客人,坐在服务台无聊疯狂写的..最happy的一天是整个晚上只有1位客人...当时平均每天4位客人 就在纸上写了下程序代码,写好后就回家调试,一天大概写一张左右 有空+有灵感的时候把代码写纸上,下班回家就抄上电脑调试~慢慢地成了一种乐趣 ~这里是8张其中4张放大..帮助文件的提纲和大概内容起草拖动文件到表格后添加歌曲的开头部分代码输出镜子障碍功能里,先要提取XML原文件才能转换镜子障碍,提取过程中可能遇到PAK解包,这是解包部分另外4张~
<发布>BPM侦测器 u.115.com/file/f439741322 BPM侦测器 制作:KK 感谢练习机15群的大笨猫同学协助破解核心函数,并且对部分公开源代码进行优化以提高效率! 说明:运行后,点击按钮开始监视音频端口,如果您在用音乐播放器放歌,会实时侦测到这首歌曲的BPM,但是,如果这首歌放完后,音乐播放器播放下一首歌曲时,它无法实时侦测这下一首歌的BPM,必须点击"刷新"按钮 (注意不要过高频率地操作刷新按钮,否则会导致内存错误,经常开始监视,停止监视,开始监视,停止监视……也会内存出错,控制好频率,大概10秒后再操作比较稳定,10秒内再操作易出错!) 单独测试BPM的话,请把mp3或ogg的音频文件拖动到 "拖mp3/ogg进来可测试BPM" 按钮上则可,等两三秒就有结果.
贴个关于Linda的图
那就单独开贴解释R2X含义吧 http://tieba.baidu.com/f?kz=982798170 10楼提问过,很抱歉,今天有白目邮箱留言顶上来才注意到,一直没有回复你,那就在此回答,并且单独一贴来描述下它的含义吧``没深度的,1.50版的更新公告已经透露过"下一版本的代号是R2X" 主题是练习,Exercise,简译的话当初觉得应该是 R2Beat Exercise 这样的,缩一下就R2Exercise,再缩就R2E,感觉E作尾音不好听,于是就用X取代Exercise的发音好了,就有了R2X的灵感;而且当时根据专业用户的意见,他们希望练习比较长的自制障碍段,于是把指法生成器的障碍编辑区域加长到512Coord,并且整合了成绩记录器(还在开发同一首歌曲多次游戏的判定值变化曲的线统计图功能),使练习功能方面基本配套完毕,所以决定将代号改为X,含义为Exercise,与游戏名合并就是R2X了 另外想调查一下大家是怎么读 R2 二字的- - 按我的逻辑来说,应该是 R - two 这样,但是有一部分人即使少有英语知识也把那个2直接以中文"二"的发音读出来了……
新系统自带的Office2007没有系统右键菜单 新装的XPSP3系统自带Office2007,但是在系统资源管理器中右键“新建”的子菜单里没有新建Word和Excel文件选项,请问怎么设置?我在软件设置里没有找到增加右键菜单的设置
在韩服一些新歌的PAK里找到了完整的mp3文件 仿歌时发现助手发来的初次修正XML直接引用了个mr1.mp3,我以为他自己录音做个mr1再引用对音呢。。。后来复制HF目录下的文件居然一样的大小,覆盖后一模一样,,,还能引用,于是看看几个新歌PAK,里面除了mr都有个mr1.mp3 - - 是OST吧?大家看着挖吧,哈哈~有了这个也好对音点,不用边做边加K来对音
宣传下双手花样玩法 本人玩DFJK横向双手都有2年时间了,其中1年比较经常练习,单手玩到想关游戏时就换双手,然后兴致又来了……玩起来彼为有趣 LL在我家时给我录的 成绩画面切掉了,因为烂成绩不敢Show出来- - 重要的是玩法有趣 金山一键必杀修改D上,F下,J左,K右,空格Ctrl 下载:HTTP://u.115.com/file/f7fd2f5478 提取码:f7fd2f5478 难功 幻想即兴曲
歌曲数据管理系统正式版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-要自己拖横向滚动条过去看,不过因为被选中了,拖一下好快就被发现了,总地来说还是挺好用的
一部分真相======最近限制了中国的用户登陆韩国服务器 Pmang判断不可忽视尊敬的客户受到巨大损失的现状, 决定了封锁中国的IP访问到Pmang服务。 2010年12月28号更新之后,请注意在中国将限制我们Pmang服务。
祝大家新年快乐!(附练习机通告) 新版练习机搭载Music编辑器后,菜鸟用户也可以像分布式列表单机一样简单地通过加歌了,而且高级用户也能管理他们的文件了,并且一盘游戏后崩溃的BUG修复了,为了推广这个版本,决定继续延长3个月邮件服务 几天内会发布2.10版 ======== 2011年来了,今天起给自己一个“今年的目标”,为着它去努力吧! 今年的目标是学会平面设计和网页制作,编程转为次要学习重点 大家又有什么想法呢?
有没有什么关键字能直接指代当前操作的控件? Private Sub TxArtist_GotFocus() TxArtist.SelStart = 0: TxArtist.SelLength = 65535 End Sub Private Sub TxBPM_GotFocus() TxBPM.SelStart = 0: TxBPM.SelLength = 65535 End Sub Private Sub TxGenre_GotFocus() TxGenre.SelStart = 0: TxGenre.SelLength = 65535 End Sub Private Sub TxIndex_GotFocus() TxIndex.SelStart = 0: TxIndex.SelLength = 65535 End Sub 。。。 还有好多 做个函数吧?这么几句代码,根据某VB编程手册指引所讲,代码太少的话最好别建立函数,浪费内存。但又是NNN个控件要这样处理,一个个复制,改代码里的控件名字``改到发疯了 用控件数组吧?但每个控件涉及的参数都不同,为了方便识别不同控件的值代码什么参数,直接各控件独立命名才行。。。 关键字Me能代表本窗体,ActiveControl我试用了一下,但是不行,ActiveControl代表活动的控件,但不能代表TextBox,ActiveControl.TextBox不行。。于是` 如果Set XX As TextBox 然后还要TypeName="TxIndex"```` 请问有关键字能直接指代当前操作的控件名吗?
- -终于找到玩完一盘报错的原因了`` 优化的速度模式代码里面判断窗口句柄时,虽然不知道有什么理由导致窗口句柄为0,但发现句柄为0时居然多手地加了Exit Sub语句,导致启动器与游戏终止通讯而无法继续游戏。。我删掉Exit语句就好了``反正Linda在上面写的核心代码有判断句柄
求一份源码 目前对网络方面的编程不主了解,想要一个功能 用户点击我软件的“问题反馈”按钮,然后弹出个留言输入框给他输入要反馈的内容,下面可以让他填验证码,确定后,将他的留言发到指定的百度贴子里进行留言,或百度空间日志里留言 如果可以的话,麻烦将此简例源码发到我邮箱
[email protected]
,谢谢,否则有空再自己研究研究了……
请问我怎么能返批量选择的大量文件? 以下例子程序用的 BrowseForFile函数 返回批量选择的文件名称字符串长度有限,请问有什么办法可以解决大量批选问题? 比如我要选中500多个文件,,但。。大家看看下面的例子吧,源码贴在日志里 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fhi.baidu.com%2F86868058%2Fblog%2Fitem%2Fabfac039e43a143296ddd81f.html&urlrefer=7010dd32b63e9390faa50af5f1e24622 .lpstrFile的缓冲长度改到255马上无效。。。
ListView的两个问题 1.我想双击第一列的单元格时进入编辑状态(曾经有人给过代码`忘了`带Edit字样的,但我试了下LabelEdit不行 2.如何修改列头背景色呢?比如 学生 学号 ------我要改变这个列头的背景色 小明 001 ------不是改变这个内容区域的背景色
文件系统转成NTFS后`` 从FAT32转到NTFS后,容量计算太ET了。。。。
悲剧`不知道控件放哪了 部件里选了某控件,然后用了一段时间,不记得哪个窗体也用了,估计在MDI窗体里吧,好像被挡住了,怎么都摸不到。。。我不想用这个控件了,删除不了,首先就找它不出来。。。 求解决方法
麻烦介绍或提供某种声音引擎… 我的播放器是播放游戏音乐的,但是因为音乐文件都压缩了,必须先释放到磁盘上才能播放(用wmp控件的),释放再播放这个过程引发了好多问题,我想要一个支持内存流播放的引擎
看来CStr后的字符串与普通变量代表的字符串有所不同是么` Dim Path As String Path = GetSelPath("如果函数不对DefaultPath参数作CStr转换的话就不会默认展开DefaultPath目录,而是展开桌面","D:\") Function GetSelPath(Title$, Optional DefaultPath$) Dim spShell, spFolder, spFolderItem On Error Resume Next Set spShell = CreateObject("Shell.Application") Set spFolder = spShell.BrowseForFolder(0, Title, 0, CStr(DefaultPath)) Set spFolderItem = spFolder.self GetSelPath = spFolderItem.Path End Function 求解`CStr转换后有什么特别呢`
Image控件盖不过MSHFLexGrid表格控件`` 在此问题 http://tieba.baidu.com/f?kz=942002908 的基础上追问一下` 其实这样的: 我做的是一个游戏歌曲数据库管理软件,每首歌曲配一个封面的,突出太大界面位置显示封面就会导致界面不好看 我的想法是这样: 表格上面显示封面,封面缩小1倍的尺寸`image控件有个属性让它适应到控件尺寸的`控件尺寸就是原图的一半 我希望用户指着这个封面时封面放大到原始尺寸`嗯,在上面那个地址的帖里已经得到解决,现在问题在于封面放大的时候,封面盖不过表格控件,我希望它能在表格控件的前端``Img1.ZOrder 0 也没用,请问有什么API能让image控件显示在MSHFLexGrid的前端吗?
根本没有选定文本长度 Private Sub TxFind_GotFocus() TxFind.SelStart = 0: TxFind.SelLength = Len(TxFind.Text) End Sub 这是一个查找文本输入框的代码,希望用户点击它准备输入内容时,能选定全部上一次输入的内容 如果内容为 ABCDEFG 如果鼠标单击位置在G的右边,那么会全选这些内容,但如果鼠标在D的位置单击,那么选定字符却只是ABCD,这是为什么? 我唯一办法是 TxFind.SelLength = Len(TxFind.Text) + 100 这是治标不治本的,点击位置右边超出100个字符的时候咋办? 求解如何能确保单位在任何字符位置上它都会全部选定,谢谢
怎么设置优先调用根目录的dll? 我的音乐播放器使用了wmp.dll的wmp控件 但是播放器的exe发到不同的系统中有不同效果,我想统一一下这个效果,所以想把我的wmp.dll版本也配在应用程序目录中发出去,但是程序却优先读取了system32下的wmp.dll,怎么办好?
请教鼠标在Image上时就放大,离开时就缩小 我之前的做法是在Image的MouseMove事件发生时图片放大,的确是放大了` 但是,我鼠标离开时又不会缩小,不知怎么判断鼠标离开``附近很多控件,不可能在这些控件上做代码“如果鼠标在我这里移动,那么图片缩小”吧///这个方法太不想用了~请教一下有没有别的方法判断鼠标离开本控件范围而执行一个事件?
致
[email protected]
的公开感谢信!!!!!!!!! 最近制作的软件因为没有打包功能而感到鸡肋,自己又对什么二叉树链表堆栈不了解(完全是没学过数据结构```) 感谢你公开源码~你的解包函数也不错的``特别是你先用OpenR2PakFile返回文件列表再进行解压`我很多功能就仅仅只需要列表而不需要解压的~看到这个函数时就安下心来~幸好你没整合到解压里。。 太感谢你的pak模块了,我会做个好软件给大家的,哈哈
RichTextBox的速度``` 我载入个170KB的文本内容到控件中 然后拖选时非常缓慢,大家的是这样的吗`我设MaxLenght为99999
我想知道Shell了后的结果` 并不是希望知道成功与否`首先我可以确保要Shell的外部程序是存在于磁盘中某一位置 然后,我做的管理系统目前提供一个对选中记录进行“编辑”的功能,不是简单的编辑记录数据,而是需要一个专业软件来编辑这些数据的,我自己可以不做这个专业软件,因为已经有另外三方做,于是,我已经和他们协商好, 1.我在软件中允许用户设置绑定的编辑器 2.用户右击记录选择编辑时,Shell这个编辑器+数据完整路径文件名参数 但是我希望用户绑定的编辑器是支持参数的(此前的版本几乎只有5个支持参数,我相信会有很多用户绑定一个不支持命令行参数的编辑器,虽然我已经和三个编辑器软件工作团队协商好以后请他们都支持参数,而且一致的参数,我就这样传递) 我自己试了下,自己做个不支持参数的exe,Shell的时候带参数,不报错,支持参数的话,参数错误了也顶多是那个编辑器的处理结果“无效的文件名” 那么,不支持参数的已经在不报错的情况下Shell出来了,用户只会发现编辑器没有载入数据,而不知道他们只是绑定了一个不支持参数的exe``` 求解如何知道我Shell的时候这个exe不支持我这一个参数?
想弹出文件夹并自动选定某一文件 不知道能不能这样做`` 比如做个文件搜索功能 输入文件名,搜索到文件后,弹出资源管理器显示目标位置并自动选定搜索的文件名
好烦恼,求一种可Public的对象储存我的三个元素` 我的MDI程序新建了N个表格 每个表格中有自己独立的数据记录类型AddFile,含Name,SourceFileName,MoveToFileName三个元素 但是它们要调用第二个窗体来处理,碍于自定义类型无法Public而用了很别扭的方法传递到第二个窗体,然而第二个窗体如果仅处理一部分文件的时候又无法实时同步性地Remove掉操作表格的AddFile元素而最终导致错乱 哎`不说太多,反正就是希望有一种对象可以Public的吧`因为AddFile是我的自定义类型,所以无法在模块里Public 如果用Collection对象,虽然能Public,但却又只能添加1个元素,我另外两个元素不知怎么办
我想右键ListView就能选定一行 1.ListView怎么做到选定一行,右键另一行就选定另一行,而之前那行不被选定? 我是用来做歌曲播放器列表的 发现千千静听和酷狗都可以,比如有10行,批量选中5到9行,那么在第5到第9行之间右键是不会被取消选定,弹出的右键菜单都是对它们做处理的 而如果右键时鼠标位置在第5行上面或在第9行下面就会取消之前的批量选择,单选鼠标位置那一行`不知道ListView能不能做到这样呢
来讨论下Time值计算公式吗 原速歌,以官方的 离开 为例子`` 在官方的music.txt里,离开的Time值是7248,以下是离开的XML文件头信息,希望大家帮忙研究下那个Time值是如何计算出来的吧` <?xml version="1.0" encoding="euc-kr" ?> <TITLE Name="e_song2063" > <BPM Frame="0" BPM="150.00" ToolFrame="0.00" > </BPM> <BGM Name="e_song2063/mr.mp3" Volume="1.00" > </BGM> <DELAY Value="5" > </DELAY> <LENGTH Value="3552" > </LENGTH> ====================== 变速歌以变速1次的月光3乐章为例,Time值是8204 文件头如下: <?xml version="1.0" encoding="euc-kr" ?> <TITLE Name="moon3_MAZO" > <BPM Frame="0" BPM="140.00" ToolFrame="0.00" > </BPM> <BPM Frame="1085" BPM="165.00" ToolFrame="1131.43" > </BPM> <BGM Name="h_song1212/mr.mp3" Volume="0.80" > </BGM> <DELAY Value="46" > </DELAY> <LENGTH Value="4512" > </LENGTH>
如何让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
练习机推迟2.03版更新。。 由于 Sudden Death 变速后的Note对付不来……助手折腾了三小时搞不定,移交给我后也折腾了一个小时,,,最后文哲接手也折腾了N久用上Excel和Print键等器械都拿它没办法,最终决定工程移交Linda小姐……本次韩服新歌不能完成仿制而推迟更新。可能合并到下期官方新歌再更新~0~ 或者哪位愿意尝试的朋友可以来仿一下这歌` 下载地址在这个文章里 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fhi.baidu.com%2F86868058%2Fblog%2Fitem%2Fd2634ec594869da68326ac2b.html&urlrefer=0876ed89d9ee171b37863c1f44d4124d Lonely Super Power hero 也有上传,感觉哪里有错``可以的话帮忙校验一下 谢谢
请问谁有WindowsMediaPlayer的事件说明呢? 百度搜的,全是方法与属性,但是没有事件说明,控件里很多事件,我希望了解是什么意思,我想用这个制作简单的音乐播放器。。。 但如果您有音乐播放器源码可以分享的话也可以发一下给我,
[email protected]
,谢谢` 主要是控件不是简陋的,样子OK就好了`支持上一首,下一首和定位等 ====== 现在这样`我不是自己另外做Command按钮去操作它的播放,而是直接利用它控件界面上的按钮操纵播放,当我选下一首时,如果我设定随机顺序,它怎么知道我下一个随机歌曲的文件名呢,我得在事件中判断按下这个按钮后去rnd一个名字给它
关于判断InputBox被按下“取消”键的问题 Dim retval As String retval = InputBox("请输入一个0到10之间的数作起始值") If StrPtr(retval) = 0 Then Exit Sub Else 对象.属性 = retval retval = retval + 1 End If 用户需要处理值的范围中包含0,却因为“取消”导致值为“0”而退出了Sub过程怎么办?
- - 看到这么一句话 如果你是一个女孩子,如果你想和程序员做朋友。你可以在这里关注这样一群人,他们第一句话写的都是 hello,world........
求教如何运算出RGB三色值 比如我取得一个对象的色值为 &H0080FFFF& 但是我希望知道它的R,G,B三色值各是多少,请问如何运算呢?
我想改变图像大小,不是控件大小~ 程序要载入一张实际尺寸为256*128的bmp图片,但是把一个控件弄到像它那么大就很占空间,我的程序界面排版起来都不好看 于是想图片的大小改变去适应控件大小` 请问有没有改变图像大小的函数?比如我传入BMPData(Byte)数组,再加一个宽高值,返回一个修改到相应宽高的BMPData ChangeImageSize(BMPData,200-宽,100-高) 挖了好久百度都找不到这样的函数~我不懂得图片数据处理,麻烦有经验者提供一下函数,谢谢
请教下我这个情况要如何解决 我的表格中每一项目都涉及到一些文件,用户增加项目信息时,同时我也根据他描述的项目信息去获取源文件名和目标位置文件名,源文件名和目标文件名并不是直接写在表格上的 我用了一个动态自定义类型数组的FromName和GotoName保存了这些名字,根据他新增的项目页新增元素 文件不能马上复制,所以我必须保留源位置和目标位置,待他复制时使用 有个“文件清单”按钮,弹出一个新窗体,我是用ListBox列表载入源位置的`因为动态数组不能Public(提示“常数、固定长度字符串、数组、自定义类型与 Declare 语句不能是对象模块中的 Public 成员” 我无法让弹出窗体获取主窗体的文件名数组去作拷贝,希望大家指点一下,怎样才能让弹出窗体知道这些源位置和目标位置,难道要恶心地再建一个ListBox载入目标位置并Visible = False然后复制ListBox1对应的List(i)文件到ListBox2表对应的List(i)文件?
VB不允许将自定义类型的数组作为参数吗? Dim A() As FJ Private Type FJ Name As String AddNum As Integer End Type Private Sub Command1_Click() DealAA (A()) End Sub Private Sub Form_Load() ReDim A(2) A(0).Name = "AA0" A(1).Name = "BB0" A(2).Name = "CC0" End Sub Private Sub DealAA(J() As FJ) For i = 0 To UBound(J) Print J(i).Name Next End Sub
企图通过枚举类型来实现向上向下搜索,但失败了 Private Const Step1 As Integer = 1 Or -1 'MG1是MSHFLexGrid控件 Private Sub CmdSearch_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Shift = 2 Then MDIF1.FindText Text1.Text, MG1.Row - 1, 1 Else MDIF1.FindText Text1.Text, MG1.Row + 1, MG1.Rows - 1 End If End Sub ============== MDI窗体的: Function FindText(FindString As String, FindStart As Long, FindEnd As Long) Dim i As Integer For i = FindStart To FindEnd Step Step3 If InStr(1, ActiveForm.MG1.TextMatrix(i, ActiveForm.MG1.Col), FindString) Then ActiveForm.MG1.TopRow = i: ActiveForm.MG1.Row = i: ActiveForm.MG1.ColSel = 13: Exit Function Next End Function 怎样才能使用枚举的方法实现Step值按照情况来设置1或-1呢?当然,函数参数中再传一个Step参数就能解决,而我的实现目的却更加是为了学会使用枚举,求教,用枚举的话应该怎样做
有没有像Excel那样双击可编辑内容的控件? 我读取了一堆数据到ListView表格里显示了,但是我想双击某一格的内容进行编辑,最后实现保存 但是不知道如何能让它双击进入可编辑状态`是不是要用其它控件呢
用吧,你们次次要输入就肯定抓狂 不用吧,又有挖坟这样那样的……超级验证马- - 应该会员免输的
一首歌名求翻译 딥 라이징 韩国游戏音乐,麻烦你了,谢谢
在此做一下笔记……睡觉 使用“彩豆圣代”地图进行游戏时,当游戏画面在转动时(开始,结束时的角度转动),地板上的分隔线发现了明显的抖动……没空看其它地图先,睡了,刚才调试启动器时无意中开到这地图的
学习到这么一个关于VB调用API的知识 前段时间看一位网友姐姐的源码,发现她把我的 'Public 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 屏蔽掉,下面却写了这样的版本 Public Declare Function ShellExecute Lib "shell32" Alias "ShellExecuteW" (ByVal hwnd As Long, ByVal pszOperation As Long, ByVal pszFile As Long, ByVal pszParameters As Long, ByVal pszDirectory As Long, ByVal nShowCmd As Long) As Long 最近发现她老是把很多函数改成这样` 她说: 因为VB是SB 如果声明成String的话会自动做Unicode到ANSI的转换 然后到操作系统这层还要做ANSI到Unicode的转换 转两次会快么 所以尽量使用W版API 这样一次都不用转很快 ======================================= 按道理来说,这确实是哎,不知对API和VB有研究的朋友们是否认同此说法?
两个模块声明同一个API 今天发现某源码有三个模块,其中两个模块声明了同一个API,都是Public声明,为什么编译时不会提示二义性?
两个ShellExecute```求解 好像都来自shell32.dll,但是见到这两种声明,居然都能用,只是用在不同的情况下,求知情人士详解 Public Declare Function ShellExecute Lib "shell32" Alias "ShellExecuteW" (ByVal hwnd As Long, ByVal pszOperation As Long, ByVal pszFile As Long, ByVal pszParameters As Long, ByVal pszDirectory As Long, ByVal nShowCmd As Long) As Long Public 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
跟菜鸟对话的烦恼_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 滚楼
123
求目录~ 都只有第1集,第2集3集的``` 想找个目录对照表,对着相关的故事情节下载,是收藏视频的~看过一次了 求目录~谢谢
我想改掉“同意” 我想把“同意”三个字改成“我已经知道游戏更新内容了” 把“不同意”改成“我还没阅读游戏更新内容” 好像脚本代码里没有这项? 得反汇编么。。。
c有点奇怪`` main() {long a=123456789,b=22,c=333; printf("%ld %ld %ld",a,b,c); } 以上代码会正常显示三个数字 ======================== ======================== 以下代码的变量c显示得很不正常```求解 main() {long a=123456789,b=22,c=333; printf("%ld %d %ld",a,b,c); }
求托盘例子 我的程序想最小化时缩小到托盘,麻烦懂的朋友举个简单的例子,百度来的很多都不对劲
为什么老是显示12803? 直接从书上抄来的例子啊……我哪里抄错了吗,找不出来~~ main() { int a,b,c; scanf("%d,%d",&a,&b); c=max(a,b); printf("max=%d",c); } int max(int x,int y) { int z; if(x>y) z=x; else z=y; return(z); }
为什么老是显示12803? 直接从书上抄来的例子啊……我哪里抄错了吗,找不出来~~ main() { int a,b,c; scanf("%d,%d",&a,&b); c=max(a,b); printf("max=%d",c); } int max(int x,int y) { int z; if(x>y) z=x; else z=y; return(z); }
在窗体里要Public有什么用`` 在Form1里Public A As String 在Form2的Load里载入此变量的内容却为空 除非在模块中声明Public A As String才能真正公用 我真搞不懂单窗体要Public来干什么```
启动的时候就设置焦点 我在Form_Load事件里就写了 TxTime(0).SetFocus 但是无法设置焦点,在其他事件上就行``AutoRedraw属性为True的,但都不行,求助
R2XY便捷版 开韩服单机,把程序窗口拖到屏幕内任意一个角落,点“过来!” 韩服单机游戏窗口就会被吸到程序窗口相对的左上角坐标起点位置(其他单机窗口也可以吸,但只是为了解决韩服单机窗口无法拖动的问题) 谢谢文哲提供改进思路 ================================ http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fu.115.com%2Ffile%2Ff73f0c610a&urlrefer=33eaee50ffaeabdc76a585d91ce3ee3f R2XY.rar
无法监视输入的键值 我想按Enter键后两个Text显示一些东西,但是不行`不知如何是好 Private Sub Command2_KeyPress(KeyAscii As Integer) If KeyCode = vbKeyReturn Then Text1.Text = lpPoint.x Text2.Text = lpPoint.y End If End Sub
首页
1
2
下一页