自由区/Webサービス紹介/Amazon E-Commerce Service/Code/VB.NET/Help のバックアップソース(No.2)

Top > 自由区 > Webサービス紹介 > Amazon E-Commerce Service > Code > VB.NET > Help
バックアップ一覧
差分を表示
現在との差分を表示
バックアップを表示
自由区/Webサービス紹介/Amazon E-Commerce Service/Code/VB.NET/Help へ行く。
- 1 (2006-10-20 (金) 01:31:37)
- 2 (2006-10-20 (金) 02:18:14)
*Helpのサンプルコード(VB.NET) [#pa2efa85]

ここで紹介しているコードは[[こちらのプロキシクラス>../../../ProxyClass]]を使用しています。

ここで紹介しているコードは[[こちらのC#のコード>../../CS/Help]]をVB.NETに変換したものです。

ECSで使用できるオペレーションやResponseGroupの情報を表示するサンプルです。

#code(vbnet){{
<%@ Page Language="VB" %>
<%@ Import Namespace="Amazon.jp.v20060913" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<script runat="server">

    Protected Sub Button1_Click(ByVal sender As Object, _
        ByVal e As EventArgs)
        Dim req As New HelpRequest()
        '何についてのHelpを取得するかを指定
        If HelpTypeList.SelectedValue = "Operation" Then
            req.HelpType = HelpRequestHelpType.Operation
        Else
            If HelpTypeList.SelectedValue = "ResponseGroup" Then
                req.HelpType = HelpRequestHelpType.ResponseGroup
            End If
        End If
        req.HelpTypeSpecified = True
        req.About = AboutList.SelectedValue
   
        Dim hlp As New Help()
        'あなたのAccess Key ID
        hlp.AWSAccessKeyId = "(あなたのAccessKeyID)"
        'あなたのAssociate ID
        hlp.AssociateTag = "dobonnet-22"
        hlp.Request = New HelpRequest() {req}
   
        Dim aws As New AWSECommerceService()
        Dim res As HelpResponse
        Try
            'Helpオペレーションを実行し、結果を取得
            res = aws.Help(hlp)
        Catch ex As Exception
            Label1.Text = "エラー：" + ex.Message
            Return
        End Try
   
        If res Is Nothing OrElse res.Information Is Nothing Then
            Label1.Text = "結果を取得できませんでした。"
            Return
        End If
        If Not (res.Information(0).Request.Errors Is Nothing) Then
            Label1.Text = "エラー：" + _
                res.Information(0).Request.Errors(0).Message
            Return
        End If
   
        '結果を表示
        Label1.Text = ""
        Dim info As Amazon.jp.v20060913.Information = res.Information(0)
        If Not (info.OperationInformation Is Nothing) Then
            'OperationのHelp情報を表示
            Label1.Text = "<ul>" + vbLf
            Dim i As OperationInformation
            For Each i In info.OperationInformation
                Label1.Text += "<li><b>" + i.Name + "</b>" + vbLf
                Label1.Text += "<li>説明 : " + i.Description + vbLf
         
                Label1.Text += "<li>必須パラメーター :" + vbLf
                Label1.Text += "<ul>" + vbLf
                Dim s As String
                For Each s In i.RequiredParameters
                    Label1.Text += "<li>" + s + vbLf
                Next s
                Label1.Text += "</ul>" + vbLf
         
                Label1.Text += "<li>オプションパラメーター :" + vbLf
                Label1.Text += "<ul>" + vbLf
                For Each s In i.AvailableParameters
                    Label1.Text += "<li>" + s + vbLf
                Next s
                Label1.Text += "</ul>" + vbLf
         
                Label1.Text += "<li>デフォルトのResponseGroup :" + vbLf
                Label1.Text += "<ul>" + vbLf
                For Each s In i.DefaultResponseGroups
                    Label1.Text += "<li>" + s + vbLf
                Next s
                Label1.Text += "</ul>" + vbLf
         
                Label1.Text += "<li>指定可能なResponseGroup :" + vbLf
                Label1.Text += "<ul>" + vbLf
                For Each s In i.AvailableResponseGroups
                    Label1.Text += "<li>" + s + vbLf
                Next s
                Label1.Text += "</ul>" + vbLf
            Next i
            Label1.Text += "</ul>" + vbLf
        Else
            If Not (info.ResponseGroupInformation Is Nothing) Then
                'ResponseGroupのHelp情報を表示
                Label1.Text = "<ul>" + vbLf
                Dim i As ResponseGroupInformation
                For Each i In info.ResponseGroupInformation
                    Label1.Text += "<li><b>" + i.Name + "</b>" + vbLf
                    Label1.Text += "<li>作成日 : " + i.CreationDate + vbLf
            
                    Label1.Text += "<li>Operation :" + vbLf
                    Label1.Text += "<ul>" + vbLf
                    Dim s As String
                    For Each s In i.ValidOperations
                        Label1.Text += "<li>" + s + vbLf
                    Next s
                    Label1.Text += "</ul>" + vbLf
            
                    Label1.Text += "<li>Element :" + vbLf
                    Label1.Text += "<ul>" + vbLf
                    For Each s In i.Elements
                        Label1.Text += "<li>" + s + vbLf
                    Next s
                    Label1.Text += "</ul>" + vbLf
                Next i
                Label1.Text += "</ul>" + vbLf
            Else
                Label1.Text += "表示する内容がありません。"
            End If
        End If
    End Sub
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        If Not IsPostBack Then
            SetAboutList()
        End If
    End Sub
 
    Protected Sub HelpTypeList_SelectedIndexChanged( _
        ByVal sender As Object, ByVal e As EventArgs)
        SetAboutList()
    End Sub


    Protected Sub SetAboutList()
        'Aboutに設定できる値をDropDownListに設定する
        AboutList.Items.Clear()
        If HelpTypeList.SelectedValue = "Operation" Then
            AboutList.Items.Add("CartAdd")
            AboutList.Items.Add("CartClear")
            AboutList.Items.Add("CartCreate")
            AboutList.Items.Add("CartModify")
            AboutList.Items.Add("CustomerContentLookup")
            AboutList.Items.Add("CustomerContentSearch")
            AboutList.Items.Add("Help")
            AboutList.Items.Add("ItemLookup")
            AboutList.Items.Add("ItemSearch")
            AboutList.Items.Add("ListLookup")
            AboutList.Items.Add("ListSearch")
            AboutList.Items.Add("SellerListingLookup")
            AboutList.Items.Add("SellerListingSearch")
            AboutList.Items.Add("SellerLookup")
            AboutList.Items.Add("SimilarityLookup")
            AboutList.Items.Add("TransactionLookup")
        Else
            If HelpTypeList.SelectedValue = "ResponseGroup" Then
                AboutList.Items.Add("Accessories")
                AboutList.Items.Add("BrowseNodes")
                AboutList.Items.Add("Cart")
                AboutList.Items.Add("CartSimilarities")
                AboutList.Items.Add("CustomerFull")
                AboutList.Items.Add("CustomerInfo")
                AboutList.Items.Add("CustomerLists")
                AboutList.Items.Add("CustomerReviews")
                AboutList.Items.Add("EditorialReview")
                AboutList.Items.Add("Help")
                AboutList.Items.Add("Images")
                AboutList.Items.Add("ItemAttributes")
                AboutList.Items.Add("ItemIds")
                AboutList.Items.Add("Large")
                AboutList.Items.Add("ListFull")
                AboutList.Items.Add("ListInfo")
                AboutList.Items.Add("ListItems")
                AboutList.Items.Add("ListMinimum")
                AboutList.Items.Add("ListmaniaLists")
                AboutList.Items.Add("Medium")
                AboutList.Items.Add("OfferFull")
                AboutList.Items.Add("OfferSummary")
                AboutList.Items.Add("Offers")
                AboutList.Items.Add("Request")
                AboutList.Items.Add("Reviews")
                AboutList.Items.Add("Salesrank")
                AboutList.Items.Add("Seller")
                AboutList.Items.Add("SellerListing")
                AboutList.Items.Add("Similarities")
                AboutList.Items.Add("Small")
                AboutList.Items.Add("Tracks")
                AboutList.Items.Add("TransactionDetails")
                AboutList.Items.Add("VariationMinimum")
                AboutList.Items.Add("VariationSummary")
                AboutList.Items.Add("Variations")
            End If
        End If
    End Sub
</script>

<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
    <title>Helpのサンプル</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:DropDownList ID="HelpTypeList" runat="server"
         OnSelectedIndexChanged="HelpTypeList_SelectedIndexChanged"
          AutoPostBack="True">
            <asp:ListItem>Operation</asp:ListItem>
            <asp:ListItem>ResponseGroup</asp:ListItem>
        </asp:DropDownList>
        <asp:DropDownList ID="AboutList" runat="server">
        </asp:DropDownList>
        <asp:Button ID="Button1" runat="server"
         OnClick="Button1_Click" Text="送信" />
         <br />
    </div>
    </form>
    <br />
    <asp:Label ID="Label1" runat="server" EnableViewState="False">
    </asp:Label>
</body>
</html>
}}

//これより下は編集しないでください
#pageinfo(,2006-10-20 (金) 01:31:37,DOBON!,2006-10-20 (金) 02:18:14,DOBON!)
▲ ▼
DoboWiki
