Chat: WIP

Controls.ChatControl/ChatControl.vb

@@ -92,7 +92,9 @@ Public Class ChatControl
 
     Private Sub ChatView_ItemCustomize(sender As Object, e As TileViewItemCustomizeEventArgs) Handles ChatView.ItemCustomize
         Dim oRow As DataRow = ChatView.GetDataRow(e.RowHandle)
+
         Dim oUsername As String = oRow.Item(UsernameColumn)
+        Dim oMessage As String = oRow.Item(MessageColumn)
         Dim oColor As Color = UsernameColorsDict.Item(oUsername)
 
         If oUsername = CurrentUser Then
@@ -102,12 +104,6 @@ Public Class ChatControl
         e.Item.Item(UsernameColumn).Appearance.Normal.ForeColor = oColor
     End Sub
 
-    Private Sub txtMessage_KeyUp(sender As Object, e As KeyEventArgs) Handles txtMessage.KeyUp
-        If e.Control And e.KeyCode = Keys.Enter And txtMessage.Text.Count > 0 Then
-            SendMessage(txtMessage.Text)
-        End If
-    End Sub
-
     Private Sub lookupConversations_SelectedValuesChanged(sender As Object, SelectedValues As List(Of String)) Handles lookupConversations.SelectedValuesChanged
         If SelectedValues.Count > 0 Then
             CurrentConversation = SelectedValues.First()
@@ -115,6 +111,12 @@ Public Class ChatControl
         End If
     End Sub
 
+    Private Sub txtMessage_KeyUp(sender As Object, e As KeyEventArgs) Handles txtMessage.KeyUp
+        If e.Control And e.KeyCode = Keys.Enter And txtMessage.Text.Count > 0 Then
+            SendMessage(txtMessage.Text)
+        End If
+    End Sub
+
     Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles btnSendMessage.Click
         If txtMessage.Text.Count > 0 Then
             SendMessage(txtMessage.Text)