ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Окно загрузки файла
21 сообщений из 96, страница 4 из 4
  4  все
Окно загрузки файла
    #36732889
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ShamanusKonst_One,

Еще и готовый код сразу. Спасибо большое.

А я вот не люблю такой подход. Зачем гонять процессор в дурном цикле? Пользователь может год там будет возиться. Проще тогда уж просто перехватить закрытие формы.
...
Рейтинг: 0 / 0
09.07.2010, 15:29
| Ответить | Цитировать | Написать  
Окно загрузки файла
    #36732894
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Shocker.ProShamanusKonst_One,

Еще и готовый код сразу. Спасибо большое.

А я вот не люблю такой подход. Зачем гонять процессор в дурном цикле? Пользователь может год там будет возиться. Проще тогда уж просто перехватить закрытие формы.

я не знаю причину зачем что-то там ждать на label, но если автор так хочет и понимает зачем ему это надо, то пусть циклы гоняет процессор
...
Рейтинг: 0 / 0
09.07.2010, 15:30
| Ответить | Цитировать | Написать  
Окно загрузки файла
    #36732897
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Konst_Oneя не знаю причину зачем что-то там ждать на label, но если автор так хочет и понимает зачем ему это надо, то пусть циклы гоняет процессор
Ага. А потом из-за таких программ гонка вооруженийапгрейдов и новые супермощные процессоры и закон Мура
...
Рейтинг: 0 / 0
09.07.2010, 15:33
| Ответить | Цитировать | Написать  
Окно загрузки файла
    #36732901
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Shocker.ProKonst_Oneя не знаю причину зачем что-то там ждать на label, но если автор так хочет и понимает зачем ему это надо, то пусть циклы гоняет процессор
Ага. А потом из-за таких программ гонка вооруженийапгрейдов и новые супермощные процессоры и закон Мура

мы работаем на интел+микрософт
даёшь гонку процессоров и ОС
...
Рейтинг: 0 / 0
09.07.2010, 15:34
| Ответить | Цитировать | Написать  
Окно загрузки файла
    #36732910
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
Konst_One
даёшь гонку процессоров и ОС

согласен, пусть ОС, думает КАК эту конструкцию циклическую можно упростить, чтобы не грузить проц. За что платятся деньги?
...
Рейтинг: 0 / 0
09.07.2010, 15:36
| Ответить | Цитировать | Написать  
Окно загрузки файла
    #36732928
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
ShamanusKonst_One
даёшь гонку процессоров и ОС

согласен, пусть ОС, думает КАК эту конструкцию циклическую можно упростить, чтобы не грузить проц. За что платятся деньги?

если будет плохо, то в цикле можно так извратиться:


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Declare Function GetTickCount Lib "kernel32" () As Long

Public Sub Idle(Optional msec As Long =  0 )
Dim EndTime As Long
  EndTime = GetTickCount() + msec
  Do
    DoEvents
    Sleep  1 
  Loop While GetTickCount() < EndTime
End Sub

...
do while not cls.Result
    Idle  100 
Loop
...
...
Рейтинг: 0 / 0
09.07.2010, 15:42
| Ответить | Цитировать | Написать  
Окно загрузки файла
    #36732955
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Шаманус, не слушай его, он засланец билла гейтса

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private WithEvents frmSelDat As Form
...

Form_SelectDate.Show
End Sub

...

Private Sub frmSelDat_Unload
  Iskl.TextBox8.Value = dt_1
End Sub
Все. И не надо никуда бегать.
...
Рейтинг: 0 / 0
09.07.2010, 15:52
| Ответить | Цитировать | Написать  
Окно загрузки файла
    #36732960
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Shocker.ProШаманус, не слушай его, он засланец билла гейтса

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private WithEvents frmSelDat As Form
...

Form_SelectDate.Show
End Sub

...

Private Sub frmSelDat_Unload
  Iskl.TextBox8.Value = dt_1
End Sub
Все. И не надо никуда бегать.

это самый лучший вариант, но нам так и не ответили зачем ему нужно ждать закрытия формы?
...
Рейтинг: 0 / 0
09.07.2010, 15:54
| Ответить | Цитировать | Написать  
Окно загрузки файла
    #36732961
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Сорри, ошибся при копипасте
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private WithEvents frmSelDat As Form
...

Set frmSelDat=Forms.Add("Form_SelectDate")
frmSelDat.Show
End Sub

...

Private Sub frmSelDat_Unload
  Iskl.TextBox8.Value = dt_1
End Sub
...
Рейтинг: 0 / 0
09.07.2010, 15:54
| Ответить | Цитировать | Написать  
Окно загрузки файла
    #36732964
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Konst_Oneэто самый лучший вариант, но нам так и не ответили зачем ему нужно ждать закрытия формы?
Затем, что форма меняет ему эту переменную dt_1
...
Рейтинг: 0 / 0
09.07.2010, 15:55
| Ответить | Цитировать | Написать  
Окно загрузки файла
    #36732970
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Shocker.ProKonst_Oneэто самый лучший вариант, но нам так и не ответили зачем ему нужно ждать закрытия формы?
Затем, что форма меняет ему эту переменную dt_1

а зачем она ему её меняет и почему надо ждать программе пока не поменяется эта дата? может в этом весь фокус?

ТС переходи на событийное объектное программирование
...
Рейтинг: 0 / 0
09.07.2010, 15:57
| Ответить | Цитировать | Написать  
Окно загрузки файла
    #36732983
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Konst_Oneа зачем она ему её меняет и почему надо ждать программе пока не поменяется эта дата? может в этом весь фокус?
ТС переходи на событийное объектное программирование
Дык. Календарь для ввода даты пользователем....
...
Рейтинг: 0 / 0
09.07.2010, 16:03
| Ответить | Цитировать | Написать  
Окно загрузки файла
    #36732988
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Shocker.ProKonst_Oneа зачем она ему её меняет и почему надо ждать программе пока не поменяется эта дата? может в этом весь фокус?
ТС переходи на событийное объектное программирование
Дык. Календарь для ввода даты пользователем....

тогда я вообще перестал понимать логику. чем vbModal не подошло?
...
Рейтинг: 0 / 0
09.07.2010, 16:05
| Ответить | Цитировать | Написать  
Окно загрузки файла
    #36733006
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Да, что-то они лишнего понаписал.

ShamanusЕсли форма Form_SelectDate (это календарь) будет модальной, то на ней должны быть управляющие конструкции, которые сами будут менять значение текстбокса в форме iskl.
Как эти два предложения связаны, вообще непонятно. Не видно причинно-следственной связи.

ShamanusА этот вариант не подходит, т.к. эту форму могут вызывать другие формы. Мы же не можем каждую форму прописать в коде календаря.
Можем. Для этого в вызываемую форму отдается ссылка на вызывающую форму.

ShamanusА я хочу так, есть глобальная переменная с датой, вызываем диалог календаря, в диалоге меняем переменную, при закрытии диалога устанавливаем значение даты в текстбокс.
А вот это как раз криво. Пользователь может одновременно из разных форм вызвать календарь, а переменная у них на всех одна
...
Рейтинг: 0 / 0
09.07.2010, 16:14
| Ответить | Цитировать | Написать  
Окно загрузки файла
    #36733010
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Shocker.ProShamanusА этот вариант не подходит, т.к. эту форму могут вызывать другие формы. Мы же не можем каждую форму прописать в коде календаря.
Можем. Для этого в вызываемую форму отдается ссылка на вызывающую форму.
Вот тут я автору рассказывал основы этого дела
...
Рейтинг: 0 / 0
09.07.2010, 16:17
| Ответить | Цитировать | Написать  
Окно загрузки файла
    #36733013
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Shocker.ProДа, что-то они лишнего понаписал.

ShamanusЕсли форма Form_SelectDate (это календарь) будет модальной, то на ней должны быть управляющие конструкции, которые сами будут менять значение текстбокса в форме iskl.
Как эти два предложения связаны, вообще непонятно. Не видно причинно-следственной связи.

ShamanusА этот вариант не подходит, т.к. эту форму могут вызывать другие формы. Мы же не можем каждую форму прописать в коде календаря.
Можем. Для этого в вызываемую форму отдается ссылка на вызывающую форму.

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

так а я о чём и толкую. ему просто надо сделать свою форму календаря с public function:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
'form
Public Function SelectCalendar() as Date
  Me.Show vbModal
  SelectCalendar = me.calendarcontrol.value
End Function


'вызов извне
me.labeldate.caption = FormCalendar.SelectCalendar
...
Рейтинг: 0 / 0
09.07.2010, 16:18
| Ответить | Цитировать | Написать  
Окно загрузки файла
    #36733045
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
Konst_One,

Сейчас проверил насчет vbModal, кажется действительно сморозил глупость

если использую vbModal при закрытии формы календаря возврат идет не на форму, которая календарь вызвала, а на её материнскую форму.

Я сейчас попробую оптимизировать эту часть кода и возможно vbModal устроит.
...
Рейтинг: 0 / 0
09.07.2010, 16:29
| Ответить | Цитировать | Написать  
Окно загрузки файла
    #36733055
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
ShamanusKonst_One,

Сейчас проверил насчет vbModal, кажется действительно сморозил глупость

если использую vbModal при закрытии формы календаря возврат идет не на форму, которая календарь вызвала, а на её материнскую форму.

Я сейчас попробую оптимизировать эту часть кода и возможно vbModal устроит.


Код: plaintext
Me.Show vbModal, [OwnerForm]


2-й параметр - это ссылка на вызывающий объект. можете указать тот , который вам нужен. модальная форма откроется в рамках указанного объекта
...
Рейтинг: 0 / 0
09.07.2010, 16:32
| Ответить | Цитировать | Написать  
Окно загрузки файла
    #36733090
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Shamanus,

Подумай. Если у тебя в проекте будет хотя бы полтора десятка форм, неплохо бы написать себе небольшой движок работы с ними, который будет обеспечивать передачу параметров туда и обратно, активацию форм в порядке, обратном открытию и т.п....
...
Рейтинг: 0 / 0
09.07.2010, 16:42
| Ответить | Цитировать | Написать  
Окно загрузки файла
    #36733218
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
Shocker.ProShamanus,

Подумай. Если у тебя в проекте будет хотя бы полтора десятка форм, неплохо бы написать себе небольшой движок работы с ними, который будет обеспечивать передачу параметров туда и обратно, активацию форм в порядке, обратном открытию и т.п....

Я согласен, у меня уже есть многие элементы движка для стандартной проги. (календарь один из них) Пока проблема в знаниях. А систематическим изучением заниматься времени не хватает.
...
Рейтинг: 0 / 0
09.07.2010, 17:29
| Ответить | Цитировать | Написать  
Окно загрузки файла
    #36733233
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ShamanusА систематическим изучением заниматься времени не хватает.
Ну на таких вещах экономить нельзя. Потратив сейчас день завтра выиграешь месяц.
...
Рейтинг: 0 / 0
09.07.2010, 17:37
| Ответить | Цитировать | Написать  
21 сообщений из 96, страница 4 из 4
  4  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Окно загрузки файла
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]