VPF::Не работает код VB.NET - Форум программистов

koshkalana

Дата 16.12.2010, 14:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 19.11.2010

Репутация: нет
Всего: нет

Помогите, плз, разобраться. Не работает код файла .aspx.vb. Что бы я не писала показывает просто пустой белый экран. При вставке скрипта непосредственно в aspx код все работает нормально. Т.е. он просто не видит код, написанный в классе _Default.

Freyzer

Дата 16.12.2010, 19:57 (ссылка)

(нет голосов)

Загрузка ...

обаятельный нахал

Профиль
Группа: Участник
Сообщений: 277
Регистрация: 12.12.2009
Где: на Марсе

Репутация: 1
Всего: 1

Сам код приведи, тоесть, полностью, как ты его в класс вставляешь, полностью класс раздельного файла.

--------------------

Advocatus Dei smile

. Advocatus Diaboli smile

. Ajo!

A5uKa

Дата 17.12.2010, 12:09 (ссылка)

(нет голосов)

Загрузка ...

TЋ♥s F1rȜ iƧ BurȠiƞg

Профиль
Группа: Awaiting Authorisation
Сообщений: 1928
Регистрация: 30.8.2008

Репутация: 3
Всего: 16

А что ты делала, что бы его сломать ? smile

Что пытаешься писать ? smile

Как выглядит шапка aspx файла ? smile

koshkalana

Дата 17.12.2010, 12:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 19.11.2010

Репутация: нет
Всего: нет

Цитата(A5uKa @ 17.12.2010, 12:09)

А что ты делала, что бы его сломать ? smile

Что пытаешься писать ? smile

Как выглядит шапка aspx файла ? smile

Что значит сломать? Запускала aspnet_regiis.exe –i и –u.
Код asp

Код


<%@Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title>Form1</title>
</head>
<body>
    <form id="form1" runat="server">
    <div align="center">
        
    </div>
    </form>
</body>
</html>

Код


Partial Class _Default
    Inherits System.Web.UI.Page

 Public Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        
        Dim i As Integer
        Dim ButtonNames As String() = {"Ok", "Cancel", "Retry"}
        For i = 0 To UBound(ButtonNames)
            Dim Butt As New Button
            Dim tex As String
            tex = ButtonNames(i)
            Butt.Text = tex
            AddHandler Butt.Click, AddressOf Butt_Click
            form1.Controls.Add(Butt)
        Next i

    End Sub

    Private Sub Butt_Click(ByVal sender As Object, ByVal e As EventArgs)
        Response.Write("Кнопка " + sender.Text + " нажата один раз")
    End Sub

Пишу пока тестовые кусочки, но это не важно, т.к. даже если простую строчку пишу с ResponseWrite("Привет") тоже ничего не выводит, просто белый экран и все.... (((

A5uKa

Дата 17.12.2010, 13:17 (ссылка)

(нет голосов)

Загрузка ...

TЋ♥s F1rȜ iƧ BurȠiƞg

Профиль
Группа: Awaiting Authorisation
Сообщений: 1928
Регистрация: 30.8.2008

Репутация: 3
Всего: 16

А если так ?

Код


<asp:Button ID="Butt" runat="server" OnClick="Butt_Click" Text="Нажми меня"/>

Добавлено через 7 минут и 38 секунд
А.... вот ты о чём ...

У тебя метод Page_Load не срабатывает. Кроме того зачем тебе он Public ?

Напиши

Код


Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load

Это сообщение отредактировал(а) A5uKa - 17.12.2010, 13:23

koshkalana

Дата 17.12.2010, 13:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 19.11.2010

Репутация: нет
Всего: нет

Цитата(A5uKa @ 17.12.2010, 13:17)

А если так ?

Код


<asp:Button ID="Butt" runat="server" OnClick="Butt_Click" Text="Нажми меня"/>

Добавлено @ 13:25
А.... вот ты о чём ...

У тебя метод Page_Load не срабатывает. Кроме того зачем тебе он Public ?

Напиши

Код


Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load

Спасибо огромное!!!! Все заработало! smile

A5uKa

Дата 17.12.2010, 13:39 (ссылка)

(нет голосов)

Загрузка ...

TЋ♥s F1rȜ iƧ BurȠiƞg

Профиль
Группа: Awaiting Authorisation
Сообщений: 1928
Регистрация: 30.8.2008

Репутация: 3
Всего: 16

Код


        For Each bt In {"Ok", "Cancel", "Retry"}
            Dim Butt = New Button
            Butt.Text = bt
            AddHandler Butt.Click, AddressOf Butt_Click
            form1.Controls.Add(Butt)
        Next

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Разработка под ASP.NET \| Следующая тема »