Battle Forum

Battle Forum (http://battlefox.rooty.ru/index.php)
-   Поиск (http://battlefox.rooty.ru/forumdisplay.php?f=22)
-   -   Требуется помощь программистов (http://battlefox.rooty.ru/showthread.php?t=6124)

sHELL 21.12.2007 12:52

Требуется помощь программистов
 
Вложений: 2
Вообщем есть вот такая процедура:

Const e = "----------"
Private Sub Form_Load()
Dim y As String
Dim i As Integer
For i = 1 To n
y = "st" + Format(i)
y.Caption = e
y = ""
Next i
End Sub


На форме имеются метки см. скрин

Подскажите как сделать так чтобы в цикле перебирались все метки этой формы за счёт генерации имени метки (переменная y)

Имена меток различаюся только одним символом st1 st2 st3....st10

Да и вообще чтоб можно было иметь доступ к конкретной метке в зависимости от условия

в архиве есть исходник программы если так будет легче понять

В выше написанной процедуре ошибка незнаю как её испровить или может так нельзя вообще делать (как я сделал)

Очень нужна помощь!

bmp 21.12.2007 14:14

Вложений: 1
sHELL, не подойдет способ с использованием Control Array? В VB это реализуется просто: даешь всем Label'ам одиннаковое имя, сначала VB будет ругаться - типа такое имя есть, но предложит создать этот самый Control Array, и тогда к этим элементам будет доступ через имя(индекс), а индекс задается в соответствующем поле свойств элемента. При этом процедура будет выглядеть так:
Код:

Const e = "----------"
Private Sub Form_Load()
Dim i As Integer
For i = 0 To n - 1
st(i).Caption = e ' st - имя Контрол Аррея
Next i
End Sub

Вот переписанная прог-а: Вложение 37538

SEZAR 17.01.2008 19:36

Тогда я тожа спрошу, у меня стоит сайт на Joomla 1.0. Хочу поставить сщёчик с index.karelia.ru. В какое место тыкать его? И в какой пшп файл? Вот код индекса:
Код:

                  <!-- index.karelia.ru -->
<a href="http://index.karelia.ru">
<script language="javascript">
java="1.0";
java1=""+"&refer="+escape(document.referrer)+"&page="+
escape(window.location.href);
document.cookie="astratop=1; path=/"; java1+="&c="+(document.cookie?"yes":"now");
</script>
<script language="javascript1.1">java="1.1";java1+="&java="+(navigator.javaEnabled()?"yes":"now")</script>
<script language="javascript1.2">java="1.2";
java1+="&razresh="+screen.width+'x'+screen.height+"&cvet="+
(((navigator.appName.substring(0,3)=="Mic"))?
screen.colorDepth:screen.pixelDepth)</script><script language="javascript1.3">java="1.3"</script>
<script language="javascript">java1+="&jscript="+java+"&rand="+Math.random();
document.write("<a href='http://index.karelia.ru?id=77&fromsite=1' target='_blank'><img "+
" src='http://index.karelia.ru/img.php?id=77&"+java1+"&' border=0 alt='index.karelia.ru' width='88' height='31'></a>")</script>
<noscript><a href=http://index.karelia.ru target=_blank><img src="http://index.karelia.ru/img.php?id=77" border=0 alt="index.karelia.ru" width='88' height='31'></a></noscript>
</a>
<!-- /index.karelia.ru -->

А вот код странички index.php:
Код:

<?php
/**
* @version $Id: index.php 6022 2006-12-18 22:30:07Z friesengeist $
* @package Joomla RE
* @copyright Авторские права (C) 2005 Open Source Matters. Все права защищены.
* @license Лицензия http://www.gnu.org/copyleft/gpl.html GNU/GPL, смотрите LICENSE.php
* Joomla! - свободное программное обеспечение. Эта версия может быть изменена
* в соответствии с Генеральной Общественной Лицензией GNU, поэтому возможно
* её дальнейшее распространение в составе результата работы, лицензированного
* согласно Генеральной Общественной Лицензией GNU или других лицензий свободных
* программ или программ с открытым исходным кодом.
* Для просмотра подробностей и замечаний об авторском праве, смотрите файл COPYRIGHT.php.
*
* @localized Авторские права (C) 2006 Joom.Ru - Русский дом Joomla!
* @translator Sourpuss (sourpuss@mail.ru)
*/

// Установка флага родительского файла
define( '_VALID_MOS', 1 );

// проверка конфигурационного файла, если не обнаружен, то загружается страница установки
if (!file_exists( 'configuration.php' ) || filesize( 'configuration.php' ) < 10) {
        $self = rtrim( dirname( $_SERVER['PHP_SELF'] ), '/\\' ) . '/';
        header("Location: http://" . $_SERVER['HTTP_HOST'] . $self . "installation/index.php" );
        exit();
}

require( 'globals.php' );
require_once( 'configuration.php' );

// Проверка SSL - $http_host возвращает <url_сайта>:<номер_порта, если он 443>
$http_host = explode(':', $_SERVER['HTTP_HOST'] );
if( (!empty( $_SERVER['HTTPS'] ) && strtolower( $_SERVER['HTTPS'] ) != 'off' || isset( $http_host[1] ) && $http_host[1] == 443) && substr( $mosConfig_live_site, 0, 8 ) != 'https://' ) {
        $mosConfig_live_site = 'https://'.substr( $mosConfig_live_site, 7 );
}

require_once( 'includes/joomla.php' );

//Проверка подпаки установки, удалена при работе с SVN
if (file_exists( 'installation/index.php' ) && $_VERSION->SVN == 0) {
        define( '_INSTALL_CHECK', 1 );
        include ( $mosConfig_absolute_path .'/offline.php');
        exit();
}
 
// отображение страницы выключенного сайта
if ($mosConfig_offline == 1) {
        require( $mosConfig_absolute_path .'/offline.php' );
}

// загрузка группы системного бота
$_MAMBOTS->loadBotGroup( 'system' );

// триггер событий onStart
$_MAMBOTS->trigger( 'onStart' );

if (file_exists( $mosConfig_absolute_path .'/components/com_sef/sef.php' )) {
        require_once( $mosConfig_absolute_path .'/components/com_sef/sef.php' );
} else {
        require_once( $mosConfig_absolute_path .'/includes/sef.php' );
}
require_once( $mosConfig_absolute_path .'/includes/frontend.php' );

// поиск некоторых аргументов url (или form)
$option = strval( strtolower( mosGetParam( $_REQUEST, 'option' ) ) );
$Itemid = intval( mosGetParam( $_REQUEST, 'Itemid', null ) );

if ($option == '') {
        if ($Itemid) {
                $query = "SELECT id, link"
                . "\n FROM #__menu"
                . "\n WHERE menutype = 'mainmenu'"
                . "\n AND id = " . (int) $Itemid
                . "\n AND published = 1"
                ;
                $database->setQuery( $query );
        } else {
                $query = "SELECT id, link"
                . "\n FROM #__menu"
                . "\n WHERE menutype = 'mainmenu'"
                . "\n AND published = 1"
                . "\n ORDER BY parent, ordering"
                ;
                $database->setQuery( $query, 0, 1 );
        }
        $menu = new mosMenu( $database );
        if ($database->loadObject( $menu )) {
                $Itemid = $menu->id;
        }
        $link = $menu->link;
        if (($pos = strpos( $link, '?' )) !== false) {
                $link = substr( $link, $pos+1 ). '&Itemid='.$Itemid;
        }
        parse_str( $link, $temp );
        /** это путь, требуется переделать для лучшего управления глобальными переменными */
        foreach ($temp as $k=>$v) {
                $GLOBALS[$k] = $v;
                $_REQUEST[$k] = $v;
                if ($k == 'option') {
                        $option = $v;
                }
        }
}
if ( !$Itemid ) {
// когда не найден Itemid, то ему присваивается значение по умолчанию
        $Itemid = 99999999;
}
       
// mainframe - оновная рабочая среда API, осуществляет взаимодействие с 'ядром'
$mainframe = new mosMainFrame( $database, $option, '.' );
$mainframe->initSession();

// триггер событий onAfterStart
$_MAMBOTS->trigger( 'onAfterStart' );

// проверка, если мы можем найти Itemid в содержимом
if ( $option == 'com_content' && $Itemid === 0 ) {
        $id = intval( mosGetParam( $_REQUEST, 'id', 0 ) );
        $Itemid = $mainframe->getItemid( $id );
}

/** до сих пор правильный Itemid?? */
if ( $Itemid === 0 ) {
        /** Нет, используется именно главная страница. */
        $query = "SELECT id"
        . "\n FROM #__menu"
        . "\n WHERE menutype = 'mainmenu'"
        . "\n AND published = 1"
        . "\n ORDER BY parent, ordering"
        ;
        $database->setQuery( $query, 0, 1 );
        $Itemid = $database->loadResult();
}

// путь уменьшения воздействия на шаблоны
if ($option == 'search') {
        $option = 'com_search';
}

// загрузка файла английского языка по умолчанию
if ($mosConfig_lang=='') {
        $mosConfig_lang = 'english';
}
include_once( $mosConfig_absolute_path .'/language/' . $mosConfig_lang . '.php' );

// контроль входа и выхода в фронт-энд
$return        = strval( mosGetParam( $_REQUEST, 'return', NULL ) );
$message        = intval( mosGetParam( $_POST, 'message', 0 ) );
if ($option == 'login') {
        $mainframe->login();

        // Всплывающее сообщение JS
        if ( $message ) {
                ?>
                <script language="javascript" type="text/javascript">
                <!--//
                alert( "<?php echo addslashes( _LOGIN_SUCCESS ); ?>" );
                //-->
                </script>
                <?php
        }
       
        if ( $return && !( strpos( $return, 'com_registration' ) || strpos( $return, 'com_login' ) ) ) {
        // checks for the presence of a return url
        // and ensures that this url is not the registration or login pages
                // Если sessioncookie существует, редирект на заданную страницу. Otherwise, take an extra round for a cookiecheck
                if (isset( $_COOKIE[mosMainFrame::sessionCookieName()] )) {
                mosRedirect( $return );
        } else {
                        mosRedirect( $mosConfig_live_site .'/index.php?option=cookiecheck&return=' . urlencode( $return ) );
                }
        } else {
                // If a sessioncookie exists, redirect to the start page. Otherwise, take an extra round for a cookiecheck
                if (isset( $_COOKIE[mosMainFrame::sessionCookieName()] )) {
                mosRedirect( $mosConfig_live_site .'/index.php' );
                } else {
                        mosRedirect( $mosConfig_live_site .'/index.php?option=cookiecheck&return=' . urlencode( $mosConfig_live_site .'/index.php' ) );
                }
        }

} else if ($option == 'logout') {
        $mainframe->logout();

        // Всплывающее сообщение JS
        if ( $message ) {
                ?>
                <script language="javascript" type="text/javascript">
                <!--//
                alert( "<?php echo addslashes( _LOGOUT_SUCCESS ); ?>" );
                //-->
                </script>
                <?php
        }

        if ( $return && !( strpos( $return, 'com_registration' ) || strpos( $return, 'com_login' ) ) ) {
        // checks for the presence of a return url
        // and ensures that this url is not the registration or logout pages
                mosRedirect( $return );
        } else {
                mosRedirect( $mosConfig_live_site.'/index.php' );
        }
} else if ($option == 'cookiecheck') {
        // No cookie was set upon login. If it is set now, redirect to the given page. Otherwise, show error message.
        if (isset( $_COOKIE[mosMainFrame::sessionCookieName()] )) {
                mosRedirect( $return );
        } else {
                mosErrorAlert( _ALERT_ENABLED );
        }
}

/** получение информации о текущих пользователях из таблицы сессий */
$my = $mainframe->getUser();

// обнаружение первого посещения
$mainframe->detect();

// установка проверки для overlib
$mainframe->set( 'loadOverlib', false );

$gid = intval( $my->gid );

// получение шаблона страницы
$cur_template = $mainframe->getTemplate();
/** временное исправление - эта особенность в настоящее время отключена */

/** @global - Места для хранения информации обработки компонента */
$_MOS_OPTION = array();

// предварительный захват вывода компонента
require_once( $mosConfig_absolute_path . '/editor/editor.php' );

ob_start();               

if ($path = $mainframe->getPath( 'front' )) {
        $task        = strval( mosGetParam( $_REQUEST, 'task', '' ) );
        $ret        = mosMenuCheck( $Itemid, $option, $task, $gid );
       
        if ($ret) {
                require_once( $path );
        } else {
                mosNotAuth();
        }
} else {
        header( 'HTTP/1.0 404 Not Found' );
        echo _NOT_EXIST;
}

$_MOS_OPTION['buffer'] = ob_get_contents();

ob_end_clean();

initGzip();

header( 'Expires: Mon, 26 Jul 1997 05:00:00 GMT' );
header( 'Last-Modified: ' . gmdate( 'D, d M Y H:i:s' ) . ' GMT' );
header( 'Cache-Control: no-store, no-cache, must-revalidate' );
header( 'Cache-Control: post-check=0, pre-check=0', false );
header( 'Pragma: no-cache' );

// отображение предупреждения о выключенном сайте, при входе админа
if (defined( '_ADMIN_OFFLINE' )) {
        include( $mosConfig_absolute_path .'/offlinebar.php' );
}

// загрузка файла шаблона
if ( !file_exists( $mosConfig_absolute_path .'/templates/'. $cur_template .'/index.php' ) ) {
        echo _TEMPLATE_WARN . $cur_template;
} else {
        require_once( $mosConfig_absolute_path .'/templates/'. $cur_template .'/index.php' );
        echo '<!-- '. time() .' -->';
}

// отображение выполненных для страницы запросов
if ($mosConfig_debug) {
        echo $database->_ticker . ' queries executed';
        echo '<pre>';
        foreach ($database->_log as $k=>$sql) {
                echo $k+1 . "\n" . $sql . '<hr />';
        }
        echo '</pre>';
}

doGzip();
?>

Подскажите плиззз. А то тварь втыкиваю как на випе в конце почти самом и нихрена!!!
МБ кто нить знает

Dreamer 27.02.2008 01:42

Попробуй
Код:

<html>
<body>

<?php  твой код ?>

скрипт

</body>
</html>


SEZAR 01.03.2008 21:32

Dreamer, я разобрался.

Tyrael 08.03.2008 20:31

sHELL, если я тебя правильно понял, то это делается примерно так:
Код:

for i := 1 to 100 do
  TLabel(FindComponent('Label'+IntToStr(i))).Caption := 'Твой заголовок';



Текущее время: 05:55. Часовой пояс GMT +3.

Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. Перевод: zCarot