Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: Йожык
в качестве упражнения сделал себе помогалку
панель меню, перелистывающая по 100 значков с указанием FaceID
Вдруг кому пригодится при разработке
Ссылок в референсах никаких ставить не надо.

Картинко: =>


Option Compare Database
Option Explicit
Dim FID1&, FID2&

Function BrowserFaceID(q&)
' передаются параметры -1(назад 100), 1(вперед 100), 0(старт меню)
    Dim NewButton As Object, oPopUp As Object, cmbs As Object
    Dim bl As Boolean, i&
 
bl = False

On Error GoTo err211:

Set cmbs = Application.CommandBars
' - - - 
For Each oPopUp In cmbs
    If oPopUp.Name = "FaceIds" Then bl = True
Next
' - - - 
If Not bl Then
   Set oPopUp = Application.CommandBars.Add(Name:="FaceIds", Temporary:=True)
    With oPopUp.Controls.Add(Type:=1)
        .faceID = 41
        .OnAction = "=BrowserFaceID(-1)"
        .width = 115
        .Caption = "Назад"
    End With
    With oPopUp.Controls.Add(Type:=1)
        .faceID = 39
        .OnAction = "=BrowserFaceID(1)"
        .Caption = "Вперед"
        .width = 115
    End With
Else
    Set oPopUp = Application.CommandBars("FaceIds")
End If
' - - - 
With oPopUp
    .Visible = False

    Select Case q
    Case -1
        If FID1 = 1 Then FID1 = 2901 Else FID1 = FID1 - 100
    Case 1
        If FID1 = 2901 Then FID1 = 1 Else FID1 = FID1 + 100
    Case 0
        FID1 = 1
    End Select
        FID2 = FID1 + 99
      'Debug.Print FID1 & " - " & FID2
    
    For Each NewButton In .Controls
       If Not (NewButton.Caption = "Назад" Or NewButton.Caption = "Вперед") Then NewButton.Delete
    Next
' - - -     
    For i = FID1 To FID2
        With .Controls.Add(Type:=1)
        .faceID = i
        .Caption = "FaceID = " & i
        End With
    Next i
' - - - 
    .width = 250
    .Visible = True
End With

Set oPopUp = Nothing
Set cmbs = Nothing
Exit Function
' - - - 
err211:
Debug.Print Err.Description
Stop
End Function


Ваше имя:

Пароль:
Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.