在运行时填充表单控件

Bryco · 发表于 2007-4-26 15:03:02

有些事情似乎很简单，但我却在逃避；我有一个名为frmSetup的表单，它有3个帧，其中1个名为frmBusCenterLine，它有2个组合框，名为cboBCLHighBus&amp；cboBCLLowBus&nbsp；我正在尝试动态填充这两个组合框，但没有效果&nbsp；Autocad/VBA帮助显示了这一点，因此，给定该示例，为什么我无法获取值以转到cbo框
这些是我迄今为止尝试过的东西

copy

      frmSetup.frmBusCenterLine.cboBCLHighBus.AddItem "7'-6"""
      frmSetup.cboBCLHighBus.AddItem "7'-8"""
      frmSetup.frmBusCenterLine.Controls.Item("cboBCLHighBus").AddItem "dsh"
      
      cboBCLLowBus.AddItem "8'-0"""
      cboBCLLowBus.AddItem "8'-6"""

心情在线 · 发表于 2007-4-26 15:13:31

你有没有点击组合框来检查信息是否真的在那里&nbsp；如果你不&#039；t add….ListIndex=0，组合框将显示为空&nbsp；请参见下文……这对我很有用

copy

Public Sub Main()
    Load frmSetup
    frmSetup.cboBCLHighBus.AddItem "7'-8"""
    frmSetup.cboBCLLowBus.AddItem "8'-0"""
    frmSetup.cboBCLLowBus.AddItem "8'-6"""
    
    frmSetup.cboBCLHighBus.ListIndex = 0
    frmSetup.cboBCLLowBus.ListIndex = 0
    
    frmSetup.Show
End Sub