Hi Mike,
Is there a way of converting a Jiwa 6.5.13 menu structure to Jiwa 7?
Dim buttonTool As Infragistics.Win.UltraWinToolbars.ButtonTool
Dim group As Infragistics.Win.UltraWinToolbars.RibbonGroup
buttonTool = New Infragistics.Win.UltraWinToolbars.ButtonTool("ID_RecordImportFromLegacyXML")
buttonTool.SharedProps.Caption = "Import From Legacy XML"
UltraToolbarsManager1.Tools.Add(buttonTool)
Private Sub UltraToolbarsManager1_ToolClick(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinToolbars.ToolClickEventArgs)
Select Case e.Tool.Key
Case "ID_RecordImportFromLegacyXML"
ImportFromLegacyXML()
End Select
End Sub
Public Sub ImportFromLegacyXML()
Dim lFilter As String
DialogOpen.Title = "Select file"
lFilter = "All Files (*.*)|*.*"
lFilter = lFilter & "|XML (*.xml)|*.xml"
DialogOpen.Filter = lFilter
DialogOpen.FilterIndex = 2
If My.Computer.FileSystem.DirectoryExists(My.Computer.FileSystem.SpecialDirectories.MyPictures) Then
DialogOpen.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
End If
DialogOpen.FileName = ""
If DialogOpen.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
_MenuMaintenance.ImportFromLegacyXML(DialogOpen.FileName)
End If
MenuUltraTree.Nodes(0).ExpandAll()
End Sub
Return to Technical and or Programming
Users browsing this forum: No registered users and 10 guests