Доступ к форме

Option Explicit
 
'-----------------------------------------[Глобальные переменные]
Global APN$ 'App.EXEName
Public frmMain1 As frmMain
Public frmList1 As frmList
Public frmText1 As frmText
 
Public Const ListSettings = "[Список настроек]"
Public Const Order$ = "[Порядок рассположения настроек]"
Public Const r1$ = "\", r2 = "#", r3 = ";", r4 = "["
Public Const ch = ";Check=", ch0 = ";Check=0", ch1 = ";Check=1"
'-------------------------------
Public Const Title1$ = "Сохранение настроек"
Public Const Promt1$ = "Введите имя настройки"
Public Const Promt2$ = "Проект был удален или перемещен" & vbCrLf & _
                                    "Удалить его из записи настроек ?"
 
 
'-----------------------------------------[Глобальные Константы]
Public Const GWL_EXSTYLE = (-20)
Public Const ICC_STANDARD_CLASSES = &H4000&
Public Const WS_EX_LAYERED As Long = &H80000
'-----------------------------------------[Типы]
Public Type InitCommonControlsExStruct
    lngSize As Long
    lngICC As Long
End Type
'-----------------------------------------[Api функции]
Public Declare Function FreeLibrary Lib "kernel32.dll" (ByVal hLibModule As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function InitCommonControlsEx Lib "comctl32.dll" (iccex As InitCommonControlsExStruct) As Boolean
Public Declare Function LoadLibrary Lib "kernel32.dll" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Sub InitCommonControls Lib "comctl32.dll" ()
'-----------------------------------------[Объекты]
Public Fso  As New FileSystemObject
Public Wsh As New WshShell
Public Sh As New Shell
 
Public Sub Main()
    APN = App.EXEName
    'Инициализация стиля НЕ УДОЛЯТЬ
    Dim iccex As InitCommonControlsExStruct, hMod As Long
    With iccex
        .lngSize = LenB(iccex)
        .lngICC = ICC_STANDARD_CLASSES ' встроенные элементы управления VB (кнопки, текстового поля и т.д.)
    End With
    On Error Resume Next ' если произошла ...
    hMod = LoadLibrary("shell32.dll")
    InitCommonControlsEx iccex
    If Err Then
        InitCommonControls ' попробовать версию Win9x
        Err.Clear
    End If
    On Error GoTo 0
    If hMod Then FreeLibrary hMod
    '--------------------------------------------
    Set frmMain1 = frmMain
    Set frmList1 = frmList
    Set frmText1 = frmText
    frmMain1.Show 'Запуск главной формы
 
End Sub
 
Public Function PictureBoxBorderStyle(Form As Object)
    Dim o
    For Each o In Form 'Убрать борд
        If TypeName(o) = "PictureBox" Then
            o.BorderStyle = 0
        End If
    Next
End Function
 
Public Function ButtonLoadSettings() As Boolean
    Dim v As Variant
    Const index& = 3 '[Кн. загрузить]
    v = GetAllSettings(APN, ListSettings)
    With frmMain1
        If IsEmpty(v) Then
            .Command1(index).Enabled = False
        ElseIf UBound(v) < 1 Then
            .Command1(index).Enabled = False
        Else
            .Command1(index).Enabled = True
            ButtonLoadSettings = True
        End If
    End With
End Function