Πώς να μετατρέψετε μια ημερομηνία για να String σε Visual Basic 2005

Visual Basic 2005 ( VB 2005 ) ήταν ένα συστατικό του Visual Studio 2005 , ολοκληρωμένο περιβάλλον ανάπτυξης της Microsoft ( IDE ) για την ανάπτυξη προγραμμάτων για την NET Framework που εμπλέκονται στα Windows , Web , Mobile και . εφαρμογές του Office . VB 2005 και κυκλοφόρησε ως ένα ελεύθερο αυτόνομο πρόγραμμα , που ονομάζεται Visual Basic 2005 Express Edition . VB 2005 διατήρησε πολλές από τις λειτουργίες της Visual Basic 6 . VB 2008 αντικατέστησε VB 2005 και είναι διαθέσιμο ως δωρεάν έκδοση Express , καθώς και ως μέρος του Visual Studio 2008 . Οδηγίες
Η

1 Ανοίξτε ένα νέο σχέδιο σε VB 2005 , του τύπου " τα Windows Αίτηση» , και να ορίσετε ένα εύκολο στην απομνημόνευση όνομα όπως το « Ημερομηνία Μετατροπής ».
Η 2

Χρησιμοποιήστε το ποντίκι για να τοποθετήσετε τον κέρσορα πάνω στο " Toolbox" στα αριστερά της φόρμας στην οθόνη εάν η Εργαλειοθήκη δεν είναι πλήρως ορατό . Κάντε διπλό κλικ στο εργαλείο Label για να το προσθέσετε στη φόρμα και στη συνέχεια να το κάνετε αυτό ξανά για να προσθέσετε μια δεύτερη ετικέτα . Επαναλάβετε αυτή τη διαδικασία για να προσθέσετε ένα πλαίσιο κειμένου και ένα δύο κουμπιά . Οι έλεγχοι θα ονομαστεί Label1 , Label2 , Button1 και Button2 . Δεν πρέπει να υπάρχει το όνομα ορατό στο πλαίσιο κειμένου .
Εικόνων 3

Κάντε κλικ και σύρετε το πλαίσιο κειμένου έτσι ώστε να είναι στα δεξιά της πρώτης ετικέτας και το επίπεδο με αυτό . Μετακινήστε το δεύτερο Label κάτω από την πρώτη ετικέτα και το πρώτο κουμπί κάτω από αυτό . Μετακινήστε το δεύτερο κουμπί προς τα δεξιά του πρώτου κουμπιού προς το κάτω μέρος της φόρμας .
Η 4

Αλλάξτε το ορατό κείμενο στις ετικέτες και κουμπιά , κάνοντας κλικ στο καθένα και σάρωση κάτω από τις "Ιδιότητες " κουτί στα δεξιά για να " κείμενο ". Αλλαγή Label1 κειμένου "Εισαγωγή ημερομηνία για τη μετατροπή » και να διαγράψετε το ακίνητο κείμενο της Label2 . Αλλάξτε το κείμενο Button1 για να διαβάσετε , "Μετατροπή" και Button2 να δείξει "Exit" . ( Προσοχή : . Στα πλαίσια Properties , δεν περιλαμβάνουν τα εισαγωγικά ) Μπορεί να χρειαστεί να επεκτείνετε το πλάτος των ετικετών και TextBox κάνοντας κλικ πάνω τους και σύροντάς το μέγεθος ευρύτερο . Να είστε βέβαιος να διευρύνει Label2 μέχρι να γεμίσει σχεδόν το πλάτος της φόρμας .
5

Κάντε διπλό κλικ στο κουμπί "Μετατροπή " για να ανοίξετε το παράθυρο κώδικα . Πληκτρολογήστε τον κωδικό ακριβώς όπως εμφανίζεται μεταξύ του " Private Sub Button1_Click " ( που ακολουθείται από κάποιο άλλο προεπιλεγμένο κείμενο ) και "End Sub . " Η πλήρης κώδικας πρέπει να είναι όπως παρακάτω . Σημείωση : Είναι σημαντικό να χρησιμοποιήσετε ένα κεφαλαίο " Α " στο strStringDate = dt.ToString ( "D" ) γραμμή , δεν είναι ένα πεζό " . D" Επιπλέον , οι πρώτες γραμμές του κάθε Private Sub ρουτίνας είναι συνεχείς , με σπασμένα μια νέα γραμμή , δεδομένου ότι μπορεί να εμφανιστεί στο διαδίκτυο .

Private Sub Button1_Click ( ByVal αποστολέα όπως System.Object , ByVal e όπως System.EventArgs ) Λαβές Button1.ClickDim dt όπως DateDim strStringDate όπως Stringdt = TextBox1.TextstrStringDate = dt.ToString ( "D" ) Label2.Visible = TrueLabel2.Text = " Η μεταβλητή strStringDate είναι τώρα σε μορφή συμβολοσειράς , " & vbCrLf & " όπως φαίνεται παρακάτω και όχι σε μορφή ημερομηνίας " & vbCrLf & " όπως τέθηκε . " Label3.Visible = TrueLabel3.Text = strStringDateEnd Sub

Private Sub Button2_Click ( ByVal αποστολέα όπως System.Object , ByVal e όπως System.EventArgs ) Λαβές Button2.ClickLabel2 . Text = " " Sub EndEnd

Private Sub Form1_Load ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές MyBase.LoadEnd Sub

στην κορυφή της φόρμας , πριν από αυτές τις υπορουτίνες , θα πρέπει να δείτε μια γραμμή ανάγνωση "Δημόσια Τάξη Form1 " και , στο κάτω μέρος , το "End Class . " Εάν αυτές οι γραμμές δεν υπάρχουν , τοποθετήστε τους . Όταν τελειώσετε, πατήστε το πλήκτρο " F5 " για να ελέγξετε την εργασία σας .
Η
εικόνων