Improving default VBA Dialog Box in MicroStation v8

Part of product

Research

Date

January 2002

Programming languages

VBA

Company

Description

When creating VBA form it implicitly has problem- you cannot push the box behind any other dialog like standard MDL dialogs. download mvba code

Code snippet enabling VBA Form to be behind other dialogs

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _

(ByVal lpClassName As String, ByVal lpWindowName As Any) As Long

Private Declare Function SetParent Lib "user32" _

(ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub UserForm_Activate()

' Set box to behave as normal dialog

hwndMs = FindWindow("MstnTop", 0&)

hWndForm = FindWindow("ThunderDFrame", VBANonModal.Caption)

SetParent hWndForm, hwndMs

End Sub

Part of product	Research
Date	January 2002
Programming languages	VBA
Company
Description	When creating VBA form it implicitly has problem- you cannot push the box behind any other dialog like standard MDL dialogs. download mvba code

Code snippet enabling VBA Form to be *behind* other dialogs

Sample picture

Code snippet enabling VBA Form to be behind other dialogs