![]() |
#1 |
Пользователь
|
![]()
Вообщем есть вот такая процедура:
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 Да и вообще чтоб можно было иметь доступ к конкретной метке в зависимости от условия в архиве есть исходник программы если так будет легче понять В выше написанной процедуре ошибка незнаю как её испровить или может так нельзя вообще делать (как я сделал) Очень нужна помощь!
__________________
Жизнь - хреново продумана, но графика офигенная! ![]() Последний раз редактировалось sHELL; 21.12.2007 в 12:54. |
![]() ![]() |
![]() ![]() |
![]() |
#2 |
Пользователь
|
![]()
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 |
![]() ![]() |
![]() ![]() |
Благодарности: 1 | sHELL (21.12.2007) |
![]() |
#3 |
Пользователь
|
![]()
Тогда я тожа спрошу, у меня стоит сайт на 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 --> Код:
<?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(); ?> МБ кто нить знает |
![]() ![]() |
![]() ![]() |
![]() |
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
Опции темы | |
|
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Требуется помощь | DS_disan | Мир электроники | 134 | 04.10.2011 18:01 |
Первая помощь. | iva | Хозяин | 37 | 11.05.2010 22:28 |
ICQ боты | Niki4OFF | Web-пространство | 8 | 24.06.2008 07:23 |
Требуется помощь! | Кролль | На завалинке | 7 | 09.02.2007 23:13 |