samples/snippets/visualbasic/VS_Snippets_VBCSharp/VbVersHelp60Controls/VB/Form2.vb - main - aprogrammer/dotnet-docs

samples/snippets/visualbasic/VS_Snippets_VBCSharp/VbVersHelp60Controls/VB/Form2.vb
120 строк4 KB
Andy De George
Move snippets from samples repo to this repo (#17296)
03 мар 2020, 19:23
03 мар 2020, 19:23dbbeda1
'*************************************************************************
Public Class Form2


'*************************************************************************
Class Microsoft
  Class VisualBasic
    Public Class ApplicationServices
      Class StartupNextInstanceEventArgs
        Inherits System.EventArgs
      End Class
    End Class
    Class Compatibility
      Class VB6
                    Shared Sub SetItemString(ByRef o As Object, i As Integer, ByRef s As String)
                    End Sub
                    Shared Sub SetItemData(ByRef o As Object, i As Integer, ByRef v As Object)
                    End Sub
                    Shared Function GetItemData(ByRef o As Object, i As Integer) As String
                        Return "hello"
                    End Function
                End Class
            End Class
        End Class
    End Class


    Event StartupNextInstance(ByVal o As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs)


    '*************************************************************************
    '<Snippet3>
    ' Visual Basic
    ' Assumes that the Make Single Instance Application checkbox in the 
    ' Project Designer has been checked.

    Private Sub MyApplication_StartupNextInstance() Handles Me.StartupNextInstance
        MsgBox("The application is already running!")
    End Sub
    '</Snippet3>


    Private Sub TextChangedHandler(sender As Object, e As System.EventArgs) Handles TextBox1.TextChanged
        MessageBox.Show("hello")
    End Sub


    Sub test()

        '<Snippet57>
        ' Visual Basic
        ' Declare a new TextBox.
        ' Set the location below the first TextBox
        Using TextBox2 As New TextBox With {
            .Left = Me.TextBox1.Left,
            .Top = Me.TextBox1.Top + 30
        }
            ' Add the TextBox to the form's Controls collection.
            Me.Controls.Add(TextBox2)
            AddHandler TextBox2.TextChanged, AddressOf Me.TextChangedHandler
        End Using
        '</Snippet57>

    End Sub


    '*************************************************************************
    '<Snippet46>
    ' Visual Basic
    Private Sub Form1_Load()
        ' Raises the TextChanged event.
        Me.ComboBox1.Items.Add("A")
    End Sub
    Private Sub Form1_Click()
        ' Uses the SetItemString method from the VB6 compatibility library; 
        ' there is no equivalent method in Visual Basic.
        ' Raises the TextChanged event.
        Microsoft.VisualBasic.Compatibility.VB6.
      SetItemString(Me.ComboBox1, Me.ComboBox1.Items.Count, "B")
    End Sub
    '</Snippet46>


    '*************************************************************************
    '<Snippet10>
    ' Visual Basic
    Private Sub Form1_Load(
    sender As Object,
    e As System.EventArgs) Handles MyBase.Load

        Me.ComboBox1.Items.Add("Nancy Davolio")
        Microsoft.VisualBasic.Compatibility.VB6.
      SetItemData(Me.ComboBox1, Me.ComboBox1.Items.Count() - 1, 12345)

        Me.ComboBox1.Items.Add("Judy Phelps")
        Microsoft.VisualBasic.Compatibility.VB6.
      SetItemData(Me.ComboBox1, Me.ComboBox1.Items.Count() - 1, 67890)
    End Sub
    '</Snippet10>


    '******************************************************************************
    '<Snippet8>
    ' Visual Basic
    Private Sub ComboBox1_SelectedIndexChanged() Handles ComboBox1.SelectedIndexChanged
        Me.Label1.Text = "Employee #" & CStr(
   Microsoft.VisualBasic.Compatibility.VB6.
      GetItemData(Me.ComboBox1, Me.ComboBox1.SelectedIndex))
    End Sub
    '</Snippet8>


    Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
        'Form1_Load()
        'Form1_Click(New Object, New EventArgs)

        Me.test()
    End Sub

End Class