vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Code Problem mit Datei abfrage  
Autor: Kyratim
Datum: 21.08.09 13:36
Hi,

Brauche unbedingt Hilfe!

Ich ein relativ Großes Programm geschrieben das ich in 3 verschiedenen Editionen bereitstellen will. Mein Problem ist bloß wenn Ich die
Basic-Editionen abfragen will, funktioniert alles so wie es soll bloß wenn ich jetzt die höhere Edition Aktiviere bleiben trotzdem alle Features der Basic Version.
Ich hab hier noch den Code: 

 If Not FilePath(My.Application.Info.DirectoryPath & _
   "\XVerPathX\XEDIBasic.dll") Then
                If Not FilePath(My.Application.Info.DirectoryPath & _
                "\XVerPathX\XEDIPrem.dll") Then
                    If Not FilePath(My.Application.Info.DirectoryPath & _
                    "\XVerPathX\XEDIProf.dll") Then
                        If Not FilePath(My.Application.Info.DirectoryPath & _
                        "\XVerPathX\XEDITest.dll") Then
                            MessageBox.Show("Manipulation erkannt!", "Fehler", _
                            MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Else
                            If Test.ShowDialog Then
                                Timer1.Stop()
                            Else
                                Test.ShowDialog()
                            End If
                        End If
                    Else
 
                    End If
                Else
                    Form1.PDFde.Visible = False
                    Form1.GesetzeUndToolStripMenuItem.Visible = False
                    Form1.Panel1.Visible = False
                    Form1.ToolStripButton1.Visible = False
                    Form1.ToolStripButton2.Visible = False
                    Form1.BubbleButton8.Visible = False
                    Form1.BubbleButton18.Visible = False
                End If
            Else
                Form1.PDFde.Visible = False
                Form1.VideoAbspielenToolStripMenuItem.Visible = False
                Form1.GesetzeUndToolStripMenuItem.Visible = False
                Form1.Webbrowser.Visible = False
                Form1.EingabefensterToolStripMenuItem.Visible = False
                Form1.Suchen.Visible = False
                Form1.Upgrade.Visible = False
                Form1.Sch.Visible = False
                Form1.Panel1.Visible = False
                Form1.ToolStripButton1.Visible = False
                Form1.ToolStripButton2.Visible = False
                Form1.Button17.Visible = False
                Form1.Button23.Visible = False
                Form1.Button11.Visible = False
                Form1.Button14.Visible = False
                Form1.Button16.Visible = False
                Form1.Button15.Visible = False
                Form1.Button8.Visible = False
                Form1.BarTab4.Visible = False
                End If
            End If
Danke im Voraus!

Beitrag wurde zuletzt am 21.08.09 um 13:37:26 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Code Problem mit Datei abfrage 733Kyratim21.08.09 13:36

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel