Supportnet Computer
Planet of Tech

Supportnet / Forum / Anwendungen(Java,C++...)

Variable übergeben in VB.NET 2005





Frage

Hallo an alle Hilfsbereiten, folgendes Problem besteht in meinem kleinen VB.Net Projekt. Ein Fenster mit 3 ComboBoxen wird deklariert. Wenn man in diesen 3 ComboBoxen seine Auswahl getroffen hat und einen Button betätigt, dann wird mittels Select-Case-Anweisung ermittelt, was ausgewählt wurde. Nun wird, je nach Auswahl, eine PrivateSub aufgerufen, die ein neues Fenster erstellt. In dem sich neu öffnendem Fenster ist ein Button enthalten, welcher eine PDF-Datei öffnet. Diese PDF-Datei ist immer wieder eine andere, je nach getroffener Auswahl bzw. aufgerufener PrivateSub. Ich suche einen Weg beim aufrufen der PrivateSub einen String zu übergeben, welcher in der neu erzeugten Klasse dazu genutzt werden kann um die entsprechende PDF-Datei zu öffnen. [code]Public Class immsBDmain Private Sub immsBDmain_auswahlBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles immsBDmain_auswahlBTN.Click Select Case immsBDmain_projectCOMBOX.Text Case "Projektauswahl" MessageBox.Show("Sie müssen erst ein Projekt auswählen!") Case "Fuse" Select Case immsBDmain_testerCOMBOX.Text Case "Testerauswahl" MessageBox.Show("Sie müssen erst einen Tester auswählen!") Case "HP82000" Select Case immsBDmain_fassungCOMBOX.Text Case "Fassungauswahl" MessageBox.Show("Sie müssen erst eine Fassung auswählen!") Case "16 DIL schmal" Fuse_HP82000_16DILschmal() Case "18 DIL schmal" Fuse_HP82000_18DILschmal() End Select End Select End Select End Sub Private Sub Fuse_HP82000_16DILschmal() Dim Fuse_HP82000_16DILschmal As New immsBDboard Fuse_HP82000_16DILschmal.BoardID_LBL.Text = _ "test" Fuse_HP82000_16DILschmal.Project_LBL.Text = _ "FUSE" Fuse_HP82000_16DILschmal.Date_LBL.Text = _ "24.01.2006" Fuse_HP82000_16DILschmal.Author_LBL.Text = _ "geheim" Fuse_HP82000_16DILschmal.Socket_LBL.Text = _ "DIL 16 schmal / Textool" Fuse_HP82000_16DILschmal.Probecard_LBL.Text = _ "-" Fuse_HP82000_16DILschmal.Adapterboard_LBL.Text = _ "-" Fuse_HP82000_16DILschmal.Location_LBL.Text = _ "AZM ESO" Fuse_HP82000_16DILschmal.Description01_LBL.Text = _ "Preperation at small universal loadboard E 1238A Option #002" Fuse_HP82000_16DILschmal.Description02_LBL.Text = _ "Important! GND and VDD in the middle of the package" Fuse_HP82000_16DILschmal.Description03_LBL.Text = _ "" Fuse_HP82000_16DILschmal.Description04_LBL.Text = _ "" Fuse_HP82000_16DILschmal.Description05_LBL.Text = _ "" Fuse_HP82000_16DILschmal.Show() End Sub[/code] Der Aufruf Fuse_HP82000_16DILschmal.Show() hat zur Folge, dass ein Fenster aufgerufen wird in welchelm ein Button eine PDF-Datei öffnen soll. Der Code dieser PublicClass ist momentan wie folgt: [code]Public Class immsBDboard Private Sub immsBDboard_pinbelegBTN_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles immsBDboard_pinbelegBTN.Click Dim fileName As String = "C:\test.pdf" Dim pStartInfo As ProcessStartInfo = New ProcessStartInfo(fileName) Try Dim p As Process = Process.Start(pStartInfo) Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub End Class[/code] Nun suche ich, wie gesagt, eine Weg um beim Aufruf der PrivateSub einen Stringwert zu übergeben den ich als Pfad auslesen kann, anstatt "C:\test.pdf" einzutragen. MFG TeX

Antwort 1 von TeX

Ich habe in einem anderen Forum die Lösung genannt bekommen. In der "main"-Class wird einfach beim Aufruf der Private Sub die Variable übergeben, welche in der Klasse, die die Sub erzeugt, als Public deklariert wurde.

MFG TeX

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: