| Вопрос: календарь | Добавлено: 23.12.05 17:02 |
Автор вопроса:  вячеслав
|
| Как сделать так, чтобы при многократном нажатии на даты в MonthView1, в Text1.Text отображались даты через запятую? Заранее благодарен! |
| Ответы | Всего ответов: 15 |
|
Номер ответа: 1 Автор ответа:  HOOLIGAN Вопросов: 0 Ответов: 1066 |
Профиль | | #1 | Добавлено: 23.12.05 17:10 |
| После каждого нажатия на дату добавлять к Text1.Text запятую и новую дату. | ||
|
Номер ответа: 2 Автор ответа: вячеслав  Вопросов: 3 Ответов: 14 |
Профиль | | #2 | Добавлено: 23.12.05 18:08 |
| Не получается, затирает старую! | ||
|
Номер ответа: 3 Автор ответа: PeterS Вопросов: 24 Ответов: 109 |
Профиль | | #3 | Добавлено: 23.12.05 19:06 |
В событии " ateClick" объекта "MonthView1" пишем: Text1.Text = Text1.Text & ", " & DateClicked
PS: это же основы, если... То лучше вернуться к теории, книжкам! |
||
|
Номер ответа: 4 Автор ответа: HOOLIGANВопросов: 0 Ответов: 1066 |
Профиль | | #4 | Добавлено: 23.12.05 19:45 |
| ДОБАВЛЯТЬ а не ЗАМЕНЯТЬ | ||
|
Номер ответа: 5 Автор ответа: вячеслав Вопросов: 3 Ответов: 14 |
Профиль | | #5 | Добавлено: 26.12.05 17:14 |
|
Большое спасибо!Я к сожелению только начинаю....
Книжки....ну да читаю!Только там найти чтото стоящее проблематично.(к примеру отличее Click от Clicked) Делал через:MonthView1.Day(мне нужен именно день),не получилось.Еще раз спасибо за подсказку! |
||
|
Номер ответа: 6 Автор ответа:  «UL.eXe»ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #6 | Добавлено: 26.12.05 17:44 |
|
+ подсказка:
Text1.Text = Day(Date)
- Text1_Change If text1.text = "1" then text1.text = "Воскресенье" If text1.text = "2" then text1.text = "Понедельник" ... ' и так далее зы: вот тебе и дни недели в текстбоксе. |
||
|
Номер ответа: 7 Автор ответа: вячеслав Вопросов: 3 Ответов: 14 |
Профиль | | #7 | Добавлено: 26.12.05 18:53 |
|
Тоже вариант!
я по совету HOOLIGAN выкрутился так: Private Sub MonthView1_DateClick(ByVal DateClicked As Date) Text3.Text = Text3.Text & MonthView1.Day & "," End Sub |
||
|
Номер ответа: 8 Автор ответа: «UL.eXe»ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #8 | Добавлено: 26.12.05 19:10 |
|
2 вячеслав:
молодец  , только:
Text3.Text = Text3.Text & MonthView1.Day & ","
не так, а.. найди различие 
Text3.Text = Text3.Text & "," & MonthView1.Day & ","
|
||
|
Номер ответа: 9 Автор ответа: «UL.eXe»ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #9 | Добавлено: 26.12.05 19:11 |
|
тьфу.. было правильно!
|
||
|
Номер ответа: 10 Автор ответа: вячеслав Вопросов: 3 Ответов: 14 |
Профиль | | #10 | Добавлено: 26.12.05 19:49 |
|
Однако в твоём варианте зпт вылазит впереди.
|
||
|
Номер ответа: 11 Автор ответа: вячеслав Вопросов: 3 Ответов: 14 |
Профиль | | #11 | Добавлено: 27.12.05 12:12 |
| & добавляет, а чем удалить? | ||
|
Номер ответа: 12 Автор ответа: HOOLIGANВопросов: 0 Ответов: 1066 |
Профиль | | #12 | Добавлено: 27.12.05 12:55 |
| Replace MyString, "ghhhhhh","" | ||
|
Номер ответа: 13 Автор ответа: вячеслав Вопросов: 3 Ответов: 14 |
Профиль | | #13 | Добавлено: 27.12.05 18:33 |
|
Private Sub Command3_Click()
deldey = Str(Text7.Text) Replace MyString, deldey, "" End Sub Не идёт! Дело в переменной? |
||
|
Номер ответа: 14 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #14 | Добавлено: 28.12.05 12:43 |
|
1. Непринципиально - deldey у тебя как объявлена?
2. Нафига Str? 3. Возможно в MyString нет подстроки, содержащийся в deldey. |
||
|
Номер ответа: 15 Автор ответа: вячеслав Вопросов: 3 Ответов: 14 |
Профиль | | #15 | Добавлено: 29.12.05 18:02 |
|
Смысл в чём:
Есть Text3.Text = Text3.Text & MonthView1.Day & "," "1,2,3,4,7....15...23,24"
и Text7.Text = delday
При наборе в Text7.Text , к примеру "15", и Command3_Click(), из Text3.Text удалить "15,". |
||
Страница: 1 |