Private Sub Form_Load()
    MyTID = 1           ' Reset Transaction ID
    cmdConnect.Value = True
    cmdAddGroup.Value = True
    CheckGroupActive.Value = 1
    cmdAddItem.Value = True
    elec1 = 1
    Call cmdWriteAsync_Click
    Call cmdReadAsync_Click
End Sub

Private Sub txtChangeVal_Change(Index As Integer)
    If elec1 = True Then
        Im1.Visible = True
        Im2.Visible = True
        Im4.Visible = True
        P2.Enabled = True
        P2.Visible = True
    Else
        Im1.Visible = False
        Im2.Visible = False
        Im4.Visible = False
        P2.Visible = False
    End If

End Sub
请教问题:在运行Form_load时elec1为TRUE,Sub txtChangeVal_Change中的IM1 IM2(image)默认不显示,当elec1为TRUE时显示为False时不显示,但这段代码无法实现,请指教下究竟错在哪里?

没人指点一下吗?

这个elec1在模块里定义的全局变量

而且这段代码,放到Load或者Change都不行

Private Sub Form_Load()
    MyTID = 1           ' Reset Transaction ID
    cmdConnect.Value = True
    cmdAddGroup.Value = True
    cmdAddItem.Value = True
    CheckGroupActive.Value = 1
    txtChangeVal(11).Text = Format(txtChangeVal(11).Text, "000")
    elec1 = True
    cmdWriteAsync_Click
    If elec1 = True Then Im1.Visible = True
    If Val(txtChangeVal(5).Text) = False Then Im1.Visible = False
    If Val(txtChangeVal(5).Text) = False Then Im2.Visible = False
    If Val(txtChangeVal(5).Text) = False Then Im4.Visible = False
    cmdWriteAsync_Click
End Sub

界面设计的时候已经将visible设置成了False,按照你说的,将代码放到了form_load里面,还是一点办法没有
后来又放到Change里面,一样的不显示,唉,看来参这个论坛报的期望值高了,我再想别的办法吧

那个是文本文件，触发条件是elec1，这个定义了全局变量(boolean)，当它为真时，触发image文件或为真或为假。

触发条件就是elec1为真或者为假。为真时image(也就是im打头的文件)显示，为假时不显示。这个真是很麻烦，Load时就让elec1为真，这个可以实现，后边的image跟着为真或者为假实现不了。