Hallo,

ich habe da mal wieder einige Fragen an euch.
Ich bin gerade dabei mit so etwas wie ein Notepad (Editor) zu programmieren.
In diesen Project habe ich eine Function die ich an mehren Stellen nutzen will, weiss aber nicht so recht wie ich ein Argumenten übergebe.

PHP-Code:
 Private Sub Schrift_Groesse()
        
'ändern der schriftgröße der textbox in der form1
        Select Case lboSchriftArt.SelectedItem
            Case "8"
                Form1.txtEingabe.Font = New Font("Arial", 8, FontStyle.Regular)
            Case "9"
                Form1.txtEingabe.Font = New Font("Arial", 9, FontStyle.Regular)
            Case "10"
                Form1.txtEingabe.Font = New Font("Arial", 10, FontStyle.Regular)
            Case "11"
                Form1.txtEingabe.Font = New Font("Arial", 11, FontStyle.Regular)
            Case "12"
                Form1.txtEingabe.Font = New Font("Arial", 12, FontStyle.Regular)
            Case "14"
                Form1.txtEingabe.Font = New Font("Arial", 14, FontStyle.Regular)
            Case "16"
                Form1.txtEingabe.Font = New Font("Arial", 16, FontStyle.Regular)
            Case "18"
                Form1.txtEingabe.Font = New Font("Arial", 18, FontStyle.Regular)
            Case "20"
                Form1.txtEingabe.Font = New Font("Arial", 20, FontStyle.Regular)
            Case "22"
                Form1.txtEingabe.Font = New Font("Arial", 22, FontStyle.Regular)
            Case "24"
                Form1.txtEingabe.Font = New Font("Arial", 24, FontStyle.Regular)
            Case "26"
                Form1.txtEingabe.Font = New Font("Arial", 26, FontStyle.Regular)
            Case "28"
                Form1.txtEingabe.Font = New Font("Arial", 28, FontStyle.Regular)
            Case "36"
                Form1.txtEingabe.Font = New Font("Arial", 36, FontStyle.Regular)
            Case "48"
                Form1.txtEingabe.Font = New Font("Arial", 48, FontStyle.Regular)
            Case "72"
                Form1.txtEingabe.Font = New Font("Arial", 72, FontStyle.Regular)
        End Select

    End Sub 
Mittels einer Listbox kann man die Schriftgröße wählen und die eingabe wird dann in der Private Sub Schrift_Groesse() verarbeitet.
Nun möchte ich aber das sich das nicht nur auf Form1.txtEingabe.Font bezieht sonder auch z.b. auf ein Label.
Was muss ich dafür in der () von Private Sub Schrift_Groesse() angeben?

So wie ich es bis jetzt habe kann man nur den gesammten Text in der Textbox ändern. Wie bekomme ich es hin das das auch auf, mit der Maus, markierten Text klappt?

MFG Matthias
Achtung: Dies ist ein alter Thread im HTML und Webmaster Forum
Diese Diskussion ist älter als 90 Tage. Die darin enthaltenen Informationen sind möglicherweise nicht mehr aktuell. Erstelle bitte zu deiner Frage ein neues Thema im Forum !!!!!