再次高分求vb下 Page.LoadControl用法 ---saucer(思归) 活靶子等高手帮忙啊
我用 Page.LoadControl的目的就是为了解决动态插入自定义用户控件，按照高手的指点写了如下代码，但运行通不过，请高手指点一下。下边是错误的源代码：
<script runat="server">
XX = "gonggao/list" & request("id") & ".ascx"
Dim myControl1 As UserControl= CType(XX,UserControl)
Mytd.Controls.Add(myControl1)
</script>
然后我在body里用
<td runat="server" id=mytd>
为什么一直通不过
清高手指点
如果错了麻烦帮忙修改一下
越详细越好
问题点数：50、回复次数：15Top
1 楼saucer（思归）回复于 2004-12-01 10:57:15 得分 0
<script runat="server">
Sub Page_Load(ByVal sender as Object, ByVal e as EventArgs)
dim XX as string = "gonggao/list" & request("id") & ".ascx"
Dim myControl1 As UserControl= CType(Page.LoadControl(XX),UserControl)
Mytd.Controls.Add(myControl1)
End Sub
</script>Top
2 楼wszliu6688（）回复于 2004-12-01 11:08:13 得分 0
思归老大有qq吗？我想请教一下Top
3 楼goody9807（http://goody9807.cnblogs.com）回复于 2004-12-01 11:20:11 得分 0
http://msdn.microsoft.com/library/chs/default.asp?url=/library/CHS/cpguide/html/cpconDevelopingUserControlsInCode-BehindFile.aspTop
4 楼wszliu6688（）回复于 2004-12-01 11:30:48 得分 0
还是通不过阿Top
5 楼video_sound（如何做WEB视频语音聊天室）回复于 2004-12-01 11:33:47 得分 0
upTop
6 楼saucer（思归）回复于 2004-12-01 11:35:27 得分 0
I don't use QQ, what error did you get?Top
7 楼wszliu6688（）回复于 2004-12-01 11:46:17 得分 0
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<%@ Register TagPrefix="CC" TagName="header" Src="header2.ascx" %>
<%@ Register TagPrefix="FF" TagName="footer" Src="footer2.ascx" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
这是开头部分
<script language="vb" runat="server">
Dim leixing3 As String
Dim leixing2 as Integer
Dim xuhao2 as Integer
Dim XX As String
Sub Page_Load(ByVal Sender As Object ,ByVal E as EventArgs)
dim leixing = request("type")
leixing2= Cint(leixing)
dim xuhao = request("id")
xuhao2= Cint(xuhao)
XX = "gonggao/list" & request("id") & ".ascx"
Dim myControl1 As UserControl= CType(Page.LoadControl(XX),UserControl)
Mytd.Controls.Add(myControl1)
End Sub
</script>
这是vb的
在body里我加了这么一句<td runat="server" id=mytd>
但是一直通不过，比教菜，请指点阿Top
8 楼saucer（思归）回复于 2004-12-01 11:56:14 得分 40
但是一直通不过, what error did you get?
1. test.ascx:
<img src="http://www.csdn.net/images/csdn.gif"/>
2. test.aspx:
<td id=mytd runat="server"/>
<script runat="server">
Sub Page_Load(ByVal sender as Object, ByVal e as EventArgs)
dim XX as string = "test.ascx"
Dim myControl1 As UserControl= CType(Page.LoadControl(XX),UserControl)
Mytd.Controls.Add(myControl1)
End Sub
</script>
Top
9 楼wszliu6688（）回复于 2004-12-02 08:41:38 得分 0
得到的错误是：
Compiler Error Message: BC30451: 名稱 'Mytd' 未宣告。
Source Error:
Line 65: XX = "gonggao/list" & request("id") & ".ascx"
Line 66: Dim myControl1 As UserControl= CType(Page.LoadControl(XX),UserControl)
Line 67: Mytd.Controls.Add(myControl1)
Line 68:
Line 69:
请帮忙
Top
10 楼wszliu6688（）回复于 2004-12-02 08:42:55 得分 0
在<body></body>里有这么一句
<td id="Mytd" runat="server">Top
11 楼SVG（ben）回复于 2004-12-02 08:45:13 得分 10
mytd大小写处理好没?Top
12 楼wszliu6688（）回复于 2004-12-02 08:49:32 得分 0
我用的是vb,也需要处理大小写吗？Top
13 楼wszliu6688（）回复于 2004-12-02 08:55:24 得分 0
顶起来Top
14 楼wszliu6688（）回复于 2004-12-02 09:02:50 得分 0
怎么没人帮忙了Top
15 楼SVG（ben）回复于 2004-12-02 09:31:47 得分 0
搞错, 唉做vb.net与c#太多了. 看了vb的都以为是c#了.
建议楼主用codebehind的做法, 这样还可以使用vs.net开发时编译调试下Top
