CasewareDocs

SmartComboBox

Properties:

Example

Sub Main() 
Dim oParamaters As Object 

	'Get parameters from SmartContext. 
	Set oParameters = SmartContext.Parameters 

	If oParameters.Contains("smartComboBox1") Then 
		Select Case oParameters.Item("smartComboBox1" ).Selection 
		Case 0 

		'Do something if first entry (0) was selected. 
		Case 1 

		'Do something if second entry (1) was selected. 
		Case 2 

		'Do something if third entry (2) was selected. 
		Case 3 

		'Do something if fourth entry (3) was selected. 
		Case Else 

		'An unexpected entry was selected. 
		End Select 
	End If 
	Set oParameters = Nothing 
End Sub
SmartComboBox | Caseware Docs