:( Kαι πως θα το κάνω να δείχνει ελληνικά;
Ας μην ξεχνάμε οτι να διαβάσουν ελληνικά μπορούν σε ιστοσελίδες...

---

Μπορείς νά εξηγήσεις λίγο καλλύτερα το τι ακριβώς θέλεις να κάνεις.

---

Ιωάννης Μανουσάκης

Πίσω από ένα ΤextΒox ( διόρθωσε το Text1 στο όνομα του δικού σου ) επικόλησε τον παρακάτω κώδικα και δοκίμασε να γράψεις Ελληνικά.

Ο κώδικας είναι νομίζω απλός και κατανοητός και ελπίζω να σε βοηθήσει.

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim st As String, num As Integer

KeyAscii = Asc(UCase(Chr(KeyAscii)))

st = "ΣΕΡΤΥΘΙΟΠΑΣΔΦΓΗΞΚΛΖΧΨΩΒΝΜ`~!@#$^&()_=?<>;'[]{}"

num = InStr(st, Chr(KeyAscii))

  If num > 0 Then
         KeyAscii = 0
          MsgBox "ΔΕΝ ΕΠΙΤΡΕΠΕΤΑΙ Η ΧΡΗΣΗ ΕΛΛΗΝΙΚΩΝ ΧΑΡΑΚΤΗΡΩΝ ΚΑΙ ΣΥΜΒΟΛΩΝ", vbCritical, "Ελεγχος πληκτρολόγησης"
  End If

End Sub

Private Const latin As String = "ABGDEZHUIKLMNJOPRSTYFXCV"

Private Const greek As String = "ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ"



Private sub EnglishtoGreek(result as string) as string

For x = 1 To Len(latin)

For g = 1 To Len(result)

If UCase(Mid(result, g, 1)) = Mid(latin, x, 1) Then

Mid(result, g, 1) = Mid(greek, x, 1)

End If

Next g

Next x

Englishtogreek = result

end sub

Μια απλή ρουτίνα που μετατρέπει απο λατινικούς χαρακτήρες σε ελληνικούς περνωντάς παράμετρο το string που θές να μετατρέψεις σε vb6.

Αν το pc δεν έχει εγκατεστημένη την ελληνική γλώσσα το μόνο που μπορείς να κάνεις είναι να χρησιμοποιήσεις ελληνική γραμματοσειρα (Shape Font File) και όχι True Type font για να εμφανίζει ελληνικό χαρακτήρα χρησιμοποιώντας keyascii απο US-English Codepage.