Εντολές VB6 και ανίστοιχες σε VB.NET

Παρακάτω βλέπουμε την αντιστοιχία και την χρήση
 VB 6 Εντολών  σέ VB.NT

    Len = .Length
    Mid = .SubString
    Replace = .Replace
    InStr = .IndexOf
    UCase = .ToUpper
    LCase = .ToLower
    Split = .Split

   
A) Παίρνοτας το μέγεθος ενός χαρακτήρα ή μιάς μεταβλητής

    Textbox1.Text.Length
    
O παραπάνω κώδικας μάς επιστρέφει το μέγεθος του χαρακτήρα πού βρίσκεται στο Textbox1

    Dim StrText As String
    Dim r As Integer
   
    StrText = "Θα πάμε εκδρομή στο Ναύπλιο?"
    r = StrText.Length
    MsgBox(r)
   
B) Παρακάτω βλέπουμε πώς εκτελείται η Mid function thw VB6 σέ .ΝΕΤ

    Dim r As String = "Γειά σου κόσμε"
    r = r.Substring(4)
   
    MsgBox(r)
   
    ή

    Dim r As String = "Γειά σου κόσμε"
    r = r.SubString(6, 3)
    MsgBox(r)
   
Γ) Εκτέλεση της Instr σέ .NET κώδικα

    Dim r As String = "Θα περάσουμε ένα υπέροχο Σαββατοκύριακο"
    r = r.IndexOf("υπέροχο")
   
    MsgBox(r)
   

Δ) Εκτέλεση της Replace σέ .ΝΕΤ

    Dim i As String = "Ήμουν βλάκας που σέ πίστεψα"
    i = i.Replace("βλάκας", "ηλίθιος")
   
    MsgBox(i)
   
   
Ε) Δουλεύοντας της UCASE και LCASE της VB6 σε .ΝΕΤ

    Dim r as String
    r = "Θα έρθω να σε πάρω στις 8 το βράδυ"
    r = r.ToUpper
     
    TextBox1.Text = r
   

    Dim r as String
    r = "ΘΑ ΕΡΘΩ ΝΑ ΣΕ ΠΑΡΩ ΣΤΙΣ 8 ΤΟ ΒΡΑΔΥ"
    r = r.ToLower
    TextBox1.Text = r
   

   
ΣΤ) Δημιουργία arrays μέ την Split

    Dim i As String = "κειμενο1;κειμενο2;κειμενο3;κειμενο4"
    Dim a() As String
    Dim j As Integer
    a = i.Split(";")
    For j = 0 To a.GetUpperBound(0)
    MsgBox(a(j))
    Next
   
   

Share


Έχουν δημοσιευτεί Τρίτη, 28 Μαρτίου 2006 10:04 πμ από το μέλος imanos
Καταχώρηση στις κατηγορίες:

Σχόλια:

Χωρίς Σχόλια