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 next >
Text File  |  1995-08-12  |  3KB  |  124 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. End
  58. Attribute VB_Name = "Form1"
  59. Attribute VB_Creatable = False
  60. Attribute VB_Exposed = False
  61.  
  62. Private Sub cmdVBA_Click()
  63.     ' Activate the object.
  64.     OLEOBJECT.DoVerb
  65.     ' Run the macro.
  66.     OLEOBJECT.object.Application.Run "Book1!FillSheet"
  67.     ' Close the object.
  68.     OLEOBJECT.Close
  69. End Sub
  70.  
  71. Private Sub cmdVB4_Click()
  72.     FillSheet
  73. End Sub
  74.  
  75. Sub FillSheet()
  76.     With OLEOBJECT.object
  77.         For i = 1 To 20
  78.             .Cells(i, 1).VALUE = i ^ 2
  79.         Next i
  80.     End With
  81. End Sub
  82.  
  83. Sub VB4AccessTime()
  84.     Dim Sheet1 As Object, x As Object
  85.     Set Sheet1 = OLEOBJECT.object
  86.     time1 = Timer
  87.     For i = 1 To 1000
  88.         temp = Sheet1.UsedRange
  89.     Next i
  90.     MsgBox "Property access time: " & CSng(Timer - time1) / 1000
  91.     time1 = Timer
  92.     For i = 1 To 1000
  93.         Sheet1.Unprotect
  94.     Next i
  95.     MsgBox "Method access time: " & CSng(Timer - time1) / 1000
  96. End Sub
  97.  
  98. Function FindPrime(n As Integer) As Integer
  99.     Dim i As Integer
  100.     n = Int(n)
  101.     If n <= 1 Then FindPrime = 1
  102.     For i = 2 To n
  103.         If (n Mod i) = 0 Then
  104.             FindPrime = FindPrime(n - i)
  105.             Exit Function
  106.         End If
  107.     Next i
  108.     FindPrime = n
  109. End Function
  110.  
  111. Private Sub cmdWord_Click()
  112.     oleWord.DoVerb
  113.     With oleWord.object.Application.WordBasic
  114.         .toolsmacro Name:="CreateLetter", Run:=1
  115.     End With
  116.     oleWord.Close
  117. End Sub
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.