For intIndex = 0 To frmMain.chkOtherAttr.Count - 1
If frmMain.chkOtherAttr(intIndex).Value = vbChecked Then
' The TranslateXSDDataType routine converts the xml element
' types to a string with the Case values.
Select Case TranslateXSDDataType(LCase$(gcolOtherAttr(intIndex + 1).Name), _
TRANS_OTHER_ATTR)
Case "TextType"
Call oxmlElement.setAttribute(frmMain.chkOtherAttr(intIndex).Caption, _
frmMain.txtOtherAttr(intIndex).Text)
If LCase$(frmMain.chkOtherAttr(intIndex).Caption) = NAME_ITEM Then
'******* 1.00.001 #5 Start *******
frmMain.txtOtherAttr(intIndex).Text = _
CorrectCaseName("attribute", _
frmMain.txtOtherAttr(intIndex).Text)
'******* 1.00.001 #5 End *********
If frmMain.tvwXML.SelectedItem.Text <> _
frmMain.txtOtherAttr(intIndex).Text Then
' The user has changed the name of the attribute-element
' so we need to change the text of the tree node
frmMain.tvwXML.SelectedItem.Text = _
frmMain.txtOtherAttr(intIndex).Text
gTree.AttributeName = frmMain.txtOtherAttr(intIndex).Text
End If
End If
Case "BooleanType"
If frmMain.optOtherYesNo(intIndex).OptYesValue = True Then
Call oxmlElement.setAttribute(frmMain.chkOtherAttr(intIndex) _
.Caption, "yes")
Else
Call oxmlElement.setAttribute(frmMain.chkOtherAttr(intIndex) _
.Caption, "no")
End If
Case "ComboBoxType"
Call oxmlElement.setAttribute(frmMain.chkOtherAttr(intIndex).Caption, _
frmMain.cboOtherAttr(intIndex) _
.List(frmMain.cboOtherAttr(intIndex).ListIndex))
Case "PosIntType"
Call oxmlElement.setAttribute(frmMain.chkOtherAttr(intIndex).Caption, _
frmMain.txtOtherAttrPosint(intIndex).Text)
Case "FloatType"
Call oxmlElement.setAttribute(frmMain.chkOtherAttr(intIndex).Caption, _
frmMain.txtOtherAttrFloat(intIndex).Text)
Case Else
MsgBox ResolveResString(resUnexpectedData, _
"|1", TranslateXSDDataType _
(LCase$(gcolOtherAttr(intIndex + 1).Name), _
TRANS_OTHER_ATTR), _
"|2", frmMain.fraMisc(fraOtherAttr).Caption, _
"|3", frmMain.chkOtherAttr(intIndex).Caption), _
vbExclamation, _
ResolveResString(resValidationErrorTitle, _
"|1", frmMain.fraMisc(fraOtherAttr).Caption)
End Select
Else
Call oxmlElement.removeAttribute(frmMain.chkOtherAttr(intIndex).Caption)
End If
Next