查看: 454  |  回复: 0
  VB6 With语句让你代码更简洁
楼主
发表于 2023年5月11日 23:37

新建From1(窗体),新建新建Command1(按钮CommandButton),Label1(Label),代码:

Private Sub Command1_Click()
    List1.Visible = False '不可见可以加快速度
    
    With List1
        .Clear
        For i = 1 To 10000
            .AddItem i
            DoEvents
        Next
    End With
    
    List1.Visible = True '完成后可见
End Sub


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com