ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / цветное сообщение
5 сообщений из 5, страница 1 из 1
цветное сообщение
    #34198529
m_a_r_i_n_a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m_a_r_i_n_a
Участник
после выполнения программного модуля
надо выдать обычное сообщение пользователю не серенькое как в msgbox, а - цветное
Не знаю как сделать
Спасибо
...
Рейтинг: 0 / 0
14.12.2006, 08:25
| Ответить | Цитировать | Написать  
цветное сообщение
    #34198705
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
Если не хотите разбираться в дебрях API, нарисуйте свою форму.
...
Рейтинг: 0 / 0
14.12.2006, 09:51
| Ответить | Цитировать | Написать  
цветное сообщение
    #34199183
m_a_r_i_n_a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m_a_r_i_n_a
Участник
А через дебри API как сделать ?
...
Рейтинг: 0 / 0
14.12.2006, 11:36
| Ответить | Цитировать | Написать  
цветное сообщение
    #34201662
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
Лучше свою форму, через API все равно готовых нету, все равно будете рисовать
...
Рейтинг: 0 / 0
15.12.2006, 07:08
| Ответить | Цитировать | Написать  
цветное сообщение
    #34201849
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
Можно самостоятельно нарисовать форму и определит для не цвет
Дальше пишем для нее при загрузке:

Код: plaintext
1.
2.
3.
frmPause.Show
frmPause.Label1 = "Ваше сообщение " & Command1.Caption & " !!!"
Pause
Unload frmPause

Дальше в (General):

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub Pause()
   Dim PauseTime As Single
    Dim Start As Single
    Dim Finish As Single
    Dim TotalTime As Single
    
    PauseTime =  1 
    Start = Timer

    Do While Timer < Start + PauseTime
        DoEvents
    Loop

    Finish = Timer
    TotalTime = Finish - Start
    'MsgBox "Paused for " & TotalTime & " seconds"
End Sub
...
Рейтинг: 0 / 0
15.12.2006, 09:32
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / цветное сообщение
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34198705&tid=2164800]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 150ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 200ms
total:  421ms
созд. / загр.: 421ms
x
x
Закрыть


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