Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / цветное сообщение / 5 сообщений из 5, страница 1 из 1
14.12.2006, 08:25
    #34198529
m_a_r_i_n_a
m_a_r_i_n_a
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
цветное сообщение
после выполнения программного модуля
надо выдать обычное сообщение пользователю не серенькое как в msgbox, а - цветное
Не знаю как сделать
Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.12.2006, 09:51
    #34198705
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
цветное сообщение
Если не хотите разбираться в дебрях API, нарисуйте свою форму.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.12.2006, 11:36
    #34199183
m_a_r_i_n_a
m_a_r_i_n_a
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
цветное сообщение
А через дебри API как сделать ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.12.2006, 07:08
    #34201662
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
цветное сообщение
Лучше свою форму, через API все равно готовых нету, все равно будете рисовать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.12.2006, 09:32
    #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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / цветное сообщение / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 434ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2164800]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 156ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 202ms
total:  434ms
x
x
Закрыть


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