Jag har tagit fram ett enkelt program till P900.Appforge Crossfire med VB.Net
Allt verkar funka, jag kan installera programmet i min P900, men när jag skall köra det får
jag följande felmeddelande.:
Error Cod:5
Description: Invalid procedure call or argument
Source: Crossfire A
Application Error
Nedan följer koden till programmet.
Vet någon vad felmeddelandet kan bero på??
Det går alldeles utmärkt att köra programmet i Windowsmiljö.
Option Strict Off
Option Explicit On
Friend NotInheritable Class CrossfireForm1
Inherits System.Windows.Forms.Form
#Region "Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
' WARNING - Code placed here may behave differently on devices than on the desktop. Please see
' http://crossfire.support.appforge.com/cgi-bin/apprentice.cfg/php.exe/enduser/std_adp.php?p_faqid=769
' for more information.
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
If Disposing Then
If Not components Is Nothing Then
components.Dispose()
End If
End If
MyBase.Dispose(Disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents Label1 As AppForge.Controls.Label
Friend WithEvents Button1 As AppForge.Controls.Button
Friend WithEvents Button2 As AppForge.Controls.Button
Friend WithEvents Button3 As AppForge.Controls.Button
Friend WithEvents Button4 As AppForge.Controls.Button
Friend WithEvents Label2 As AppForge.Controls.Label
Friend WithEvents Label3 As AppForge.Controls.Label
Friend WithEvents Label4 As AppForge.Controls.Label
Friend WithEvents Label5 As AppForge.Controls.Label
Friend WithEvents Button5 As AppForge.Controls.Button
Friend WithEvents Button6 As AppForge.Controls.Button
Friend WithEvents Graphic1 As AppForge.Controls.Graphic
Friend WithEvents Graphic2 As AppForge.Controls.Graphic
Friend WithEvents Graphic3 As AppForge.Controls.Graphic
Friend WithEvents Graphic4 As AppForge.Controls.Graphic
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(CrossfireForm1))
Me.Label1 = New AppForge.Controls.Label
Me.Button1 = New AppForge.Controls.Button
Me.Button2 = New AppForge.Controls.Button
Me.Button3 = New AppForge.Controls.Button
Me.Button4 = New AppForge.Controls.Button
Me.Label2 = New AppForge.Controls.Label
Me.Label3 = New AppForge.Controls.Label
Me.Label4 = New AppForge.Controls.Label
Me.Label5 = New AppForge.Controls.Label
Me.Button5 = New AppForge.Controls.Button
Me.Button6 = New AppForge.Controls.Button
Me.Graphic1 = New AppForge.Controls.Graphic
Me.Graphic2 = New AppForge.Controls.Graphic
Me.Graphic3 = New AppForge.Controls.Graphic
Me.Graphic4 = New AppForge.Controls.Graphic
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Button1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Button2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Button3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Button4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Button5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Button6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Graphic1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Graphic2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Graphic3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Graphic4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.CausesValidation = False
Me.Label1.Location = New System.Drawing.Point(8, 176)
Me.Label1.OcxState = CType(resources.GetObject("Label1.OcxState"), System.Windows.Forms.AxHost.State)
Me.Label1.Size = New System.Drawing.Size(192, 32)
Me.Label1.TabIndex = 0
Me.Label1.TabStop = False
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(8, 224)
Me.Button1.OcxState = CType(resources.GetObject("Button1.OcxState"), System.Windows.Forms.AxHost.State)
Me.Button1.Size = New System.Drawing.Size(40, 23)
Me.Button1.TabIndex = 1
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(56, 224)
Me.Button2.OcxState = CType(resources.GetObject("Button2.OcxState"), System.Windows.Forms.AxHost.State)
Me.Button2.Size = New System.Drawing.Size(40, 23)
Me.Button2.TabIndex = 2
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(112, 224)
Me.Button3.OcxState = CType(resources.GetObject("Button3.OcxState"), System.Windows.Forms.AxHost.State)
Me.Button3.Size = New System.Drawing.Size(40, 23)
Me.Button3.TabIndex = 3
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(160, 224)
Me.Button4.OcxState = CType(resources.GetObject("Button4.OcxState"), System.Windows.Forms.AxHost.State)
Me.Button4.Size = New System.Drawing.Size(40, 23)
Me.Button4.TabIndex = 4
'
'Label2
'
Me.Label2.CausesValidation = False
Me.Label2.Location = New System.Drawing.Point(16, 32)
Me.Label2.OcxState = CType(resources.GetObject("Label2.OcxState"), System.Windows.Forms.AxHost.State)
Me.Label2.Size = New System.Drawing.Size(16, 16)
Me.Label2.TabIndex = 5
Me.Label2.TabStop = False
'
'Label3
'
Me.Label3.CausesValidation = False
Me.Label3.Location = New System.Drawing.Point(104, 32)
Me.Label3.OcxState = CType(resources.GetObject("Label3.OcxState"), System.Windows.Forms.AxHost.State)
Me.Label3.Size = New System.Drawing.Size(16, 16)
Me.Label3.TabIndex = 6
Me.Label3.TabStop = False
'
'Label4
'
Me.Label4.CausesValidation = False
Me.Label4.Location = New System.Drawing.Point(104, 96)
Me.Label4.OcxState = CType(resources.GetObject("Label4.OcxState"), System.Windows.Forms.AxHost.State)
Me.Label4.Size = New System.Drawing.Size(16, 16)
Me.Label4.TabIndex = 7
Me.Label4.TabStop = False
'
'Label5
'
Me.Label5.CausesValidation = False
Me.Label5.Location = New System.Drawing.Point(16, 96)
Me.Label5.OcxState = CType(resources.GetObject("Label5.OcxState"), System.Windows.Forms.AxHost.State)
Me.Label5.Size = New System.Drawing.Size(16, 16)
Me.Label5.TabIndex = 8
Me.Label5.TabStop = False
'
'Button5
'
Me.Button5.Location = New System.Drawing.Point(0, 0)
Me.Button5.OcxState = CType(resources.GetObject("Button5.OcxState"), System.Windows.Forms.AxHost.State)
Me.Button5.Size = New System.Drawing.Size(72, 23)
Me.Button5.TabIndex = 9
'
'Button6
'
Me.Button6.Location = New System.Drawing.Point(88, 0)
Me.Button6.OcxState = CType(resources.GetObject("Button6.OcxState"), System.Windows.Forms.AxHost.State)
Me.Button6.Size = New System.Drawing.Size(120, 23)
Me.Button6.TabIndex = 10
'
'Graphic1
'
Me.Graphic1.Location = New System.Drawing.Point(24, 48)
Me.Graphic1.OcxState = CType(resources.GetObject("Graphic1.OcxState"), System.Windows.Forms.AxHost.State)
Me.Graphic1.Size = New System.Drawing.Size(48, 48)
Me.Graphic1.TabIndex = 11
'
'Graphic2
'
Me.Graphic2.Location = New System.Drawing.Point(112, 48)
Me.Graphic2.OcxState = CType(resources.GetObject("Graphic2.OcxState"), System.Windows.Forms.AxHost.State)
Me.Graphic2.Size = New System.Drawing.Size(56, 48)
Me.Graphic2.TabIndex = 12
'
'Graphic3
'
Me.Graphic3.Location = New System.Drawing.Point(24, 112)
Me.Graphic3.OcxState = CType(resources.GetObject("Graphic3.OcxState"), System.Windows.Forms.AxHost.State)
Me.Graphic3.Size = New System.Drawing.Size(48, 48)
Me.Graphic3.TabIndex = 13
'
'Graphic4
'
Me.Graphic4.Location = New System.Drawing.Point(112, 112)
Me.Graphic4.OcxState = CType(resources.GetObject("Graphic4.OcxState"), System.Windows.Forms.AxHost.State)
Me.Graphic4.Size = New System.Drawing.Size(56, 48)
Me.Graphic4.TabIndex = 14
'
'CrossfireForm1
'
Me.AutoScale = False
Me.AutoScaleBaseSize = New System.Drawing.Size(15, 27)
Me.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(255, Byte))
Me.ClientSize = New System.Drawing.Size(208, 254)
Me.Controls.Add(Me.Graphic4)
Me.Controls.Add(Me.Graphic3)
Me.Controls.Add(Me.Graphic2)
Me.Controls.Add(Me.Graphic1)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label1)
Me.Font = New System.Drawing.Font("AFSE UIQ Standard", 21.0!)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "CrossfireForm1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Program beta 1.0"
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Button1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Button2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Button3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Button4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Button5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Button6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Graphic1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Graphic2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Graphic3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Graphic4, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickEvent
MessageBox.Show("Rätt svar", "Program")
End Sub
Private Sub Button2_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickEvent
MessageBox.Show("Fel svar", "Program")
End Sub
Private Sub Button3_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickEvent
MessageBox.Show("Fel svar", "Program")
End Sub
Private Sub Button4_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickEvent
MessageBox.Show("Fel svar", "Program")
End Sub
Private Sub Button5_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickEvent
End
End Sub
Private Sub Button6_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.ClickEvent
MessageBox.Show("Programmet är förbjudet att kopiera", "Om Program")
End Sub
Private Sub CrossfireForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class