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 =
                 Dim m = My .Computer.Ports.SerialPortNames.Count
                 Me .ListBox1.Items.Clear()
                 For i =  To m -
                     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:=)
             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:=)
             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:=)
             i = Rnd()
             SelectedRange.Value = myFunction(i)
         Catch ex As Exception

         End Try
     End Sub

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