Public Class WebForm1 Inherits System.Web.UI.Page Private syokinen As Integer = 2015 Private syuuryounen As Integer = 2020 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Me.IsPostBack = False Then 'このセッション内ではじめてのリクエストの場合 ddList2.Items.Add("ss") For j = syokinen To syuuryounen ddList2.Items.Add(j) Next Else '2回目以降のリクエストの場合、選択されている値をポップアップで表示します。 Dim js As String = "<script>alert(" & ddList2.SelectedValue & ");</script>" Me.ClientScript.RegisterStartupScript(Me.GetType, "MsgBox", js) End If End Sub End Class