GetBitmaps メソッド(ActiveX)

ツールバー項目のアイコンとして使用する大小のビットマップを取得します。

サポートされているプラットフォーム: Windows のみ

構文と要素

VBA:

object.GetBitmaps SmallIconName, LargeIconName
object

タイプ: ToolbarItem

このメソッドが適用されるオブジェクト。

SmallIconName

アクセス: 出力のみ

タイプ: 文字列

小さいビットマップのパスおよびファイル名。

LargeIconName

アクセス: 出力のみ

タイプ: 文字列

大きいビットマップのパスおよびファイル名。

戻り値(RetVal)

戻り値はありません。

注意

追加の注意はありません。

VBA:

Sub Example_GetBitmaps()
    ' This example uses MenuGroups to obtain a reference to the AutoCAD main menu.
    ' It then creates a new Toolbar (TestMenu) and inserts a ToolBarButton
    ' with a custom icon into it. The menu is automatically shown.
    '
    ' * NOTE: The paths of the icons for the new toolbar should be updated
    ' before running this example.
        
    Dim currMenuGroup As acadMenuGroup
    Dim newToolBar As AcadToolbar, newToolBarButton As AcadToolbarItem
    Dim openMacro As String
    Dim SmallBitmapName  As String, LargeBitmapName  As String
    
    On Error GoTo ERRORTRAP
    
    ' Use MenuGroups property to obtain reference to main AutoCAD menu
    Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item("ACAD")
    
    ' Create the new Toolbar in this group
    Set newToolBar = currMenuGroup.Toolbars.Add("TestMenu")
    
    ' Add an item to the new Toolbar and assign an Open macro
    ' (VBA equivalent of: "ESC ESC _open ")
    openMacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)
    Set newToolBarButton = newToolBar.AddToolbarButton(newToolBar.count + 1, "Open", "Open Macro", openMacro, False)
   
    ' Read icon paths for this Toolbar button
    GoSub READPATHS
    
    ' Change the default icon (smile face) for the new toolbar button
    SmallBitmapName = "c:\AutoCAD\16x16.bmp"     ' Use a 16x16 pixel .BMP image
    LargeBitmapName = "c:\AutoCAD\32x32.bmp"     ' Use a 32x32 pixel .BMP image
    newToolBarButton.SetBitmaps SmallBitmapName, LargeBitmapName
    
    ' Read icon paths for this Toolbar button
    GoSub READPATHS
    
    Exit Sub
    
READPATHS:
    ' Read icon paths for this Toolbar button
    newToolBarButton.GetBitmaps SmallBitmapName, LargeBitmapName
    MsgBox "The new Toolbar uses the following icon files: " & _
           vbCrLf & vbCrLf & "Small Bitmap: " & SmallBitmapName & vbCrLf & _
           "Large Bitmap: " & LargeBitmapName

    Return

ERRORTRAP:
    MsgBox "The following error has occurred: " & Err.Description
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_GetBitmaps()
    ;; This example uses MenuGroups to obtain a reference to the AutoCAD main menu.
    ;; It then creates a new Toolbar (TestMenu) and inserts a ToolBarButton
    ;; with a custom icon into it. The menu is automatically shown.
    ;;
    ;; * NOTE: The paths of the icons for the new toolbar should be updated
    ;; before running this example.
    (setq acadObj (vlax-get-acad-object))
    (setq currMenuGroup (vla-Item (vla-get-MenuGroups acadObj) 0))
     
    ;; Create the new Toolbar in this group
    (setq newToolBar (vla-Add (vla-get-Toolbars currMenuGroup) "TestToolbar"))
    
    ;; Add an item to the new Toolbar and assign an Open macro
    ;; (VBA equivalent of: "ESC ESC _open ")
    (setq openMacro (strcat (Chr 3) (Chr 3) (Chr 95) "open" (Chr 32)))
    (setq newButton (vla-AddToolbarButton newToolBar "" "NewButton" "Open a file." openMacro))
   
    ;; Read icon paths for this Toolbar button
    (vla-GetBitmaps newButton 'SmallBitmapName 'LargeBitmapName)
    (alert (strcat "The new Toolbar uses the following icon files: \n"
                   "Small Bitmap: " SmallBitmapName "\n"
                   "Large Bitmap: " LargeBitmapName))
  
    ;; Change the default icon (smile face) for the new toolbar button
    (setq SmallBitmapName "C:\\AutoCAD\\16x16.bmp")     ;; Use a 16x16 pixel .BMP image
    (setq LargeBitmapName "C:\\AutoCAD\\32x32.bmp")     ;; Use a 32x32 pixel .BMP image
    (vla-SetBitmaps newButton SmallBitmapName LargeBitmapName)
    
    ;; Read icon paths for this Toolbar button
    (vla-GetBitmaps newButton 'SmallBitmapName 'LargeBitmapName)
    (alert (strcat "The new Toolbar uses the following icon files: \n"
                   "Small Bitmap: " SmallBitmapName "\n"
                   "Large Bitmap: " LargeBitmapName))
)