Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Basic / VBA

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.824 RSS
←   Январь 2009   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

1.824 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на Basic / VBA


Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Megaloman
Статус: Практикант
Рейтинг: 29
∙ повысить рейтинг >> 		HookEst
Статус: Специалист
Рейтинг: 10
∙ повысить рейтинг >> 		Disasm
Статус: 10-й класс
Рейтинг: 10
∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 855
от 27.01.2009, 13:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 274, Экспертов: 30
В номере:Вопросов: 1, Ответов: 2
Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>

Вопрос № 158427: Здравствуйте. VBA, Ecxel 2003. На форме размещены два textbox'a с числами (например, 7 и 5) и кнопка "ОК". При нажатии на кнопку "ОК" на форме должны появляться 7*5=35 textbox'ов, т.е. формироваться матрица из компонент...

Вопрос № 158.427
Здравствуйте.
VBA, Ecxel 2003. На форме размещены два textbox'a с числами (например, 7 и 5) и кнопка "ОК". При нажатии на кнопку "ОК" на форме должны появляться 7*5=35 textbox'ов, т.е. формироваться матрица из компонентов, причём количество строк берётся из первого текстбокска, а количество столбцов - из второго.
Вопрос - как создать новый компонент на форме и как его удалить. расписывать весь код не надо - сам допетрю. Просто как создать и как удалить объект.
Отправлен: 22.01.2009, 12:59
Вопрос задал: Жмак Егор Иванович (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Филатов Евгений Геннадьевич
Здравствуйте, Жмак Егор Иванович!

С текстбоксами не делал, но принцип такой же.

1. на форме создается первый текстбокс Text (это может быть и один из тех, куда вводятся параметры ) .
2. делается его копия. на вопрос системы, что такой текстбокс уже есть и нужно ли содать массив элементов управления нужно ответить "ДА" . тогда первый элемент ( образец ) получит индекс 0 , а вновь созданный 1. созданный элемент можно удалить ( или это будет вторым параметром ввода ) .
3. в программу добавить примерно такой код как в приложении

Чтобы считать данные нужно обратиться к элементу в массиве, Text ( 5 ) например.

У меня есть образец программы на VB6 для создания кнопок в выбранной мышкой позиции на форме. Могу прислать исходники.

Если есть вопросы - напишите в мини-форум. Завтра постараюсь ответить.

С уважением.

Приложение:

Ответ отправил: Филатов Евгений Геннадьевич (статус: Студент)
Ответ отправлен: 22.01.2009, 23:54

Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 241886 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Отвечает: HookEst
    Здравствуйте, Жмак Егор Иванович!

    Controls.Add + Controls.Remove

    Для Excel 2003 VBA:
    Код:

    Option Explicit

    Dim Texts As New Collection

    Private Sub CommandButton1_Click()
    Dim t As Control
    Dim r As Long
    Dim c As Long
        For r = 1 To Val(TextBox1)
    
       For c = 1 To Val(TextBox2)
                Set t = Me.Controls.Add("Forms.TextBox.1", , True)
                t.Move c * 20, 50 + r * 20, 20, 20
                Texts.Add t
            Next c
        Next r
    End Sub

    Private Sub CommandButton2_Click()
        While Texts.Count > 0
            Me.Controls.Remove Texts(1).Name
            Texts.Remove 1
        Wend
    End Sub

    Одна кнопка создает, другая удаляет.
    Успехов.
    Ответ отправил: HookEst (статус: Специалист)
    Ответ отправлен: 23.01.2009, 09:47

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 241900 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Вы имеете возможность оценить этот выпуск рассылки.
    Нам очень важно Ваше мнение!
    Оценить этот выпуск рассылки >>

    Отправить вопрос экспертам этой рассылки

    Приложение (если необходимо):

    * Код программы, выдержки из закона и т.п. дополнение к вопросу.
    Эта информация будет отображена в аналогичном окне как есть.

    Обратите внимание!
    Вопрос будет отправлен всем экспертам данной рассылки!
    Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
    экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


    Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
    Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров >>

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2009, Портал RusFAQ.ru, Россия, Москва.
    Авторское право: ООО "Мастер-Эксперт Про"
    Техподдержка портала, тел.: +7 (926) 535-23-31
    Хостинг: "Московский хостер"
    Поддержка: "Московский дизайнер"
    Авторские права | Реклама на портале

    ∙ Версия системы: 5.13 от 01.12.2008

    		Яндекс Rambler's Top100
    RusFAQ.ru | MosHoster.ru | MosDesigner.ru
    RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru
    В избранное