form1.frm

本文件包含200个visual baisc实例

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "将用户设置保存为数据库"
   ClientHeight    =   3000
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7620
   LinkTopic       =   "Form1"
   ScaleHeight     =   3000
   ScaleWidth      =   7620
   StartUpPosition =   3  '窗口缺省
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "C:\00编程技巧\xcx\数据库\1将用户设置保存为数据库\data.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   360
      Left            =   195
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "data"
      Top             =   2235
      Visible         =   0   'False
      Width           =   1260
   End
   Begin VB.Frame Frame1 
      Caption         =   "设置"
      Height          =   2685
      Left            =   5295
      TabIndex        =   2
      Top             =   90
      Width           =   2190
      Begin VB.TextBox Text2 
         DataField       =   "width"
         DataSource      =   "Data1"
         Height          =   330
         Index           =   4
         Left            =   780
         TabIndex        =   12
         Top             =   2115
         Width           =   1260
      End
      Begin VB.TextBox Text2 
         DataField       =   "height"
         DataSource      =   "Data1"
         Height          =   330
         Index           =   3
         Left            =   810
         TabIndex        =   11
         Top             =   1680
         Width           =   1260
      End
      Begin VB.TextBox Text2 
         DataField       =   "left"
         DataSource      =   "Data1"
         Height          =   330
         Index           =   2
         Left            =   795
         TabIndex        =   10
         Top             =   1215
         Width           =   1260
      End
      Begin VB.TextBox Text2 
         DataField       =   "top"
         DataSource      =   "Data1"
         Height          =   330
         Index           =   1
         Left            =   795
         TabIndex        =   9
         Top             =   765
         Width           =   1260
      End
      Begin VB.TextBox Text2 
         DataField       =   "name"
         DataSource      =   "Data1"
         Enabled         =   0   'False
         Height          =   345
         Index           =   0
         Left            =   795
         TabIndex        =   8
         Top             =   270
         Width           =   1275
      End
      Begin VB.Label Label2 
         Caption         =   "name:"
         Height          =   285
         Index           =   4
         Left            =   225
         TabIndex        =   7
         Top             =   375
         Width           =   540
      End
      Begin VB.Label Label2 
         Caption         =   "width:"
         Height          =   285
         Index           =   3
         Left            =   150
         TabIndex        =   6
         Top             =   2175
         Width           =   540
      End
      Begin VB.Label Label2 
         Caption         =   "height:"
         Height          =   285
         Index           =   2
         Left            =   150
         TabIndex        =   5
         Top             =   1755
         Width           =   630
      End
      Begin VB.Label Label2 
         Caption         =   "left:"
         Height          =   285
         Index           =   1
         Left            =   225
         TabIndex        =   4
         Top             =   1290
         Width           =   540
      End
      Begin VB.Label Label2 
         Caption         =   "top:"
         Height          =   285
         Index           =   0
         Left            =   270
         TabIndex        =   3
         Top             =   855
         Width           =   540
      End
   End
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   465
      Left            =   3345
      TabIndex        =   1
      Top             =   2295
      Width           =   1500
   End
   Begin VB.CommandButton Command1 
      Caption         =   "保存"
      Height          =   465
      Left            =   1725
      TabIndex        =   0
      Top             =   2295
      Width           =   1500
   End
   Begin VB.Image Image1 
      Height          =   870
      Left            =   225
      Picture         =   "Form1.frx":0000
      Stretch         =   -1  'True
      Top             =   210
      Width           =   4875
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FF8080&
      Caption         =   "点击控件，然后可在设置框设置属性。设置完成后，自动保存。"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   585
      Left            =   360
      TabIndex        =   13
      Top             =   1290
      Width           =   4710
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
  Data1.DatabaseName = App.Path + "\data.mdb"
  Data1.RecordSource = "data"
End Sub
Private Sub Form_Activate()
  Data1.Recordset.FindFirst "name = '" & "Image1" & "'"
  Image1.Top = Val(Text2(1).Text)
  Image1.Left = Val(Text2(2).Text)
  Image1.Height = Val(Text2(3).Text)
  Image1.Width = Val(Text2(4).Text)
  Data1.Recordset.FindFirst "name = '" & "Label1" & "'"
  Label1.Top = Val(Text2(1).Text)
  Label1.Left = Val(Text2(2).Text)
  Label1.Height = Val(Text2(3).Text)
  Label1.Width = Val(Text2(4).Text)
End Sub
Private Sub Image1_Click()
  Data1.Recordset.FindFirst "name = '" & "Image1" & "'"
End Sub
Private Sub Label1_Click()
  Data1.Recordset.FindFirst "name = '" & "Label1" & "'"
End Sub
Private Sub Command2_Click()
  End
End Sub