Программые кнопки

Программирование Web-приложений и Web-сервисов.

Модератор: Ramzes

lord0n
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 845
Зарегистрирован: 30.06.2005 (Чт) 9:55
Откуда: Moskow

Программые кнопки

Сообщение lord0n » 03.11.2006 (Пт) 20:30

Коллеги, доброго времени суток.

замучался уже, не могу понять в чем дело:
мастерпайдж содержит два контрола контент
на странице дефалт в первом контенте находится один плайсхолдер.
во втором - их два.
пишу следующий код:
Код: Выделить всё

   Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
      Dim a As New Button
      a.Text = "wquoierkaf"
      PlaceHolder1.Controls.Add(a)
      AddHandler a.Click, AddressOf Btn
   End Sub

   Private Sub Btn(ByVal sender As Object, ByVal e As EventArgs)
      Dim b As New Button
      b.Text = "345345435"
      PlaceHolder2.Controls.Add(b)
      AddHandler b.Click, AddressOf Btn234534
   End Sub

   Private Sub Btn234534(ByVal sender As Object, ByVal e As EventArgs)
      Dim s As String
      s = "sdfsdf"
   End Sub

при загрузке создается одна кнопка, и ей присваивается процедура Btn, которая создает кнопку b и присваевает её процедуру Btn234534
В чем суть проблемы:
при нажатии на первую кнопку вторая кнопка создается без проблем, но при нажатии второй кнопки страница перегружается и процедура Btn234534 не выполняется.
заранее спасибо
Теория - это когда что-то не работает и известно почему.
Практика - это когда что-то работает, но неизвестно почему.
Нам удалось совместить теорию с практикой, теперь ничего не работает и неизвестно почему.

Алексей Немиро
Начинающий
Начинающий
Аватара пользователя
 
Сообщения: 7
Зарегистрирован: 05.01.2008 (Сб) 5:52
Откуда: Kbyte.Ru

Re: Программые кнопки

Сообщение Алексей Немиро » 16.04.2009 (Чт) 4:58

Код: Выделить всё
Private b As Button

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  Dim a As New Button
  a.Text = "wquoierkaf"
  PlaceHolder1.Controls.Add(a)
  AddHandler a.Click, AddressOf Btn

  b = New Button()
  b.Text = "345345435"
  b.Visible = False
  PlaceHolder2.Controls.Add(b)
  AddHandler b.Click, AddressOf Btn234534
End Sub

Private Sub Btn(ByVal sender As Object, ByVal e As EventArgs)
  b.Visible = True
End Sub

Private Sub Btn234534(ByVal sender As Object, ByVal e As EventArgs)
Dim s As String
s = "sdfsdf"
End Sub


Вернуться в ASP.NET

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

    TopList