I am trying to get a list of the current configuration names of a part in order to populate those names in a comboBox (On a Form).
I followed the example from : 2015 SOLIDWORKS API Help - Get List of Configurations Example (VBA)
In the example, it spits out the configuration names using a msgbox. I need to put it in an array and then populate that into the comboBox so that the user can select which configuration they would like to make the changes to.
The issue with my code is that only the last configuration is being listed (I'm assuming that the UBound has something to do with it?)
How can i rewrite the code so that the list will populate correctly?
Private Sub getconfignamesbutton_Click()
Dim configArray() As Variant
Dim swConfig As Configuration
Set SwApp = Application.SldWorks
Set swModel = SwApp.ActiveDoc
Set swConfig = swModel.GetActiveConfiguration
If Not swConfig Is Nothing And newconfigcheckbox.value = False Then
configComboBox.Locked = False
configComboBox.Clear
configNames = swModel.GetConfigurationNames
For i = 0 To UBound(configNames)
configName = configNames(i)
Set swConfig = swModel.GetConfigurationByName(configName)
'MsgBox ("Config Name:(" & i & ") = " + configName)
configArray = Array(configNames)
Next i
MsgBox ("You may now select a Configuration")
configComboBox.List = configArray
Else
MsgBox ("Unselect New Configuration")
End If
End Sub