精致玩家小KK的个人资料

7M单机壳更新+加歌、做歌视频教程为了防止移动用户去到烂网吧的时候，由于那个网吧没有某个ocx而导致启动器无法启动，所以我在单机根目录下添加多了一个ocx以保system32没有也能启动`该ocx为1MB，gfis.exe的标题从“R2B练习机”改为“单机壳”，欢迎语改成“正在连接游戏启动器”，“重新连接服务器”改成了婆婆妈妈的端口解决和重启提示，当你去到某网吧插入U盘启动单机壳时，如果提示这个，如果你是直接从U盘启动，请复制到E盘或D盘，一个盘不行，换另一个盘，两个盘不行，试第三个盘一般是没用的，换机启动运行时提示安装Office和CoreDraw之类的，Linda说是控件关联被病毒搞乱了，系统的问题~网吧用户换机，家庭用户重装系统个人建议尝试在左下角菜单“开始”-“运行”输入 regsvr32 c;\windows\system32\MSCOMCTL.OCX 试下，并且在百度上搜一个最新版本的MSCOMCTL.OCX放进Windows\System32文件夹下载地址：http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fu.115.com%2Ffile%2Ff7f4c902db&urlrefer=12960cc34984d6ab1406549e3c101bba 提取码 f7f4c902db（长久不删，更新档案获取方法-点击启动器的-更多-“更多资源下载”按钮有提示 ======================================================= ======================================================= 新人看图文教程看不懂吗？视频教程如何？加歌视频教程一套：http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fu.115.com%2Ffile%2Ff746cab7eb&urlrefer=9da03107a94f22a3174a3fcc876931ae 提取码：f746cab7eb 做歌视频教程一套：http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fu.115.com%2Ffile%2Ff7aa48d024&urlrefer=bf074e2725f9de85aff20ae5d3bce2f1 提取码：f7aa48d024 (注意全部认真看完，我只是有闲情点就录了，并不想负担起“确保你学会”的责任，我录了这么多，就讲这么多~不接受专门加Q讨教，请到该贴吧发帖讨论) ============================================================ 当以上下载地址失效时，请到以下博客地址寻找这个资源的最新下载地址： http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fhi.baidu.com%2F86868058%2Fblog%2Fitem%2Fd5f5295539321b143b293500.html&urlrefer=deccefb6147b744fe623f6bbc08418a3 以后可能会发布更多知识领域的视频教程

启动居然要求安装msi`` 部件中勾选了Microsoft Windows Common Controls 6.0 使用了里面的Slider控件，某些电脑启动这个程序时会提示如下因为上一版本的程序并没有使用这一部件，所以用户们都能使用程序求解~~怎么办呢，也找不到这个PRO11.msi安装据说是控件关联被搞乱了？有控件关联这东西的吗我单独做一个exe放一个单独的这个控件，发到用户机上他运行也是这样提示估计是这个控件（MSCOMCTL.OCX）问题了，不知怎么解决呢

想获取所有mp3文件名到数组中以下例子向List里添加了文件名显示 Private Const FileType As Integer = 6 '文件类型数目 Private strFileType(FileType) As String '文件类型的扩展名 Load里： Dim strFileName As String Dim i As Integer, j As Integer strFileType(1) = "BMP" strFileType(2) = "JPG" strFileType(3) = "GIF" strFileType(4) = "WMF" strFileType(5) = "CUR" strFileType(6) = "ICO" Path = App.Path & "\" lstPicName.Clear For i = 1 To FileType intFileTypeNum(i) = 0 strFileName = Dir(Path & "*." & strFileType(i)) Do While Not strFileName = "" intFileTypeNum(i) = intFileTypeNum(i) + 1 lstPicName.AddItem strFileName strFileName = Dir() Loop Next ======================================== 但我的这种思路也差不多吧，为什么不行？ For i = 0 To 9 MusicPath = MusicPath & Dir(Path2 & "*" & ".mp3") & "," Print Dir(Path2 & "*" & ".mp3") '看看是不是都获取了，但一看全部是123.mp3，其它mp3名字没获取到 Next Music = Split(Left(MusicPath, Len(MusicPath) - 1), ",") d = UBound(Music) ReDim Music(d) For i = 0 To d Pic1.Print Music(i) '再看,还是.. Next 求教我这样怎么不行并且给出你的方法吧,谢谢

关于日期型数据转换我有一个表达式如下 20:20:20 我希望对比这个表达式是否与Time相等以做闹钟程序但是无法对比，因为当前为String，必须转换成Date型而CDate的时候说类型不符，麻烦大家告诉我用什么方法能将它转换成Date型当我用Date型变量来存这个String的时候则可以对比而无法直接 If Time = CDate(20:20:20) Then Print "时间到" '提示类型不匹配

手机自爆程序` ;;;;;;引用了当年一个人说用智能助手搞“指纹验证”开锁，昨晚灵感突发，加强了一下，进入自爆倒计时，当手机被偷的时候，反正自己已经丢失了，让白痴的小偷惊慌之下赶紧把手机一扔```让他也得不到

发个单机壳 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.brsbox.com%2Ffilebox%2Fdown%2Ffc%2F7eae976bd39fccff598aa4d49a0e2294&urlrefer=39cb341e035a65fde5fef107f4ebf7a9 13MB 压缩7MB 继续修改中

求解以下函数将从内存中读出的一些数据转换为字符 Function ConStr(RamStr() As Byte) As String '字符串转化函数 On Error Resume Next '忽略错误 Dim i As Integer, TmpByte() As Byte TmpByte = RamStr For i = 0 To UBound(TmpByte) '→→→→→↓ If TmpByte(i) = 0 Then Exit For ' ↓ Next ' ↓ ReDim Preserve TmpByte(i - 1) '→→→→过滤0 ConStr = StrConv(TmpByte, vbUnicode) '转化编码 End Function 我好像发现，For循环里，找到了第i个数为0就会退出循环，如果是第7个数，那么i就是7吧，下一步他重新分配了内存空间，减1，就是只要TmpByte(6)这个数组，舍弃了含有0的7 然后再StrConv转换工序` 我有这么一个设想设一个数组a(8) 分配数字0到8 然后也重新分配一下内存空间，只要a(7)舍弃8 验证这样的情况下重新分配后，a(7)以内的全部内容是否会被保留，是否真的不见了a(8) 然后我设了以下过程尝试验证，但遇到错误提示“数组维数已定义” 求解 Private Sub Command2_Click() On Error Resume Next Dim a(8) As Integer, i As Integer For i = 0 To 8 '分配内容 a(i) = i Next ReDim Preserve a(7) '重定义数组，重新分配内存空间 For i = 0 To UBound(a) Print a(i) Next End Sub

检验输入内容是否数字曾有好些人发帖问过，如何限制输入内容仅仅为数字于是有的人回复说“不能防粘贴” 确实，于是我就尝试在Change事件里检测，粘贴后会改变吧，所以属于Change事件所以我想在这里下手但是不知为什么以下检测方式不成功，反而都显示有其他字符 For i = 1 To Len(Text1.Text) For j = 0 To 9 If InStr(i, Text1.Text, j) Then '如果在第i个位置找得到j的话 b = x '这个是随便打上去的，没有意义的执行``因为我不熟用Not Else MsgBox "有其他字符" '但不知为什么输入数字都提示了，求指点 End If Next Next

怎样在ListView第2列添加内容？ Dim ListItemTmp As ListItem Set ListItemTmp = ListView1.ListItems.Add(, , "内容") 这样就在第一列添加了一个内容暂时还没搜索到在第二列添加的说明或者说，根本读不懂那些解释的术语，包括Index的意思``什么子项数目求一个简单的例子 “自定义”里设置了两列，列1为“姓名”，列2为“电话号码” 在列1添加“小明”和“小红”，在列2添加两个电话号码谢谢

到底怎么才能获取Form2的菜单标题？说明：我在Form2里放了个菜单，标题叫CCC,名称叫Menu1 想根据以下两个API的功能来获取它的标题字符，但不知为何失败，请问我哪里存在误解？ Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Sub Command1_Click() Dim a As Long, b As String * 50 b = Space(20) a = GetSystemMenu(Form2.hwnd, 0&) GetWindowText a, b, 20 Text2.Text = b End Sub

弹出的窗体没有焦点怎么弄? 比如: 一个列表,有好多名字,双击一个名字有一个照片框弹出来显示照片但我不需要焦点,我需要主窗体仍然保持焦点,Show的参数里好像没有找到类似功能的因为照片大小不一,要AutoSize,不方便在主窗体上玩缩放~~

秒数转换到时分秒格式麻烦大家看看有没有什么需要改进的地方,或你的方法为方便阅读,我使用中文变量名我是根据常规逻辑来写的: 1.先除以3600看看有多少小时 2.用余数除以60看看有多少分钟 3.剩下余数则为秒数 Private Sub Command1_Click() Randomize Dim 时 As Long, 分 As Long, 秒 As Long, 剩余秒数 As Long 剩余秒数 = Int(Rnd * 100000) Text1.Text = 剩余秒数时 = 剩余秒数数 \ 3600 剩余秒数 = 剩余秒数 Mod 3600 分 = 剩余秒数 \ 60 Text2.Text = 时 & "时" & 分 & "分" & 剩余秒数 & "秒" End Sub Private Sub Form_Load() Text1.Text = "点击按钮随机生成秒数" End Sub

奇怪` 东北，东南，西北，西南方向都明显有一道扩散状的条子，是显示器的限制吗，显示圆形的不完美？ Private Sub Form_Load() Timer1.Interval = 1 End Sub Private Sub Timer1_Timer() Dim Radius R = 255 * Rnd G = 255 * Rnd B = 255 * Rnd XPos = Picture1.Width / 2 YPos = Picture1.Height / 2 Radius = ((YPos * 0.9) + 1) * Rnd Picture1.Circle (XPos, YPos), Radius, RGB(R, G, B) End Sub

为什么要定长字符串？ FolderName变量如果不定长，用变长字符串的话就不能获取到目录，我好奇怪 Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Dim FolderName As String * 50, NameSize As Long, FolderPath As String Private Sub Form_Click() Me.Cls NameSize = GetWindowsDirectory(FolderName, Len(FolderName)) FolderPath = Left(FolderName, NameSize) Print FolderPath End Sub

好久没来这个吧了 VB会点皮毛(怕皮毛都不如呢..)的我,进入了本地一家软件公司,本来可以加入开发部的,他们的意思是,你只要懂点,不精通的他们会引导你,教你,并且使用他们的类库,不用自己编个功能编得那么艰苦. 前提是,"只要懂点"是"只要懂点Delphi" ```还要SQL 没办法 ,我说以后会抽时间学的,暂时先加入业务部了,主要做软件销售业务,和数据库的管理(无非是资料录入与盘点,操作日志监视```但数据库查询连接等功能开发还是开发部来干) 主要做商场,药店,酒店和批发市场门市部的进销存软件销售,目前还好```学习到不少东西突然变得不渴望太快加入开发部了业务部很自由啊

时差计算疑问我这里打算用两个存放Now值的变量相减获取时差,但是发现输出值是双精度,不知怎么转换成正常的秒数,比如我想精确到毫秒如果您愿意帮我解决,希望您不要用别的方法写一个计时程序相加减,我需要用这些代码相加减,只希望您能提供一个将减出来的值运算到"秒"为单位的值就好了,我试了用Int居然是0秒...除法的话,我不知道这个长长的双精度数是什么意思``是毫秒单位还是什么,不知道换成秒要用什么公式呢(又好像是单精度吧,但是显示的小数位却那么长?反正想处理成秒数) 谢谢 ======================================================================= Dim a As Date, b As Integer Private Sub Command1_Click() If b = 1 Then Me.Cls a = Now Print "第" & b & "次点击时间是:" & a b = b + 1 ElseIf b = 2 Then Print "第" & b & "次点击时间是:" & Now Print "再次点击的时差为:" & (Now - a) & "秒" b = 1 End If End Sub Private Sub Form_Load() b = 1 End Sub

我想删除指定的数字我想删除指定列/行,或整个表中的所有"4"或"7"的数字,请问怎么做?

练习机4群的一个怪人- - 看图说话 - - 这个现象是从去年8月左右开始的,只有上个月有一个星期没见他冒泡,这几天又来了- - 现在基本上整个四群的人都知道这人了他是一个不跟大家聊天的只发一句话的怪人... 坚持了这么久,慢慢地大家开始逗他玩了,也学着他叫- -

我进入这家软件公司了! 开发/经营项目包括商务管理系统商业POS管理系统 GSP医药管理系统服装鞋业管理系统工厂管理系统财务管理系统 MRP系统 MRPⅡ系统 ERP系统但是开发部都用Delphi+SQL数据库开发,- - 只会VB的我帮不上忙于是被暂时任命为数据库管理员兼业务员办公室里有个大书架,有好多计算机的书- - Delphi从入门到精通,SQL的零起跑点,圣经,与黑客礼尚往来,圣经,吉他初级教程,五线谱基础知识,营销理念.................................. 好多,有空的时候可以拿本书下来看,反正没事做,,,什么时候学得会Delphi+SQL就什么时候可以分配到开发部- - 不过目前做数据库管理员很自由...这两天跑了四家公司维护他们的数据库(晕,都是药店,都赶着五一做活动,要处理药品数据,,然后顺便增加了很多药品知识),还有一个旅游景点的,在回我家乡的路上,占了1/3路程...幸好是工程师载着我过去的,但是他说未来五个月内,总有一天轮到我自己开车奔波于各个客户单位之间,车要自己买,油费要自己出...每个月200元午饭补贴+100元沟通补贴一般很少那么远的客户的,所以不必顾忌,哪天自己考个摩托车驾驶执照,先买台二手的女装摩托(三四百吧?)应付着跑腿工作就行了然后每次回到办公室休息的时候工程师都爱拿着吉他来弹奏,真会放松,,还有,这办公室的人很喜欢泡茶- - "茶是最好的饮品!"这么说的.另一个数据库管理员大哥品茶的时候还总是有模有样的,,,服了这群人,一个个都是热血的家伙

关于发音规则书写: 안 녕 发音: ann yeong 先解第一个字吧, 안有一个元音a,然后另外两个辅音都是n`为什么元音要排在前面但是第二个字 녕也有个元音o,但它的辅音却排在前面,而不是元音排在前面,看两个字的书写,元音都写在右上角啊``就是读的时候发音顺序不同,奇怪``具体的规则是什么呢,我们的都是元音在前,n i 你,而不会说 i n 你这样的,为什么它会有时候倒序过来``谢谢

忍不住,那些bmp文件头``` 官方的BMP封面直接用Windows图片查看程序不能直接查看,以前都是右键-编辑,这样用画图打开的才能查看..或PS 不知道是用什么图像软件生成的格式,居然把文件头第15字节的28换成了38,望了解图像处理的朋友能告诉我官方用的是什么程序,生成的图片居然是这么别扭我想做个程序用来截入这些封面文件,方便浏览,直接载入是无效的图像文件,都要给一一改文件头- - 想先了解一下生成软件

哈哈,翻API函数大全翻到VB教程了- - 在百度文库翻的 VB从入门到实践 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwenku.baidu.com%2Fview%2Ff6d4ba07e87101f69e319594.html&urlrefer=d43b5878e196db618fb5ee6e8af47add 看了下目录,还可以啦,把这复制到桌面的TXT笔记本上,有新人问就这样回给他

请问谁认识挚爱的Mc小乐? 前些天练习机国际用户群的Isaki小姐(日本用户)拉我进黑名单并退群,这几天内我私下调查得出如下结果,这是ssoya追问她后转发给我的图,她说我错了,叫我注意一下自己的行为,我很不解,后来她终于说了,她4月14日被盗,然后查出练习机有病毒(就是附带的变速齿轮),她不知道杀软都误报齿轮为病毒的,认为是我盗了她的号..她已经不相信任何中国人观察下图,装扮最多接受赠送的人是Mc小乐,暂时定为第一怀疑对象,其他可能是他的销售对象,另外还花了她100Q币充值绿色征途点券到她的账号,再用这些点券购买游戏中的东西转送其他游戏账号. 她说Chinese so bad,上次是性骚扰,这次是盗QQ财产如果大家认识国外网友,最好告戒他们不要随便将财产储存在QQ账号中,因为他们不懂得QQ账号的安全设置,包括密保卡,消费限额等,除非他们会设置. 并对此盗号者放射出鄙视的目光,且不说你盗过多少人的号,害过多少人,至少在这里中国人的形象被你败坏多一分了! 图:

此文件的文件头有问题? http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fu.115.com%2Ffile%2Ff7202623cd&urlrefer=dac57a8e0ad1a7eadf3eb82061e3e605 123.bmp 请大家先下载这图片然后Picture1.Picture = LoadPicture("123.bmp") 但会说无效的图像文件的确很怪异,平时的BMP直接双击用Windows图像查看器可以看一以,但这种256*128的24位BMP却不能看到,非要我右键"编辑"使用画图打开...为了不影响浏览正常JPG,我没有设为始终使用画图来打开BMP 据说是文件头有问题,请问大家能赐教我一个方法来load这张图片吗,我想尝试用VB读取它日后我经常要使用到这种图片进行编辑```想自己做个程序来编辑

抓狂仿到韩服的星星歌令人抓狂!!!那些都乱抓音的,只有月亮版才是正经点,为什么就不找点适合做星星的歌去严格抓音做成星星版呢,一个星期更新一次的代价就是随便做障碍草草了事?相对起来TX一个月更新一次,歌曲再不好,抓音配K也比韩服严格多了 Linda过几个版本我不帮你仿了我还要工作,仿着心烦```让小风出马!

我对于dll的理解`` 今天第一次用dll,是一个皮肤功能的dll 比如它叫PF.dll 放到程序根目录后,我根据例子声明了,原来像声明API一样,Lib后面引用的是dll名字`就像声明API Public Declare Function LoadPF Lib "PF.dll" () As Long 然后要使用的话,在事件里输入 LoadPF ,就会读取了`` 总结:比如shell32.dll和kernel32.dll是某些API的DLL 声明 Public Declare Function DLL定义的函数名 Lib "DLL名称" () As 返回类型这是基本声明句式,API函数是系统自带的,已经帮你做好的,允许你调用,但计算机用户也可以自己做自己喜欢的DLL功能来调用,像声明API一样声明后,就像使用API一样使用`` 嗯嗯,大概就消化到这个程度,但不知道会不会有些特别的DLL使用方法是不同的大家有些什么简单的DLL吗,能发一下,顺便说说里面有些什么内容,然后那个函数名叫什么,我试着声明,调用一下里面的函数可否? (再问下,听说VB不能写DLL啊....百度来的结果各有各说法,不知信谁好,这里信那些贴吧中有权威的人士!麻烦告诉一下`谢谢)

这算什么提示... 生成不了```救命

Interval=1时要求什么CPU才能行? Interval=1 里面有超过200行的代码,现在的计算机,以平时我们时而能遇到的最差劲,内存512,CPU900多Hz那种(我是遇到这类最低的了,不知大家遇到哪些) 他们至少能运行程序吗,会不会提示内存错误还是什么,因为CPU算不了这么快? 要么以现在的配置无论怎么差都能运行,但是会卡?

我该用什么类型? 我搜此值,基地址000002A4偏移3715等于01A79FC5 于是我试图做程序改它,但是,首先想显示它都不行``说第一句读取地址&H2A4的类型不配,麻烦看看,以下是代码 Dim hw As Long, addr As Long, PID As Long, pHandle As Long, NowCombo As Byte ................(句柄功夫) ................(进程功夫) ReadProcessMemory pHandle, ByVal &H2A4, ByVal VarPtr(addr), 4, 0& ReadProcessMemory pHandle, ByVal addr + &H3715, ByVal VarPtr(NowCombo), 4, 0& Text1.Text = Val(NowCombo) 我随便换成&H554CFC这样的地址就类型没错,那该怎么办好? 我用计算器把2A4换算成十进制676也是类型不配...

AdjustWindowRect值都是1?用法用误? 我学到这个API AdjustWindowRect 给定一种窗口样式，计算获得目标客户区矩形所需的窗口大小但是发现点击后返回值无论怎么改参数都是1,并非这个窗口的大小,麻烦大家看看有什么不妥,或者举一个你的例子,谢谢 =========================================================== ==================我==叫==分==割==线========================= =========================================================== '获取窗口句柄 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long '获取窗口的进程标识符 Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long '打开一个已存在的进程对象,并返回进程的句柄(怎么发现这个值老在变,动态的呢.. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long '从指定窗口的结构中取得信息 Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long 'GetWindowLong的方法声明 Private Const STANDARD_RIGHTS_REQUIRED = &HF0000 Private Const SYNCHRONIZE = &H100000 Private Const PROCESS_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF '给定一种窗口样式，计算获得目标客户区矩形所需的窗口大小 '(不会使用``) Private Declare Function AdjustWindowRect Lib "user32" (lpRect As RECT, ByVal dwStyle As Long, ByVal bMenu As Long) As Long Private Declare Function AdjustWindowRectEx Lib "user32" (lpRect As RECT, ByVal dsStyle As Long, ByVal bMenu As Long, ByVal dwEsStyle As Long) As Long Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Dim hw As Long, PID As Long, B As RECT Private Sub Command1_Click() Text1.Text = FindWindow(vbNullString, "GameChu") '窗口标题自定`` hw = Text1.Text End Sub Private Sub Command2_Click() GetWindowThreadProcessId hw, PID Text2.Text = PID End Sub Private Sub Command3_Click() Text3 = OpenProcess(PROCESS_ALL_ACCESS, False, PID) End Sub Private Sub Command4_Click() Text4.Text = GetWindowLong(hw, -16) End Sub Private Sub Command5_Click() B.Left = 200 B.Top = 200 B.Right = 200 B.Bottom = 200 Text5.Text = AdjustWindowRect(B, 3, 0) '具体三个参数其实要怎么写才有理想效果呢? End Sub

用中文变量有何隐患? VB允许使用中文变量,而这个变量在内存中实际是经过对ANSI码的运算得出的一个值,无论在任何系统中运行,程序中使用中文变量都毫无隐患吗?不必顾忌文字编码的问题?

一些API函数的方法如何获得? 我在 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fbaike.baidu.com%2Fview%2F1280137.htm&urlrefer=6d9ad10720548a3be20c0d07e05847b9这里看这个API的文献,其中它提及到第一个参数是访问方法,然后举例中有一个访问方法,然后,其他方法又没有列出来,是因为编辑词条的人不负责任没写完,还是有什么办法知道这个函数的其他访问方法吗

能这样声明常量啊? Public Const PROCESS_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF 看到一个例程中有这个声明,意思是声明PROCESS_ALL_ACCESS 这个常量,值为STANDARD_RIGHTS_REQUIRED 或者SYNCHRONIZE或者&HFFF 为什么一个量能有三个值?用的时候它该是哪个值? 难道变量A=1 or 2 or 3 都行吗...

我想让Slider控件的滑动方向倒过来我在Min属性里设了10 Max为50 步进为1 但是,横向的话,左边10,慢慢滚动,都是向右边滚动到Max值,能不能从右到左来滚动10--50? 包括竖向显示时,上面为Min值,下面为Max值,我想它下面为Min上面为Max`` 不知可不可以改的呢,找不到相关属性呀

检测不到"空目录"的大小想检查一个目录的大小,但是,如果目录里放了txt之类的文件就能检查出来,而目录里只放一个目录,再在二级目录里放其他文件,导致无法检测,有什么办法能解决呢? Function DirUsedBytes(ByVal DirName As String) As Long Dim FileName As String Dim FileSize As Currency If Right$(DirName, 1) <> "\" Then DirName = DirName & "\" End If FileSize = 0 FileName = Dir$(DirName & "*.*") Do While FileName <> "" FileSize = FileSize + FileLen(DirName & FileName) FileName = Dir$ Loop DirUsedBytes = FileSize End Function

求死循环的原因``` 如还需要提供其他相关代码的请指出,谢谢,这里单独勾选CheckSet(1)的时候程序进入了死循环而崩溃,CheckSet控件数组为0到4,共5个复选按钮 Do While RndOK = False Randomize WriteNum = Int(Rnd * UBound(Music)) For i = 0 To 4 If CheckSet(i).Value = 1 Then If i = 0 Then If WriteNum >= 0 And WriteNum <= CountItem(i) Then RndOK = True Else If WriteNum >= CountItem(i - 1) And WriteNum <= CountItem(i) Then RndOK = True End If End If Next i

请问怎么处理这些黑格? Function Replace1(C As String) As String Dim a$, b$ b = Text1.Text a = Replace(b, Chr(13), "|") Replace1 = "通知开始<" & a & ">通知结束" End Function Private Sub Command1_Click() Text2.Text = Replace1(Text1.Text) End Sub text1读入了一个TXT多行内容,想用函数把它的内容转换,然后再复制,但是粘贴到记事本的时候发现有黑格子```

重命名上层的另一个目录中的目录失败 If Dir("..\rnr_script\music\") <> "1" And Dir("..\rnr_script\music_add\") <> "1" Then Name ("..\rnr_script\music\") As ("..\rnr_script\music2\") Name ("..\rnr_script\music_add\") As ("..\rnr_script\music_add2\") Mirror.Caption = LanItem(12) ElseIf Dir("..\rnr_script\music2\") <> "1" And Dir("..\rnr_script\music_add2\") <> "1" Then Name ("..\rnr_script\music_add2\") As ("..\rnr_script\music_add\") Name ("..\rnr_script\music2\") As ("..\rnr_script\music\") Mirror.Caption = LanItem(11) End If 检查上层的rnr_script目录中是否存在music和music_add目录,如果有,就把它们重命名为music2和music_add2 谁调试正常?我怎么也看不出问题啊...

请Linda来指出Tenpin的真相... - - If Replace("Tenpin" ,"T" ,"R") then Linda的回答 = True Else Linda.动作 = 抹汗 End If

请教哪里有误不知有什么错误呢或者谁能做一下,打开8个TXT,查找61000出现的位置+415个位置后截取文本前面所有内容,后面不要,再将截取的内容+读出的My_music.txt内容写入这些TXT文件,覆盖以前的数据,我这样做,好多提示呀... ReadTXT函数 Public Function ReadTXT(TXTFile As String) As String Dim FD() As Byte Open TXTFile For Binary As #1 ReDim FD(1 To LOF(1)) As Byte Get #1, , FD Close #1 ReadTXT = StrConv(FD, vbUnicode): Erase FD End Function 过程 Dim All(1 To 8) As String, TXT(1 To 8) As String, TXTSelStart(1 To 8) As Long Dim MidTXT(1 To 8) As String, MyTXT As String '定义文件路径 TXT(1) = Mid(App.Path, 1, Len(App.Path) - 11) & "\rnr_script\music.txt" TXT(2) = App.Path & "\Music Helper\All_music.txt" TXT(3) = App.Path & "\Music Helper\Asia_music.txt" TXT(4) = App.Path & "\Music Helper\GB_music.txt" TXT(5) = App.Path & "\Music Helper\CN_music.txt" TXT(6) = App.Path & "\Music Helper\KR_music.txt" TXT(7) = App.Path & "\Music Helper\JP_music.txt" TXT(8) = App.Path & "\Music Helper\DIY_music.txt" MyTXT = ReadTXT(App.Path & "\Music Helper\My_music.txt") '读取8个TXT内容赋值给All(1 to 8) For i = 1 To 8 All(i) = ReadTXT(TXT(i)) MidTXT(i) = Mid(All(i), InStr(1, "61000", All(i)) + 415) '从文本内容中61000出现的位置+415个位置后截取文本内容,后面的不要 Print #i, LeftTXT & vbCrLf & MyTXT '将截取的内容+My_music.txt的内容写入该文件,但这里开始"错误的文件名或文件号码) Close #i Next i

不会用TreeView 我的程序想点击导出备份文件后,把根目录的BAK.txt复制到指定位置于是我需要这个控件来显示目录树提供用户选择导出位置,听说是TreeView控件,但是看了看MSDN还是不用用哦,百度查到的例子也不是显示目录树的,有的麻烦发到[email protected]谢谢

调用模块过程的疑问我自己写了个载入TXT内容的模块过程,但当 Private Sub Form_Load() LoadTXT App.Path & "\通知.txt" End Sub 时提示缺少变量或过程,不是模块,于是我把过程名改成LoadTXT2就成功了,为什么LoadTXT不行?我在MSDN里输入LoadTXT,无结果,它不是关键字什么的吧,求教另听说这种载入文件内容的方法是最慢的,通过数据流(不懂什么是数据流)载入才是最快的,我是新手哦~打开100KB以上的文本时确实卡了两秒,于是希望有例子的朋友贴一下你的载入方法,谢谢! 以下是我模块里写的过程 '=============================== '载入TXT内容 Sub LoadTXT(Path1 As String) Dim All As String Dim b As String Open Path1 For Input As #1 Do While Not EOF(1) Line Input #1, b If All <> "" Then All = All & vbCrLf & b Else All = All & b End If Loop Close #1 Form1.Text1.SelText = All '窗体控件等对象自己改 End Sub '===============================

练习机百度空间访问量荣升99999- - 第二次跑到主页截图时已经10万了-0-

Space与Spc区别在哪里呀看不出区别~~不都是插入指定的空格符吗 a = 10: b = 15: c = 20: d = 25 Print a; Spc(5); b; Spc(7); c Print a; Space$(8); b; Space$(5); c Print c; Spc(3); "+"; Spc(3); d; Print Spc(3); "="; Spc(3); c + d

咦VB函数表就这么点啊? http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwenku.baidu.com%2Fview%2Ff39a19e8b8f67c1cfad6b874.html&urlrefer=327f5ab1c0b106bfa421f434c3adedcc 我看到百度文库这个东西但是不怎么长啊,好像CSDN比它还多(不过CSDN也有很多不是函数的,所以,只是看起来夹着的函数会比这个表的多) 大家的函数大全文档里的函数是这个数量吗?其他都是自己写,或API咯?

想去中间的空格 print "25+32=";25+32 25+32= 57 如果我输出的结果需要是公式后紧接结果而不需要一个空格,请问有什么函数可以做到?

检查失败 Private Sub Command2_Click() If Dir(App.Path & "Readme.txt") <> "" Then Shell "notepad.exe " & "Readme.txt", vbNormalFocus Else Shell "explorer.exe http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fhi.baidu.com%2Ftouhoukirakusoku%2Fblog%2Fitem%2F07efcb48106389fb83025c48.html&urlrefer=3746338d239b6f66212401268e59ec66", vbNormalFocus End If End Sub 想检查个TXT在不在，不在就开网页，但如何都开了网页，说明检查方法有误，请求修正

以下代码全部Print出False? Private Sub Text1_Change() If Text1.Text = T Then Read = True ElseIf Text1.Text = F Then Read = False End If Print Str(Read) End Sub

我曾说过路飞会吃两个果实在司法岛事件中CP9提及到如果吃两个果实，两个恶魔会在体内互斗，然后会反噬主人身体但这只是无意中提起？我一直认为是作者暗示“那可不一定” 怎么不一定？我们很了解路飞的了吧？爱吃爱乱来，耐力非比寻常，我曾经想像是：他在某次饥饿中又吃到了一颗果实，可能就是事件过后跟各大海贼团的酒宴上不小心拿到的啦，要么就是大家意识到黑胡子太难敌了，对果实能力非常了解的智者为了建议了第二颗适合的能力果实，叫他做好准备去吃；他吃下果实后变得很难受，但在他非常耐力忍受下，最后征服了体内的两只恶魔，获得了两种果实能力。 ======================================== 反派角色轻松地获得了两种果实能力，而且很强横正派角色艰苦地获得了两种果实能力，但只是所谓的低级果实（然而可能存在几个很有效的配合使用方案来克制反派的双重强大能力）正派角色最终战胜了反派角色 ======================================== 这是我脑中的蓝图

Shell出来的程序不能再Shell? 我用A程序的按钮Shell出B程序 B程序出来后点击B程序的按钮(指令如下： Shell App.Path & "..\rnr_script\MirrorOpen.exe", vbNormalFocus 后居然显示文件未找到，但手动启动B程序居然可以

原来这么混乱。。抱歉，因为添加的自制歌是这下午才加的，此前几天测试的官方歌中基本没问题，18：27分我已经第三次重新上传完更新包，就在群共享，赶着去地方，没时间上传完整包了，明天再~~~抱歉，忙乱了。。。你见过这样的大马蛤吗？

求助~~~ 在文本中搜索含有****.xml 的文件名,并复制目录内这些文件名相对的文件到备份目录中,但目录或路径找不到?求解 n_song907.xml n_song1083.xml n_song27.xml h_song1212.xml e_song1077.xml r_song83.xml 代码: Private Sub Command1_Click() Dim StrTmp Dim StringNumber Dim CopyName Open "rnr_script\music.txt" For Input As #1 Do While EOF(1) = False Line Input #1, StrTmp If InStr(1, StrTmp, "rnr_script/music") Then StringNumber = Len(StrTmp) - 24 CopyName = Left((Mid(StrTmp, 24)), StringNumber) FileCopy (App.Path & "rnr_script\music\" & CopyName), (App.Path & "rnr_script\cocopypy\") End If Loop End Sub TXT文本内容例子: <Music Index="30000" Name="Welcome To The Hell" Image="rnr_image/img_music/music_168.bmp" File="rnr_script/music/n_song95.xml" Level="14" Genre="Heavy Metal" Artist="MAZO" Coin="0" Stat="6" ></Music> <Music Index="30001" Name="最近比较火" Image="rnr_image/img_music/music_1256.bmp" File="rnr_script/sound_add/h_song1256.xml" Level="14" Genre="死亡金属" Artist="祈合" Coin="0" Stat="6" ></Music> <Music Index="30002" Name="The Flight Of The Bumble Bee" Image="rnr_image/img_music/music_135.bmp" File="rnr_script/music/h_song04.xml" Level="15" Genre="Classic Remix" Artist="Rimskii-Korsakov" Coin="0" Stat="6" ></Music> <Music Index="30003" Name="化蝶飞" Image="rnr_image/img_music/music_1012.bmp" File="rnr_script/music/h_song207.xml" Level="15" Genre="Dance" Artist="花儿乐队" Coin="0" Stat="6" ></Music> <Music Index="30004" Name="So Hot" Image="rnr_image/img_music/music_194.bmp" File="rnr_script/music/h_song20.xml" Level="14" Genre="Techno" Artist="SEED9" Coin="0" Stat="6" ></Music> <Music Index="30005" Name="舞娘" Image="rnr_image/img_music/music_1016.bmp" File="rnr_script/music/h_song211.xml" Level="15" Genre="Dance" Artist="蔡依林" Coin="0" Stat="6" ></Music>

别称用不了~ 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 Long 以上是从书上抄来的写INI函数声明，已经定义别名为WritePrivateProfileStringA，然后按钮调用该函数写INI信息 Private Sub Command1_Click() Call WritePrivateProfileStringA("urls", "width", "312", App.Path & "\RGB.ini") End Sub 却提示函数未定义，那么别名有什么用？我不用别名，用原名居然成功了，别名到底起了什么作用呢

查找时类型不配查找下一个,如果我打开某个超长的TXT文档查找字符,当字符所在处在一半以后,查找它的时候会说类型不配,是不是查找范围有限?然后查找上一个,如何查找都是不配,求解 Dim StartMe As Long Dim Where1 As Long Dim Where2 As Long Private Sub Command1_Click() Text1.Text = "" Dim vbofnfilemustexist CommonDialog1.FileName = "" CommonDialog1.Flags = vbofnfilemustexist CommonDialog1.Filter = "All files|*.*|(*.txt)|*.txt" CommonDialog1.FilterIndex = 2 CommonDialog1.DialogTitle = "open file(*,exe)" CommonDialog1.Action = 1 If CommonDialog1.FileName = "" Then MsgBox "请选择要打开的文件" Else Dim all As String Dim b As String Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1) Line Input #1, b If all <> "" Then all = all & vbCrLf & b Else all = all & b End If Loop Close #1 Text1.SelText = all End If End Sub Private Sub Command2_Click() Text1.SetFocus '文本获取焦点 StartMe = Text1.SelLength + Text1.SelStart + 1 '把位置给变量 Where1 = InStr(StartMe, Text1.Text, Text2.Text) '从StartMe处查找字符 If Where1 Then Text1.SelStart = Where1 - 1 '定位 Text1.SelLength = Len(Text2.Text) '预选 Else MsgBox "未找到所要查找的字符", vbInformation, "提示" End If End Sub Private Sub Command3_Click() Text1.SetFocus '文本获取焦点 StartMe = Text1.SelLength + Text1.SelStart + 1 '把位置给变量 Where1 = InStrRev(StartMe, Text1.Text, Text2.Text) '从StartMe处查找字符 If Where1 Then Text1.SelStart = Where1 - 1 '定位 Text1.SelLength = Len(Text2.Text) '预选 Else MsgBox "未找到所要查找的字符", vbInformation, "提示" End If End Sub Private Sub Command4_Click() Text3.Text = LastStart End Sub Private Sub Command5_Click() Text3.Text = StartMe End Sub Private Sub Form_Activate() Text2.SetFocus End Sub

为什么不能显示完所有内容呢我Line Input文件直到尾部然后将结果变量赋给text1.text 但是文本框显示的内容并未帮我显示完全，是不是显示被除数有限？那怎么办呢，我要读取的TXT文本有很多很多行的数据。。粗略估计有6400行但文本框好像显示到4000多行的时候就不显示下去了

DJ单机，有人想做没单机名称题材 MG单机全部官方歌皮特单机不知怎么说，，皮特喜欢的歌曲吧，但得到大家的喜爱练习机练习+全部太阳歌+部分官方歌，渗少量自制歌 R2Noter 优秀自制歌曲永恒单机动漫游子单机（没什么印象，不过以前是变态歌题材，现在是自制吧）东方杂物单机东方Project 东方奇乐速同上小鱼单机游戏音乐等等等等。。。。。其实我觉得还有好些题材能挑的，O2单机```（不过Noter已经做了好多，有人做的话，就自己的风格做一套吧，但全K工程是个麻烦事哦，你要跟Noter拼得起才干呀~~哈） DJ单机` - - 我发现这个社会上蛮多年轻人喜欢听DJ，听上去貌似节奏咚，咚，咚，咚地不怎么复杂，但富有动感性，不知道如果有人做的话成效会怎样生活中人们各有不同的音乐风格须求，他们希望享受到那种音乐，相应题材的单机可以应运而生大概就这样说了，不知以后会不会有人做DJ单机咧

为什么不直接输出值? VB用API Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Type POINTAPI X As Long Y As Long ' End Type Sub PrintCursorPos() Dim dl As Long Dim MyPoint As POINTAPI dl& = GetCursorPos(MyPoint) Debug.Print "X=" & Str(MyPoint.X) & " and " & "Y=" & Str(MyPoint.Y) End Sub Private Sub Command1_Click() PrintCursorPos End Sub 它为什么需要我先自定义一个Point类型的数据,再GetCursorPos(类型) 而不是我用以下API一样 Print GetSystemDefaultLCID 然后就输出值为1037 但为什么GetCursorPos不能直接 Print GetCursorPos 显示220,131 之类的呢,获取一个鼠标位置这么难~~?

想不到思路,麻烦帮忙开开窍我希望按下开始键后(随便设定一个字母键也行)开始获取当前时间(精确到毫秒),然后疯狂击键上下左右,过一会再按设定的结束键,获取当前时间,把上下左右的击键次数除以当前时间减去开始的时间,得出平均手速这样..暂时是这样写的,当然是错的`求思路,我想过用控件,比如开始按钮然后计算,不过Form在有其他控件的情况下它是没有焦点的啊~~SetFocus也不行 Dim a As Integer Dim Speed As Double Dim StarTime Dim EndTime Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) StarTime = Time If KeyCode >= 37 And KeyCode <= 40 Then a = a + 1 End If If KeyCode = 65 Then EndTime = Time Speed = a \ (EndTime - StarTime) Print Speed End If End Sub