ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ?? MsgBox
5 сообщений из 5, страница 1 из 1
?? MsgBox
    #32400051
Q2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Q2
Гость
Можно ли (и как) в MsgBox сделать, чтобы на кнопках рисовалось не "Да" "Нет" "Отмена", а например "Вася" "Коля" "Ибрагим"???
Спасибо.
...
Рейтинг: 0 / 0
05.02.2004, 20:44
| Ответить | Цитировать | Написать  
?? MsgBox
    #32400056
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Только если вместо MsgBox'а создать свою форму.
...
Рейтинг: 0 / 0
05.02.2004, 20:56
| Ответить | Цитировать | Написать  
?? MsgBox
    #32400240
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
где то видел подобный изврат, но лучше сделай как ВС советует

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
06.02.2004, 09:18
| Ответить | Цитировать | Написать  
?? MsgBox
    #32400485
Q2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Q2
Гость
Раньше так и делал. Думал с msgbox можно проще. Но, видно, не судьба.
С-пасибо.
...
Рейтинг: 0 / 0
06.02.2004, 11:32
| Ответить | Цитировать | Написать  
?? MsgBox
    #32419200
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Хотя это уже никому и не надо, но выкладываю тут механизм показа весьма гибкого MsgBox'а.

1. Таблица sysOurMsg:

Поля:
Code (Integer) - коды кнопок MsgBox'а, которые обязаны быть степенями двойки (1, 2, 4, 8, 16, 32, 64, 128, 256 и т.д.)
Text (разумеется, Text) - надписи на кнопках

2. Форма dlgOurMsg (ленточная!):

RecordSource = SELECT * FROM sysOurMsg WHERE Code=0 OR Not OurAnd(Code,GetMsgCode()) ORDER BY Code;

В области данных текстбокс:
ControlSource = Text
Enabled = No
Locked = Yes

В области данных кнопка butOK.
Сверху или снизу кнопка butCancel.
Сверху лейбл txtMsg.

Модуль формы:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Form_Open(Cancel As Integer)
txtMsg.Caption = OpenArgs
SetMsgCode  0 
End Sub
Private Sub butOK_Click()
SetMsgCode (Me!Code)
DoCmd.Close acForm, Me.Name
End Sub
Private Sub butCancel_Click()
SetMsgCode  0 
DoCmd.Close acForm, Me.Name
End Sub

3. Отдельный модуль:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim Code As Integer
Function GetMsgCode() As Integer
GetMsgCode = Code
End Function
Function OurAnd(n1 As Integer, n2 As Integer) As Integer
OurAnd = n1 And n2
End Function
Function OurMsg(s As String, n As Integer) As Integer
Code = n
DoCmd.OpenForm  "dlgOurMsg" , , , , , A_DIALOG, s
OurMsg = Code
End Function
Sub SetMsgCode(n As Integer)
Code = n
End Sub

4. Обращение:

коднажатойкнопки = OurMsg(текстзаголовка, суммакодовнужныхкнопок)
...
Рейтинг: 0 / 0
24.02.2004, 12:29
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ?? MsgBox
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32400056&tid=1676518]:
 0ms
get settings:
 7ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 58ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 205ms
total:  343ms
созд. / загр.: 343ms
x
x
Закрыть


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