| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Как в VBA создать массив из вводимых данных в TextBox

Как в VBA создать массив из вводимых данных в TextBox

Ответ
Поиск в этой теме
Непрочитано 28.04.2011, 16:43 #1
Как в VBA создать массив из вводимых данных в TextBox
Ubivec81
 
проектирование железных дорог
 
Самара
Регистрация: 12.04.2010
Сообщений: 60

Здравствуйте!
Прошу помочь новичку в VBA!!!
Есть форма в которой есть TextBox и кнопка. Нужно чтобы при введении численного значения в TextBox и нажатии на кнопку значение определялось в бесконечный массив (т.к. колличество значений не известно) для дальнейшей работы с данными этого массива.
Просмотров: 18279
 
Непрочитано 28.04.2011, 16:49
#2
Сергей Дубина


 
Регистрация: 06.04.2009
Сообщений: 705


Цитата:
Сообщение от Ubivec81 Посмотреть сообщение
колличество значений не известно
наверно лучше объект Collection.
__________________
КазнитьØнельзяØпомиловать:eek:
Сергей Дубина вне форума  
 
Автор темы   Непрочитано 28.04.2011, 16:50
#3
Ubivec81

проектирование железных дорог
 
Регистрация: 12.04.2010
Самара
Сообщений: 60
<phrase 1=


Сергей подскажите пожалуйста как это сделать.
Ubivec81 вне форума  
 
Непрочитано 28.04.2011, 16:53
#4
hwd

C, C++, C#
 
Регистрация: 07.10.2009
С-Пб.
Сообщений: 2,762
Отправить сообщение для hwd с помощью Skype™


Цитата:
Сообщение от Ubivec81 Посмотреть сообщение
Прошу помочь новичку в VBA!!!
Если речь идёт о VBA в контексте AutoCAD, то я бы не рекомендовал браться за его изучение, поскольку Autodesk поставил на нём крест.
__________________
Надеюсь, ты не социальный овощ? Это определяется делами! :welcome:
hwd вне форума  
 
Автор темы   Непрочитано 28.04.2011, 16:56
#5
Ubivec81

проектирование железных дорог
 
Регистрация: 12.04.2010
Самара
Сообщений: 60
<phrase 1=


Hwd я уже начал этим заниматься и потому не хочется отступать. А речь то как раз о том что вы говорите. Есть ли вариант объяснить как это тут устроить?
Ubivec81 вне форума  
 
Непрочитано 28.04.2011, 16:57
#6
Сергей Дубина


 
Регистрация: 06.04.2009
Сообщений: 705


Цитата:
Сообщение от hwd Посмотреть сообщение
я бы не рекомендовал браться за его изучение
Вопрос не в тему, для тебя: vb .net интерпритатор?
__________________
КазнитьØнельзяØпомиловать:eek:
Сергей Дубина вне форума  
 
Автор темы   Непрочитано 28.04.2011, 16:58
#7
Ubivec81

проектирование железных дорог
 
Регистрация: 12.04.2010
Самара
Сообщений: 60
<phrase 1=


ага
Ubivec81 вне форума  
 
Непрочитано 28.04.2011, 17:04
#8
hwd

C, C++, C#
 
Регистрация: 07.10.2009
С-Пб.
Сообщений: 2,762
Отправить сообщение для hwd с помощью Skype™


Цитата:
Сообщение от Ubivec81 Посмотреть сообщение
Hwd я уже начал этим заниматься и потому не хочется отступать.
Ну чтож... Не хочешь - не отступай, на всякий случай повнимательней прочти то, что я подсветил красным цветом (это информация от самого Autodesk):



Учить язык, заранее зная, что он обречён - имхо сие нерационально.
Цитата:
Сообщение от Сергей Дубина
Вопрос не в тему, для тебя: vb .net интерпритатор?
Вопроса не понял.
__________________
Надеюсь, ты не социальный овощ? Это определяется делами! :welcome:
hwd вне форума  
 
Непрочитано 28.04.2011, 17:47
#9
AlexV

Инженер
 
Регистрация: 02.10.2008
С-Пб
Сообщений: 3,685


Код:
[Выделить все]
Option Explicit
Dim arr()
Private Sub CommandButton1_Click()
    If Len(TextBox1.Value) > 0 Then
    arr(UBound(arr)) = TextBox1.Value
    ReDim Preserve arr(UBound(arr)+1)
    Stop
End Sub
Private Sub UserForm_Initialize()
    ReDim arr(0)
End Sub
...но в автокаде под 64b виндой VBA уже совсем не жилец, особенно при использовании форм.
__________________
...Не пытайся гнуть ты ложку,
Не вяжи её узлом.
Ложка - ложка понарошку,
А по правде, - это лом!

Последний раз редактировалось AlexV, 29.04.2011 в 13:13.
AlexV вне форума  
 
Непрочитано 28.04.2011, 18:13
#10
trir


 
Регистрация: 18.12.2010
Сообщений: 5,047


Цитата:
Сообщение от AlexV Посмотреть сообщение
...но в автокаде под 64b виндой VBA уже совсем не жилец, особенно при использовании форм.
Не, не - ещё шевелится и ножками дрыгает, хотя ведёт себя странно и работает через раз

"АкАд 2011 x64 ругается на:
ThisDrawing.HWND
надо:
ThisDrawing.HWND32
должно работать и с x32"
trir вне форума  
 
Непрочитано 28.04.2011, 18:18
#11
hwd

C, C++, C#
 
Регистрация: 07.10.2009
С-Пб.
Сообщений: 2,762
Отправить сообщение для hwd с помощью Skype™


Цитата:
Сообщение от trir Посмотреть сообщение
хотя ведёт себя странно и работает через раз
Ну если так, то совсем другое дело - можно со спокойной душой начинать изучать VBA...
__________________
Надеюсь, ты не социальный овощ? Это определяется делами! :welcome:

Последний раз редактировалось hwd, 28.04.2011 в 18:57.
hwd вне форума  
 
Непрочитано 28.04.2011, 18:50
#12
forMA


 
Регистрация: 25.08.2005
Сообщений: 2,556


Цитата:
Сообщение от Ubivec81 Посмотреть сообщение
Нужно чтобы при введении численного значения в TextBox и нажатии на кнопку значение определялось в бесконечный массив (т.к. колличество значений не известно) для дальнейшей работы с данными этого массива.
Может организовать файл последовательного доступа к данным?
forMA вне форума  
 
Автор темы   Непрочитано 28.04.2011, 22:10
#13
Ubivec81

проектирование железных дорог
 
Регистрация: 12.04.2010
Самара
Сообщений: 60
<phrase 1=


AlexV, огромное спасибо за помощь. Вот только что то тут не так.
Код:
[Выделить все]
Option Explicit
Dim arr()
Private Sub CommandButton1_Click()
   Dim line As AcadLine
   Dim point1(0 To 2) As Double
   Dim point2(0 To 2) As Double
    If Len(TextBox1.Value) > 0 Then
       arr(UBound(arr)) = TextBox1.Value
       ReDim Preserve arr(UBound(arr))
    End If
   point1(0) = arr(0): point1(1) = arr(1)
   point2(0) = arr(2): point2(1) = arr(3)
   Set line = ThisDrawing.PaperSpace.AddLine(point1, point2)
End Sub
Private Sub UserForm_Initialize()
    ReDim arr(0)
End Sub
Пытаюсь рисовать линию по внесенным данным но меня выбрасывает сразу после введения числа и нажатия на кнопку. у меня ощущение что цикла то который должен работать до бесконечности нету, или я что то делаю не так! Прошу еще раз помощи!!!
Ubivec81 вне форума  
 
Непрочитано 28.04.2011, 23:33
#14
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,515


Ubivec81, горе ты луковое... Добавил в массив одно текстовое значение, а спрашиваешь аж 4? действительных двойных...
остальные повеселили
gomer вне форума  
 
Непрочитано 28.04.2011, 23:42
#15
AlexV

Инженер
 
Регистрация: 02.10.2008
С-Пб
Сообщений: 3,685


Цитата:
Сообщение от Ubivec81 Посмотреть сообщение
AlexV, огромное спасибо за помощь. Вот только что то тут не так...
Это точно! Многое, вообще, в этой жизни не так.. Найти б того, кто эту жизнь программировал!
__________________
...Не пытайся гнуть ты ложку,
Не вяжи её узлом.
Ложка - ложка понарошку,
А по правде, - это лом!
AlexV вне форума  
 
Непрочитано 28.04.2011, 23:44
#16
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,515


AlexV, да кажется нашли уж
Так вы еще и на vba графоманите, респект
Ubivec81, и вообще, бесконечных массивов не существует, как и бесконечности вообще, только в нашем воображении, а если нет воображения...
gomer вне форума  
 
Непрочитано 28.04.2011, 23:50
#17
AlexV

Инженер
 
Регистрация: 02.10.2008
С-Пб
Сообщений: 3,685


Цитата:
Сообщение от gomer Посмотреть сообщение
AlexV, да кажется нашли уж
Так вы еще и на vba графоманите, респект
Да мы бы и на лиспе графоманили, но скобки не рифмуются..
gomer, а кого нашли-то?
__________________
...Не пытайся гнуть ты ложку,
Не вяжи её узлом.
Ложка - ложка понарошку,
А по правде, - это лом!
AlexV вне форума  
 
Непрочитано 28.04.2011, 23:55
#18
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,515


Цитата:
Сообщение от AlexV Посмотреть сообщение
кого нашли-то?
Цитата:
Сообщение от AlexV Посмотреть сообщение
Найти б того, кто эту жизнь программировал!
Аффтара!
gomer вне форума  
 
Непрочитано 29.04.2011, 00:01
#19
AlexV

Инженер
 
Регистрация: 02.10.2008
С-Пб
Сообщений: 3,685


Цитата:
Сообщение от gomer Посмотреть сообщение
Аффтара!
ага...угу...мда.. Ну, дык, это... А че там с аффтарским надзором?
__________________
...Не пытайся гнуть ты ложку,
Не вяжи её узлом.
Ложка - ложка понарошку,
А по правде, - это лом!
AlexV вне форума  
 
Непрочитано 29.04.2011, 00:06
#20
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,515


ну тут все четко... и на ковер периодически вызывают...
gomer вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Как в VBA создать массив из вводимых данных в TextBox

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
VBA. Многократный ввод данных и изменение положения объектов Markiza-2010 Программирование 6 28.06.2010 02:30
как с помощью vba создать несколько цифр и вставить их в чертёж... vasyavip Программирование 1 02.04.2009 23:05
Создание базы данных атрибутов текста чертежа в VBA -still alive- Программирование 4 26.08.2008 15:10
Как создать массив для группы примитивов в Bricscad? Tonic Программирование 8 19.12.2007 09:22
Подскажите пожалуйста как создать БАЗУ ДАННЫХ!!!??? master_blaster AutoCAD 5 12.04.2006 10:46