Moin Moin zusammen,...
ich versuch nun schon seit 2 Stunden auf eine Variable zuzugreifen die in einer Public Function ist...
Hier mal mein Code...
und zwar geht es mir um die filetarget & der filename in Private Sub Button2...
Deklariert sind diese oben drüber in der scanImage() Funktion.
Kann mir da vielleicht jemand helfen? Bestimmt ne simple Lösung aber ich bekomms leider nicht hin
Danke Stefan
ich versuch nun schon seit 2 Stunden auf eine Variable zuzugreifen die in einer Public Function ist...
Hier mal mein Code...
VB.NET-Quellcode
- Imports System.Net
- Public Class Form1
- Public Function scanImage() As String
- 'Pfad zur Temp Datei des erfassten Bildes
- Dim strTempImagePath As String = String.Empty
- 'Windows GUI zur Interaktion mit dem Gerät
- Dim wiaDialog As New WIA.CommonDialog
- 'Variable für das erfasste Bild
- Dim wiaImage As WIA.ImageFile = Nothing
- Try
- 'Aufruf der Windows GUI zur Interaktion mit dem Gerät,
- 'rückgabe ist das erfasste Bild
- wiaImage = wiaDialog.ShowAcquireImage(WIA.WiaDeviceType.ScannerDeviceType, , , , False, )
- Catch ex As Exception
- MsgBox("Ein Fehler ist aufgetreten! Überprüfen Sie ob das Gerät Eingeschaltet und angeschlossen ist." & Environment.NewLine & Environment.NewLine & ex.Message)
- End Try
- If Not wiaImage Is Nothing Then
- 'Bild temporär Speichern
- Dim rnd As New Random
- Dim ZufallsZahl As Integer = rnd.Next(12, 600000000)
- Dim filename As String = "tempfile_" & ZufallsZahl & ".jpg"
- Dim filetarget As String = "C:\Temp\tempfile_" & ZufallsZahl & ".jpg"
- wiaImage.SaveFile(filetarget)
- PictureBox1.Image = New Bitmap(filetarget)
- Else
- MsgBox("Es wurde kein Bild erfasst!", MsgBoxStyle.Exclamation, "Information")
- End If
- Return strTempImagePath
- End Function
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- scanImage()
- End Sub
- Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
- My.Computer.Network.UploadFile(filetarget, "ftp://server.de/tmp/" & filename, "benutzer", "passwort")
- End Sub
- End Class
und zwar geht es mir um die filetarget & der filename in Private Sub Button2...
Deklariert sind diese oben drüber in der scanImage() Funktion.
Kann mir da vielleicht jemand helfen? Bestimmt ne simple Lösung aber ich bekomms leider nicht hin
Danke Stefan
Nein! Doch! OHH!