Mysmilies.net die Smilies Datenbank

Script oder Datei finden :

 
-Startseite
-Newsarchiv
-Newsletter
-Mein Dreamcodes
-Scripte
-eBooks
-Online Speicher
-Datenbanken
-Webseiten
-Trickfilm
-Web Grafiken
-Bildbearbeiter
-Browser
-EMail Software
-Ftp Clienten
-Betriebssysteme
-Texteditoren
-Wampserver
-Office Pakete
-Antivirus
-System Cleaner
-Recovery Tools
-Php Schnipsel
-Ajax Schnipsel
-VB Schnipsel
-Tutorials
-Workshops
-Webkatalog
-Leserforum
-Erweiterte Suche
-Sitemap
-Impressum
-neuste Downloads

1. Selfphp (1714)
2. Xampp OS X (1609)
3. Xampp Linux (1599)
4. Xampp Windows (1613)

-neuste Tutorials

1. Samsung S20 rooten (1179)
2. Gratis USA Nummer (14542)
3. RAID (13582)
4. Text auf Grafik (14249)


Tutorials Delegates

 

Delegates

Sub main()
D(AddressOf Strings.StrReverse, "Teststring")
D(AddressOf Strings.UCase, "Teststring")
Dim foo As func = AddressOf Environment.GetEnvironmentVariable
D(foo, "PATH")
Dim tra As func = AddressOf baby
D(tra, "Dieser Text Eignet sich gut")
Console.ReadLine()
End Sub
Public Delegate Function func(ByVal s As String) As String
Sub D(ByVal f As func, ByVal x As String)
Console.WriteLine("{0} auf {1} = {2}", _
f.GetType.Name, x, f(x))
End Sub
Function baby(ByVal s As String) As String
Dim c() As Char = s.ToCharArray
Dim r As String
Dim i As Integer
For i = 0 To c.GetUpperBound(0)
Select Case c(i)
Case "A"c, "E"c, "I"c, "O"c, "U"c, _
"a"c, "e"c, "i"c, "o"c, "u"c
r &= c(i) & "b" & Char.ToLower(c(i))
Case Else
r &= c(i)
End Select
Next
Return r
End Function

 
Seiten : 1
hinzugefügt am : 25.01.2010
Autor : Keine Angabe
Listings ID : 1934
Status zum lesen : Gast
gelesen : 5402 mal
[Druckansicht] [Lesercharts] [RSS] [zur Übersicht]
 
 

Die Möglichkeit diesen Artikel zu verlinken :

HTML-Code:

Code zum Einbinden in ein Forum:


Hinweis : Das lesen des Artikels Delegates - listings ID: 1934 auf Dreamcodes, sowie Link Verweise auf Internetseiten fremder Anbieter erfolgen auf eigene Gefahr. Dreamcodes haftet nicht für Schäden, die aus der Verwendung des Inhaltes der Artikel erfolgen könnten. Schadenersatzansprüche, aus welchem Rechtsgrund auch immer, sind ausgeschlossen !
-Live Statistik
Datum: 29.03.2024
Uhrzeit: 14:54 Uhr
Online: 6 User
User heute: 6316
User allgem.: 33505209

Eingeloggt als Gast
-Download des Monats
-
-unsere Monats Umfrage
Welche Serie ist besser?

The Blacklist
House of the Dragon
Die Ringe der Macht
The Sandman
Manifest

-unsere Bestseller