ab.com コミュニティ

コード: 全て選択

' ----------------------------------------------------------------------------
'  イベント プロシージャ
' ----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd

' メモ - 以下の領域を、変数、構造体、定数、関数を宣言するための、
'        グローバル領域として利用することができます。
' ----------------------------------ここから----------------------------------
Dim hList As Long   'リストビューのハンドル

' ----------------------------------ここまで----------------------------------

Sub MainWnd_Destroy()
    T_ListView_DestroyObjects()
    PostQuitMessage(0)
End Sub

Sub MainWnd_CB_EXIT_Click()
    MainWnd_Destroy()
End Sub

Sub MainWnd_Resize(SizeType As Long, cx As Integer, cy As Integer)
    Dim rc As RECT

    GetClientRect(hMainWnd,rc)										'クライアント領域のサイズを取得
    hList=GetDlgItem(hMainWnd,ListView1)							'ListView1のウィンドウ ハンドルを取得
    MoveWindow(hList, 0, 30, rc.right, rc.bottom - 30, 0)			'hListの大きさを変更する
End Sub

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
    Dim clm As LVCOLUMN

    hList=GetDlgItem(hMainWnd,ListView1)							'リストビューのハンドルを取得
    SendMessage(hList,LVM_SETEXTENDEDLISTVIEWSTYLE,0, _
                LVS_EX_FULLROWSELECT or LVS_EX_GRIDLINES)			'リストビューの拡張スタイルを設定
	With clm
        .mask = LVCF_FMT or LVCF_WIDTH or LVCF_TEXT
        .fmt = LVCFMT_CENTER
        .pszText = "Ａ" : .cx = 80									'カラムの設定
        SendMessage(hList,LVM_INSERTCOLUMN,0,VarPtr(clm))
        .pszText = "Ｂ" : .cx = 80
        SendMessage(hList,LVM_INSERTCOLUMN,1,VarPtr(clm))
        .pszText = "Ｃ" : .cx = 80
        SendMessage(hList,LVM_INSERTCOLUMN,2,VarPtr(clm))
    End With
End Sub

Sub MainWnd_CB_ADD_Click()
    Dim itm As LVITEM
	Dim Dt0[5] As Byte, Dt1[5] As Byte, Dt2[5] As Byte

	lstrcpy(Dt0, "Ｃ０")
	lstrcpy(Dt1, "Ｃ１")
	lstrcpy(Dt2, "Ｃ２")

    With itm
        .mask = LVIF_TEXT
        .iItem = 0 : .iSubItem = 0 : .pszText = "Ａ０"			'アイテムを追加 １行目
        SendMessage(hList,LVM_INSERTITEM,0,VarPtr(itm)) 
        .iItem = 0 : .iSubItem = 1 : .pszText = "Ｂ０"
		MessageBox(0,.pszText,"pszText",MB_OK)					'確認の為
        SendMessage(hList,LVM_SETITEM,0,VarPtr(itm))
        .iItem = 0 : .iSubItem = 2 : lstrcpy(.pszText, Dt0)
        SendMessage(hList,LVM_SETITEM,0,VarPtr(itm))

        .iItem = 1 : .iSubItem = 0 : .pszText = "Ａ１"			'アイテムを追加 ２行目
        SendMessage(hList,LVM_INSERTITEM,0,VarPtr(itm))
        .iItem = 1 : .iSubItem = 1 : .pszText = "Ｂ１"
        SendMessage(hList,LVM_SETITEM,0,VarPtr(itm))
        .iItem = 1 : .iSubItem = 2 : lstrcpy(.pszText, Dt1)
        SendMessage(hList,LVM_SETITEM,0,VarPtr(itm))
        
        .iItem = 2 : .iSubItem = 0 : .pszText = "Ａ２"			'アイテムを追加 ３行目
        SendMessage(hList,LVM_INSERTITEM,0,VarPtr(itm))
        .iItem = 2 : .iSubItem = 1 : .pszText = "Ｂ２"
        SendMessage(hList,LVM_SETITEM,0,VarPtr(itm))
        .iItem = 2 : .iSubItem = 2 : lstrcpy(.pszText, Dt2)
        SendMessage(hList,LVM_SETITEM,0,VarPtr(itm))
    End With
End Sub

'ラベルの編集が終わった時の処理
Sub MainWnd_ListView1_EndLabelEdit(ByRef nmLVDispInfo As NMLVDISPINFO)
    SendMessage(hList,LVM_SETITEM,0,VarPtr(nmLVDispInfo.item))	'結果の書き戻し      
End Sub

Sub MainWnd_CommandButton1_Click()
	ListView_DeleteAllItems(GetDlgItem(hMainWnd,ListView1))		'アイテムを削除
End Sub

コード: 全て選択

Type LVITEM
	mask As DWord
	iItem As Long
	iSubItem As Long
	state As DWord
	stateMask As DWord
	pszText As BytePtr
	cchTextMax As Long
	iImage As Long
	lParam As LPARAM
	iIndent As Long
End Type

コード: 全て選択

Dim lpStr As LPSTR
	lstrcpy(lpStr,"hoge")

コード: 全て選択

Dim lpStr As LPSTR
Dim lpsz="Ｂ０" As LPCSTR

	lpStr=lpsz
	lstrcpy(lpStr,"Ｃ０")

Debug

コード: 全て選択

	Dim itm As LVITEM
	Dim Dt0[5] As Byte, Dt1[5] As Byte, Dt2[5] As Byte

	lstrcpy(Dt0, "Ｃ０")
	lstrcpy(Dt1, "Ｃ１")
	lstrcpy(Dt2, "Ｃ２")

	With itm
		.mask = LVIF_TEXT

		.iItem = 0	'アイテムを追加 １行目

		.iSubItem = 0 : .pszText = "Ａ０"
		ListView_InsertItem(hList,itm)

		.iSubItem = 1 : .pszText = "Ｂ０"
		ListView_SetItem(hList,itm)

		.iSubItem = 2 : .pszText=Dt0
		ListView_SetItem(hList,itm)

		.iItem = 1	'アイテムを追加 ２行目
		
		.iSubItem = 0 : .pszText = "Ａ１"
		ListView_InsertItem(hList,itm)

		.iSubItem = 1 : .pszText = "Ｂ１"
		ListView_SetItem(hList,itm)

		.iSubItem = 2 : .pszText=Dt1
		ListView_SetItem(hList,itm)
		
		.iItem = 2	'アイテムを追加 ３行目
		
		.iSubItem = 0 : .pszText = "Ａ２"
		ListView_InsertItem(hList,itm)

		.iSubItem = 1 : .pszText = "Ｂ２"
		ListView_SetItem(hList,itm)

		.iSubItem = 2 : .pszText=Dt2
		ListView_SetItem(hList,itm)
	End With