[Visual Basic] Private Sub NeueLeistungToolStripMenuItem_Click( _
ByVal sender As Object, _
ByVal e As EventArgs _
) Handles _
NeueLeistungToolStripMenuItem.Click
[Visual Basic] Private Sub NeueLeistungToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeueLeistungToolStripMenuItem.Click
Dim Katalogname As String = InputBox("Leistungsname", "Neue Leistung")
If Katalogname <> "" Then
Dim key As Integer = Me.Servicekatalogdaten.Insert_Katalogelement(Katalogname, Me.treeServiceKatalog.SelectedNode.Tag)
Treeviewdata.Load_Tree(Me.treeServiceKatalog, Me.cbselaktiv.CheckState)
End If
End Sub
Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition