FreeBasic. MyFbFramework + VisualFBEditor

'#Compile -ex "mff\xpmanifest.rc"
#Include Once "mff\Form.bi"
#Include Once "mff\CheckBox.bi"
#Include Once "mff\CommandButton.bi"
#Include Once "mff\HScrollBar.bi"
#Include Once "mff\ComboBoxEdit.bi"
#Include Once "mff\ListControl.bi"
#Include Once "mff\TextBox.bi"
 
Using My.Sys.Forms
 
'#Region "Form"
    Type Form1 Extends Form
        Declare Constructor
        
        Dim As CheckBox CheckBox1
        Dim As CommandButton CommandButton1
        Dim As HScrollBar HScrollBar1
        Dim As ComboBoxEdit ComboBoxEdit1
        Dim As ListControl ListControl1
        Dim As TextBox TextBox1
    End Type
    
    Constructor Form1
        ' Form1
        This.Name = "Form1"
        This.Text = "Form1"
        This.SetBounds 0, 0, 350, 300
        ' CheckBox1
        CheckBox1.Name = "CheckBox1"
        CheckBox1.Text = "CheckBox1"
        CheckBox1.SetBounds 60, 42, 150, 36
        CheckBox1.Parent = @This
        ' CommandButton1
        CommandButton1.Name = "CommandButton1"
        CommandButton1.Text = "CommandButton1"
        CommandButton1.SetBounds 102, 108, 132, 60
        CommandButton1.Parent = @This
        ' HScrollBar1
        HScrollBar1.Name = "HScrollBar1"
        HScrollBar1.Text = "HScrollBar1"
        HScrollBar1.SetBounds 150, 192, 174, 18
        HScrollBar1.Parent = @This
        ' ComboBoxEdit1
        ComboBoxEdit1.Name = "ComboBoxEdit1"
        ComboBoxEdit1.SetBounds 228, 18, 66, 21
        ComboBoxEdit1.Parent = @This
        ' ListControl1
        ListControl1.Name = "ListControl1"
        ListControl1.Text = "ListControl1"
        ListControl1.SetBounds 24, 174, 84, 72
        ListControl1.Parent = @This
        ' TextBox1
        TextBox1.Name = "TextBox1"
        TextBox1.Text = "TextBox1"
        TextBox1.SetBounds 246, 60, 84, 42
        TextBox1.Parent = @This
    End Constructor
    
    #IfnDef _NOT_AUTORUN_FORMS_
        Dim frm As Form1
        frm.Show
    
        App.Run
    #EndIf
'#End Region

            For i As Integer = 0 To FMenuItems.Count -1
                If QMenuItem(FMenuItems.Items[i]).Command = msg.wParamLo Then
                    If QMenuItem(FMenuItems.Items[i]).OnClick Then QMenuItem(FMenuItems.Items[i]).OnClick(QMenuItem(FMenuItems.Items[i]))
                    Exit For
                End If
            Next i
 
            For i As Integer = 0 To FMenuItems.Count - 1
                If QMenuItem(FMenuItems.Items[i]).Command = msg.wParamLo Then
                    If QMenuItem(FMenuItems.Items[i]).OnClick Then
                        QMenuItem(FMenuItems.Items[i]).OnClick(QMenuItem(FMenuItems.Items[i]))
                    Exit For
                End If
            Next i

            Dim As MenuItem Ptr mi
            For i As Integer = 0 To FMenuItems.Count -1
                mi = FMenuItems.Items[i]
                If mi->Command = msg.wParamLo Then
                    If mi->OnClick Then mi->OnClick(*mi)
                    Exit For
                End If
            Next i

            Dim As MenuItem Ptr mi
            For i As Integer = 0 To FMenuItems.Count -1
                mi = FMenuItems.Items[i]
                With *mi
                    If .Command = msg.wParamLo Then
                        If .OnClick Then .OnClick(*mi)
                        Exit For
                    End If
                End With
            Next i

            For i As Integer = 0 To FMenuItems.Count -1
                If QMenuItem(FMenuItems.Items[i]).Command = msg.wParamLo Then
                    If QMenuItem(FMenuItems.Items[i]).OnClick Then QMenuItem(FMenuItems.Items[i]).OnClick(QMenuItem(FMenuItems.Items[i]))
                    Exit For
                End If
            Next i
            ' ============================================================
            Dim As MenuItem Ptr mi
            For i As Integer = 0 To FMenuItems.Count -1
                mi = FMenuItems.Items[i]
                With *mi
                    If .Command = msg.wParamLo Then
                        If .OnClick Then .OnClick(*mi)
                        Exit For
                    End If
                End With
            Next i
           ' ============================================================
           ' с использованием приставок и правильного итератора
           ' Тип UShort позволяет иметь 65к элементов меню, разве мало? а весит он вдвое меньше
           ' чем Integer. При этом Integer выходит за диапазон значений итератора, так как включает
           ' отрицательные значения.
    
            ' где-то рядом с определением TMenuItem 
            Type PMenuItem as TMenuItem Ptr
 
            ' Везде, где требуется TMenuItem Ptr
            Dim As PMenuItem Item
           For i As UShort = 0 To FMenuItems.Count - 1
                   Item = FMenuItems.Items[i]
                   With Item
                       If .Command = msg.wParamLo Then
                        If .OnClick Then .OnClick(*Item)
                        Exit For
                    End If
                   End With
            Next i
            ' ============================================================
            ' и еще
            For i As UShort = 0 To FMenuItems.Count - 1
                   Dim As PMenuItem Item = FMenuItems.Items[i]
                   If Item->Command = msg.wParamLo Then
                        If Item->OnClick Then Item->OnClick(*Item)
                        Exit For
                   End If
            Next i