 |
建站必读 |
 |
|
|
 |
|
 |
|
| |
| 当前位置：首页 -> 建站必读 -> .NET技术 |
|
用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.Tex |
| |
|
| |
本站关键词： |
|
|
|
|
 |
|
 |
|
