在一个窗体的调用中加入:
Private Sub Form_Load()
Me.BorderStyle = 1
End Sub
本来应该窗体变成不能改变大小,结果是毫无反应.了多次都不行.
但如果再加一行:
Me.Caption="%$$%%"
窗体边界马上变成不可改变. 如果把两个句子倒一下,Bordrstyle写在Caption句子后面,也无效。
为什么 ?Timer函数中,例如:
dim s as long
long = timer
if timer<long+0.5 then
Doevents
......我把0.5秒改成0.6以上,肯定好用,只要是小于0.5,这个句子等于白写。类似的问题我在KLP(一种小学生用的语言)中也遇到过,告别奇怪!难道是windowsXP时间本身有问题?
Private Sub Form_Load()
Me.BorderStyle = 1
End Sub
本来应该窗体变成不能改变大小,结果是毫无反应.了多次都不行.
但如果再加一行:
Me.Caption="%$$%%"
窗体边界马上变成不可改变. 如果把两个句子倒一下,Bordrstyle写在Caption句子后面,也无效。
为什么 ?Timer函数中,例如:
dim s as long
long = timer
if timer<long+0.5 then
Doevents
......我把0.5秒改成0.6以上,肯定好用,只要是小于0.5,这个句子等于白写。类似的问题我在KLP(一种小学生用的语言)中也遇到过,告别奇怪!难道是windowsXP时间本身有问题?
不能因为VB没有按照你设想的方式运行,就认为是BUG
dim s as long
long = timer
if timer<long+0.5 then
Doevents
......
'设计阶段form1.borderstyle为2
Private Sub Form_Load()
Me.BorderStyle = 1
Me.Caption = "123"
End Sub
程序运行,窗体不可改变大小。Caption跟BorderStyle有什么关系呢?怎么会这样?
Modest(塞北雪貂)·(偶最欣赏楼主的分):“第二个问题请楼主看看vb的四舍六入五留双。”
Private Sub Timer1_Timer()
Dim s As Long
s = Timer
While Timer < s + 0.5
Debug.Print "in"
Wend
End Sub
这个问题跟四舍五入有什么关系,摆明是楼主的代码写错了。