home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch15code / access.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-08-12  |  3.0 KB  |  111 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4236
  5.    ClientLeft      =   2340
  6.    ClientTop       =   2016
  7.    ClientWidth     =   6720
  8.    Height          =   4560
  9.    Left            =   2292
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4236
  12.    ScaleWidth      =   6720
  13.    Top             =   1740
  14.    Width           =   6816
  15.    Begin VB.CommandButton cmdWord 
  16.       Caption         =   "Run WordBasic Procedure"
  17.       Height          =   495
  18.       Left            =   3000
  19.       TabIndex        =   4
  20.       Top             =   2640
  21.       Width           =   3135
  22.    End
  23.    Begin VB.CommandButton cmdVB4 
  24.       Caption         =   "Run VB4 Procedure"
  25.       Height          =   615
  26.       Left            =   360
  27.       TabIndex        =   2
  28.       Top             =   3360
  29.       Width           =   2295
  30.    End
  31.    Begin VB.CommandButton cmdVBA 
  32.       Caption         =   "Run VBA Procedure"
  33.       Height          =   615
  34.       Left            =   360
  35.       TabIndex        =   1
  36.       Top             =   2640
  37.       Width           =   2295
  38.    End
  39.    Begin VB.OLE oleWord 
  40.       Class           =   "Word.Document.6"
  41.       Height          =   2295
  42.       Left            =   3000
  43.       OleObjectBlob   =   "ACCESS.frx":0000
  44.       TabIndex        =   3
  45.       Top             =   240
  46.       Width           =   3135
  47.    End
  48.    Begin VB.OLE oleObject 
  49.       Class           =   "Excel.Sheet.5"
  50.       Height          =   2295
  51.       Left            =   360
  52.       OleObjectBlob   =   "ACCESS.frx":2018
  53.       TabIndex        =   0
  54.       Top             =   240
  55.       Width           =   2295
  56.    End
  57. Attribute VB_Name = "Form1"
  58. Attribute VB_Creatable = False
  59. Attribute VB_Exposed = False
  60. Private Sub cmdVBA_Click()
  61.     ' Activate the object.
  62.     OLEOBJECT.DoVerb
  63.     ' Run the macro.
  64.     OLEOBJECT.object.Application.Run "Book1!FillSheet"
  65.     ' Close the object.
  66.     OLEOBJECT.Close
  67. End Sub
  68. Private Sub cmdVB4_Click()
  69.     FillSheet
  70. End Sub
  71. Sub FillSheet()
  72.     With OLEOBJECT.object
  73.         For i = 1 To 20
  74.             .Cells(i, 1).VALUE = i ^ 2
  75.         Next i
  76.     End With
  77. End Sub
  78. Sub VB4AccessTime()
  79.     Dim Sheet1 As Object, x As Object
  80.     Set Sheet1 = OLEOBJECT.object
  81.     time1 = Timer
  82.     For i = 1 To 1000
  83.         temp = Sheet1.UsedRange
  84.     Next i
  85.     MsgBox "Property access time: " & CSng(Timer - time1) / 1000
  86.     time1 = Timer
  87.     For i = 1 To 1000
  88.         Sheet1.Unprotect
  89.     Next i
  90.     MsgBox "Method access time: " & CSng(Timer - time1) / 1000
  91. End Sub
  92. Function FindPrime(n As Integer) As Integer
  93.     Dim i As Integer
  94.     n = Int(n)
  95.     If n <= 1 Then FindPrime = 1
  96.     For i = 2 To n
  97.         If (n Mod i) = 0 Then
  98.             FindPrime = FindPrime(n - i)
  99.             Exit Function
  100.         End If
  101.     Next i
  102.     FindPrime = n
  103. End Function
  104. Private Sub cmdWord_Click()
  105.     oleWord.DoVerb
  106.     With oleWord.object.Application.WordBasic
  107.         .toolsmacro Name:="CreateLetter", Run:=1
  108.     End With
  109.     oleWord.Close
  110. End Sub
  111.