> 'Возвратить коллекцию
> Return s_colPlayerBitmaps
>End Function
>Private Shared s_blackPen As System.Drawing.Pen
>Private Shared s_whitePen As System.Drawing.Pen
>Private Shared s_ImageAttribute As _
> System.Drawing.Imaging.ImageAttributes
>Private Shared s_boldFont As System.Drawing.Font
>'------------------------------------------------
>'Вызывается для освобождения от любых графических
>'ресурсов, которые могли быть кэшированы
>'------------------------------------------------
>Private Shared Sub g_CleanUpDrawingResources()
> 'Освободить память от черного пера, если таковое имеется
> If Not (s_blackPenIs Nothing) Then
> s_blackPen.Dispose()
> s_blackPen = Nothing
> End If
> 'Освободить память от белого пера, если таковое имеется
> If Not (s_whitePenIs Nothing) Then
> s_whitePen.Dispose()
> s_whitePen = Nothing
> End If
> 'Освободить память от атрибута ImageAttribute, если таковой имеется.
> 'Примечание. Метод Dispose() для этого типа не предусмотрен,
> 'поскольку все его данные являются управляемыми
> If Not (s_ImageAttribute Is Nothing) Then
> s_ImageAttribute = Nothing
> End If
> 'Освободить память от полужирного шрифта, если таковой имеется
> If Not (s_boldFontIs Nothing) Then
> b_boldFont.Dispose()
> s_boldFont = Nothing
> End If
>End Sub
>'-----------------------------------------
>'Эта функция позволяет получить доступ
>'к черному перу, находящемуся в кэш-памяти
>'-----------------------------------------
>Private Shared Function g_GetBlackPen() As System.Drawing.Pen
> 'Если перо еще не существует, создать его
> If (s_blackPen Is Nothing) Then
> s_blackPen = New System.Drawing.Pen( _
> System.Drawing.Color.Black)
> End If
> 'Возвратить черное перо
> Return s_blackPen
>End Function
>'----------------------------------------
>'Эта функция позволяет получить доступ
>'к белому перу, находящемуся в кэш-памяти
>'----------------------------------------
>Private Shared Function g_GetWhitePen() As System.Drawing.Pen
> 'Если перо еще не существует, создать его
> If (s_whitePen Is Nothing) Then
> s_whitePen = New System.Drawing.Pen( _
> System.Drawing.Color.White)
> End If
> 'Возвратить белое перо
> Return s_whitePen
>End Function
>'-----------------------------------------------
>'Эта функция позволяет получить доступ
>'к полужирному шрифту, находящемуся в кэш-памяти
>'-----------------------------------------------
>Private Shared Function g_GetBoldFont() As System.Drawing.Font
> 'Если перо еще не существует, создать его
> If (s_boldFont Is Nothing) Then
> s_boldFont = New System.Drawing.Font( _
> System.Drawing.FontFamily.GenericSerif, 10, System.Drawing.FontStyle.Bold)
> End If