这种语句怎么实例化呢?

Question

Me.FindControl("browserpeek").Controls.Add(btnW)这条语句出现了未实例怎么办呢?

Answer 1

看样子又是一个没人理会的问题.放上这条错误语句之前的全部代码好了.
            Dim btnW As New System.Web.UI.HtmlControls.HtmlInputHidden
            Dim btnH As New System.Web.UI.HtmlControls.HtmlInputHidden
            Button1.ID = "Button1"
            btnW.Name = "WidthPixel"
            btnW.ID = "WidthPixel"
            btnH.Name = "HeightPixel"
            btnH.ID = "HeightPixel"
            Me.FindControl("browserpeek").Controls.Add(btnW)
从开始到这里编译器就提示要new一下了.但不知道怎么new?

Answer 2

Imports System
Public Class ClientPeek
    Inherits System.Web.UI.Page
    Protected WithEvents MyBody As System.Web.UI.HtmlControls.HtmlGenericControl
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Button1 As New System.Web.UI.WebControls.Button
        If Not Me.IsPostBack Then
            Dim btnW As New System.Web.UI.HtmlControls.HtmlInputHidden
            Dim btnH As New System.Web.UI.HtmlControls.HtmlInputHidden
            Button1.ID = "Button1"
            btnW.Name = "WidthPixel"
            btnW.ID = "WidthPixel"
            btnH.Name = "HeightPixel"
            btnH.ID = "HeightPixel"
            Me.FindControl("browserpeek").Controls.Add(btnW)
            Me.FindControl("browserpeek").Controls.Add(btnH)
            Me.FindControl("browserpeek").Controls.Add(Button1)
            Dim scriptString As String = ""
            scriptString += "document.browserpeek.WidthPixel.value=window.screen.width;"
            scriptString += "document.browserpeek.HeightPixel.value=window.screen.height;"
            Me.RegisterOnSubmitStatement("Meng", scriptString)
            Me.MyBody.Attributes.Add("onload", "document.browserpeek.Button1.click();")
        Else
            Me.MyBody.Attributes.Remove("onload")
            If Me.FindControl("browserpeek").Controls.Contains(Button1) Then
                Me.FindControl("browserpeek").Controls.Remove(Button1)
                Button1.Dispose()
            End If
            Dim strLabel As New System.Text.StringBuilder
            Dim bc As HttpBrowserCapabilities = Request.Browser
            strLabel.Append("您的浏览器的分辨率为：")
            strLabel.Append(Request.Form("WidthPixel"))
            strLabel.Append("×")
            strLabel.Append(Request.Form("HeightPixel"))
            strLabel.Append("<hr color='#000099'>")
            strLabel.Append("浏览器基本信息：<br>")
            strLabel.Append("Type = " & bc.Type & "<br>")
            strLabel.Append("Name = " & bc.Browser & "<br>")
            strLabel.Append("Version = " & bc.Version & "<br>")
            strLabel.Append("Major Version = " & bc.MajorVersion & "<br>")
            strLabel.Append("Minor Version = " & bc.MinorVersion & "<br>")
            strLabel.Append("Platform = " & bc.Platform & "<br>")
            strLabel.Append("Is Beta = " & bc.Beta & "<br>")
            strLabel.Append("Is Crawler = " & bc.Crawler & "<br>")
            strLabel.Append("Is AOL = " & bc.AOL & "<br>")
            strLabel.Append("Is Win16 = " & bc.Win16 & "<br>")
            strLabel.Append("Is Win32 = " & bc.Win32 & "<br>")
            strLabel.Append("支持 Frames = " & bc.Frames & "<br>")
            strLabel.Append("支持 Tables = " & bc.Tables & "<br>")
            strLabel.Append("支持 Cookies = " & bc.Cookies & "<br>")
            strLabel.Append("支持 VB Script = " & bc.VBScript & "<br>")
            strLabel.Append("支持 JavaScript = " & bc.JavaScript & "<br>")
            strLabel.Append("支持 Java Applets = " & bc.JavaApplets & "<br>")
            strLabel.Append("支持 ActiveX Controls = " & bc.ActiveXControls & "<br>")
            strLabel.Append("CDF = " & bc.CDF & "<br>")
            strLabel.Append("W3CDomVersion  = " + bc.W3CDomVersion.ToString + "<br>")
            strLabel.Append("UserAgent  = " + Request.UserAgent + "<br>")
            strLabel.Append("UserLanguages  = " + Request.UserLanguages(0).ToString + "<br>")
            strLabel.Append("<hr color='#000099'>")
            strLabel.Append("客户端计算机基本配置：<br>")
            strLabel.Append("UserHostName  = " + Request.UserHostName + "<br>")
            strLabel.Append("UserHostAddress  = " + Request.UserHostAddress + "<br>")
            Label1.Text = strLabel.ToString()
        End If
    End Sub
End Class

Answer 3

按f5开始到Me.FindControl("browserpeek").Controls.Add(btnW)出现问题了

Answer 4

loveyougt(小坏坏)帮我顶顶也行呀呵呵

Answer 5

((WebCountrol)Me.FindControl("browserpeek")).Controls.Add(btnW)应该这样,我不知道有FindControl是什么控件,你自己写吧,

Answer 6

我不知道browserpeek是啥控件  就单作panel吧,用c#写法Panel panel=(Panel)Page.FindControl("browserpeek")
panel.Controls.Add(btnW);