VB高手看下是什么原因使我的代码效率低
VB高手看下是什么原因使我的代码效率低?？
你这么一大段代码放在change事件中🤩🐁-🐂😁，也就是说只要text1中的内容发生了哪怕一点点的改动🏈🦫——😡，你这些代码就都要运行一次🦋🎽-🐂🦉，效率肯定低了🌤🎲|_🥌。你可以这样✨|——🐬，把代码写入keypress事件中🐌🎋_🦛，然后在text1输入完毕后按了回车键才运行你这些代码🌒🐺-_😰🦜：Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then 这等会说🙁|🌤。
这样做的原因是因为只有在模块中的函数或变量被调用时♟🤡--🌩🦢，VB才将模块加载到内存中🐿-|🌛；当VB应用程序退出时🌷|🦙，才会从内存中卸载这些模块🐀🎍_|😟😱。如果代码中只有一个模块🎭🕸——_😱，VB就只会进行一次加载操作🦘_|🐜🪢，这样代码的效率就得到了提高🤖🌾__🦇；反之如果代码中有多个模块🎋🎍——♣，VB会进行多次加载操作🐕|——🥌🎾，代码的效率会降低🍂——🦅。17. 使用对象数组当设计用户界面时🦃🌻-——🦈，后面会介绍😫-|💮🌸。
你这么一大段代码放在change事件中🤩🐁-🐂😁，也就是说只要text1中的内容发生了哪怕一点点的改动🏈🦫——😡，你这些代码就都要运行一次🦋🎽-🐂🦉，效率肯定低了🌤🎲|_🥌。你可以这样✨|——🐬，把代码写入keypress事件中🐌🎋_🦛，然后在text1输入完毕后按了回车键才运行你这些代码🌒🐺-_😰🦜：Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then 这等会说🙁|🌤。
这样做的原因是因为只有在模块中的函数或变量被调用时♟🤡--🌩🦢，VB才将模块加载到内存中🐿-|🌛；当VB应用程序退出时🌷|🦙，才会从内存中卸载这些模块🐀🎍_|😟😱。如果代码中只有一个模块🎭🕸——_😱，VB就只会进行一次加载操作🦘_|🐜🪢，这样代码的效率就得到了提高🤖🌾__🦇；反之如果代码中有多个模块🎋🎍——♣，VB会进行多次加载操作🐕|——🥌🎾，代码的效率会降低🍂——🦅。17. 使用对象数组当设计用户界面时🦃🌻-——🦈，后面会介绍😫-|💮🌸。
第一题🤣🐈⬛_🐘🔮：'过程如下🪢-🌥🌕：Sub Maxmin(A As Integer, B() As Single)Min = B(1)Max = B(1)For I = 2 To A If Min > B(I) Then Min = B(I)If Max < B(I) Then Max = B(I)Next End Sub '程序如下🐖☀️_🐽🤖：#39;建立三个1个Command1组😍|🐯🐙，下标（0-2）Option Explicit Dim Min As Single, 等我继续说😐🐃_🌥🦎。
vb好像就是挺慢的🤐--🎭，不知楼主是否使用了windows的API🐫-🐳🦢，使用API 可以提高效率😞☹️||🏉😽，具体的你自己查一下吧🐆🐜-_*❄，如果你的mousemove事件检测的时间周期设置的值比较大的话就会有这种情况🦢🏸-_😏😏，你用timer 检测的这个事件？那就把interval设的小一些🐽|——🐪🐡。检测慢的原因是你的vb默认的窗口处理函数定义的是大概一秒检测一次该事件🐍_🤠，..
vb高手看下我的程序哪里错了?？
你这些都是动态变量 根本没有给他界 怎么叫它“不越界”呐呵呵1.建议改成Dim xx(2)的形式2.实在要动态🤣|😔，那么使用前先Redim preserve 数组(上标)OK 帮你写好了（可能会有多于标🦚🦔_——🦊，我也不知道这个干嘛的不能很准确不过多出来一个没什么大问题吧🐍--🍁🦎。🌍——🦇😮。内容就多占用1字节罢了）帮你写道后面会介绍🦆——🤖🐆。
MyValue = Val(" 2 45 7") ' 返回2457🌕🤪_🪄。MyValue = Val("24 and 57") ' 返回24 MyValue = Val("a24 and 57") ' 返回0 因此当你在文本框输入非数字时🃏_🪀，必然是登录失败. 至于VAL把字符串变为数字 而a把数字变为字符串这个不影响 因为下面是把a与字符串比较等我继续说🐣😌--🎑。.
【VB】高手来看看下面的代码有啥问题??？
Shell "cmd /c" & "%SystemRoot%\system32\mmc.exe " & "%SystemRoot%\system32\dfrg.msc ", 0 这样就不会出现cmd的框框了🤮🤭——🐃🎆。
你的代码不应该放在模块的代码窗口里🦅——-🐪，而应该放在窗体对应的代码窗口里🏉_——*🤧。下面给个带码你参考一下Option ExplicitPrivate Sub Check1_Click() MsgBox leixingEnd SubPrivate Sub Check2_Click() MsgBox leixingEnd SubPrivate Sub Check3_Click() MsgBox leixingEnd SubPrivate Function leixing希望你能满意🦓_😶🍁。
VB VB 高手过来看下啊~?？
VB VB 高手过来看下啊~ 200 我用VB编了一个游戏~~~我想要改成可以连机的但是不知道该怎么搞~~~有个朋友跟我说用winsock交换数据~~但是该怎么交换啊~~晕死我了~谁能告诉我具体怎么搞啊~?~?~`或告诉我到哪查资料有帮助请点赞🐋-😞。 我用VB编了一个游戏~~~ 我想要改成可以连机的但是不知道该怎么搞~~~ 有个朋友有帮助请点赞🐯🐍-_🦠。
将GetPrivateProfileString这个API声明中第二个参数类型any 改为string 就可以了🐡_-🌲🏏，