Visual Basic

Indra_PR wrote:

Now, I want to make new project, I create 1 MDI form. And I want to make that MDI form to be the parent of 2 MDI child form: UserControl1 and UserControl2 that I can get from WindowsControlLibrary1.dll.

Indra_PR wrote:

After scripting on both of them, I built the project and I got 1 dll file: WindowsControlLibrary1.dll.

Indra_PR wrote:

How can I do that, what should I do to get the controls inside the dll file. I want to use it as part of the new project. So that if i call function like: UserControl1.Show(), the UserControl will be appeared under the main form of the new project, and have all function as child form.

Try
    ao = [Assembly].LoadFrom(sFullPathIncludingFileName)
    o = ao.CreateInstance(sAssembly & "." & sClass, True)
Catch ex As Exception
    Throw ex
End Try

Indra_PR wrote:

Can someone help me? If I could do that, next I want to add the path of the dll inside SQL Server database. When I run the main form, it will read the path, and dinamically run them as the MDI child on runtime.

Public Shared Function LoadAssembly(ByVal AssemblyPath As String, ByVal ClassName As String) As Object
        Dim objAssembly As Reflection.Assembly

        objAssembly = Reflection.Assembly.LoadFrom(AssemblyPath)

        Try
            LoadAssembly = objAssembly.CreateInstance(ClassName, True)
        Catch ex As Exception
            MsgBox(ex.Message)
            Return Nothing
        End Try

        If LoadAssembly Is Nothing Then
            MsgBox("Assembly : " & AssemblyPath & vbNewLine & "Class : " & ClassName)
            Return Nothing
        End If
End Function

Dim frm As Form

Try
        frm = LoadAssembly("C:\WindowsControlLibrary1.dll", "WindowsControlLibrary1.Form1")
        Me.IsMdiContainer = True
        frm.MdiParent = Me
        frm.Dock = DockStyle.Fill
        frm.Show()
Catch ex As Exception
        MsgBox(ex.Message)
End Try

Dim usc As Form

Try
        usc = DirectCast(LoadAssembly("C:\WindowsControlLibrary1.dll", "WindowsControlLibrary1.UserControl1"), Form)
        Me.IsMdiContainer = True
        usc.MdiParent = Me
        usc.Dock = DockStyle.Fill
        usc.Show()
Catch ex As Exception
        MsgBox(ex.Message)
End Try

Unable to cast object of type 'WindowsControlLibrary1.UserControl1' to type 'System.Windows.Forms.Form'.

Dim usc As UserControl

Try
    Me.WindowState = FormWindowState.Maximized
    usc = LoadAssembly("C:\WindowsControlLibrary1.dll", "WindowsControlLibrary1.UserControl1")
    usc.Dock = DockStyle.Fill
    Me.Controls.Add(usc)
Catch ex As Exception
    MsgBox(ex.Message)
End Try

Indra_PR wrote:

Dim usc As UserControl

Try
Me.WindowState = FormWindowState.Maximized
usc = LoadAssembly("C:\WindowsControlLibrary1.dll", "WindowsControlLibrary1.UserControl1")
usc.Dock = DockStyle.Fill
Me.Controls.Add(usc)
Catch ex As Exception
MsgBox(ex.Message)
End Try

usc = LoadAssembly("C:\WindowsControlLibrary1.dll", "WindowsControlLibrary1.UserControl1")

grdMyGrid.CurrentRow.Cells("ManagerCell").value = ManagerValue

Me.cboDepartment.DataBindings.Clear()
Me.cboDepartment.DataBindings.Add(New Binding("SelectedValue", Me.cboManager, "SelectedValue"))

cboDepartment.ValueMember = "manager"
cboDepartment.DisplayMember = "department"

cboManager.ValueMember = "manager"
cboManager.DisplayMember = "manager"

cboDepartment.SelectedValue = cboManager.SelectedValue
cboManager.SelectedValue = cboDepartment.SelectedValue

Dim PictureBox1Data As Byte()<br />
If PictureBox1.Image Is Nothing Then<br />
PictureBox1Data = Nothing<br />
Else<br />
PictureBox1Data = imageToByteArray(PictureBox1.Image)'See below this function<br />
End If

Dim QueryText As String<br />
Dim QueryValue As String<br />
Dim command As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand()<br />
QueryText = "INSERT INTO Settings(PrintCompany,IsUploadLogo,LogoGraphic )"<br />
QueryValue = "Values(@PrintCompany, @IsUploadLogo,@LogoGraphic)"<br />
command.CommandText = QueryText & QueryValue

command.Parameters.Add("@PrintCompany", SqlDbType.TinyInt, 10).Value = True<br />
command.Parameters.Add("@IsUploadLogo", SqlDbType.TinyInt, 10).Value =True<br />
If Not PictureBox1Data Is Nothing Then<br />
command.Parameters.Add("@LogoGraphic", SqlDbType.Image, PictureBox1Data.Length).Value = PictureBox1Data<br />
Else<br />
command.Parameters.Add("@LogoGraphic", SqlDbType.Image, 0).Value = System.DBNull.Value<br />
End If

Public Function imageToByteArray(ByVal ImageIn As System.Drawing.Image) As Byte()<br />
Dim ms As MemoryStream = New MemoryStream()<br />
Dim FormatImage1 As Imaging.ImageFormat = ImageIn.RawFormat<br />
ImageIn.Save(ms, FormatImage1)<br />
'ImageIn.Save(ms, Imaging.ImageFormat.Bmp)<br />
Return ms.ToArray()<br />
End Function