MS: Chat und co

ChatTest/Form1.vb

@@ -1,11 +1,23 @@
 Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Database
 
 Public Class Form1
+    Private _Database As MSSQLServer
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
         Dim oLogConfig As New LogConfig(LogConfig.PathType.CustomPath, Application.StartupPath)
         Dim oConnectionString = "Server=sDD-VMP04-SQL17\DD_DEVELOP01;Database=IDB_TEST;User Id=sa;Password=dd;"
+        Me._Database = New MSSQLServer(oLogConfig, oConnectionString)
+        ChatControl1.Init(oLogConfig, oConnectionString, "Email", "JenneJ")
+        ChatControl1.GetConversations(10070)
+        Dim oSQL = "SELECT GUID as UserID,NAME,USERNAME,EMAIL from TBDD_USER"
+        Dim oDTUSERS As DataTable = _Database.GetDatatable(oSQL)
+
+        ChatNewConv1.Init(oLogConfig, oConnectionString, 10070, "SchreiberM", "de-DE", oDTUSERS, Nothing)
+        AddHandler ChatNewConv1.Conversation_Created, AddressOf onConversationCreated
 
-        ChatControl1.Init(oLogConfig, oConnectionString, "JenneJ")
-        ChatControl1.LoadConversations(10070)
     End Sub
+    Sub onConversationCreated()
+        MsgBox("Created")
+    End Sub
+
 End Class