Viewer.vb剩余代码
  Private Sub lstItem_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstItem.SelectedIndexChanged
        If lstItem.Items.Count > 0 Then
            Select Case cmbOption.Text
                Case API.CMB_TYPES
                    If Not lstItem.SelectedItem Is Nothing Then
                        If optCSharp.Checked Then
                            txtOutPut.Text = Replace(API.Types.GetDataCSharp(lstItem.SelectedItem()), API.APISCOPE, IIf(optPublic.Checked, API.APIPUBLICCSHARP, API.APIPRIVATECSHARP))
                        Else
                            txtOutPut.Text = Replace(API.Types.GetData(lstItem.SelectedItem()), API.APISCOPE, IIf(optPublic.Checked, API.APIPUBLIC, API.APIPRIVATE))
                        End If
                    End If
                Case API.CMB_CONSTANTS
                    If Not lstItem.SelectedItem Is Nothing Then
                        If optCSharp.Checked Then
                            txtOutPut.Text = Replace(API.Constants.GetDataCSharp(lstItem.SelectedItem()), API.APISCOPE, IIf(optPublic.Checked, API.APIPUBLICCSHARP, API.APIPRIVATECSHARP))
                        Else
                            txtOutPut.Text = Replace(API.Constants.GetData(lstItem.SelectedItem()), API.APISCOPE, IIf(optPublic.Checked, API.APIPUBLIC, API.APIPRIVATE))
                        End If
                    End If
                Case API.CMB_DECLARES
                    If Not lstItem.SelectedItem Is Nothing Then
                &nb