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

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.02.2004, 11:32
    #32400485
Q2
Q2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
?? MsgBox
Раньше так и делал. Думал с msgbox можно проще. Но, видно, не судьба.
С-пасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2004, 12:29
    #32419200
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
?? MsgBox
Хотя это уже никому и не надо, но выкладываю тут механизм показа весьма гибкого 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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ?? MsgBox / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 298ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1676518]:
 0ms
get settings:
 8ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 32ms
get topic data:
 8ms
get forum data:
 3ms
get page messages:
 39ms
get tp. blocked users:
 1ms
others: 193ms
total:  298ms
x
x
Закрыть


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