| Вопрос: Привет! Нужен совет! | Добавлено: 12.04.06 11:54 |
Автор вопроса:  ScorpionS | Web-сайт: www.odisseyaco.ru | ICQ: 237494026 |
|
есть на форме текстовое окно
По умалчанию текст в окне 001 подскажите как сделать так чтобы при каждой загрузке программы к тексту прибовлялась 1, т.е. 001..002..003..? |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #1 | Добавлено: 12.04.06 11:56 |
| Сохраняй значение в текстовом файле или в реестре, потом при загрузке - восстанавливай и прибавляй. | ||
|
Номер ответа: 2 Автор ответа:  ScorpionS ICQ: 237494026 Вопросов: 13 Ответов: 12 |
Web-сайт: Профиль | | #2 | Добавлено: 12.04.06 11:57 |
| Подскажи, юзер, как это сделать | ||
|
Номер ответа: 3 Автор ответа: ScorpionSICQ: 237494026 Вопросов: 13 Ответов: 12 |
Web-сайт: Профиль | | #3 | Добавлено: 12.04.06 11:59 |
| Пример кода, если можно! и где хранить этот текстовый документ? | ||
|
Номер ответа: 4 Автор ответа: SRV ICQ: 254226129 Вопросов: 30 Ответов: 107 |
Профиль | | #4 | Добавлено: 12.04.06 12:14 |
|
Перед выгрузкой формы делаешь
SaveSetting "111", "222", "333", Text1.Text Призагрузке делаешь Text1.Text = GetSetting("111", "222", "333" 
и потом уже другими способами добавляешь на один больше и всё! Это я показал как можно хранить значение Text1 в реестре компа... |
||
|
Номер ответа: 5 Автор ответа: ScorpionSICQ: 237494026 Вопросов: 13 Ответов: 12 |
Web-сайт: Профиль | | #5 | Добавлено: 12.04.06 12:16 |
Я ламер! Я не понял 
|
||
|
Номер ответа: 6 Автор ответа: SRVICQ: 254226129 Вопросов: 30 Ответов: 107 |
Профиль | | #6 | Добавлено: 12.04.06 12:26 |
|
Вот код, который тебе поможет!
Private Sub Form_Load() Text2.Text = GetSetting("111", "222", "333"
Text2.Text = Val(Text2.Text) + 1 If Len(Text2.Text) = 1 Then Text1.Text = "00" & Text2.Text End If If Len(Text2.Text) = 2 Then Text1.Text = 0 & Text2.Text End If If Len(Text2.Text) = 3 Then Text1.Text = Text2.Text End If End Sub Private Sub Form_Unload(Cancel As Integer) SaveSetting "111", "222", "333", Text2.Text End Sub |
||
|
Номер ответа: 7 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #7 | Добавлено: 12.04.06 15:50 |
| Text1 = Format ("000",Text1) | ||
|
Номер ответа: 8 Автор ответа: NjICQ: 223663115 Вопросов: 21 Ответов: 285 |
Профиль | | #8 | Добавлено: 13.04.06 22:52 |
|
GetSetting("111", "222", "333"
Все же лучше называть вещи своими именами GetSetting("Имя Программы", "Имя секции", "Ключ" ... Мусорить в реестре как-то неправильно  )
|
||
Страница: 1 |