用vb.net开发api viewer(2)

答案：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
                        If optCSharp.Checked Then
                            txtOutPut.Text = Replace(API.Declares.GetDataCSharp(lstItem.SelectedItem()), API.APISCOPE, IIf(optPublic.Checked, API.APIPUBLICCSHARP, API.APIPRIVATECSHARP))
                        Else
                            txtOutPut.Text = Replace(API.Declares.GetData(lstItem.SelectedItem()), API.APISCOPE, IIf(optPublic.Checked, API.APIPUBLIC, API.APIPRIVATE))
                        End If
                    End If
                Case Else
            End Select
        End If
    End Sub

    Private Sub lstItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstItem.Click
        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))
                 &nb

上一个：用vb.net开发api viewer(1)
下一个：Windows消息类。非常的有用。国外的，我特意贴出来。