注册 登录
编程论坛 VB6论坛

怎么解释这个代码

Jamin_Wong 发布于 2017-06-01 16:15, 1825 次点击
Private Sub Command1_Click()
    If S1.Visible = True Then        
        S2.Visible = True            
        S1.Visible = False            
        
        ElseIf S2.Visible = True Then   
        S3.Visible = True               
        S1.Visible = False                 
        S2.Visible = False
        Else
        S1.Visible = True
        S2.Visible = False
        S3.Visible = False
              End If
              
5 回复
#2
风吹过b2017-06-01 16:40
    If S1.Visible = True Then          如果s1为真
        S2.Visible = True              S2为真
        S1.Visible = False             S1为假
    ElseIf S2.Visible = True Then      否则如果S2为真
        S3.Visible = True              S3为真
        S1.Visible = False             S1为假
        S2.Visible = False             S2为假
    Else                               否则
        S1.Visible = True              S1为真
        S2.Visible = False             S2为假
        S3.Visible = False             S3为假
    End If

代码要这样缩进才好看。
有三个 控件,每点击一次按钮,这三个控件依次显示,同时只显示一个。
第一段代码中,少了一个控件的操作。

#3
Jamin_Wong2017-06-01 18:18
非常谢谢!
#4
xiangyue05102017-06-01 21:19
以下是引用风吹过b在2017-6-1 16:40:49的发言:

    If S1.Visible = True Then          如果s1为真
        S2.Visible = True              S2为真
        S1.Visible = False             S1为假
    ElseIf S2.Visible = True Then      否则如果S2为真
        S3.Visible = True              S3为真
        S1.Visible = False             S1为假
        S2.Visible = False             S2为假
    Else                               否则
        S1.Visible = True              S1为真
        S2.Visible = False             S2为假
        S3.Visible = False             S3为假
    End If

代码要这样缩进才好看。
有三个 控件,每点击一次按钮,这三个控件依次显示,同时只显示一个。
第一段代码中,少了一个控件的操作。

风版,这种帖子也回,不得累死?
#5
风吹过b2017-06-01 22:19
以下是引用xiangyue0510在2017-6-1 21:19:57的发言:


风版,这种帖子也回,不得累死?

没事时就回下。
#6
xiangyue05102017-06-02 08:44
以下是引用风吹过b在2017-6-1 22:19:24的发言:


没事时就回下。

这种懒得过分了,也就你好心给解释。
都说用VB的是懒人,聪明人用java,真正编程用VC
VB本就是懒人用的,结果有人还要懒。 唉唉
1