form1.ebf

来自「《Windows CE 权威指南》（作者：(美)CHRIS MUENCH」· EBF 代码 · 共 50 行

VERSION 5.00
Object = "{5D10D93B-1A63-4690-AAE8-86010D343405}#1.0#0"; "PCDMUI.dll"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5970
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9390
   ScaleHeight     =   5970
   ScaleWidth      =   9390
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   615
      Left            =   7320
      TabIndex        =   1
      Top             =   5280
      Width           =   1935
   End
   Begin PCDMUILibCtl.PCDMList PCDMList1 
      Height          =   5055
      Left            =   0
      OleObjectBlob   =   "Form1.frx":0000
      TabIndex        =   0
      Top             =   0
      Width           =   9375
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
PCDMList1.AddColumn 200, "CD Name"
PCDMList1.AddColumn 300, "Author"
PCDMList1.AddItem 0, 0, 1, "Ray of Light"
PCDMList1.AddItem 0, 1, 1, "Madonna"
PCDMList1.AddItem 1, 0, 2, "Innuendo"
PCDMList1.AddItem 1, 1, 2, "Queen"
PCDMList1.AddItem 2, 0, 3, "Dark side of the moon"
PCDMList1.AddItem 2, 1, 3, "Pink Floyd"
End Sub

Private Sub PCDMList1_RowSelected(ByVal Row As Long, ByVal Column As Long, ByVal lParam As Long)
    MsgBox "Fired: " & Row & "/" & Column & " / " & lParam
    MsgBox PCDMList1.GetItem(Row, Column, lParam)
End Sub