Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 26.08.2008, 13:17   #1
eda
Пользователь
 
Регистрация: 14.08.2008
Сообщений: 78
По умолчанию MultiPages

Скажите, пожалуйста, как сделать так, чтобы при инициализации формы, которая имеет у себя две страницы(General и Lists), загружалась именно General?
eda вне форума
Старый 26.08.2008, 14:55   #2
дмидми
Форумчанин
 
Аватар для дмидми
 
Регистрация: 06.03.2008
Сообщений: 352
По умолчанию

Если под "загружалась" Вы имеете в виду "была выбрана", то может помочь что-то вроде
Код:
Private Sub UserForm_Activate()
    With Me.MultiPage1
        .Value = .Pages("General").Index
    End With
End Sub
дмидми вне форума
Старый 26.08.2008, 15:08   #3
eda
Пользователь
 
Регистрация: 14.08.2008
Сообщений: 78
По умолчанию

Цитата:
Сообщение от дмидми Посмотреть сообщение
Если под "загружалась" Вы имеете в виду "была выбрана", то может помочь что-то вроде
Код:
Private Sub UserForm_Activate()
    With Me.MultiPage1
        .Value = .Pages("General").Index
    End With
End Sub
Спасибо!!! Очень помогло. Только в коде нужно заменить Index на Item
eda вне форума
Старый 26.08.2008, 15:11   #4
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Не успел , тогда, с Вашего позволения, предложу еще так
Код:
Private Sub UserForm_Activate()
MultiPage1.Value = 0' или 1 в зависимости от нужной страницы
End Sub
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума
Старый 26.08.2008, 15:16   #5
дмидми
Форумчанин
 
Аватар для дмидми
 
Регистрация: 06.03.2008
Сообщений: 352
Смех Кому это нужно - не знаю

Цитата:
Сообщение от eda Посмотреть сообщение
нужно заменить Index на Item
У меня работает (как оно и должно работать) именно с Index, поскольку именно эта проперть возвращает номер страницы в коллекции. Item предназначена не для получения информации о..., а для указания на конкретный элемент коллекции.
Если я не ошибаюсь, то несокращённая запись выглядит как
.Pages.Item("General").Index
дмидми вне форума
Старый 26.08.2008, 15:21   #6
дмидми
Форумчанин
 
Аватар для дмидми
 
Регистрация: 06.03.2008
Сообщений: 352
Смех Может быть, и хорошо, что не успел?

Цитата:
Сообщение от VictorM Посмотреть сообщение
Value = 0' или 1 в зависимости от нужной страницы
(Ехидничает.)
Любопытно: каким образом вы собираетесь определять, с нулевым ли, или с единичным, или же с каким-то еще (например, после доработки формы) индексом живёт страница по имени General?
дмидми вне форума
Старый 26.08.2008, 15:50   #7
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

дмидми, критику принимаю.
Просто такая строка у меня работает в готовом проекте, без проблем.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц