sdks/dotnet/samples/messageeTutorial/Messagee/MainForm.vb

' Licensed to the Apache Software Foundation (ASF) under one or more
' contributor license agreements.  See the NOTICE file distributed with
' this work for additional information regarding copyright ownership.
' The ASF licenses this file to You under the Apache License, Version 2.0
' (the "License"); you may not use this file except in compliance with
' the License.  You may obtain a copy of the License at
'
'     http://www.apache.org/licenses/LICENSE-2.0
'
' Unless required by applicable law or agreed to in writing, software
' distributed under the License is distributed on an "AS IS" BASIS,
' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
' See the License for the specific language governing permissions and
' limitations under the License.

Imports Usergrid.Sdk
Imports Usergrid.Sdk.Model

Public Class MessageeMainWindow
    Public Sub UpdateUsers()
        Dim userList As UsergridCollection(Of UsergridUser)
        userList = Globals.client.GetEntities(Of UsergridUser)("users", 10)
        Dim i As Integer = 0
        While i < userList.Count
            Users.Items.Add(userList(i).UserName)
            i = i + 1
        End While
    End Sub
    Private Sub SettingsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SettingsToolStripMenuItem.Click
        Settings.Show()
    End Sub

    Private Sub Users_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Users.SelectedIndexChanged
        UpdateFollowersAndFollowing()
        UpdateYourFeed()
    End Sub
    Public Sub UpdateFollowersAndFollowing()
        Followers.Items.Clear()
        Following.Items.Clear()
        Dim followersList As IList(Of UsergridEntity)
        Dim followingList As IList(Of UsergridEntity)
        Dim conn As Connection = New Connection()
        Dim userName As String = Users.Items(Users.SelectedIndex).ToString
        followingList = Utils.GetFollowers(userName)
        followersList = Utils.GetFollowed(userName)

        Dim i As Integer = 0
        While i < followersList.Count
            Followers.Items.Add(followersList(i).Name)
            i = i + 1
        End While
        i = 0
        While i < followingList.Count
            Following.Items.Add(followingList(i).Name)
            i = i + 1
        End While
    End Sub

    Public Sub UpdateYourFeed()
        YourFeedBox.Text = ""
        Dim userFeed As UsergridCollection(Of UsergridActivity)
        userFeed = Globals.client.GetUserFeed(Of UsergridActivity)(Users.Items(Users.SelectedIndex).ToString)
        Dim i As Integer = 0
        While i < userFeed.Count
            YourFeedBox.Text = YourFeedBox.Text & "Posted By: " & userFeed(i).Actor.DisplayName & " on " & userFeed(i).PublishedDate & vbCrLf
            YourFeedBox.Text = YourFeedBox.Text & userFeed(i).Content & vbCrLf
            YourFeedBox.Text = YourFeedBox.Text & vbCrLf
            i = i + 1
        End While
    End Sub


    Private Sub btnPost_Click(sender As Object, e As EventArgs) Handles btnPost.Click
        Dim activity As UsergridActivity = New UsergridActivity()
        activity.Actor = New UsergridActor
        activity.Actor.DisplayName = Users.Items(Users.SelectedIndex).ToString
        activity.Actor.UserName = Users.Items(Users.SelectedIndex).ToString
        activity.Content = PostMessage.Text
        activity.Verb = "post"
        Globals.client.PostActivity(Of UsergridActivity)(Users.Items(Users.SelectedIndex).ToString, activity)
        UpdateYourFeed()
        PostMessage.Text = ""
    End Sub

    Private Sub UserDetailsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UserDetailsToolStripMenuItem.Click
        UserSettings.Show()
       
    End Sub

    Private Sub MessageeMainWindow_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Globals.mainWindow = Me
    End Sub

    Private Sub MenuStrip2_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles MenuStrip2.ItemClicked

    End Sub
End Class