form1.ebf

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

VERSION 5.00
Object = "{532C2BF5-6B55-11D1-9AA5-00C04FAD5AEC}#1.0#0"; "MSCEGRID.DLL"
Begin VB.Form Form1 
   Appearance      =   0  'Flat
   BackColor       =   &H80000001&
   Caption         =   "Form1"
   ClientHeight    =   5520
   ClientLeft      =   60
   ClientTop       =   840
   ClientWidth     =   6030
   ForeColor       =   &H80000008&
   ScaleHeight     =   5520
   ScaleWidth      =   6030
   ShowOK          =   -1  'True
   Begin GRIDLibCtl.GridCtrl datagrid 
      Height          =   3975
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   3495
      _cx             =   6165
      _cy             =   7011
      BackColor       =   16777215
      BackColorBkg    =   8421504
      BackColorSel    =   6956042
      Cols            =   2
      FillStyle       =   0
      FocusRect       =   1
      ForeColor       =   0
      ForeColorSel    =   16777215
      GridColor       =   12632256
      GridLines       =   1
      GridLineWidth   =   1
      HighLight       =   1
      Redraw          =   -1  'True
      RowHeightMin    =   0
      Rows            =   2
      ScrollBars      =   1
      ScrollTrack     =   -1  'True
      SelectionMode   =   0
      TextStyle       =   4
      WordWrap        =   0   'False
      Enabled         =   -1  'True
   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()

Dim s, i As Integer
s = datagrid.Rows
 For i = 1 To s
datagrid.RemoveItem 0
Next

Dim title As String
Dim data As String

datagrid.Cols = 5
Dim xxx As Integer
xxx = datagrid.Cols
For i = 1 To xxx
  If i = xxx Then
  title = title & "第" & i & "列"
  Else
  title = title & "第" & i & "列" & vbTab
  End If
Next
datagrid.AddItem title

Dim j As Integer
 For i = 1 To 14
    For j = 0 To xxx
       If j = xxx Then
           data = data & i * 2 + 48
         Else
          data = data & i * 3 + 31 & vbTab
        End If
    Next
 datagrid.AddItem data
  data = ""
 Next
 datagrid.Redraw = True


End Sub

Private Sub Form_OKClick()
    App.End
End Sub