WinForms

Απ: Πρόβλημα

rantanplan — Fri, 16 Nov 2007 09:07:31 GMT

Όχι δεν έχω κάνει τίποτα απο αυτά και δυστυχώς εμένα δεν μου εμφανίζεται όπως του φίλου μας παραπάνω.

Απ: Πρόβλημα

Mitsaras — Sun, 11 Nov 2007 13:55:42 GMT

Χμ, αν και λίγο longshot, μήπως έχεις αλλάξει γραμματοσειρά για τα παράθυρα από τα windows? Αν ναι, τότε δε θα πρέπει να βλέπεις ελληνικά σε κανένα πρόγραμμα στο title bar του.

Κάτι άλλο, μάλλον πιο απίθανό: Τι λειτουργικό σύστημα χρησιμοποιείς; Σε οτιδήποτε μικρότερο από Vista θα πρέπει να επιλέξεις ελληνικά για τις non-unicode εφαρμογές (και αν έχεις αγγλικά windows, τα ελληνικά δεν είναι η προεπιλογή). Αυτό το ελέγχεις από το Control Panel, στο regional options νομίζω (δεν έχω XP μηχάνημα διαθέσιμο αυτήν τη στιγμή για να το επιβεβαιώσω). Είναι απίθανο, καθώς οι .net εφαρμογές λειτουργούν πάνω σε Unicode, οπότε αμφιβάλλω ότι μπορεί να επηρρεάζονται από αυτό.

Απ: Πρόβλημα

Δημήτρης Γκανάτσιος — Sun, 11 Nov 2007 05:40:33 GMT

Τι εννοείς δεν σου βγάζει ελληνικά; Μια χαρά παίζει σε μένα (ελπίζω να κατάλαβα καλά την απορία σου, πάντως)
Δες και το attached file

Απ: Πρόβλημα

rantanplan — Sun, 11 Nov 2007 04:21:37 GMT

Ευχαριστώ πολύ φίλε μου. Ήταν λάθο το copy-paste απο δοκιμές που έκανα.

Αλλα δυστυχώς το πρόβλημα δεν είναι αυτό απο ότι έγραψα...

Απ: Πρόβλημα

Δημήτρης Γκανάτσιος — Sun, 11 Nov 2007 04:09:52 GMT

Πρέπει να αλλάξεις τις γραμμές

temp1 = work (1) σε temp1 = work (0)

και την

MsgBox("H " & temp2 & " έγινε με επιτυχία.", vbInformation + vbOKOnly, temp2)

Πρόβλημα

rantanplan — Sun, 11 Nov 2007 03:52:01 GMT

Καλησπέρα παιδιά έχω γράψει την παρακάτω απλή συναρτησούλα για να εμφανίζω ένα μήνυμα στο χρήστη ανάλογα με την ενέργεια που έκανε (διαγραφή, εισαγωγή, ενημέρωση).

Το πρόβλημα είναι ότι θέλω το πρώτο γράμμα στον τίτλο να μου εμφανίζεται κεφαλαίο. Κεφαλαίο μου εμφανίζεται αλλά όχι Ελληνικά!!!!!

Έχει κανείς καμιά ιδέα;

Ευχαριστώ

Public Sub Info(ByRef work As String)

Dim temp1 As String = ""

Dim temp2 As String = ""

temp1 = work (1)

temp1 = temp1.ToUpper()

temp2 = temp1 & work .Remove(0, 1)

MsgBox("H " & work & " έγινε με επιτυχία.", vbInformation + vbOKOnly, temp2)

End Sub

Καλώ την συνάρτηση κάπως έτσι π.χ.

info("ενημέρωση")