RusFAQ.ru: Программирование на Basic / VBA

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 139
от 24.10.2005, 16:30

Вопрос № 27.913

Здраствуйте! Нужен такой хитрый кодик: нажимаешь на кнопку(command1) и в text1 показывается текущее время, потом нажимаешь на command2 и в text2 показывается тек. время, а в text3 показывается сколько час. мин. сек. прошло между этими двумя временами!

Отправлен: 18.10.2005, 21:55 Вопрос задал: Dushin Igor (статус: 1-ый класс) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Puma Здравствуйте, Dushin Igor! Для определения времени между двумя событиями можно использовать системный таймер. Далее идет Модуль класса. Назовите как нибудь и пользуйтесь Private plngStart As Long Private Pack As New CIntLongLarge Private Type LARGE_INTEGER lngLowWord As Long lngHiWord As Long End Type Private Declare Function timeGetTime Lib "winmm.dll" () As Long Private Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As LARGE_INTEGER) As Long Private Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As LARGE_INTEGER) As Long Private Начало As LARGE_INTEGER Private Конец As LARGE_INTEGER Private Результат As LARGE_INTEGER Private Частота As LARGE_INTEGER Public Sub StartTimer() plngStart = timeGetTime End Sub Public Function StopTimer() As Long StopTimer = (timeGetTime - plngStart) End Function Public Function BeginTimer() As Long BeginTimer = timeGetTime End Function Public Function EndTimer(BeginTimer As Long) As Long EndTimer = (timeGetTime - BeginTimer) End Function --------- Куда б я ни пошел, оно со мною: на форумах, в e-mail иль в ICQ. Мое ИМХО могучею скалою поддержит точку зрения мою.

Ответ отправил: Puma (статус: Практикант) Отправлен: 18.10.2005, 22:41

Отвечает: Licvidator Здравствуйте, Dushin Igor! Private current_day As Byte Private current_hour As Byte Private current_minute As Byte Private current_month As Byte Private current_year As Integer Private Sub Command1_Click() Text1 = Time current_day = Day(Date) current_hour = Hour(Time) current_minute = Minute(Time) current_month = Month(Date) current_year = Year(Date) End Sub Private Sub Command2_Click() Dim d As Long Dim h As Long Dim m As Long Dim yy As Long Dim mmm As Long Dim all_in_min_current As Long Dim all_in_min As Long Dim vrema As String Dim a As Long, b As Long, q As Long, Y As Long, mm As Long Text2 = Time a = current_day b = current_hour q = current_minute Y = current_month mm = current_year d = Day(Date) h = Hour(Time) m = Minute(Time) yy = Month(Date) mmm = Year(Date) all_in_min_current = a * 24 * 60 + b * 60 + q all_in_min = d * 24 * 60 + h * 60 + m d = (all_in_min - all_in_min_current) 60 24 If d <> 0 Then vrema = d & "д" h = (all_in_min - all_in_min_current) 60 Mod 24 If h <> 0 Then vrema = vrema & " " & h & "ч" m = (all_in_min - all_in_min_current) Mod 60 If m <> 0 Then vrema = vrema & " " & m & "м" vrema = Trim(vrema) If vrema = "" Then vrema = "0м" If yy <> Y Or mmm <> mm Then vrema = "N/A" Text3 = vrema End Sub PS этот код я писал для своих нужд, он считает сколько прошло дней, часов и минут, причем учитывает переходы на др. месяц и даже год. Посмотрите, разберитесь, и переделайте под свои задачи.

Ответ отправил: Licvidator (статус: Профессор) Отправлен: 18.10.2005, 23:27

Отвечает: Залетин Виталий Викторович Здравствуйте, Dushin Igor! Совет: пользуйтесь АПИ функцией timegettime и стандартными фкнкциями бейсика (например, функцией DateDiff. Можно и дату определять на АПИ, но это кому как... И где хитрость? --------- Учиться никогда не поздно. Особенно программированию!

Ответ отправил: Залетин Виталий Викторович (статус: 5-ый класс) Отправлен: 22.10.2005, 17:35

Вопрос № 27.915

zdrast' (.NET) kak zdelat' shtob docer'skaia forma vozvrasheala znacenie _parent formi?? v forme string?

Отправлен: 18.10.2005, 23:14 Вопрос задал: spider (статус: 3-ий класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Залетин Виталий Викторович Здравствуйте, spider! parent в форме string? Вообщето, по-моему, parent - это объект. Как его переделать в строку - я не догадываюсь. Выйдет - скажите! --------- Учиться никогда не поздно. Особенно программированию!

Ответ отправил: Залетин Виталий Викторович (статус: 5-ый класс) Отправлен: 22.10.2005, 17:10

Вопрос № 27.944

Как программно эмулировать нажатие клавиш на мышке ???

Отправлен: 19.10.2005, 14:57 Вопрос задал: Коростелев Евгений Николаевич (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Licvidator Здравствуйте, Коростелев Евгений Николаевич! Если известен хенделл окна, где нужно осуществить клик, то через АПИ-функцию SendMessage. В противном случае используйте mouse_event. Описание: Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) dwFlags - означает, какое событие в данный момент должно происходит dx,dy - величины, характеризующие перемещение курсора от текущего положения курсора dx - перемещение по горизонтали (если значение положительное - перемещение идет вправо, если отрицательно - влево) dy - перемещение по вертикали (если значение положительное - перемещение идет вниз, если отрицательно - вверх). Непосредственное использование: Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Const MOUSEEVENTF_ABSOLUTE = &H8000 Const MOUSEEVENTF_LEFTDOWN = &H2 Const MOUSEEVENTF_LEFTUP = &H4 Const MOUSEEVENTF_MIDDLEDOWN = &H20 Const MOUSEEVENTF_MIDDLEUP = &H40 Const MOUSEEVENTF_MOVE = &H1 Const MOUSEEVENTF_RIGHTDOWN = &H8 Const MOUSEEVENTF_RIGHTUP = &H10 Private Sub Form_Load() mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0& 'нажатие на левую клавишу мыши mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0& 'отпускание левой клавиши мыши End Sub В этом случае будет произведен "клик" в том месте, находился курсор при загрузке проекта. Если же нужно в каком-то определенном месте кликнуть, то передвигайте курсор, указав нужные координаты вместо dx и dy (или же через SetCursorPos). Получить текущие координаты можно через GetCursorPos. Подробнее можете прочитать в google.ru по сабжу "mouse_event visual basic"

Ответ отправил: Licvidator (статус: Профессор) Отправлен: 19.10.2005, 15:12

Отвечает: Ерёмин Андрей Здравствуйте, Коростелев Евгений Николаевич! Вам следует воспользоваться API-функцией mouse_event. В качестве первого параметра можно использовать: MOUSEEVENTF_LEFTDOWN, MOUSEEVENTF_LEFTUP, MOUSEEVENTF_RIGHTDOWN, MOUSEEVENTF_RIGHTUP. Существуют и другие значения, но о них в другой раз :) Второй параметр - это координата по x на экране, где следует произвести нажатие, третий параметр - по y. Следующие два параметра можно поставить нулями. После того, как "нажали" (..DOWN) одну из кнопок, лучше всего отправить сообщение о том, что кнопка "отпущена" (..UP), т.к. в некоторых случаях может возникнуть глюк. Приложение: The mouse_event function synthesizes mouse motion and button clicks. VOID mouse_event( DWORD dwFlags, // flags specifying various motion/click variants DWORD dx, // horizontal mouse position or position change DWORD dy, // vertical mouse position or position change DWORD dwData, // amount of wheel movement DWORD dwExtraInfo // 32 bits of application-defined information ); Parameters dwFlags A set of flag bits that specify various aspects of mouse motion and button clicking. The bits in this parameter can be any reasonable combination of the following values: Value Meaning MOUSEEVENTF_ABSOLUTE Specifies that the dx and dy parameters contain normalized absolute coordinates. If not set, those parameters contain relative data: the change in position since the last reported position. This flag can be set, or not set, regardless of what kind of mouse or mouse-like device, if any, is connected to the system. For further information about relative mouse motion, see the following Remarks section. MOUSEEVENTF_MOVE Specifies that movement occurred. MOUSEEVENTF_LEFTDOWN Specifies that the left button changed to down. MOUSEEVENTF_LEFTUP Specifies that the left button changed to up. MOUSEEVENTF_RIGHTDOWN Specifies that the right button changed to down. MOUSEEVENTF_RIGHTUP Specifies that the right button changed to up. MOUSEEVENTF_MIDDLEDOWN Specifies that the middle button changed to down. MOUSEEVENTF_MIDDLEUP Specifies that the middle button changed to up. MOUSEEVENTF_WHEEL Windows NT only: Specifies that the wheel has been moved, if the mouse has a wheel. The amount of movement is given in dwData The flag bits that specify mouse button status are set to indicate changes in status, not ongoing conditions. For example, if the left mouse button is pressed and held down, MOUSEEVENTF_LEFTDOWN is set when the left button is first pressed, but not for subsequent motions. Similarly, MOUSEEVENTF_LEFTUP is set only when the button is first released. dx Specifies the mouse's absolute position along the x-axis or its amount of motion since the last mouse event was generated, depending on the setting of MOUSEEVENTF_ABSOLUTE. Absolute data is given as the mouse's actual x-coordinate; relative data is given as the number of mickeys moved. dy Specifies the mouse's absolute position along the y-axis or its amount of motion since the last mouse event was generated, depending on the setting of MOUSEEVENTF_ABSOLUTE. Absolute data is given as the mouse's actual y-coordinate; relative data is given as the number of mickeys moved. dwData If dwFlags is MOUSEEVENTF_WHEEL, then dwData specifies the amount of wheel movement. A positive value indicates that the wheel was rotated forward, away from the user; a negative value indicates that the wheel was rotated backward, toward the user. One wheel click is defined as WHEEL_DELTA, which is 120. If dwFlags is not MOUSEEVENTF_WHEEL, then dwData should be zero. dwExtraInfo Specifies an additional 32-bit value associated with the mouse event. An application calls GetMessageExtraInfo to obtain this extra information. Return Values This function has no return value. Remarks If the mouse has moved, indicated by MOUSEEVENTF_MOVE being set, dx and dy hold information about that motion. The information is given as absolute or relative integer values. If MOUSEEVENTF_ABSOLUTE value is specified, dx and dy contain normalized absolute coordinates between 0 and 65,535. The event procedure maps these coordinates onto the display surface. Coordinate (0,0) maps onto the upper-left corner of the display surface, (65535,65535) maps onto the lower-right corner. If the MOUSEEVENTF_ABSOLUTE value is not specified, dx and dy specify relative motions from when the last mouse event was generated (the last reported position). Positive values mean the mouse moved right (or down); negative values mean the mouse moved left (or up). Relative mouse motion is subject to the effects of the mouse speed and the two mouse threshold values. In Windows NT, an end user sets these three values with the Mouse Tracking Speed slider of Control Panel's Mouse option; in Windows 95, an end user sets them with the Pointer Speed slider of the Control Panel's Mouse property sheet. An application obtains and sets these values with the SystemParametersInfo function. The operating system applies two tests to the specified relative mouse motion. If the specified distance along either the x or y axis is greater than the first mouse threshold value, and the mouse speed is not zero, the operating system doubles the distance. If the specified distance along either the x or y axis is greater than the second mouse threshold value, and the mouse speed is equal to two, the operating system doubles the distance that resulted from applying the first threshold test. It is thus possible for the operating system to multiply relatively-specified mouse motion along the x or y axis by up to four times. The mouse_event function is used to synthesize mouse events by applications that need to do so. It is also used by applications that need to obtain more information from the mouse than its position and button state. For example, if a tablet manufacturer wants to pass pen-based information to its own applications, it can write a dynamic-link library (DLL) that communicates directly to the tablet hardware, obtains the extra information, and saves it in a queue. The DLL then calls mouse_event with the standard button and x/y position data, along with, in the dwExtraInfo parameter, some pointer or index to the queued extra information. When the application needs the extra information, it calls the DLL with the pointer or index stored in dwExtraInfo, and the DLL returns the extra information. --------- Бог создал мир за семь дней и до сих пор система работает, не требуя перезагрузки, потому что у него не было необходимости поддерживать совместимость с предыдущими версиями...

Ответ отправил: Ерёмин Андрей (статус: Специалист) Отправлен: 19.10.2005, 16:08

Отвечает: Залетин Виталий Викторович Здравствуйте, Коростелев Евгений Николаевич! А не легче послать сообщение WM_NCxxxxx? --------- Учиться никогда не поздно. Особенно программированию!

Ответ отправил: Залетин Виталий Викторович (статус: 5-ый класс) Отправлен: 22.10.2005, 17:23

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.