Question

我花了几个小时试图解决这个问题，并且已经空了。我有一个.ascx用户控件，我传递了一些值，所以它将填充一些下拉列表。如果没有价值＆＃34;设置＆＃34;对于下拉列表，我想隐藏下拉列表。这就是我的代码隐藏（我删除了不相关的部分）databaselinks.ascx.vb：

Public Class databaselinks
Inherits System.Web.UI.UserControl

Public Property Drawing As String
    Get
        '
    End Get
    Set(ByVal value As String)
        If Not (value Is Nothing) Then
            ' Create a new ListItemCollection
            Dim liDrawingLink As New ListItemCollection()

            ' Add items to the collection
            liDrawingLink.Add(New ListItem("For this drawing...", ""))
            liDrawingLink.Add(New ListItem("...view drawing details", "engdrawingdetail.aspx?dwg=" & value))
            liDrawingLink.Add(New ListItem("...view Bill of Materials", "engdrawingbom.aspx?dwg=" & value))
            liDrawingLink.Add(New ListItem("...list Work Orders", "wolist.aspx?dwg=" & value))
            liDrawingLink.Add(New ListItem("...list transmittals", "engtransmittaldrawing.aspx?dwg=" & value))

            ' Databind our DDL to the ListItemCollection we just filled
            ddDrawingLink.DataSource = liDrawingLink
            ddDrawingLink.DataTextField = "Text"
            ddDrawingLink.DataValueField = "Value"
            ddDrawingLink.DataBind()
            ddDrawingLink.Visible = True
        Else
            ddDrawingLink.Visible = False
        End If

    End Set
End Property

Sub btnGo3_Click(ByVal sender As Object, ByVal e As EventArgs)
    Response.Redirect(ddDrawingLink.SelectedItem.Value)
End Sub
End Class

我的usercontrol databaselinks.ascx：

<%@ Control Language="vb" AutoEventWireup="false" CodeBehind="databaselinks.ascx.vb" Inherits="Rubb_Intranet_Databases.databaselinks" %>

<asp:Table Id="tblA" RunAt="server" CssClass="printhide">
    <asp:TableRow Id="trA1" RunAt="server" >
        <asp:TableCell Id="tdA1" RunAt="server">
            <asp:Table Id="tblB" RunAt="server">
                <asp:TableRow Id="trB1" RunAt="server" >
                    <asp:TableCell Id="tdB1" RunAt="server" BackColor="#FFFF99" Style="font-size: 9px; border: 1px solid Black; padding: 2px;">
                        Choose a page to visit from the dropdown
                    </asp:TableCell>
                </asp:TableRow>
            </asp:Table>
        </asp:TableCell>
    </asp:TableRow>
    <asp:TableRow Id="TableRow1" RunAt="server" >
        <asp:TableCell Id="TableCell1" RunAt="server">
            <asp:DropDownList Id="ddDrawingLink" RunAt="server" Width="190" OnSelectedIndexChanged="btnGo3_Click" AutoPostBack="True" Visible="False" />
        </asp:TableCell>
    </asp:TableRow>
</asp:Table>

在我的主页面中，我使用以下命令设置usercontrol的值：

dblinks.Drawing = "12345"

效果很好，但在我还没有设置Drawing属性的页面上，我仍然会得到一个空白的下拉列表。我正在检查值是否为Nothing，但是并没有这样做，我也尝试检查它是否为NullOrEmpty，IsEmpty，无济于事。我也尝试将默认值设置为Nothing，但也没有。我错过了什么？我知道我可以通过在我的页面上设置它来强制该值为Nothing，而不是通过几十页来将值设置为Nothing，让控件弄清楚值是否已设置似乎更简单。 / p>

感谢您的投入，我从StackOverflow中学到了很多东西，但这是我第一次不得不寻求帮助。

- =格伦

Answer 1

这个逻辑：

If Not (value Is Nothing) Then

位于属性设置器中。因此，如果没有任何东西设置属性的值，那么永远不会调用该逻辑。也许你想把它放在Page_Load中？（或者，如果用户控件具有同等效果，那么我已经有一段时间了，因为我不得不谨慎地使用Web窗体。）这样的事情：

Sub Page_Load(ByVal Sender As System.Object, ByVal e As System.EventArgs)
    If Drawing Is Nothing Then
        ddDrawingLink.Visible = False
    End If
End Sub

当在页面的上下文中加载用户控件时，这将有条件地隐藏一个控件，而不是在设置属性值时。（从逻辑上讲，当您不设置属性值时，您希望这种情况发生。）

VB.Net如何检查是否已为属性设置了值

1 个答案: