form1.ebf

windows mobile 应用程序开发实践一书的源代码

VERSION 5.00
Object = "{6556ED95-9838-11D1-80AE-00C04FAD5EFB}#1.0#0"; "mscelistview.dll"
Begin VB.Form Form1 
   Appearance      =   0  'Flat
   BackColor       =   &H80000001&
   Caption         =   "Form1"
   ClientHeight    =   5490
   ClientLeft      =   60
   ClientTop       =   840
   ClientWidth     =   8115
   ForeColor       =   &H80000008&
   ScaleHeight     =   5490
   ScaleWidth      =   8115
   ShowOK          =   -1  'True
   Begin MSCELISTVIEWLibCtl.ListViewCtrl ListView1 
      Height          =   3135
      Left            =   0
      TabIndex        =   1
      Top             =   840
      Width           =   3615
      _cx             =   6376
      _cy             =   5530
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   8
      FontStrikethrough=   0   'False
      FontUnderline   =   0   'False
      HideColumnHeaders=   0   'False
      HideSelection   =   -1  'True
      LabelEdit       =   0
      LabelWrap       =   0   'False
      MultiSelect     =   0   'False
      Sorted          =   0   'False
      SortKey         =   0
      SortOrder       =   0
      View            =   0
      Enabled         =   -1  'True
   End
   Begin VBCE.ListBox List1 
      Height          =   810
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   1695
      List            =   "Form1.frx":0000
      ItemData        =   "Form1.frx":0028
      _cx             =   2990
      _cy             =   1429
      BackColor       =   -2147483643
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   -2147483640
      Columns         =   0
      IntegralHeight  =   -1  'True
      MultiSelect     =   0
      Sorted          =   0   'False
   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 Form_Load()

List1.AddItem "abc"
List1.AddItem "234"
List1.AddItem "bcd"
List1.AddItem "123"


Dim itm As ListItem
 Dim clm As ColumnHeader
   
   ListView1.ListItems.Clear
   ListView1.ColumnHeaders.Clear
   ListView1.View = lvwReport
   ListView1.LabelEdit = lvwManual
   '
   ' Fill 10 column headers with random crud.
   '
   Set clm = ListView1.ColumnHeaders.Add(, , "$#,##0.00")
   Set clm = ListView1.ColumnHeaders.Add(, , "0")
   Set clm = ListView1.ColumnHeaders.Add(, , "#,##0")
   Set clm = ListView1.ColumnHeaders.Add(, , "#,##0.0000")
   Set clm = ListView1.ColumnHeaders.Add(, , "short date")
   Set clm = ListView1.ColumnHeaders.Add(, , "medium date")
   Set clm = ListView1.ColumnHeaders.Add(, , "mmmm dd, yyyy")
   Set clm = ListView1.ColumnHeaders.Add(, , "short time")
   Set clm = ListView1.ColumnHeaders.Add(, , "medium time")
   Set clm = ListView1.ColumnHeaders.Add(, , "long time")
  Dim i As Integer
 For i = 1 To 36
      Set itm = ListView1.ListItems.Add(, "Row" & i, i * 4 + 67)
      
      itm.SubItems(1) = i * 2
      itm.SubItems(2) = i * 2.765
      itm.SubItems(3) = i * 6 + 54
      itm.SubItems(4) = i * 4.6 + 51
      itm.SubItems(5) = i * 2.9 + 32
      itm.SubItems(6) = i * 4.5 + 31
      itm.SubItems(7) = i * 9.6 + 18
      itm.SubItems(8) = i * 5.9 + 3.8
      itm.SubItems(9) = i * 5 + 7.7
   Next i
   
'' Initialize the ListView
'  With ListView1
''    .LabelEdit = lvwManual
'    .HideSelection = False
'    .Icons = ImageList1
'    .SmallIcons = ImageList2
'    m_hwndLV = .hWnd
'
'
'    For i = 1 To 4
'      .ColumnHeaders.Add Text:="column" & i
'    Next
'
'    For i = 0 To &H3F
'      Set Item = .ListItems.Add(, , "item" & i, 1, 1)
'      Item.SubItems(1) = i * 10
'      Item.SubItems(2) = i * 100
'      Item.SubItems(3) = i * 1000
'    Next
'  End With


End Sub

Private Sub Form_OKClick()
    App.End
End Sub

Private Sub List1_Click()

End Sub