NinethSense

Imports System.Data.OleDb
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, 
		ByVal e As System.EventArgs) Handles Button1.Click
        If (OpenFileDialog1.ShowDialog() <> 
		Windows.Forms.DialogResult.OK) 
		Then Return
        Button1.Enabled = False
        Dim udlfile As String = OpenFileDialog1.FileName
        Label2.Text = "UDL File: " & udlfile
        Dim myConnection As OleDbConnection 
		= New OleDbConnection("File Name = " & udlfile)
 
        Try
 
            myConnection.Open()
            If (myConnection.State = ConnectionState.Open) Then
                TextBox1.Text = "Connection opened successfully!"
            Else
                TextBox1.Text = "Connection could not be established"
            End If
        Catch ex As Exception
 
            TextBox1.Text = ex.Message.ToString()
 
        Finally
 
            myConnection.Close()
        End Try
 
        Button1.Enabled = True
    End Sub
 
End Class

Imports Microsoft.TeamFoundation.Client
Imports Microsoft.TeamFoundation.WorkItemTracking.Client
Imports System.Net
 
Public Class Form1
    Dim nc As NetworkCredential = New NetworkCredential("user", "pass")
    Dim tfsurl As New Uri("http://192.168.0.2:8080")
    Dim tfs As TeamFoundationServer
    Dim wis As WorkItemStore
 
    Private Sub Form1_Load(ByVal sender As System.Object, 
	ByVal e As System.EventArgs) Handles MyBase.Load
        tfs = New TeamFoundationServer(tfsurl.AbsoluteUri, nc)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, 
	ByVal e As System.EventArgs) Handles Button1.Click
        tfs.Authenticate()
 
        wis = tfs.GetService(GetType(WorkItemStore))
        For Each proj As Project In wis.Projects
            If (proj.HasWorkItemReadRights) Then
                ListBox1.Items.Add(proj.Name)
            End If
        Next
    End Sub
End Class

<Window x:Class="Window1"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:System="clr-namespace:System;assembly=System.Core"
    Title="Window1" Height="300" Width="300" Name="Window1">
    <Grid>
        <Button Margin="121,129,82,110" Name="Button1" 
		Command="{Binding ClickCommand}">Button</Button>
        <TextBox Height="23" Margin="76,0,82,63" Name="TextBox1" 
		VerticalAlignment="Bottom" Text="{Binding mytext}" />
    </Grid>
</Window>

Class Window1
    Private Sub Window1_Loaded(ByVal sender As System.Object, 
	ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded
        Dim vm As New ViewModel
        vm.mytext = "test"
        Window1.DataContext = vm
    End Sub
End Class

Imports System.ComponentModel
 
Public Class ViewModel
    Implements INotifyPropertyChanged
    Public _mytext As String
    Public Property mytext() As String
        Get
            Return _mytext
        End Get
        Set(ByVal value As String)
            _mytext = value
        End Set
    End Property
 
    Public Property ClickCommand() As ICommand
        Get
            Return New ClickCommando(Me)
        End Get
        Set(ByVal value As ICommand)
 
        End Set
    End Property
 
    Public Event PropertyChanged As PropertyChangedEventHandler 
	Implements INotifyPropertyChanged.PropertyChanged
 
End Class
 
Public Class ClickCommando
    Implements ICommand
 
    Private _vm As ViewModel
 
    Public Sub Execute(ByVal parameter As Object) Implements ICommand.Execute
        MessageBox.Show(_vm.mytext)
    End Sub
 
    Public Function CanExecute(ByVal parameter As Object) As Boolean 
	Implements ICommand.CanExecute
        Return True
    End Function
 
    Public Event CanExecuteChanged As EventHandler 
	Implements ICommand.CanExecuteChanged
 
    Public Sub New(ByVal vm As ViewModel)
        _vm = vm
    End Sub
 
End Class