为什么只显示最后一个的值,不解中...

[咏帆]

Private Sub Command2_Click()
LotteryReadIssue.Label4.Caption = "AAAAAAAAA"
Sleep 1000
LotteryReadIssue.Label4.Caption = "BBBBBBBBB"
Sleep 1000
LotteryReadIssue.Label4.Caption = "CCCCCCCCC"
End Sub


为什么这段代码能看到的结果只有CCCCCCCCCCCC

而不是先显示AAAAAAAAA,隔1S后再显示BBBBBBBBBBBB,再隔1s后显示CCCCCCCC

[咏帆]

说明:Sleep有申明过
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

[zdingyun]

Option Explicit
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command2_Click()
    LotteryReadIssue.Label4.Caption = "AAAAAAAAA"
    DoEvents
    Sleep 1000
    LotteryReadIssue.Label4.Caption = "BBBBBBBBB"
    DoEvents
    Sleep 1000
    LotteryReadIssue.Label4.Caption = "CCCCCCCCC"
End Sub

[zdingyun]

Option Explicit
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command2_Click()
    LotteryReadIssue.Label4.Caption = "AAAAAAAAA"
    DoEvents
    Sleep 1000
    LotteryReadIssue.Label4.Caption = "BBBBBBBBB"
    DoEvents
    Sleep 1000
    LotteryReadIssue.Label4.Caption = "CCCCCCCCC"
End Sub

[of123]

LotteryReadIssue.Label4.Caption = "AAAAAAAAA"
LotteryReadIssue.Label4.Refresh
Sleep 1000
LotteryReadIssue.Label4.Caption = "BBBBBBBBB"
LotteryReadIssue.Label4.Refresh
Sleep 1000
LotteryReadIssue.Label4.Caption = "CCCCCCCCC"

[zdingyun]

Option Explicit
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command2_Click()
    LotteryReadIssue.Label4.Caption = "AAAAAAAAA"
    DoEvents
    Sleep 1000
    LotteryReadIssue.Label4.Caption = "BBBBBBBBB"
    DoEvents
    Sleep 1000
    LotteryReadIssue.Label4.Caption = "CCCCCCCCC"
End Sub

[东方之珠]

Private Sub Command2_Click()
LotteryReadIssue.Label4.Caption = "AAAAAAAAA"
sleep (5000)
LotteryReadIssue.Label4.Caption = "BBBBBBBBB"
Sleep (5000)
LotteryReadIssue.Label4.Caption = "CCCCCCCCC"
End Sub

1000毫秒（1秒钟）显示太快，即使刷新也看不太清。改成5秒种试一试。

[咏帆]

谢谢
of123

[咏帆]

我仔细看了,可能是程序在设置二个caption的值的时候,运算量太大了,导致程序响应不过来才会这样,只显示最后一个的值
根据of123说的,搞定~~