CustomMsgBox – VB 6.0, VBA MS Access, VBA MS Excel – База кода

Скачать

Название (оригинал): CustomMsgBox

Описание:
Англ (оригинал)Custom MsgBox with many powerful
options as can be seen from 44 input arguments:
———————————————–
1. vPrompt – MessagBox prompt text
2. vTitle – MessagBox prompt text
3. vButton1 – caption of first button, if nil specified will be: OK
4. vButton2 – caption of second button
5. vButton1 – caption of third button
6. vButton1 – caption of fourth button
7. btDefault – sets what the default button is, so what button has focus on startup
8. lMessageIcon – set the MessageBox icon:
nil specified: no icon
1: Information
2: Question
3: Exclamation
4: Warning
9. lFormColour – long value setting the BackColor of the MessageBox form, if nil specified will be the default VB MessageBox
colour. You can do black for example as the font will be set with a contrasting colour.
10. lLabelColour – long value setting the BackColor of the Prompt textbox, if nil specified will be same as lFormColour
11. lButtonColour – long value setting the BackColor of the buttons, if nil specified will be same as lFormColour
12. lLabelFontColour – long value setting the ForeColor of the Prompt textbox, if nil specified will be a contrasting colour
compared to the Prompt BackColor
13. lMaxLen – maximum number of characters in the Prompt text before a linebreak will occur, default 125
14. bPromptBorder – boolean, if True Prompt textbox will have a border
15. bIndentAfterBreak – boolean, if true there will be an indent after a linebreak in the prompt text.
16. bOnlyIndentWithNumericFirstChar – boolean only applies if bIndentAfterBreak is True. If bOnlyIndentWithNumericFirstChar
is True then then indent will only happen if the line started with a number.
17. strIndent – the indenting string
18. bStartLineWithSpacer – if True every new line in the Prompt will start with a spacing string. Useful when the Prompt
textbox has a border.
19. strSpacer – the spacer string, only applies if bStartLineWithSpacer is True
20. siPromptButtonFontSize – Single value, button font size, default is 10
21. lMinButtonWidth – long value, minimum button width, default is 1200
22. lMinButtonGap – Long value, minimum space between buttons, default is 150
23. lButtonEdge – Long value, minimum space between button edge and button caption, default is 150
24. bSpaceButtons – if True buttons will be spaced evenly between left and right border of Prompt textbox
25. bAdjustUnderlineStrings – if True this will make the string that comes after a specified linebreak the same length as the line above. This works if this underlining string is —- or ____, so 4 of these characters.
26. bShowTitleIcon – if True will show the title caption icon, default is True. Of course this icon can be changed.
27. bCenterPrompt – If True the text in the Prompt textbox will be centered
28. bInput – If True it will be an InputBox
29. vInputDefault – default InputBox value
30. bNumericInput – If True InputBox will only accept numeric input
31. bIntegerOnly – will only apply if bNumericInput is True. In that case only integer numbers will be allowed
32. vMinValue – will only apply if bNumericInput is True. Minimum allowed input value
33. vMaxValue – will only apply if bNumericInput is True. Maximum allowed input value
34. bBeep – Beep when the Msgbox loads
35. bLineUpTabs – if True tabs will be lined up in columns
36. strTabSpacer – string used to line up tabs, default is chr(32)
37. strTabSpacer – long value, minimum number of strTabSpacer characters to line up tabs
38. bAddTab – if True will add vbTab to spacer string, recommended to line up precisely
39. vTooltip1 – Tooltip text for button 1
40. vTooltip2 – Tooltip text for button 2
41. vTooltip3 – Tooltip text for button 3
42. vTooltip4 – Tooltip text for button 4
43. lActiveButtonColour – colour of the button that is moved over by the mouse
44. bReturnLineNumber – with a mouse right-click return the line number in the prompt where the cursor is, rather than the button caption.
Рус (машинный)Пользовательские функции msgbox с помощью множества мощных
вариантов, как видно из 44 входных аргументов:
———————————————–
1. vPrompt – MessagBox текст приглашения
2. vTitle – MessagBox текст приглашения
3. vButton1 – Заголовок первой кнопки, если Нил указано будет: ОК
4. vButton2 – название второй кнопки
5. vButton1 – Заголовок третью кнопку
6. vButton1 – Заголовок четвертого кнопку
7. btDefault – устанавливает то, что кнопка по умолчанию, так что кнопка имеет фокус при запуске
8. lMessageIcon – установить значок функции messagebox:
Нил указано: нет значка
1: информация
2: вопрос
3: восклицательный
4: предупреждение
9. lFormColour – длительного значения фона в функции messagebox форме, если указанный Нил будет VB по умолчанию функции messagebox
цвет. Можно сделать например черный, как шрифт будет установлен в контрастные цвета.
10. lLabelColour – длинный параметр значение Цвет фона командной строке текстового поля, если Нил указано будет таким же, как lFormColour
11. lButtonColour – длинный параметр значение Цвет фона кнопки, если Нил указано будет таким же, как lFormColour
12. lLabelFontColour – долго стоимость установки Цвет Приглашения текстовое поле, если Нил указанных будут контрастные цвета
по сравнению с подскажите Цвет фона
13. lMaxLen – максимальное количество символов в строке текст до переноса будет происходить, по умолчанию 125
14. bPromptBorder – булево, если истина строке текстового поля будет иметь границ
15. bIndentAfterBreak – булево, если истина будет отступ после разрыв строки в текст приглашения.
16. bOnlyIndentWithNumericFirstChar – логическое применяется только если bIndentAfterBreak верно. Если bOnlyIndentWithNumericFirstChar
– это правда, то тогда отступ будет только в том случае, если линия началась с большого количества.
17. strIndent – отступ строки
18. bStartLineWithSpacer – если True каждой новой строки в командной строке начнется с расстояние между струнами. Полезно, когда подскажут
текстовое поле имеет границы.
19. strSpacer – строка, распорка, применяется только если bStartLineWithSpacer верно
20. siPromptButtonFontSize – одно значение, кнопки размер шрифта, по умолчанию-10
21. lMinButtonWidth – длинное значение, минимальная Ширина кнопки, по умолчанию-1200
22. lMinButtonGap – длинное значение, минимальное пространство между кнопками, по умолчанию-150
23. lButtonEdge – длинное значение, Минимальное расстояние между краем кнопки и кнопке, по умолчанию-150
24. bSpaceButtons – если True кнопки будут распределены равномерно между левой и правой границы строки текстового поля
25. bAdjustUnderlineStrings – если это правда это будет сделать строку, которая приходит через определенный разрыв строки такой же длины, как линию выше. Это работает, если это подчеркивание строки —- или ____так, 4 из этих символов.
26. bShowTitleIcon – если True будет отображать значок название заголовка, по умолчанию True. Конечно, этот значок может быть изменен.
27. bCenterPrompt – если True, то текст в строке поле будет сосредоточено
28. bInput – если это правда это будет сайт inputbox
29. vInputDefault – сайт inputbox значение по умолчанию
30. bNumericInput – если True сайт inputbox будет принимать только цифровой ввод
31. bIntegerOnly – будет применяться только если bNumericInput верно. В этом случае будут разрешены только целые числа
32. vMinValue – будет применяться только если bNumericInput верно. Минимально допустимое входное значение
33. vMaxValue – будет применяться только если bNumericInput верно. Максимально допустимое входное значение
34. bBeep – бип, когда в msgbox нагрузок
35. bLineUpTabs – если True вкладки будут выстроены в столбцы
36. strTabSpacer – строка, используемая, чтобы выстроить вкладки, по умолчанию ХР(32)
37. strTabSpacer – длинное значение, минимальное количество strTabSpacer символы, чтобы выстроить вкладки
38. bAddTab – если верно будет добавить vbTab для прокладки строкой, рекомендуется совпали
39. vTooltip1 – текст всплывающей подсказки для кнопки 1
40. vTooltip2 – текст всплывающей подсказки для кнопки 2
41. vTooltip3 – текст всплывающей подсказки для кнопки 3
42. vTooltip4 – текст всплывающей подсказки для кнопки 4
43. lActiveButtonColour – цвет кнопки, которая перемещается за мышью
44. bReturnLineNumber – с правой кнопкой мыши возвращает номер строки в строке, где находится курсор, а не на кнопке.

база кода