Public Class Chat
Implements Interfaces.IPlugin
Dim tb As TextBox
Public Sub Panel_Init(ByRef tab As TabControl) Implements Interfaces.IPlugin.Panel_Init
Dim page As TabPage
Dim x As Long
Dim tb2 As TextBox
Dim g As New GroupBox()
' Create a new tab
page = New TabPage()
page.Text = "Chat"
page.Name = "Chat"
g.Name = "beauh"
g.Tag = CStr(page.TabIndex)
g.Text = "blah"
g.Anchor = AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right Or AnchorStyles.Top
' Create textbox that will appear in Home tab
tb = New TextBox()
tb.Name = "tbChat"
tb.Multiline = True
tb.Top = g.Top + 15
tb.Left = g.Left + 8
tb.Height = g.Height - 400
tb.Width = g.Width - 16
tb.Anchor = AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right Or AnchorStyles.Top
' Add textbox to tab page and tab page to tab container.
tb2 = New TextBox()
tb2.Name = "tbSend"
tb2.Multiline = True
tb2.Top = g.Height - 75
tb2.Height = 50
tb2.Left = g.Left + 8
tb2.Width = g.Width - 16
tb2.Anchor = AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right
' Add textbox to tab page and tab page to tab container.
g.Controls.Add(tb)
g.Controls.Add(tb2)
page.Controls.Add(g)
tab.TabPages.Add(page)
'tb = Nothing
SharedDLLTest.Test.Name = "Hello"
'MessageBox.Show(System.Environment.UserName)
End Sub
Private Sub go() Implements Interfaces.IPlugin.go
tb.Text = SharedDLLTest.Test.PluginCollection.Count
End Sub
End Class