strName in Sub in anderer Sub deklarieren

Nun habe ich das Problem, dass ich bei:

Privte Sub
Dim strName As String
strName = InputBox(„Bitte geben Sie einen Benutzernamen ein:“, „InputUsername“)
End Sub

den String strName in einer weiteren Private Sub mit dem Benutzernamen, welcher der Benutzer für strName eingibt nicht deklarieren kann, da strName eine lokale Deklaration ist.

Wie kann ich den Wert (z. B. Fritz) in strName in einer anderen Private Sub deklarieren?

Schnelle Hilfe wäre toll :wink:

Private Function Eingabe() As String
Eingabe = InputBox(„Bitte geben Sie einen Benutzernamen ein:“,„InputUsername“)
End Function

Das kannst du dann aufrufen !!

Dim meineEingabe as String
meineEingabe = Eingabe

Okay…dann würde ich also eine Funktion deklarieren…
Aber was wenn ich diese Situation habe:

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox(„Das Programm wurde erfolgreich gestartet.“, MsgBoxStyle.OkOnly, „Herzlich willkommen!“)
Dim strName As String
strName = InputBox(„Bitte geben Sie einen Benutzernamen ein:“, „InputUsername“)
MsgBox("Nun, " & strName & ". " & vbCrLf & „Dieses Programm gibt Ihnen Auskünfte über die von uns auf Ihrem Notebook vorinstallierten Programme!“, _
MsgBoxStyle.Information, „Info Nanowaris Corporation Program preinstalling“)
If MsgBox(„Ist der Benutzername '“ & strName & „’ stellvertretend für Simone- oder Raul Pfänder?“, MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo, „Wer sind Sie?“) = vbYes Then
MsgBox(„Okay! Sie können fortfahren.“, MsgBoxStyle.Information, „In Ordnung“)
Else
MsgBox(„Sie sind nicht berechtigt, dieses Programm auszuführen!“, MsgBoxStyle.Critical, „Abbruch“)
Me.Close()

End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

End Sub

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

End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

End Sub
End Class

und in letztrigem Private Sub Label2_Click den Benutzernamen von Inputbox Private Sub 1 in strName anzeigen lassen will?

Okay…dann würde ich also eine Funktion deklarieren…
Aber was wenn ich diese Situation habe:

Hallo Grußloser,

wie wäre es damit:

Option Explicit
Public strName As String

Public Class Form1
'…

Gruß
Reinhard

Vielen Dank für Deine Antwort Reinhard!
P. S.: Manchmal vergesse ich meine Höflichkeit zu gebrauchen, wenn ich am Programmieren bin :wink:

Nun heisst es bei mir aber: „Die Anweisung ist in einem Namespace ungültig.“

Gruss Elvio

Hola Elvio,

P. S.: Manchmal vergesse ich meine Höflichkeit zu gebrauchen,
wenn ich am Programmieren bin :wink:

ich weiß, wenn der Kopp voll ist mit einem Problem an dem man seit Stunden hängt vergisst man komplett alles andere :frowning: :smile:)
Ist einfach so.

Nun heisst es bei mir aber: „Die Anweisung ist in einem
Namespace ungültig.“

Sorry, bin da überfragt. Geht es etwa um VB.NET?
Dann biste im falschen Brett.

Gruß
Reinhard

Gruss Elvio

Hallo Reinhard,
Ja mist bin im falschen Brett…aber wo wäre das Brett für Vb.net denn?

Gruss

Ach hab’s gefunden :wink:

Gruss elvio

mach das erstmal lesbar
prehtml oder pre tag , so hat man echt keine lust irgentwas anzugugen.

Hallo,

bin ja sowieso am falschen Brett…

Gruss