form1.ebf

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

VERSION 5.00
Object = "{F7346713-70C5-11D1-9AC9-00C04FAD5AEC}#1.0#0"; "msceimage.dll"
Object = "{338D5EA5-4BBD-11D1-9A7D-00C04FAD5AEC}#1.0#0"; "mscepicture.dll"
Begin VB.Form Form1 
   Appearance      =   0  'Flat
   BackColor       =   &H80000001&
   Caption         =   "Form1"
   ClientHeight    =   5775
   ClientLeft      =   60
   ClientTop       =   840
   ClientWidth     =   7320
   ForeColor       =   &H80000008&
   ScaleHeight     =   5775
   ScaleWidth      =   7320
   ShowOK          =   -1  'True
   Begin PictureBoxCtl.PictureBox PictureBox1 
      Height          =   2415
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4935
      _cx             =   8705
      _cy             =   4260
      AutoSize        =   0   'False
      BackColor       =   -2147483647
      BorderStyle     =   1
      DrawMode        =   13
      DrawStyle       =   0
      DrawWidth       =   1
      FillColor       =   -2147483640
      FillStyle       =   1
      ForeColor       =   -2147483640
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      FontName        =   "Tahoma"
      FontSize        =   10
      FontTransparent =   -1  'True
      Object.Height          =   161
      Object.Width           =   329
      Object.Left            =   0
      Object.Top             =   0
      Picture         =   ""
      ScaleHeight     =   2415
      ScaleWidth      =   4935
      ScaleLeft       =   0
      ScaleTop        =   0
      ScaleMode       =   1
      Enabled         =   -1  'True
   End
   Begin IMAGECtl.ImageCtl ImageCtl1 
      Height          =   1935
      Left            =   0
      TabIndex        =   1
      Top             =   1920
      Width           =   4935
      _cx             =   8705
      _cy             =   3413
      Picture         =   ""
      Stretch         =   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()
 PictureBox1.Picture = App.Path & "\abc.bmp"
 ImageCtl1.Picture = App.Path & "\abc.bmp"
End Sub

Private Sub Form_OKClick()
    App.End
End Sub