level 9
顶起
2015年10月13日 09点10分
level 1
level 1
level 1
level 5
楼主，当一个控件被另一个控件覆盖的时候，下面那个控件的mousemove的X，Y坐标就会和上面那个自动保持一致。怎么办？我要不受上面控件的影响
2015年10月17日 10点10分
7
Image2的X和Image1的保持一致？没听懂。求重新讲一遍
2015年10月17日 10点10分
level 5
Sub image1_mouseup(省略两个参数，x as single,y as single )
Text1.text=str (int(x))
输出0
text1.text=str(int(Y))
输出0！！！！
2015年10月17日 11点10分
8
Text1.text=str (int(x))
输出0
text1.text=str(int(Y))
输出0！！！！
回复不能发图。。。
2015年10月17日 11点10分
1、函数改成Mousemove(...) 2、Text1.text=cstr(X)或cstr(Y) Cstr是把任意表达式转换为字符串 的函数
2015年10月18日 00点10分
回复 4520383 ：没用
2015年10月18日 05点10分
回复 4520383 ：现在是image1.mousemove无法被运行（当移到image 2上面时）
2015年10月18日 05点10分
level 1
求助：
VB按顺序给变量赋值（九种不同组合，按一次赋一个值）
我在 程序启动 时产生一个 随机值a （1~9）
根据a的值确定 将要给b 赋的值 的顺序
按 按钮1 之后将变量b赋值（一个固定值），再按一次再赋b另一个不同的值，以此类推，当按了9次后重新产生新的随机值a
{如：产生a为3，根据a 按一次后b=1，再按后b=6,再按b=4.........按到第九次，重新产生a（a不同，b的顺序不同）,以此类推
求助：是要用If嵌套，还是数组？急求！！！
2015年10月24日 03点10分
12
VB按顺序给变量赋值（九种不同组合，按一次赋一个值）
我在 程序启动 时产生一个 随机值a （1~9）
根据a的值确定 将要给b 赋的值 的顺序
按 按钮1 之后将变量b赋值（一个固定值），再按一次再赋b另一个不同的值，以此类推，当按了9次后重新产生新的随机值a
{如：产生a为3，根据a 按一次后b=1，再按后b=6,再按b=4.........按到第九次，重新产生a（a不同，b的顺序不同）,以此类推
求助：是要用If嵌套，还是数组？急求！！！
level 3
win7系统安装不了VB6.0 中文企业版，怎么解决？还是只能用精简版的。
2015年10月28日 08点10分
13
看本吧的资源帖，有个6.1版本的，用着不错。而且非精简版，只是把一些向导删了而已
2015年10月28日 09点10分
![[怒]](/static/emoticons/u6012.png)
360狗畜生
1.用记事本打开setupwiz.ini文件（一般在安装文件的目录下），把"acme=acmboot.exe"改为"=acmsetup.exe"；2.继续将文件中的 STF=setup/vb98ent.stf改为=acmsetup.stf，然后保存并退出；
2016年05月09日 02点05分
level 2
楼主这个怎么填啊
2015年10月29日 12点10分
14
序列号填满，公司名称和姓名无所谓，公司名称建议你的名字(VB默认编译出来的公司值)
2015年10月29日 12点10分
回复 4520383 ：谢谢楼主
2015年10月29日 12点10分
不行啊 楼主
2016年03月11日 12点03分
@2457318365 怎么可能不行
2016年03月11日 15点03分
level 3
Private Sub Command1_Click()
Timer1.Interval = 0
Call MyMove
End Sub
Private Sub Command2_Click()
Timer1.Interval = 200
End Sub
Private Sub Form_Load()
Timer1.Interval = 0
End Sub
Private Sub Timer1_Timer()
Call MyMove
End Sub
Sub MyMove()
Label1.Move Label1.Top, Label1.Right + 50
If Label1.Top > Formal.Height Then Lanel1.Right = 0
End Sub
Sub MyMove()那段除了问题不知道为什么QAQ跪求答案
2015年11月04日 13点11分
16
Timer1.Interval = 0
Call MyMove
End Sub
Private Sub Command2_Click()
Timer1.Interval = 200
End Sub
Private Sub Form_Load()
Timer1.Interval = 0
End Sub
Private Sub Timer1_Timer()
Call MyMove
End Sub
Sub MyMove()
Label1.Move Label1.Top, Label1.Right + 50
If Label1.Top > Formal.Height Then Lanel1.Right = 0
End Sub
Sub MyMove()那段除了问题不知道为什么QAQ跪求答案
Label1是没有Right属性滴。你说的Right大概是Left+Width吧
2015年11月04日 14点11分
唉，不太懂啊不好意思。刚刚学。所以是要用Left+Width来代替Right吗？可是我改了之后他说我实时错误424啊![[泪]](/static/emoticons/u6cea.png)
2015年11月04日 14点11分
老师是要求label1能从右往左移动所以我那么写的。我又改回我原来那个写法，他说Sub MyMove()未找到方法或数据成员QAQ有关系吗
2015年11月04日 14点11分
level 3
为了解“在一千多年前的《孙子算经》中，有这样一道算术题：“今有物不知其数，三三数之剩二，五五数之剩三，七七数之剩二，问物几何？”，做出如下程序，却执行错误，请帮忙看看哪里出了问题，谢谢！@4520383 @罗宇航1000 @rogershai
Private Sub Command1_Click()
Dim a, b As Long
a = 1
b = 1
Do
If a Mod 3 = 2 And a Mod 5 = 3 And a Mod 7 = 2 Then
b = a
a = a + 1
Loop Until b > 0
Print "答案是："; b
End Sub
2015年11月20日 15点11分
17
Private Sub Command1_Click()
Dim a, b As Long
a = 1
b = 1
Do
If a Mod 3 = 2 And a Mod 5 = 3 And a Mod 7 = 2 Then
b = a
a = a + 1
Loop Until b > 0
Print "答案是："; b
End Sub
End If没加
2015年11月21日 01点11分
@4520383 在a=a+1后加了 end if 输出的是b是1，不符合Mod 3 = 2 And a Mod 5 = 3 And a Mod 7 = 2 的条件
2015年11月21日 14点11分
@liu512849107 对，，，主要是开头就不符合条件
2015年11月23日 11点11分
level 2
level 1
2015年11月23日 08点11分
19
![[吐舌]](/static/emoticons/u5410u820c.png)
来了
2015年11月23日 11点11分
@4520383 大神,您好,方便加您QQ吗
2015年11月23日 11点11分
@denghaojun9 看楼下，AT你了 我 QQ1745500559
2015年11月23日 11点11分
level 9
4520383
楼主
阶乘函数如下
如果
1 x 2 x 3..... x (n-1) x n
那么计算起来就是
Dim N as long
Dim Result as long
Result=1
for n=1 to 10000(比如这边N是10000)
result=result*n
next
'Result即为所得
2015年11月23日 11点11分
20
如果
1 x 2 x 3..... x (n-1) x n
那么计算起来就是
Dim N as long
Dim Result as long
Result=1
for n=1 to 10000(比如这边N是10000)
result=result*n
next
'Result即为所得
level 1
为什么我的6.0企业版总是在检查系统更新的时候未响应呢？
2015年11月26日 12点11分
21
level 1
2015年11月29日 17点11分
23
吧里有资源帖，不行就装6.1
2015年11月30日 14点11分
