Вопрос № 149190: Всем привет, помогите пожалуйста с VB 6.0. В трее (около системных часов) появляется иконка и при наведении на которую (или при нажатии) появляется Сообщение (как в комиксах диалоги или когда делаете извлечение флешки) И в ней пишется мой текст.<b...
Вопрос № 149193: Здравствуйте эксперты, у меня такой вопрос Функции программы Устанавливать с помощью вертикальной полосы прокрутки натуральное число на объекте Этикетка.
Суммировать подряд все натуральные числа от 1 до установленного числа (максимально -1...Вопрос № 149194: Здравствуйте эксперты, у меня такой вопрос Функции программы Устанавливать с помощью вертикальной полосы прокрутки натуральное число на объекте Этикетка. Суммировать подряд все натуральные числа от 1 до установленного числа (максимально -1...
Вопрос № 149.190
Всем привет, помогите пожалуйста с VB 6.0. В трее (около системных часов) появляется иконка и при наведении на которую (или при нажатии) появляется Сообщение (как в комиксах диалоги или когда делаете извлечение флешки) И в ней пишется мой текст.
Буду признателен, если вы мне поможете, или скинете исходник.
Спасибо, жду ваших предложений.
Отправлен: 01.11.2008, 12:54
Вопрос задал: Ивановва (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Ивановва! Разместите в модуле проекта следующий код:
Код:
Declare Function Shell_NotifyIconA Lib "SHELL32" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Integer Public Const NIM_ADD = 0 Public Const NIM_MODIFY = 1 Public Const NIM_DELETE = 2 Public
Const NIF_MESSAGE = 1 Public Const NIF_ICON = 2 Public Const NIF_TIP = 4 Type NOTIFYICONDATA cbSize As Long hWnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * 64 End Type Public Function SetTrayIcon(Mode As Long, hWnd As Long, Icon As Long, tip As String) As Long Dim nidTemp As NOTIFYICONDATA nidTemp.cbSize = Len(nidTemp) nidTemp.hWnd = hWnd nidTemp.uID = 0& nidTemp.uFlags
= NIF_ICON Or NIF_TIP nidTemp.uCallbackMessage = 0& nidTemp.hIcon = Icon nidTemp.szTip = tip & Chr$(0) SetTrayIcon = Shell_NotifyIconA(Mode, nidTemp) End Function
в коде формы поместите подобные строки:
Код:
Private Sub Form_Load() SetTrayIcon NIM_ADD, Me.hWnd,
Me.Icon, "Комиксы приехали!" End Sub Sub Form_Click() SetTrayIcon NIM_MODIFY, Me.hWnd, Me.Icon, "Нет это всплывающие подсказки" End Sub Private Sub Form_Unload(Cancel As Integer) SetTrayIcon NIM_DELETE, Me.hWnd, 0&, "" End Sub
#thank 149190 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5 Комментарий оценки: Спасибо Огромнейшее. Вы меня очень выручили. Сейчас буду изучать все доскональна. Ещё раз СПАСИБО!!!
Вопрос № 149.193
Здравствуйте эксперты, у меня такой вопрос
Функции программы Устанавливать с помощью вертикальной полосы прокрутки натуральное число на объекте Этикетка. Суммировать подряд все натуральные числа от 1 до установленного числа (максимально -100) при нажатии клавиши Суммирование и выдавать результат в текстовое окно. Заканчивать выполнение программы при нажатии кнопки Выход.
Отвечает: Шичко Игорь
Здравствуйте, Ситнекова Татьяна Валерьевна! Код практически правильный. Немного подправлю. Результат выдается как по нажатию кнопки, так и при изменении значения вертикальной полосы прокрутки. Код в приложении Вопросы - пишите.
Приложение:
Ответ отправил: Шичко Игорь (статус: Студент)
Ответ отправлен: 01.11.2008, 14:03
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 149193 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Отвечает: Тесленко Евгений Алексеевич
Здравствуйте Татьяна Валерьевна! в Ваше коде есть ошибка (скорее всего опечатка) "txt.Result.Text", имя контрола не должно содержать точку "txtResult.Text". все осталькое будет работать (если дописать код:)). Предлагаю расчет вынести в отдельную функцию, Ваш код от этого выиграет в объеме.
Код:
Sub cmdSum_Click() txtResult.Text = showResult End Sub Sub vsbNum_Change() lblNum.Caption = showResult End Sub Function showResult() Dim I For I = 1 To vsbNum.Value showResult = showResult + I Next I End Function
#thank 149193 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 149.194
Здравствуйте эксперты, у меня такой вопрос
Функции программы Устанавливать с помощью вертикальной полосы прокрутки натуральное число на объекте Этикетка. Суммировать подряд все натуральные числа от 1 до установленного числа (максимально -100) при нажатии клавиши Суммирование и выдавать результат в текстовое окно. Заканчивать выполнение программы при нажатии кнопки Выход.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.
