Die Community zu .NET und Classic VB.
Menü

Tipp-Upload: VB.NET 0177: Code wiederverwenden - Solution zusammenstellen

 von 

Hinweis zum Tippvorschlag  

Dieser Vorschlag wurde noch nicht auf Sinn und Inhalt überprüft und die Zip-Datei wurde noch nicht auf schädlichen Inhalt hin untersucht.
Bitte haben Sie ein wenig Geduld, bis die Freigabe erfolgt.

Über den Tipp  

Dieser Tippvorschlag ist noch unbewertet.

Der Vorschlag ist in den folgenden Kategorien zu finden:

  • Sonstiges

Dem Tippvorschlag wurden folgende Schlüsselwörter zugeordnet:
Projekteigenschaften

Der Vorschlag wurde erstellt am: 14.01.2008 23:53.
Die letzte Aktualisierung erfolgte am 15.01.2008 14:40.

Zurück zur Übersicht

Beschreibung  

Haben Sie's gewußt?

Ich stelle hier mal 3 Varianten vor, wie man wiederverwendbaren Code einbinden kann:

1) eine Klassenbibliothek programmieren, kompilieren, Verweis drauf setzen:

Verweis setzen: Menu [ Projekt ] - [ XYProjekt-Eigenschaften ] - [ Reiter "Verweise" auswählen ] - [ Button "Hinzufügen" ] - [ Reiter "Durchsuchen" ] - (browsen)


2) eine Klassenbibliothek programmieren, als Projekt in die Solution einbinden, Verweis drauf setzen.

Einbinden: Menu [ Datei ] - [ Hinzufügen ] - [ vorhandenes Projekt ] - (browsen)

Verweis setzen: Menu [ Projekt ] - [ XYProjekt-Eigenschaften ] - [ Reiter "Verweise" auswählen ] - [ Button "Hinzufügen" ] - [ Reiter "Projekt" ] - Ziel auswählen

3) Code-Dateien als Verknüpfung einfügen.

Menu [ Projekt ] - [ vorhandenes Element hinzufügen ] - (browsen) - [ den kleinen Pfeil(!!!) im "Hinzufügen"-Button klicksen ] - [ "als Verweis hinzufügen" ]

Um nach Variante 1 eingebundenen Code evtl. nachzubessern, muß die entsprechende Solution in die IDE geladen werden.

Variante 2 und 3 ermöglichen ein Anpassen des eingebundenen Codes innerhalb der aktuell bearbeiteten Solution.

##################################

Beachten Sie:
Die Beispiel-Solution "LinkTogether" ist nur lauffähig, wenn als erstes die Solution "Linked2" (im Ordner "Linked2") erstellt wird. Andernfalls fehlt der Dll-Verweis, und "LinkTogether" kann nicht erstellt werden.

###################################

Kommentare bitte hier posten:
http://foren.activevb.de/cgi-bin/foren/view.pl?forum=6&root=60001&msg=60001

Schwierigkeitsgrad

Schwierigkeitsgrad 1

Verwendete API-Aufrufe:

Download:

Download des Beispielprojektes [35,67 KB]

' Dieser Source stammt von http://www.activevb.de
' und kann frei verwendet werden. Für eventuelle Schäden
' wird nicht gehaftet.

' Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
' Ansonsten viel Spaß und Erfolg mit diesem Source!
'
' Beachten Sie, das vom Designer generierter Code hier ausgeblendet wird.
' In den Zip-Dateien ist er jedoch zu finden.

' ---------- Anfang Projektgruppe LinkTogether.sln  ----------
' --------- Anfang Projektdatei LinkTogether.vbproj  ---------
' ---------------- Anfang Datei frmLinked2.vb ----------------
Imports Microsoft.VisualBasic.ControlChars

Public Class frmLinked2

    Private Sub frmLinked1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

        Me.Label1.Text = String.Concat("Hi!", Lf, "I am", Lf, Lf, """", Me.ToString, """")

    End Sub

End Class

' ----------------- Ende Datei frmLinked2.vb -----------------
' ------------- Anfang Datei frmLinkTogether.vb  -------------
Imports Microsoft.VisualBasic.ControlChars

Public Class frmLinkTogether

    Private Sub btLinkedForm1_Click(ByVal sender As Object, ByVal e As EventArgs) _
              Handles btLinkedForm1.Click

        Call (New Linked1.frmLinked1).Show() ' Form aus Projektverweis

    End Sub

    Private Sub btLinkedForm2_Click(ByVal sender As Object, ByVal e As EventArgs) _
              Handles btLinkedForm2.Click

        Call (New LinkTogether.frmLinked2).Show() ' Form aus eingebundener Datei

    End Sub

    Private Sub Label1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Label1.Click

        Me.Label1.Text = String.Concat("I am", Lf, Lf, """", Me.ToString, """")

    End Sub

    Private Sub btIncludedExe_Click(ByVal sender As Object, ByVal e As EventArgs) _
              Handles btIncludedExe.Click

        Call (New Linked2.frmLinked2).Show() ' Form aus Dll-Verweis

    End Sub

End Class

' -------------- Ende Datei frmLinkTogether.vb  --------------
' ---------- Ende Projektdatei LinkTogether.vbproj  ----------
' ------------ Anfang Projektdatei Linked1.vbproj ------------
' ---------------- Anfang Datei frmLinked1.vb ----------------
Imports Microsoft.VisualBasic.ControlChars

Public Class frmLinked1

    Private Sub frmLinked1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

        Me.Label1.Text = String.Concat("Hi!", Lf, "I am", Lf, Lf, """", Me.ToString, """")

    End Sub

End Class

' ----------------- Ende Datei frmLinked1.vb -----------------
' ------------- Ende Projektdatei Linked1.vbproj -------------
' ----------- Ende Projektgruppe LinkTogether.sln  -----------

	

Diskussion  

Diese Funktion ermöglicht es, Fragen, die die Veröffentlichung des Tipps betreffen, zu klären, oder Anregungen und Verbesserungsvorschläge einzubringen. Nach der Veröffentlichung des Tipps werden diese Beiträge nicht weiter verlinkt. Allgemeine Fragen zum Inhalt sollten daher hier nicht geklärt werden.

Um eine Diskussion eröffnen zu können, müssen sie angemeldet sein.