Function FormLoadedByName(FormName As String) As Boolean Dim i As Integer, fnamelc As String fnamelc = LCase$(FormName) FormLoadedByName = False For i = 0 To Forms.Count - 1 If LCase$(Forms(i).Name) = fnamelc Then FormLoadedByName = True Exit Function End If Next End Function
Private Sub Command1_Click() 'Замените 'Form2' именем формы, про которую хотите знать... If FormLoadedByName("Form2") = True Then MsgBox "Форма загружена" Else MsgBox "Форма не загружена" End If End Sub
Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Определить, загружена ли форма", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!