abttalk.frm

数据库打印例子宫

VERSION 2.00
Begin Form Form2 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "About DLL Extractor"
   ClientHeight    =   3270
   ClientLeft      =   4560
   ClientTop       =   2610
   ClientWidth     =   6210
   ControlBox      =   0   'False
   Height          =   3675
   Left            =   4500
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3270
   ScaleWidth      =   6210
   Top             =   2265
   Width           =   6330
   Begin PictureBox Panel3D1 
      BackColor       =   &H0000FFFF&
      ForeColor       =   &H00000000&
      Height          =   4455
      Left            =   0
      ScaleHeight     =   4425
      ScaleWidth      =   6270
      TabIndex        =   0
      Top             =   0
      Width           =   6300
      Begin CommandButton Command1 
         Caption         =   "OK"
         Height          =   495
         Left            =   2640
         TabIndex        =   1
         Top             =   2640
         Width           =   975
      End
      Begin TextBox Text1 
         Alignment       =   2  'Center
         BackColor       =   &H0000FFFF&
         BorderStyle     =   0  'None
         ForeColor       =   &H00000000&
         Height          =   975
         Left            =   120
         MultiLine       =   -1  'True
         TabIndex        =   3
         Text            =   "This program demostrates how you can extract sound and images from a DLL and then use them.  The demo uses several different sounds and images.  But instead of giving you WAV, ICO & BMPS I use 1 DLL.  A great answer to your multimedia problems."
         Top             =   120
         Width           =   6015
      End
      Begin Line Line1 
         BorderWidth     =   3
         Index           =   0
         X1              =   960
         X2              =   5160
         Y1              =   1200
         Y2              =   1200
      End
      Begin Label Label10 
         AutoSize        =   -1  'True
         BackColor       =   &H00C0C0C0&
         BackStyle       =   0  'Transparent
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Left            =   360
         TabIndex        =   7
         Top             =   3360
         Width           =   45
      End
      Begin Label Label2 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "E && B Systems"
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   1
         Left            =   960
         TabIndex        =   6
         Top             =   1320
         Width           =   4215
      End
      Begin Label Label2 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "957 Johnson Street"
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   2
         Left            =   1080
         TabIndex        =   5
         Top             =   1560
         Width           =   4215
      End
      Begin Label Label2 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Elmira , NY 14901"
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   3
         Left            =   1080
         TabIndex        =   4
         Top             =   1800
         Width           =   4215
      End
      Begin Label Label2 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "E-Mail: [e-mail]"
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   5
         Left            =   960
         TabIndex        =   2
         Top             =   2280
         Width           =   4215
      End
      Begin Line Line1 
         BorderWidth     =   3
         Index           =   1
         X1              =   960
         X2              =   5160
         Y1              =   2160
         Y2              =   2160
      End
   End
End
'These example files are the property of E&B Systems
'E & B Systems  gives no guarantees as to the reliability or suitability
'of this system and accepts no liability in respect of any loss,
'damage or expense arising from use and shall not be liable for any
'consequential damages or expenses or any loss of profit or any
'liability to third parties incurred by anyone relying on this system.


Option Explicit

Sub Command1_Click ()
load_sound ("clap")
Unload Me

End Sub

Sub Form_Load ()
form1.Picture1.Picture = LoadPicture()
End Sub