Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Appforge Crossfire med VB.Net

Postades av 2005-01-01 17:25:59 - Rickard Andersson, i forum vb.net, Tråden har 0 Kommentarer och lästs av 982 personer

Jag har tagit fram ett enkelt program till P900.
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


Svara

Nyligen

  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper
  • 16:36 Allt du behöver veta om keramiskt
  • 16:14 Vem anlitar man egentligen när tak

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 722
27 958
271 751
610
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies