Load des Formulars
[Visual Basic] Private Sub FrmSysadminMenu_Load( _
ByVal sender As Object, _
ByVal e As EventArgs _
) Handles _
MyBase.Load
[Visual Basic] Private Sub FrmSysadminMenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim menu As New TKB.VV.Sysadmin.clsMySysadminfunkion()
menu.LoadTreeMenu(SysMenuTree)
SysMenuTree.ExpandAll()
itodelete = 0
Me.SysMenuTree.ContextMenu = Me.ContextMenu1
Me.Height = Me.Parent.ClientSize.Height
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