Visual Basic

Jeremy Falcon wrote:

You need to assign it using the Set keyword. Try this instead...


Dim a As AcroPDFLib.AcroPDFClassSet a = CreateObject("AcroPDF.PDF.1")a.LoadFile("atmel_instruction_set.pdf")

Knoen wrote:

Hi, still does not work.

<br />
Public Class ImportMain<br />
    Inherits System.Windows.Forms.Form<br />
<br />
#Region " Vom Windows Form Designer generierter Code "<br />
<br />
    Public Sub New()<br />
        MyBase.New()<br />
<br />
        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.<br />
        InitializeComponent()<br />
<br />
        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen<br />
<br />
    End Sub<br />
<br />
    ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.<br />
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
        If disposing Then<br />
            If Not (components Is Nothing) Then<br />
                components.Dispose()<br />
            End If<br />
        End If<br />
        MyBase.Dispose(disposing)<br />
    End Sub<br />
<br />
    ' Für Windows Form-Designer erforderlich<br />
    Private components As System.ComponentModel.IContainer<br />
<br />
    'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich<br />
    'Sie kann mit dem Windows Form-Designer modifiziert werden.<br />
    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.<br />
  Friend WithEvents TextBox1 As System.Windows.Forms.TextBox<br />
  Friend WithEvents TextBox2 As System.Windows.Forms.TextBox<br />
  Friend WithEvents TextBox3 As System.Windows.Forms.TextBox<br />
  Friend WithEvents Button1 As System.Windows.Forms.Button<br />
  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()<br />
    Me.TextBox1 = New System.Windows.Forms.TextBox<br />
    Me.TextBox2 = New System.Windows.Forms.TextBox<br />
    Me.TextBox3 = New System.Windows.Forms.TextBox<br />
    Me.Button1 = New System.Windows.Forms.Button<br />
    Me.SuspendLayout()<br />
    '<br />
    'TextBox1<br />
    '<br />
    Me.TextBox1.Location = New System.Drawing.Point(15, 10)<br />
    Me.TextBox1.Name = "TextBox1"<br />
    Me.TextBox1.TabIndex = 0<br />
    Me.TextBox1.Text = ""<br />
    '<br />
    'TextBox2<br />
    '<br />
    Me.TextBox2.Location = New System.Drawing.Point(15, 35)<br />
    Me.TextBox2.Name = "TextBox2"<br />
    Me.TextBox2.TabIndex = 1<br />
    Me.TextBox2.Text = ""<br />
    '<br />
    'TextBox3<br />
    '<br />
    Me.TextBox3.Location = New System.Drawing.Point(15, 60)<br />
    Me.TextBox3.Name = "TextBox3"<br />
    Me.TextBox3.TabIndex = 2<br />
    Me.TextBox3.Text = ""<br />
    '<br />
    'Button1<br />
    '<br />
    Me.Button1.Location = New System.Drawing.Point(125, 10)<br />
    Me.Button1.Name = "Button1"<br />
    Me.Button1.TabIndex = 3<br />
    Me.Button1.Text = "Button1"<br />
    '<br />
    'ImportMain<br />
    '<br />
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br />
    Me.ClientSize = New System.Drawing.Size(212, 93)<br />
    Me.Controls.Add(Me.Button1)<br />
    Me.Controls.Add(Me.TextBox3)<br />
    Me.Controls.Add(Me.TextBox2)<br />
    Me.Controls.Add(Me.TextBox1)<br />
    Me.Name = "ImportMain"<br />
    Me.Text = "ImportMain"<br />
    Me.ResumeLayout(False)<br />
<br />
  End Sub<br />
<br />
#End Region<br />
<br />
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
    Dim i, j As Double<br />
    i = CDbl(TextBox1.Text)<br />
    j = CDbl(TextBox2.Text)<br />
    TextBox3.Text = CStr(i + j)<br />
  End Sub<br />
<br />
End Class<br />

<br />
<ComClass(ComClass1.ClassId, ComClass1.InterfaceId, ComClass1.EventsId)> _<br />
Public Class ComClass1<br />
<br />
#Region "COM GUIDs"<br />
    ' Diese GUIDs stellen die COM-Identität für diese Klasse <br />
    ' und ihre COM-Schnittstellen bereit. Wenn Sie sie ändern, können <br />
    ' vorhandene Clients nicht mehr auf die Klasse zugreifen.<br />
    Public Const ClassId As String = "368652A3-F7FB-428B-8EFF-F37374EC1E8F"<br />
    Public Const InterfaceId As String = "F7831566-FD11-4F79-B58D-A64C0FEC657C"<br />
    Public Const EventsId As String = "8F1418A0-9C89-4D7F-AF2B-4B77A5B87890"<br />
#End Region<br />
<br />
  ' Eine erstellbare COM-Klasse muss eine Public Sub New() <br />
  ' ohne Parameter haben. Andernfalls wird die Klasse möglicherweise nicht <br />
  ' in der COM-Registrierung registriert und kann nicht über <br />
  ' ein CreateObject erstellt werden.<br />
  Public Sub New()<br />
    MyBase.New()<br />
  End Sub<br />
<br />
  Public Sub showImportForm()<br />
    Dim importForm As New ImportMain<br />
    importForm.Show()<br />
    importForm.Activate()<br />
  End Sub<br />
<br />
End Class<br />