Помогите, пожалуйста новичку. Нужно создать календарь. / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

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

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите, пожалуйста новичку. Нужно создать календарь.

25 сообщений из 25, страница 1 из 1

Помогите, пожалуйста новичку. Нужно создать календарь.

#34503506

salvador

Гость

Сделал интерфейс, а дальше - проблема: не знаю с чего начинать. Это моя первая программа, подскажите пожалуйста как и что мне использовать. Хотя бы наведите на мысль.

...

Рейтинг:

0 / 0

03.05.2007, 21:52

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34503681

Magnus23

Участник

Сообщения: 9 288

Рейтинг: 0 / 0

Использовать готовый контрол календарь и не изобретать велосипед :). Находится он в библиоеке Windos Common controls2-SP4 кажется. MsComct2.

...

Рейтинг:

0 / 0

04.05.2007, 01:52

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34503689

VipFedor

Гость

Вот мои рекомендации:
1. Разместил бы 2 элемента ListBox (месяц/год)
2. Создал бы массив элементов Label(i) в количестве 37 штук и разместил бы их ниже
ListBox поочередно Label(0)...Label(36) в 7 столбцов(где каждый столбец день недели) и 6 строк. В последней строке достаточно поместить только 2 элемента: Label(35) и Label(36) До остальных очередь не дойдет при максимальном количестве дней в месяце - 31, с учетом того, что 1 число этого месяца - воскресенье и будет расположено в Label(6) (Пример Июль - 2007 года). В этом случае 31 число у нас окажется как раз в Label(36). Думаю идея ясна.
Все элементы массива Label должны быть не видимы.
3. Из расчетов потребуется определить каким днем будет первое число месяца. Потребуются такие функции VB - WeekDay, WeekDayName, Month и схожие.
Как только находите день первого числа месяца, то помещаете его в нужную ячейку (например для Июля 2007 - Воскресенье
- Label(6)) Делаете ячейку видимой и забиваете все стоящие за ней циклом:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.

DayIndex =  1 
FirstDayOfMonth = Label( 6 )
For i = FirstDayOfMonth To [Количество дней в месяце]
      Label(i).Visible = True 'Делаем ячейку видимой
      Label(i).Caption = DayIndex
      DayIndex = DayIndex +  1 
Next i

4. При загрузки проекта забиваете ListBox названиями месяцев и годов и устанавливаете текущее значение от системного времени. Год:

Код: plaintext

ListBoxYear - Year(Date)
ListBoxMonth - MonthName(Month(Date))

5. Ну и обрабатываете выборку другого месяца/года через:

Код: plaintext

ListBoxYear_Click
ListBoxMonth_Click

Вроде все.
Вот такое краткое пособие :)

Пример моей программы со схожей реализацией работы календаря, можно посмотреть тут:
http://eo.yastrebov.biz/screen.php

Удачи в Ваших начинаниях.

...

Рейтинг:

0 / 0

04.05.2007, 02:16

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34503691

VipFedor

Гость

Magnus23Использовать готовый контрол календарь и не изобретать велосипед :). Находится он в библиоеке Windos Common controls2-SP4 кажется. MsComct2.

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

...

Рейтинг:

0 / 0

04.05.2007, 02:19

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34504673

Magnus23

Участник

Сообщения: 9 288

Рейтинг: 0 / 0

VipFedor Magnus23Использовать готовый контрол календарь и не изобретать велосипед :). Находится он в библиоеке Windos Common controls2-SP4 кажется. MsComct2.

Данный календарь имеет значительные недостатки.
Из того, что я помню - не обновляется с наступлением новой даты, и собственным таймером это не исправишь...
Недостатки можно найти практически в любом контроле. Но это не повод чтобы все писать самому. А исправить при желании можно что угодно. Там строго говоря не календарь а DatePicker, т.е. его использование подразумевает наличие дополнительного кода. Все ж лучше чем писать с нуля.

...

Рейтинг:

0 / 0

04.05.2007, 12:38

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34506557

klen_

Участник

Сообщения: 2 198

Рейтинг: 0 / 0

здесь то же посмотри, должно пригодится

...

Рейтинг:

0 / 0

05.05.2007, 08:03

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34546995

salvador

Гость

Спасибо всем огромное, хоть что-то с места сдвинулось. Но опять же куча вопросов и банальные грабли(
Вот мой код, почти всё на что меня хватило:
Option Explicit
Dim MyDate As Date
Dim FirstDayOfMonth
Dim DayIndex
Dim i As Integer
Dim mesjac As Integer
Dim god As Integer

Private Sub Form_Load()
DayIndex = 1
MyDate = CDate(1 & "/" & mesjac & "/" & god)
Select Case Weekday(MyDate, vbMonday)
Case 1
FirstDayOfMonth = FormMounth.Label(0)
Case 2
FirstDayOfMonth = FormMounth.Label(1)
Case 3
FirstDayOfMonth = FormMounth.Label(2)
Case 4
FirstDayOfMonth = FormMounth.Label(3)
Case 5
FirstDayOfMonth = FormMounth.Label(4)
Case 6
FirstDayOfMonth = FormMounth.Label(5)
Case 7
FirstDayOfMonth = FormMounth.Label(6)
End Select
For i = FirstDayOfMonth To 42
FormMounth.Label(i).Visible = True
FormMounth.Label(i).Caption = DayIndex
DayIndex = DayIndex + 1
Next i
End Sub
Возникли такие вопросы: Как определить последний день месяца? Первый определил, хотя всё равно ничего не работает.
Как сделать так, чтобы при событии Click переменной присвоилось значение, которое было бы видно во всех формах проекта?
Ломаю голову которую неделю. Помогите, иначе совсем сломаюсь.

...

Рейтинг:

0 / 0

23.05.2007, 21:54

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34547435

salvador

Гость

Всё что сделал зарботало. Только до сих пор не могу сообразить как определить последний день месяца?
Выбор месяца и года находятся в другой форме, так что каким-то путём надо чтобы переменные передавались из одной формы в другую???

...

Рейтинг:

0 / 0

24.05.2007, 09:17

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34547552

TIKO

Гость

в форме передающий параметр об. глоб.переменную
Public lastDay as Long

Sub()
lastDay=1
end sub

в другой форме получай данные из формы

Debug.Print ИмяВормы.lastDay

...

Рейтинг:

0 / 0

24.05.2007, 09:49

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34547553

gjghjc

Участник

Сообщения: 471

Рейтинг: 0 / 0

form2.perem1 = form1.perem1....
где form2 и form1 Name твоих форм....

можно еще так
Me.perem1 = form2.perem2

Вобщем набери в редакторе кода Name твоих форм поставь точку и посмотри какие там будут интересные вещи появляться.... :)

...

Рейтинг:

0 / 0

24.05.2007, 09:50

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34547717

salvador

Гость

gjghjcform2.perem1 = form1.perem1....
где form2 и form1 Name твоих форм....

можно еще так
Me.perem1 = form2.perem2

Вобщем набери в редакторе кода Name твоих форм поставь точку и посмотри какие там будут интересные вещи появляться.... :)
Не получается пишет, мол Outside Procedure(

...

Рейтинг:

0 / 0

24.05.2007, 10:36

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34547730

salvador

Гость

TIKOв форме передающий параметр об. глоб.переменную
Public lastDay as Long

Sub()
lastDay=1
end sub

в другой форме получай данные из формы

Debug.Print ИмяВормы.lastDay
Не получается. Дело в том, что в форме-источнике присвоение знач-я переменной располагается внутри события Click.(

...

Рейтинг:

0 / 0

24.05.2007, 10:38

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34547731

salvador

Гость

Может я что-то не так делаю???

...

Рейтинг:

0 / 0

24.05.2007, 10:39

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34547848

TIKO

Гость

salvadorМожет я что-то не так делаю???
без разницй в каком событии главное объявить глоб. переменую
присвоить значение
и потом обращаться к ней через
ИмяФормы.Переменная

...

Рейтинг:

0 / 0

24.05.2007, 11:03

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34547864

gjghjc

Участник

Сообщения: 471

Рейтинг: 0 / 0

тогда добавь модуль и пропиши в нем

Код: plaintext

[/src]Public Perem1 as String
[SRC vba]

В этом случае переменная видна будет по всему проекту и без Form1 и Form2

В принципе тоже можно сделать и в модуле формы...
тогда код будет как я писал выше

...

Рейтинг:

0 / 0

24.05.2007, 11:08

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34547917

salvador

Гость

Написал Имя формы. переменная сама появилась. Значение 0. Не передаётся и всё, хоть тресни(

...

Рейтинг:

0 / 0

24.05.2007, 11:17

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34547932

gjghjc

Участник

Сообщения: 471

Рейтинг: 0 / 0

Еще раз. Ты ее где объявляешь???

...

Рейтинг:

0 / 0

24.05.2007, 11:22

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34547946

salvador

Гость

Пробовал и в модуле и в форме в разделе General. Эффект один и тот же.

...

Рейтинг:

0 / 0

24.05.2007, 11:24

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34547998

gjghjc

Участник

Сообщения: 471

Рейтинг: 0 / 0

Хм....
Public FormCapt As String ' Это должно быть в General UserForm1

Private Sub Form1_Load()
FormCapt = "ВАСЯ!"
End Sub

Код кнопки на форме Form2

Private Sub CommandButton1_Click()
MsgBox Form1.FormCapt
End Sub

Только что проверил... РАБОТАЕТ!!!!

...

Рейтинг:

0 / 0

24.05.2007, 11:32

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34549748

salvador

Гость

Спсибо огромное с значениями вроде подразобрался. Наступил на новые грабли. Значение переменной не меняется при щелчках, т. е. я щёлкаю допустим год2006 a=2006, потом щёлкаю год2007, переменной по идее должно присвоиться значение 2007, но оно остаётся тем же.

...

Рейтинг:

0 / 0

24.05.2007, 20:39

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34549943

VipFedor

Гость

salvadorТолько до сих пор не могу сообразить как определить последний день месяца?
Выбор месяца и года находятся в другой форме, так что каким-то путём надо чтобы переменные передавались из одной формы в другую???

Определить последний день месяца можно так:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.

'**********************Copyright © Fedor Yastrebov*************************
'***********************http://www.yastrebov.biz**************************
Select Case Month(Date) 'Вместо Date можно всунуть переменную.
Case Is =  1 ,  3 ,  5 ,  7 ,  8 ,  10 ,  12 
MonthDays =  31 
Case Is =  2 
If Year(Date) Mod  4  =  0  Then: MonthDays =  29 
If Year(Date) Mod  4  <>  0  Then: MonthDays =  28 
Case Else
MonthDays =  30 
End Select

For i = FirstDayOfMonth To MonthDays + FirstDayOfMonth -  1 
      Label(i).Visible = True 'Делаем ячейку видимой
      Label(i).Caption = DayIndex
      DayIndex = DayIndex +  1 
Next i
'**********************Copyright © Fedor Yastrebov*************************
'***********************http://www.yastrebov.biz**************************

salvadorЗначение переменной не меняется при щелчках, т. е. я щёлкаю допустим год2006 a=2006, потом щёлкаю год2007, переменной по идее должно присвоиться значение 2007, но оно остаётся тем же.

Меняется. Обрабатывай событие Объект_Click(), а не Объект_Change()
Например:

Код: plaintext

Private Sub ComboYears_Click()

salvadorнадо чтобы переменные передавались из одной формы в другую

Можно передавать переменные в качестве параметров процедуре обработки:

Форма 1:

Код: plaintext

1.
2.
3.

Public Sub Obrabotka(Peremennaya_1 as Date, Peremennaya_2 as Date)
'...тут мучаешь эти переменные
End Sub

Форма 2:

Код: plaintext

Form1.Obrabotka(a,b) 'Где a,b твои переменные!

Надеюсь тебе это поможет! ;)

...

Рейтинг:

0 / 0

24.05.2007, 23:19

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34552723

salvador

Гость

Спасибо огромное, VipFedor. С переменными я разобрался. А вот за последний день месяца отдельное спасибо, удружил...целую неделю голову ломал никак не мог придумать.

...

Рейтинг:

0 / 0

25.05.2007, 19:49

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34552796

salvador

Гость

VipFedor, если тебе не будет трудно, объясни пожалуйста как работают эти 2 строчки:
If Year(Date) Mod 4 = 0 Then: MonthDays = 29
If Year(Date) Mod 4 <> 0 Then: MonthDays = 28

...

Рейтинг:

0 / 0

25.05.2007, 20:50

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34552806

gjghjc

Участник

Сообщения: 471

Рейтинг: 0 / 0

Если год делится на 4 без остатка значит он високосный и в феврале 29 дней
иначе год простой и в феврале будет 28 дней.

Mod Operator

Used to divide two numbers and return only the remainder.

Syntax

result = number1 Mod number2

...

Рейтинг:

0 / 0

25.05.2007, 21:00

| Ответить | Цитировать | Написать

Помогите, пожалуйста новичку. Нужно создать календарь.

#34552833

salvador

Гость

gjghjcЕсли год делится на 4 без остатка значит он високосный и в феврале 29 дней
иначе год простой и в феврале будет 28 дней.

Mod Operator

Used to divide two numbers and return only the remainder.

Syntax

result = number1 Mod number2
Спасибо, теперь мой ум прояснился)))

...

Рейтинг:

0 / 0

25.05.2007, 21:47

| Ответить | Цитировать | Написать

25 сообщений из 25, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите, пожалуйста новичку. Нужно создать календарь.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=34547932&tid=2163967]:	0ms
get settings:	9ms
get forum list:	20ms
check forum access:	2ms
check topic access:	2ms
track hit:	235ms
get topic data:	6ms
get forum data:	1ms
get page messages:	35ms
get tp. blocked users:	1ms
others:	209ms

total:	520ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы