在一个窗体的调用中加入:
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时间本身有问题?

解决方案 »

  1.   

    有bug解决就好,BorderStyle本身就要先设置好,就算加了caption也是无效的。至于trimer本身问题更多。但是这就是现实,没有任何东西是完整的
      

  2.   

    遇到问题多想想为什么
    不能因为VB没有按照你设想的方式运行,就认为是BUG
      

  3.   

    呵呵,楼主又开一贴,只是这样的代码还反复贴出来Timer函数中,例如:
    dim s as long
    long = timer
    if timer<long+0.5 then
    Doevents
    ......
      

  4.   

    daisy8675(莫依): “BorderStyle本身就要先设置好,就算加了caption也是无效的。”
    '设计阶段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
    这个问题跟四舍五入有什么关系,摆明是楼主的代码写错了。