Программирование (VB,C#,ASP,.NET): новости, советы, примеры (comp.soft.prog.vbaspsharpnet) : Рассылка : Subscribe.Ru

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

Программирование (VB,C#,ASP,.NET): новости, советы, примеры

Рассылка закрыта

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

← Февраль 2010 →
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

Автор

Алексей Немиро

Статистика

1.234 подписчиков
-1 за неделю

← Все выпуски →

Программирование (VB,C#,ASP,.NET): новости, советы, примеры

Выпуск # 613

http://www.kbyte.ru/

Новый выпуск!

Здравствуйте дамы и господа!
Представляю очередной выпуск рассылки научно-информационного портала Kbyte.Ru. Надеюсь он Вам понравится. Если у Вас есть какие либо вопросы или предложения по рассылке, пишите нам – admin@kbyte.ru!

Содержание выпуска

Система ЭКСПЕРТ

Вопрос #001017: Бесплатные программы

Вопрос #001014: Avi и Mpeg4 в Visual Basic

Вопрос #000952: Обработка файлов в C# (.NET 2.0)

Вопрос #000947: Секундомер

Вопрос #000937: DLOOKUP??

Последнее на форумах

Ввод/Вывод в консоль в C++ Builder

Погите плиз

Помогите

Помогите написать антивирус на Delphi!

Работа с базои данных

Последние статьи

Нестандартная форма

Как узнать размер базы данных MySQL через php

Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)

Работа с SQL – Запросы

Использование XML.Serialization

Интересные коды и решения

Юмор на Kbyte.Ru

Система ЭКСПЕРТ

Система «Эксперт» - уникальная система, которая поможет решить, если не все, то многие Ваши проблемы с программированием и разработкой! Если у Вас есть какой-либо вопрос по программированию или разработке, то Вы всегда можете задать его нашим Экспертам! При этом каких-либо особых действий от Вас не потребуется! Просто отправьте Ваш вопрос на адрес mailto:expert@kbyte.ru, в теме письма укажите тему вопроса, в тексте – сам вопрос, и все! Эксперты дадут Вам ответ в течение 12-24 часов, на тот адрес, с которого Вы отправите вопрос. Все проще простого! Никакой регистрации и заполнение бесконечных форм, просто спросите и получите ответ ;-)

Вопрос #001017: Бесплатные программы

Автор вопроса: Sarj // 03.06.2008 / 08:56

Уважаемые
эксперты, поскажите пожалуйста бесплатный аналог Corel Draw. Очень надо...
 
 .....

Отвечает: Алексей Немиро // 03.06.2008 / 09:02

Здравствуйте, Sarj.
 
 http://inkscape.org/
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #001014: Avi и Mpeg4 в Visual Basic

Автор вопроса: алексей // 02.06.2008 / 12:36

Как можно проигрывать эти форматы в вижал бэйсик? Пример на сайте не работает.
 
 .....

Отвечает: Алексей Немиро // 02.06.2008 / 12:43

Здравствуйте, Алексей.
 
 Можно использовать
MediaPlayer. Для этого его нужно подключить к
 проекту через меню Project (Проект) -> Components (Компоненты), в
 появившемся окне найти и выбрать Windows Media Player. Далее, в
 панели инструментов должна появиться иконка плеера, который можно
 разместить на форме. Указать файл для проигрывания можно
 в свойство URL, или FileName в зависимости от версии проигрывателя.
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000952: Обработка файлов в C# (.NET 2.0)

Автор вопроса: Сергей // 09.05.2008 / 18:07

Доброе время суток!
 В общих словах, такая задача поставлена передо мной: На веб-странице 
 пользователь выбирает
файл, нажимает кнопку "Импорт" и из этого файла 
 данные импортируются в таблицу БД Oracle.
 Файл должен быть текстовым, первые 2 строки- информация о времени и 
 логине того, кто выгружал. После них идут строки данных, поля 
 разделяются симоволом | .
 Просьба дать ссылки на документацию по работе с файлами, которые могут 
 помочь :-)

Отвечает: Алексей Немиро // 12.05.2008 / 10:34

Здравствуйте, Сергей.
 
 Необходимые классы и функции для работы с файлами лежак в пространстве имен System.IO. Также Вам могут понадобиться классы для работы с регулярными выражениями, которые лежат в пространстве имен System.Text.RegularExpressions.
 Что касается импорта
файлов, то данные можно взять прямо из потока FileUpload.PostedFile.InputStream, передать их в StreamReader и обработать при помощи регулярных выражений. 
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000947: Секундомер

Автор вопроса: Александр // 08.05.2008 / 17:40

Добрый день!
 Как сделать секундомер на сайте kbyte.ru много но вот все они выдают результат как 345сек, а мне надо 1:45:01 то есть в временом формате. Как сделать???
 
 .....

Отвечает: Алексей Немиро // 09.05.2008 / 08:29

Здравствуйте, Александр.
 
 Зная, что в минуте 60 секунд, в часе 60 минут, а в сутках 24 часа, можно легко превратить 345 секунд в нужный формат.
 001:
002:
003:
004:
005:
006:
007:
008:
009:
Dim sec As Integer
sec = 345
Dim ssec As Integer, min As Integer, hour As Integer
If sec > 59 Then
 min = Int(sec / 60)
 ssec = sec Mod 60
End If
If min > 59 Then hour = Int(min / 60)
MsgBox sec & "
сек. = " & hour & " ч. " & min & " мин. " & ssec & " сек."

 
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000937: DLOOKUP??

Автор вопроса: Алексей // 05.05.2008 / 16:37

Почему те поля формы, которые имеют в ControlSource функцию Dlookup не записывают значение полей в конечную таблицу?
 
 --------------------------------------
 Категория: --- MS Access

Отвечает: Алексей Немиро // 06.05.2008 / 05:24

Здравствуйте, Алексей.
 
 Из справки MS Access: Функция Dlookup
 При использовании этой функции не учитываются
 несохраненные изменения записей подмножества. Если функция
 DLookup должна использовать измененные значения, необходимо сначала сохранить
 изменения с помощью команды Сохранить запись в меню
 Записи, с помощью перемещения
фокуса на другую запись или
 метода Update.

 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Чтобы задать Ваш вопрос, отправьте его на адрес expert@kbyte.ru

Раздел Эксперт на сайте Kbyte.Ru

Наверх

Последнее на форумах

Ввод/Вывод в консоль в C++ Builder | Автор: Dragon-zla
Добавлено: 07.02.2010 / 15:58 | ответов: 0 | просмотров: 3

Подскажите пожалуйста, как в C++ Builder 6 реализовать в консольном приложении ввод данных, вывод данных и аналог функции ReadKey.
Пробовал выводить через cout << Не получается.

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Погите плиз | Автор: livtaras
Добавлено: 04.02.2010 / 01:10 | ответов: 1 | просмотров: 58

Как сделать такое: a(i)-a(i-1). Если все a(i) задаются через TextBox, которых может бить от 2-х до 10.

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Алексей
Добавлено:04.02.2010 / 11:13
Циклом. Если a это TextBox, то удобней сделать массив из TextBox

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Помогите | Автор: livtaras
Добавлено: 31.01.2010 / 02:09 | ответов: 4 | просмотров: 130

Как сделать так, чтобы если я создал ComboBox в котором можно выбрать число от 1 до 10, а теперь мне нужно сделать так чтобы если я выбираю например 4 тогда на экране
отображается 4 TextBox, если 7 то отображается 7 TextBox. И в таком духе.

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: EvgeniySergeevich
Добавлено:31.01.2010 / 09:11
Разместите на форме ComboBox, 10 TextBox'ов и пропишите код:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
034:
035:
036:
037:
038:
039:
040:
041:
042:
043:
044:
045:
046:
047:
048:
049:
050:
051:
052:
053:
054:
055:
056:
057:
058:
059:
060:
061:
062:
063:
064:
065:
066:
067:
068:
069:
070:
071:
072:
073:
074:
075:
076:
077:
078:
079:
080:
081:
082:
083:
084:
085:
086:
087:
088:
089:
090:
091:
092:
093:
094:
095:
096:
097:
098:
099:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
Private Sub Combo1_Change()
Combo1_Click
End Sub

Private Sub Combo1_Click()
If Combo1.Text = "0" Then
Text1.Visible = False
Text2.Visible = False
Text3.Visible = False
Text4.Visible = False
Text5.Visible = False
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "1" Then
Text1.Visible = True
Text2.Visible = False
Text3.Visible = False
Text4.Visible = False
Text5.Visible = False
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "2" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = False
Text4.Visible = False
Text5.Visible = False
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "3" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = False
Text5.Visible = False
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "4" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = False
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "5" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "6" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
Text6.Visible = True
Text7.Visible = False
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "7" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
Text6.Visible = True
Text7.Visible = True
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "8" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
Text6.Visible = True
Text7.Visible = True
Text8.Visible = True
Text9.Visible = False
Text10.Visible = False
End If
If Combo1.Text = "9" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
Text6.Visible = True
Text7.Visible = True
Text8.Visible = True
Text9.Visible = True
Text10.Visible = False
End If
If Combo1.Text = "10" Then
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
Text6.Visible = True
Text7.Visible = True
Text8.Visible = True
Text9.Visible = True
Text10.Visible = True
End If
End Sub

Private Sub Form_Load()
Combo1.AddItem "0"
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"
Combo1.AddItem "6"
Combo1.AddItem "7"
Combo1.AddItem "8"
Combo1.AddItem "9"
Combo1.AddItem "10"
Combo1_Click
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: livtaras
Добавлено:31.01.2010 / 12:11
Спасибо большое!!!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 3 | Автор: lyolik
Добавлено:01.02.2010 / 10:52
а через цикл присваивание чего б не сделать

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 4 | Автор: Алексей
Добавлено:01.02.2010 / 11:14
Нужно сделать массив элементов, грубо 10 элементов, в идеале создавать
с нуля.
Если грубо, то просто разместить на форме 10 TextBox с одинаковым
именем и разным свойством Index (при копировании создается
автоматически):

001:
002:
003:
004:
005:
006:
007:
For i = 0 To 9
Text1(i).Visible = ((i + 1) <= Combo1.Text)
'i + 1, при условии, что в combo отсчет начинается с 1
Next

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

А если создавать, то там вроде бы методы Load/Unload нужно
использовать, уже не помню как. Кода будет больше.

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Помогите написать антивирус на Delphi! | Автор: EvgeniySergeevich
Добавлено: 25.01.2010 / 13:06 | ответов: 10 | просмотров: 279

Здравствуйте, люди!
Недавно начал изучать язык программирования Delphi.
И вот теперь захотел написать на нём свой антивирус, но незнаю функцию поиска какой-либо строчки кода в тексте! (В Vsisual basic 2008 - Text1.Text.Contains("./.") )!
Помогите, чем можете!

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Dragon-zla
Добавлено:25.01.2010 / 13:07
Какая среда?

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: EvgeniySergeevich
Добавлено:25.01.2010 / 13:08
Borland Delphi Second Edition!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 3 | Автор: Dragon-zla
Добавлено:25.01.2010 / 13:11
в смысле Delphi 2 ?

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 4 | Автор: EvgeniySergeevich
Добавлено:25.01.2010 / 13:11
Нет, Delphi 7!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 5 | Автор: Dragon-zla
Добавлено:25.01.2010 / 13:15
если ищется текст на английском языке, то есть функция, возвращающая
номер первого вхождения в строке. Сейчас поищу у себя на винте, если
найду - напишу

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 6 | Автор: EvgeniySergeevich
Добавлено:25.01.2010 / 13:16
ОК, заранее спасибо!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 7 | Автор: Dragon-zla
Добавлено:25.01.2010 / 13:20
Вот
pos('что ищем'/'где ищем')
'что ищем' - строковый
'где ищем' - строковый

Возвращает числовое значение

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 8 | Автор: EvgeniySergeevich
Добавлено:25.01.2010 / 13:21
Спасибо!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 9 | Автор: EvgeniySergeevich
Добавлено:25.01.2010 / 16:12
А вы не поскажите, как можно открывать все подрят файлы, находящиеся на компьютере?

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 10 | Автор: z44s
Добавлено:05.02.2010 / 10:27
Как говорится - не мог пройти мимо.
Вы собрались писать свой антивирус, но не имеете понятия как искать строки в тексте?
Вы уверенны что стоит начинать работу в Delphi именно с этого?

Если вы планируете писать антивирус - может стоит задуматься о том, что анализировать вам прийдется файлы бинарного содержания или я не прав?
По сути самого вопроса:
поиск подстроки в строке - функция Pos(<подстрока>,<строка>) вернет индекс вхождения подстроки в строке, если она есть.
для чтения текстовых файлов - ReadLn( <файловая переменная типа Text>, <строковая переменная>) - для построчного чтения данных из файла - но это справедливо только для текстового формата.
для других файлов - BlockRead( <фп>, <буфер>, число читаемых символов(байт))
и также не забывайте - что некоторые файлы упакованы ;) специальными программами, а текст внутри кода программ может храниться в разных кодировках и с применением различных методов ;) - это на тот случай, если вы собрались искать вирусы по принципу обнаружения внутри тела исполняемого файла строк, типа "Отправьте СМС на номер" и тд и тп :)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Работа с базои данных | Автор: maf103
Добавлено: 18.01.2010 / 19:05 | ответов: 8 | просмотров: 346

Здраствуите!
уменя такое заданее, некак немагу сделать.

создал прогу одну все работает ок, теперь хачу сделать так,чтоб эта прога
возврощала предыдущии резултат. Опишу свою прогу:
прога не сложная делает простые математические решения, есть кнопка которая стерает все
после того как я доделываю решение.

Теперь я хачу сделать так чтоб эта кнопка стерала но переносила
все внесенные данные кудато в отдельную деректорию,а другая кнопка обратно их занасила ,делала иными словами
возврат всех данных которые я вносил до этого и так далее.... а базу данных куда это будет все вносится
чтоб можно было сбросить по окончанию работы.

Буду очень благодарен если поможете!

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: maf103
Добавлено:20.01.2010 / 22:58
Ребята ну наведите меня хоть на чтонибудь просто незнаю как сделать.
Может есть что попроще, помогите позжалуиста!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: Алексей
Добавлено:20.01.2010 / 23:18
Если по окончанию работы нужно сбрасывать, то можно обойтись
переменными. Либо можно сохранять в настройки - My.Settings -
визуально редактировать в параметрах проекта на вкладке Settings.
Либо состряпать классы и XML-сериализовать их.
Ну и в базе можно, например Access, зависит от масштабов задачи :)

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 3 | Автор: maf103
Добавлено:21.01.2010 / 17:34
ОК, я объясню свою задачку на примере:

уменя есть 3 Текста, вних я вбиваю числа, после чего я получаю ответ в Лаибеле.
есть кнопка которая стерает все я задал ей значения "" для кождово из текст.

теперь мне надо чтоб эти числа которые я внес кпремеру (5, 5, 5) получил ответ, и после я внес (4, 4, 4) получил ответ,ну мне вдруг захотелось знать
что было до етого, какие числа были внесены, чтоб
после 2-го резултата я смог вернутся кпервому т.е. после того как я внес 4,4,4 я смог вернуться к 5,5,5 и наабарот.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 4 | Автор: Алексей
Добавлено:21.01.2010 / 18:06
Если без сохранения для следующего запуска программы, то можно в
переменную записывать.
Если VS 2008 (Framework 3.5), то примерно так:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
Private _Mem As New ArrayList()

'запись в память
_Mem.Add(New With{.a = Text1.Text, .b = Text2.Text, .c = Text3.Text})

'чтение из памяти
For Each m As Object In _Mem
MsgBox(m.a & " - " & m.b & " - " & m.c)
Next

'или определенную запись
_Mem(0).a
_Mem(0).b
'...
_Mem(_Mem.Count - 1).a
'etc

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

зы: ашыбки в тексте уж болно силна глоза мазолят ;-)

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 5 | Автор: maf103
Добавлено:21.01.2010 / 21:09
простите еще раз, пишу в транслите.

еще вопрос до скольки возвратов я могу делать? если я вносил 4 раза разные цифры,
то смогу я их так возврощать этим кодом?

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 6 | Автор: Алексей
Добавлено:21.01.2010 / 22:37
еще вопрос до скольки возвратов я могу делать?

Насколько хватит оперативной памяти, именно там будут хранится
данные.
В приведенном мной примере создается коллекция ArrayList, каждый
элемент коллекции содержит анонимный тип со свойствами a, b, c.
Количество и имена свойств могу быть любыми:
New With{.свойство = значение, и тд и тп}

Каждый элемент коллекции имеет свой индекс, отсчет начинается нуля,
при добавлении нового элемента индекс коллекции увеличивается. В
последующем можно получить доступ к любому элементу коллекции по
индексу.

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 7 | Автор: maf103
Добавлено:29.01.2010 / 15:13

здрасти!
вот код,он не делает обратного возврата
почему? сяжу ковыряюсь и не разберусь что и как!

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim _Mem As New ArrayList()
_Mem.Add(New With {.a = TextBox1.Text})
For Each m As Object In _Mem
MsgBox(m.a)
Next
_Mem(0).a()
_Mem(_Mem.Count - 1).a()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
End Sub

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 8 | Автор: Алексей
Добавлено:29.01.2010 / 15:38
Код лишен всякого смысла :)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Создать новую коллекцию _Mem 'Dim _Mem As New ArrayList()
Добавить в коллекцию _Mem данные анонимного типа '_Mem.Add(New With {.a = TextBox1.Text})
Перебрать все элементы коллекции _Mem 'For Each m As Object In _Mem
Показать в окне значение свойства a текущего элемента коллекции 'MsgBox(m.a)
'Next
А в этой строке ничего не происходит '_Mem(0).a()
И в этой тоже ничего не происходит '_Mem(_Mem.Count - 1).a()
End Sub

В приведенном коде, в _Mem всегда будет один единственный элемент,
т.к. переменная _Mem будет создаваться вновь при нажатии на кнопку.
Если требуется, чтобы в _Mem добавлялись новые данные при нажатии на
кнопку, нужно изменить области видимости/доступности этой переменной,
хотя бы так:
Private _Mem As New ArrayList()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
...
End Sub
Переменная _Mem находится снаружи процедуры, и по идеи внутри класса
(формы) и следовательно может доступна в любом месте этого класса
(формы), и будет жить (сохранять данные) пока жив класс (форма).

For Each m As Object In _Mem
...
Next
Делать перебор всей коллекции, сразу после добавления, не обязательно,
в прошлый раз я лишь показывал, как это можно сделать. Тоже касается и
двух последних строчек кода, которые вообще ничего не делают :)

Полагаю, код должен быть примерно такой, хотя и он отчасти лишен
смысла:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
Private _Mem As New ArrayList() 'коллекция _Mem
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
_Mem.Add(New With {.a = TextBox1.Text}) ' добавляем новый элемент в коллекцию
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = _Mem(_Mem.Count - 1).a ' вставляем в TextBox последний добавленный элемент в коллекцию _Mem
'Количество элементов в коллекции _Mem лежит в свойстве Count - _Mem.Count
'отсчет индекса начинается с нуля, и по индексу можно получить
'доступ к любому элементу коллекции
'Например:
'_Mem(0).a
'_Mem(1).a
'_Mem(2).a
'если будет указан несуществующий индекс, произойдет ошибка
'Путем проверки свойства Count эти моменты можно избежать
'Т.е. чтобы вставить в TextBox значение из определенной ячейки
'памяти, нужно знать индекс. Индекс, можно например в ComboBox
'записывать или отдельные кнопки сделать. И ограничить количество
'данных в _Mem, чтоб не засорять память.
End Sub

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Наверх

Последние статьи

Нестандартная форма
Автор: Zhenik Ipatov | добавлено: 05.05.2008 / 12:42 | просмотров: 4130

Первое что бросается в глаза, когда первый раз используешь программу это конечно же её облик, внешний вид. Есть вероятность что если пользователю не понравится внешний вид окна, то он не будет пользоваться продуктом. Значит нам, не побоюсь этого слова, программистам нужно как можно лучше, удобнее, понятнее, красивее и приветливее сделать лицо программы. Нужно как можно эффектнее преподнести программу. С самого первого появления Windows окна получили прямоугольный стандарт и все User Control’ы

Как узнать размер базы данных MySQL через php
Автор: Николай Рудченко | добавлено: 14.02.2008 / 13:01 | просмотров: 5043

В этой небольшой статье вы узнаете, как получить размер вашей базы данных (БД) MySQL используя язык программирования PHP.

Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)
Автор: Немиро Алексей | добавлено: 27.07.2007 / 14:01 | просмотров: 13314

В данной статье речь пойдет о том, как можно программно заполнить и отправить Web-форму, а также получить результат с использованием довольно простых классов - HttpWebRequest и HttpWebResponse.

Работа с SQL – Запросы
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 22.07.2007 / 04:43 | просмотров: 42676

В данной статье рассмотрены часто используемые SQL-запросы и приведены примеры их использования.

Использование XML.Serialization
Автор: Немиро Алексей | добавлено: 19.07.2007 / 15:38 | просмотров: 7543

В данном обзоре речь пойдет об использование XML.Serialization в .NET и ее применении на примере сохранения и считывания настроек программы с использованием синтаксиса языка Visual Basic .NET.

Статьи на Kbyte.Ru

Наверх

Интересные коды и решения

Перекодировка текста с латинской раскладки в русскую
Дата добавления: 16.08.2006 / 19:12 | просмотров: 5314 | платформа: VB

Как заблокировать кнопку "Закрыть" ([X])
Дата добавления: 31.07.2006 / 12:12 | просмотров: 2746 | платформа: VB

Как получить текущее системное время?
Дата добавления: 16.08.2006 / 20:18 | просмотров: 4644 | платформа: VB

Как загрузить текстовой файл целиком?
Дата добавления: 31.07.2006 / 17:12 | просмотров: 2740 | платформа: ASP .NET (VB)

Как узнать, отправлялись данные форме или нет?
Дата добавления: 31.07.2006 / 14:23 | просмотров: 3029 | платформа: ASP .NET (VB)

Как ограничить количество вводимых символов в TextBox?
Дата добавления: 31.07.2006 / 13:59 | просмотров: 4285 | платформа: ASP .NET (VB)

Как получить параметры командной строки?
Дата добавления: 04.08.2006 / 09:20 | просмотров: 4971 | платформа: VB

Как «залить» форму определенным фоном?
Дата добавления: 31.07.2006 / 12:09 | просмотров: 2662 | платформа: VB

Поиск слов определенной длины
Дата добавления: 24.03.2007 / 11:02 | просмотров: 2602 | платформа: RegEx

Как получить содержимое каталога?
Дата добавления: 31.07.2006 / 17:31 | просмотров: 2594 | платформа: ASP .NET (VB)

Универсальные коды на Kbyte.Ru

Наверх

Юмор на Kbyte.Ru

Дочка спрашивает маму:
- А кто этот страшный, волосатый дядя с красными глазами?
- А это твой папа.
- А он что заболел?
- Нет, к интернету подключился...

Рейтинг: 570
Всего голосов: 931