Menustrip conventions how to#
Menustrip conventions upgrade#
Menustrip conventions code#

Instead of that you would use the search loop above for each row in the table (for current user).Īnd one optimization: If you have a plenty of controls in the form, you could lookup the menu control (MenuStrip1) only once and then loop only for the correct ToolStripDropDownItem and the ToolStripMenuItem inside the menustrip.

Menustrip conventions code#

In your case you wouldn't put the code in a click event. top level control in the form) was named MenuStrip1. Open (control's name mnuFileOpen) <- the item we're looking for If d.Name = Items(2) Then ' Correct menu dropdown item in this menu item ('mnuFileOpen')ĭ.Enabled = CBool(xValue) ' Set menu item state If m.Name = Items(1) Then ' Top level menu item found ('mnuFile' in this case)įor Each d As ToolStripMenuItem In m.DropDownItems() If c.Name = Items(0) Then ' Menu 'root' control found ('MenuStrip1' in this case)įor Each m As ToolStripDropDownItem In CType(c, ToolStrip).Items() ' Search the right menu item, first locate the menu itself 'Items(0) = 'MenuStrip1' ' 'Root' menu control

' Dim xString As String = 'FrmMain.MnuFile' ' A dot separated value read from the DB (or file etc.)ĭim xString As String = '' ' I used my naming convention, but still a menu naming hierarchyĭim xValue As String = 'False' ' Allow/disallow (for _this_ user), value is either True or False Here's an example Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Then you'll have to a) locate the menu control itself and b) locate the menu item from that menu hierarchy.

Menustrip conventions how to#

How to solve this problem in simple way? Or maybe in Some Other Way? manipulate xString into an object, so i can do 'xString.visible=xValue'īut I cannot do that because I don't know how to change STRING into OBJECT. set xValue as boolean = DataTable.rows(i).item('View') set xString as string = DataTable.rows(i).item('ModuleName') create DataTable X, fill with query select * from t_Authority where UserName='xxx' MY GOAL : I want to set authority for user on Event FrmMainMenu_Load base on table t_Autority, so I can control which user can use (visible true) or cannot use (visible false) module in that MenuStripItem. Actually in my case, my form called 'FrmMainMenu' already had a menustrip complete with it's item and sub-item, and sub-sub-item, and so on. Sorry before, maybe I didn't explain my needed clearly. It's good example to create dynamic menustrip. The important point is to remember add event handler for menu items' click event. MessageBox.Show('MnuFile selected', 'Menu Event', MessageBoxButtons.OK, MessageBoxIcon.Information) The menu strip at the bottom is one of the last things that the target audience looks at because of its positioning. ' Notice: I had to hard code 'MnuFile' in here If CType(sender, ToolStripMenuItem).Name = 'MnuFile' Then

Private Sub onMenuClick(ByVal sender As Object, ByVal e As EventArgs) XMenu.Name = Items(1) ' Name for this controlĪddHandler xMenu.Click, AddressOf onMenuClick Me.MainMenuStrip = FormMenu ' Set also as a main menuĭim xMenu As ĭim xString As String = 'FrmMain.MnuFile' ' A dot separated value read from the DB (or file etc.) Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Menu creation happens when a button is clicked but should be done in some other way. Here's an example how to create a menu dynamically. In a project context, we would further customize the rules so that various customer-specific requirements are automated such as other Wisej/.NET standards.You want to build a form's menu dynamically from the database, am I right?

Menustrip conventions upgrade#

In an actual upgrade solution, I would create a generalized Wisej upgrade configuration that could be used with many different VBPs and code files and also develop a set of rules files to deal with third-party controls. A number of tweaks to the code to address places where Wisej conventions differ from WinFormsįor this first test, I simply used the gmPL post-editting commands make the replacements.NET project folder (default.html, default.json, web.configs)

Deploying a few supporting files to the.

Using a Wisej startup code file rather than the one generated for Winforms.

Using a Wisej web application csproj file rather than the one generated for a WinForms app.

The web version works much like the original - even including the keyboard support.įor this sample there were only a few differences from simply letting gmStudio do a standard VB6 to WinForms upgrade:

Right: Calculator Form running in Chrome as a web application.

Middle: Calculator Form in Wisej designer in Visual Studio.

I recently automated a simple VB6 desktop to web migration using the Wisej framework. I would love to say more, but I certainly cannot do it justice here. My experience with Wisej is limited to only a few hours of playing around, but I find it to be an an incredibly sophisticated development and runtime framework.