vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

VB.NET - Fortgeschrittene
Re: Select Case und IF - Block umschalten? 
Autor: Julian13
Datum: 03.10.08 11:45

Hallo,

also ich hab mal einen Code zusammengestellt, der evtl. Passen könnte...
zuerst das HauptModul(mainModule)
Imports System
Imports System.CodeDom
Imports System.CodeDom.Compiler
Imports System.Reflection
Module mainModule
    Public Function CreateAssemblyFromCode(ByVal Code As String _
  ) As [Assembly]
 
        ' Assembly aus VB.NET-Sourcecode in einem String erzeugen: 
        ' CodeDomProvider für VB.NET erzeugen 
        Dim CDP As CodeDomProvider _
          = New Microsoft.VisualBasic.VBCodeProvider()
        ' Compiler erzeugen 
        Dim Compiler As ICodeCompiler = CDP.CreateCompiler()
        ' Compiler-Parameter erzeugen 
        Dim CP As New CompilerParameters()
        CP.GenerateInMemory = True
        Dim CR As CompilerResults _
         = Compiler.CompileAssemblyFromSource(CP, Code)
        If CR.Errors.Count <> 0 Then
            Return Nothing
        Else
            Return CR.CompiledAssembly
        End If
    End Function
    Public Function CreateAssemblyFromFile( _
    ByVal Filename As String _
    ) As [Assembly]
        ' Assembly aus VB.NET-Sourcecode in einer Datei erzeugen: 
        ' CodeDomProvider für VB.NET erzeugen 
        Dim CDP As CodeDomProvider _
          = New Microsoft.VisualBasic.VBCodeProvider()
        ' Compiler erzeugen 
        Dim Compiler As ICodeCompiler _
         = CDP.CreateCompiler()
        ' Compiler-Parameter erzeugen 
        Dim CP As New CompilerParameters()
        CP.GenerateInMemory = True
        ' Compilieren und Compiler-Ergebnis ermitteln 
        Dim CR As CompilerResults _
         = Compiler.CompileAssemblyFromFile(CP, Filename)
        ' Im Fehlerfall Nothing zurückgeben 
        If CR.Errors.Count <> 0 Then
            Return Nothing
        Else
            Return CR.CompiledAssembly
        End If
    End Function
End Module
Die Datei Methoden.txt(hier kommen die später auszuführenden Methoden rein...):
Namespace Methods
Public Class Methoden
Public Sub a()
'Hier kommt Code hin...
End Sub
Public Sub b()
'Hier kommt Code hin...
End Sub
End Class
End Namespace
Teil2 folg:
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Select Case und IF - Block umschalten?1.228rub02.10.08 14:07
Re: Select Case und IF - Block umschalten?883WarFare02.10.08 14:49
Re: Select Case und IF - Block umschalten?799rub02.10.08 14:57
Re: Select Case und IF - Block umschalten?782ModeratorFZelle02.10.08 17:05
Re: Select Case und IF - Block umschalten?805rub02.10.08 17:14
Re: Select Case und IF - Block umschalten?765Julian1302.10.08 18:21
Re: Select Case und IF - Block umschalten?780ModeratorFZelle02.10.08 19:36
Re: Select Case und IF - Block umschalten?913Julian1303.10.08 11:45
Re: Select Case und IF - Block umschalten?788Julian1303.10.08 11:46
Re: Select Case und IF - Block umschalten?856ModeratorDaveS03.10.08 12:40
Re: Select Case und IF - Block umschalten?757rub04.10.08 11:42
Re: Select Case und IF - Block umschalten?791rub05.10.08 11:16
Re: Select Case und IF - Block umschalten?795ModeratorFZelle05.10.08 12:05

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-2025 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