ab.com コミュニティ

コード: 全て選択

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
    Dim ic As INITCOMMONCONTROLSEX
    Dim tbb[12] As TBBUTTON

    hEdit=GetDlgItem(hMainWnd,EditBox1)

    'コモンコントロールの初期化
    ic.dwSize=Len(ic)
    ic.dwICC=ICC_BAR_CLASSES
    InitCommonControlsEx(ic)

    'ボタン情報をセット
    SetTbButtonData(tbb[0],0,IDM_NEW,TBSTATE_ENABLED,TBSTYLE_BUTTON)
    SetTbButtonData(tbb[1],1,IDM_OPEN,TBSTATE_ENABLED,TBSTYLE_BUTTON)
    SetTbButtonData(tbb[2],2,IDM_SAVE,TBSTATE_ENABLED,TBSTYLE_BUTTON)
    SetTbButtonData(tbb[3],3,IDM_FILEOVERWRITE,TBSTATE_ENABLED,TBSTYLE_BUTTON)
    SetTbButtonData(tbb[4],0,0,TBSTATE_ENABLED,TBSTYLE_SEP)
    SetTbButtonData(tbb[5],4,IDM_CUT,TBSTATE_ENABLED,TBSTYLE_BUTTON)
    SetTbButtonData(tbb[6],5,IDM_COPY,TBSTATE_ENABLED,TBSTYLE_BUTTON)
    SetTbButtonData(tbb[7],6,IDM_PASTE,TBSTATE_ENABLED,TBSTYLE_BUTTON)
    SetTbButtonData(tbb[8],7,IDM_UNDO,TBSTATE_ENABLED,TBSTYLE_BUTTON)
    SetTbButtonData(tbb[9],0,0,TBSTATE_ENABLED,TBSTYLE_SEP)
    SetTbButtonData(tbb[10],8,IDM_SENDMAIL,TBSTATE_ENABLED,TBSTYLE_BUTTON)
    SetTbButtonData(tbb[11],0,0,TBSTATE_ENABLED,TBSTYLE_SEP)
    SetTbButtonData(tbb[12],9,IDM_ABOUT,TBSTATE_ENABLED,TBSTYLE_BUTTON)
    
    'ツールバーを生成
    hToolbar=CreateToolbarEx(hMainWnd, _
        WS_CHILD or WS_VISIBLE or TBSTYLE_TOOLTIPS, _
        ID_TOOLBAR, _
        9, _                        'ビットマップの個数
        GetModuleHandle(0), _
        IDB_BITMAP1, _              'ビットマップのリソースID
        tbb, _
        12, _                        'ボタンの個数
        0,0, _                      'ボタンサイズ（0指定で自動セットに）
        16,15, _                    'ビットマップサイズ
        Len(tbb[0]))

    'ウィンドウスタイルにTBSTYLE_FLATを追加
    Dim style As Long
    style=GetWindowLong(hToolbar,GWL_STYLE)
    style=style or TBSTYLE_FLAT
    SetWindowLong(hToolbar,GWL_STYLE,style)

    'イメージリストを作成（フルカラー）
    hImageList=ImageList_LoadImage(GetModuleHandle(0), _
        IDB_BITMAP2, _
        16, 0, RGB(192,192,192), _
        IMAGE_BITMAP,LR_CREATEDIBSECTION)

    'ホットイメージを設定
    SendMessage(hToolbar, TB_SETHOTIMAGELIST, 0, hImageList)

    'MainWndを画面の真ん中に移動
    Dim MainWndRect As RECT
    GetWindowRect(hMainWnd, MainWndRect)
    SetWindowPos(hMainWnd, 0,_
    (GetSystemMetrics(SM_CXSCREEN) - MainWndRect.right + MainWndRect.left) \ 2,_
    (GetSystemMetrics(SM_CYSCREEN) - MainWndRect.bottom + MainWndRect.top) \ 2,_
    0, 0, SWP_NOSIZE or SWP_NOZORDER)
End Sub

コード: 全て選択

Dim hInstance As HINSTANCE

Function Export DllMain(hinstDLL As HINSTANCE, fdwReason As DWord, lpvReserved As VoidPtr) As Long
	'DLLエントリポイント
	Select Case fdwReason
		Case DLL_PROCESS_ATTACH
			'DLLがプロセス空間にロードされた時に実行されます。
			hInstance=hinstDLL
			_System_StartupProgram()
			DllMain=1
	End Select
End Function

Function Export GetResourceNumber(ByVal lpBitmapResourceName As BytePtr) As Long
	GetResourceNumber=FALSE
	Select Case 0
		Case lstrcmp("IDB_BITMAP1",lpBitmapResourceName)
			GetResourceNumber=IDB_BITMAP1
	End Select
End Function

Function Export LoadResourceBitmap(ByVal lpBitmapResourceNumber As Long) As HBITMAP
	LoadResourceBitmap=LoadImage(hInstance,lpBitmapResourceNumber As *Byte,IMAGE_BITMAP,NULL,NULL,LR_DEFAULTCOLOR or LR_DEFAULTSIZE) As HBITMAP
End Function

Function Export CreateToolbarDx(ByVal hWnd As HWND,ByVal dwStyle As DWord,ByVal wID As DWord,ByVal nBitmaps As Long,ByVal hBitmap As HBITMAP,ByVal lpButtons As VoidPtr,ByVal iNumButtons As Long,ByVal dxButton As Long,ByVal dyButton As Long,ByVal dxBitmap As Long,ByVal dyBitmap As Long,ByVal uStructSize As DWord) As HWND
    CreateToolbarDx=CreateToolbarEx(hWnd,dwStyle,wID,nBitmaps,NULL,hBitmap As DWord,lpButtons,iNumButtons,dxButton,dyButton,dxBitmap,dyBitmap,uStructSize)
End Function

コード: 全て選択

Declare Function LoadResourceBitmap Lib "BitmapDLL" (ByVal lpBitmapResourceNumber As Long) As HBITMAP
Declare Function GetResourceNumber Lib "BitmapDLL" (ByVal lpBitmapResourceName As BytePtr) As Long
Declare Function CreateToolbarDx Lib "BitmapDLL" (ByVal hWnd As HWND,ByVal dwStyle As DWord,ByVal wID As DWord,ByVal nBitmaps As Long,ByVal hBitmap As HBITMAP,ByVal lpButtons As VoidPtr,ByVal iNumButtons As Long,ByVal dxButton As Long,ByVal dyButton As Long,ByVal dxBitmap As Long,ByVal dyBitmap As Long,ByVal uStructSize As DWord) As HWND

コード: 全て選択

Function Export GetResourceNumber(ByVal lpBitmapResourceName As BytePtr) As Long
    Select Case 0
        Case lstrcmp("IDB_BITMAP1",lpBitmapResourceName)
            GetResourceNumber=IDB_BITMAP1
/*
        Case lstrcmp("IDB_BITMAP2",lpBitmapResourceName)
            GetResourceNumber=IDB_BITMAP2
*/
        Case Else
            GetResourceNumber=FALSE
    End Select
End Function

コード: 全て選択

Function Export CreateToolbarDx(ByVal hWnd As HWND,ByVal dwStyle As DWord,ByVal wID As DWord,ByVal nBitmaps As Long,ByVal hBitmap As HBITMAP,ByVal lpButtons As VoidPtr,ByVal iNumButtons As Long,ByVal dxButton As Long,ByVal dyButton As Long,ByVal dxBitmap As Long,ByVal dyBitmap As Long,ByVal uStructSize As DWord) As HWND
    CreateToolbarDx=CreateToolbarEx(hWnd,dwStyle,wID,nBitmaps,NULL,hBitmap,lpButtons,iNumButtons,dxButton,dyButton,dxBitmap,dyBitmap,uStructSize)
End Function

コード: 全て選択

Function Export CreateToolbarDx(ByVal hWnd As HWND,ByVal dwStyle As DWord,ByVal wID As DWord,ByVal nBitmaps As Long,ByVal hBitmap As HBITMAP,ByVal lpButtons As VoidPtr,ByVal iNumButtons As Long,ByVal dxButton As Long,ByVal dxBitmap As Long,ByVal dyBitmap As Long,ByVal uStructSize As DWord) As HWND
	CreateToolbarDx=CreateToolbarEx(hWnd,dwStyle,wID,nBitmaps,NULL,hBitmap,lpButtons,iNumButtons,dxButton,dyButton,dxBitmap,dyBitmap,uStructSize)
End Function