Skip to content

Instantly share code, notes, and snippets.

@Scribbio

Scribbio/.txt

Last active August 26, 2019 16:15
Show Gist options
  • Save Scribbio/f823a4e5bf397a0742143ba1d19640af to your computer and use it in GitHub Desktop.
Save Scribbio/f823a4e5bf397a0742143ba1d19640af to your computer and use it in GitHub Desktop.
Download ZIP
LOADING ASSETS FROM REFERENCED PROJECTS AND DLLs DYNAMICALLY
Raw
.txt
LOADING ASSETS FROM REFERENCED PROJECTS DYNAMICALLY
--CONTEXT-------------------------------------------------------------------------------------------------
For example, you have a winforms application and you reference other winform projects which deal
with specific sections of your application.
These sections are accessible through a single menu, in our example a listview (named LvAdministration)
We can load a particular form from one of these projects depending on the user's selection during run-time.
The listview has two columns, represented by "|", the second is hidden.
FIGURE 1 - Form ADMINISTRATION
|----------------------------------------------------------|
| ADMINSTATION |
|----------------------------------------------------------|
| |
| |Listview |
| ---------------------------------- |
| |Add Users | UserForms| |
| |Delete Users | UserForms| |
| |Manage Users | UserForms| |
| |Add Invoice | FinanceForms| |
| |Manage Payrolls | FinanceForms| |
| |Order Stock | UserForms| |
| |Delete Stock | UserForms| |
| |Manage Users | UserForms| |
| |
------------------------------------------------------------
--HOW TO DO IT-------------------------------------------------------------------------------------------------
Handle the listview's click event.
Private Sub LvAdministation_Selection(ByVal eventSender As System.Object, ByVal e As EventArgs)
string dllName = "UserForms";
var loadedClassFromDll = Assembly.Load(dllName).CreateInstance(strObjTmp);
loadedClassFromDll.Show();
Dim nspc As String = strObjTmp.Substring(0, strObjTmp.LastIndexOf("."c))
Dim o As Object = Nothing
clsObjet = Assembly.Load(nspc).CreateInstance(strObjTmp)
clsObjet.frmFenMDI = FMdiBal
strTable = lvwMenu.clsSubItems("FctCod").Text
Select Case strTypeFonction
Case "Consultation"
clsObjet.Consulter(strTable)
Case "Proposition"
clsObjet.Saisir(strTable)
Case "Hors Proposition"
clsObjet.Saisir(strTable, strAcces)
Case "Tables de référence"
clsObjet.Table(strTable, strAcces)
Case "Impression"
clsObjet.Imprimer(strTable)
End Select
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment