Balloon Msgboxes, Inputboxes and timeout popups
Display msgboxes, inputboxes and custom dialogs in balloons of any color you choose with an alphablended drop shadow of varying intensity. This is an update which has been rewritten to take into account users feedback. The code should now be clean and consists of only one form and one enumeration in a module. It is easy to replace the standard vb controls used with usercontrols of your choice to give an XP appearance. All balloons can be positioned via the calling code or just left to appear at the cursor position. Please see the screenshot and leave feedback, thanks.
Inputs
Function msg_Box(ByVal mPrompt As String, _
ByVal mFlags As MsgBox_Flags, _ ByVal mCaption As String, _
Optional NoPointer As Boolean, _
Optional CheckboxTxt As String, _
Optional Btn1 As String, _
Optional Btn2 As String, _
Optional Btn3 As String, _
Optional mColor As OLE_COLOR, _
Optional X As Single, _
Optional Y As Single, _
Optional Intensity As Integer) As Integer
Function input_box(ByVal mPrompt As String, _
ByVal mFlags As MsgBox_Flags, _
ByVal mCaption As String, _
Optional DefaultText As String, _
Optional NoPointer As Boolean, _
Optional CheckboxTxt As String, _
Optional mColor As OLE_COLOR, _
Optional X As Single, _
Optional Y As Single, _
Optional Intensity As Integer) As String
Function MsgAuto_box(ByVal mPrompt As String, _
ByVal mFlags As MsgBox_Flags, _
ByVal mCaption As String, _
ByVal nTime As Integer, _
Optional NoPointer As Boolean, _
Optional mColor As OLE_COLOR, _
Optional X As Single, _
Optional Y As Single, _
Optional Intensity As Integer) As String
Returns
Function msg_Box returns a integer decribing which button was pressed.
Function input_box returns a string decribing the text the user entered.
Side Effects
None.
(29(29 Vote))