2016-11-23 99 views
0

我家酒店預訂網站的工作,需要寫在按鈕和標籤面板的所有活動預訂在他們每個人的 這段代碼工作正常添加面板和動態控制

'creo un pannello per ogni pratica 
Dim p1 As New Panel 
topd = 270 + 220 * x ' parto da 270 poi altezza 200 e 20 px di distanza con pannello successivo 
p1.Attributes.Item("style") = "top:" & topd & "px; left:50px; z-index: 1; position: absolute; height: 200px; width: 600px;runat: server" 
p1.BorderColor = Drawing.Color.Silver 
p1.BorderWidth = Unit.Pixel(1) 
p1.Width = Unit.Pixel(600) 
p1.Height = Unit.Pixel(200) 
p1.ID = "P_" & pratica 
Me.Controls.Add(p1) 
'nel pannello metto la label di descrizione 
Dim l1 As New Label 
l1.Attributes.Item("style") = "Z-INDEX: 102; POSITION: absolute; TOP: 10px; LEFT: 10px; height: 150px; width:250px; Font-Size:9pt; text-align:center" 
l1.BorderStyle = BorderStyle.None 
l1.BackColor = Drawing.Color.White 
l1.Text = rosso & testo(22) & sp & npratica & SPANFINE & sr 
l1.Text += "Hotel " & preno(1) & sr & testo(24) & sp & preno(4) & sr & testo(25) & sp & preno(5) & sr 
l1.Text += testo(28) & sp & preno(10) & sr & testo(26) & sp & preno(6) & sr & testo(27) & sp & preno(7) & sr 
l1.Text += testo(29) & sp & preno(11) & sr 
l1.ForeColor = Drawing.Color.Blue 
p1.Controls.Add(l1) 

這工作

現在對於測試我想添加一個按鈕,我添加以下

b1.Text = "prova" 
p1.Controls.Add(b1) 

我得到這個錯誤

'Button'類型的控件'ctl01'必須放置在runat = server的form標籤中。

如果我取消標籤並只添加按鈕,我會得到同樣的錯誤。如果我把面板放在html中(不要動態創建它),它可以工作。

回答

0

行動我覺得很抱歉。

Me.Controls.Add(p1) 

是錯了,我要添加到Form1

form1.Controls.Add(p1) 

我想我應該保持這個堆棧,也許可以幫助