VSTO 基础随笔

1.往组合框添加条目

     With Me .ComboBox1.Items
            .Add( "Ports" )
            .Add( "Igor" )
        End With

2.文本框Select Case

     Private Sub Fname1() Handles ComboBox1.SelectedValueChanged
        Select Case ComboBox1.SelectedItem
            Case "Drivers"
                Me .ListBox1.Items.Clear()
                Me .ListBox1.Items.Add("Drivers" )
            Case "Ports"
                Dim i As Integer = 0
                Dim m = My .Computer.Ports.SerialPortNames.Count
                Me .ListBox1.Items.Clear()
                For i = 0 To m - 1
                    Me .ListBox1.Items.Add(CStr ( My.Computer.Ports.SerialPortNames(i)))
                Next
        End Select
    End Sub

3.CType对象转换

     Private Sub ThisWorkbook_Startup() Handles Me.Startup
        Try
            Dim SelectedRange As Excel.Range = _
                Application.InputBox(Prompt:= _
                    "Select the cell or cells to add random value." , _
                    Title:= "random values" , _
                    [Default]:= CType (Application.Selection, Excel.Range).Address, Type:=8)
            SelectedRange.Value = "=rand()"
        Catch ex As Exception

        End Try
    End Sub

也可以：

    Private Sub ThisWorkbook_Startup() Handles Me.Startup
        Try
            Dim Selection As Excel.Range = Me.Application.Selection
            Dim SelectedRange As Excel.Range = _
                Application.InputBox(Prompt:= _
                    "Select the cell or cells to add random value.", _
                    Title:="random values", _
                    [Default]:=Selection.Address, Type:=8)
            SelectedRange.Value = "=rand()"
        Catch ex As Exception

        End Try
    End Sub

 4. 函数创建及调用

    Private Sub ThisWorkbook_Startup() Handles Me.Startup
        Try
            Dim i As Double
            Dim Selection As Excel.Range = Me.Application.Selection
            Dim SelectedRange As Excel.Range = _
                Application.InputBox(Prompt:= _
                    "Select the cell or cells to add random value.", _
                    Title:="random values", _
                    [Default]:=Selection.Address, Type:=8)
            i = Rnd()
            SelectedRange.Value = myFunction(i)
        Catch ex As Exception

        End Try
    End Sub

    Function myFunction(ByVal j As Double) As Double
        myFunction = 5 * j
        Exit Function
    End Function