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 (252)
2. Xampp OS X (213)
3. Xampp Linux (201)
4. Xampp Windows (209)

-neuste Tutorials

1. Gratis USA Nummer (5038)
2. RAID (4880)
3. Text auf Grafik (4852)
4. String verschlüsseln (4925)


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 : 1315 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: 24.06.2017
Uhrzeit: 17:33 Uhr
Online: 4 User
User heute: 3833
User allgem.: 15483576

Eingeloggt als Gast
-Download des Monats
-
-unsere Monats Umfrage
Was ist davon interessanter?

Diverse Wallpaper
Motorrad Wallpaper
HDR Wallpaper
Auto Wallpaper
Personen Wallpaper

-unsere Bestseller