Advertisement

Τεχνολογικές Ειδήσεις, Υποστήριξη, Διαδίκτυο, Ψυχαγωγία, Αγγελίες, Smartphones, Tablets, Games, Eπιστήμη, Free Software

  • Μετάβαση στη σελίδα : 1, 2  Επόμενο

    Δεν μπορείτε να ξεκινήσετε ένα νέο θέμα


    Επισκόπηση προηγούμενης Θ.Ενότητας Επισκόπηση επόμενης Θ.Ενότητας Πήγαινε κάτω Μήνυμα [Σελίδα 1 από 2]  

    » Νέα θέματα forum

      » Τυχαία θέματα

        avatar

        Αναγνώριση και επεξεργασία HTML v3.5.3 2012

        Ξεκίνησε από: vagelis199, αναρτήθηκε στις 27/05/2012
        Αναγνώριση και επεξεργασία HTML v3.5.3 2012


        Το html "Αναγνώριση και επεξεργασία HTML v3" πρόγραμμα είναι ένα πρόγραμμα με το οποιο μπορείτε να επεξεργάζεται και να δημιουργείται html κωδικούς για την ιστοσελίδα σας



        Νέες λειτουργίες: Tooltip,Toolbar,Extra Manual codes

        Λειτουργία Προγράμματος.

        Το πρόγραμμα λειτουργεί με την διευκόλυνση επεξεργασίας και δημιουργίας html κωδικό τον οποιο μπορείτε να χρησιμοποιήσετε ελεύθερα στην ιστοσελίδα σας.Στα αριστερά είναι το παράθυρο επεξεργασίας και δημιουργίας html code στο οποιο είναι γραμμένος ο κωδικός και στον όποιο μπορείτε να κάνετε οτιδήποτε επεξεργασία θέλετε... Στα δεξιά βλέπετε πως θα εμφανίζεται στην ιστοσελίδα σας... πάνω δεξιά είναι τα εργαλεία που σας διευκολύνουν ώστε να εισάγεται αυτόματα έναν κωδικό με τις δικες σας ρύθμισις.. Επίσης εάν πατήσετε το πλήκτρο F1 του πληκτρολόγιο θα σας εμφάνιση ένα παράθυρο με χειροποίητους κωδικούς τους οποιους μπορείτε να κάνετε αντιγραφή και επικόλληση απευθείας στο αριστερό πλασίο που γράφετε τον κωδικό. Επίσης πάνω αριστερά υπάρχει το κουμπί αποθήκευσης η άνοιγμα αρχείου HTML,TXT και xml επίσης να τρέξετε κωδικό από κάποιο URL.
        Προγραμματισμένο σε: γλώσσα VB(visual basic) από vagelis199


        Απαίτησης συστήματος:

        Intel η amd 1.60ghz +
        512Ram +
        OS: Windows XP,VISTA,7 (No windows 8)
        Λειτουργεί σε windows x86
        Microsoft .NET Framework 4

        Download Link
        http://www.gtagreece.com/2012/11/html-version-72.html

        SerialNumber Σειριακός κωδικός..
        http://htmleditorgr.blogspot.com/p/blog-page_27.html

        SerialNumber (κρυφό) Σειριακός κωδικός μονο για τους χρηστες του Thegreeksenergy

        Επισκόπηση του προφίλ των χρηστών http://vango.games

        Σχόλια

        avatar

        Δημοσίευση Την / Το Κυρ 27 Μαϊος 2012, 18:33 από Θάλεια

        αυτη ειναι η νεα εκδοση τι διαφορες εχει με την προηγουμενη?

        ευχαριστω Βαγγελη :D

        avatar

        Δημοσίευση Την / Το Κυρ 27 Μαϊος 2012, 18:36 από vagelis199

        τα ειπα πριν ..

        avatar

        Δημοσίευση Την / Το Κυρ 27 Μαϊος 2012, 18:36 από Θάλεια

        δεν ειδα κατι οκ δεν πειραζει :D

        avatar

        Δημοσίευση Την / Το Κυρ 27 Μαϊος 2012, 19:58 από Paulos

        Κι αλλο ωραιος το τσεκαρω..

        avatar

        Δημοσίευση Την / Το Κυρ 27 Μαϊος 2012, 20:06 από vagelis199

        @stroymfita έγραψε:αυτη ειναι η νεα εκδοση τι διαφορες εχει με την προηγουμενη?

        ευχαριστω Βαγγελη :D
        Στο επόμενο update(αυτο διλαδι)= στο κάτω μέρος θα έχει μια απευθείας αρίθμηση τον γραμμάτων που γράφετε και ανάλογα με το ποσο θα αλλάζει και το χρώμα.. πχ μετά τα 150 θα είναι πράσινο μετά πορτοκαλι και μόλις φτάσεις στα 5000 γράμματα θα γίνετε κόκκινο θα πετάγεται ένα μήνυμα προσοχής.Επίσης, θα ίππαρχοι ένα πλαίσιο για να τσεκάρετε έτσι ώστε να μην μεταφέρεται ο κωδικός στο δεξί παράθυρο.. δηλαδή να μην δείχνει το αποτέλεσμα(χρειάζεται όταν βρίσκετε κωδικό από ιστοσελίδα (fix bug).)Και μερικά νέα shortcutskeys.

        avatar

        Δημοσίευση Την / Το Τρι 29 Μαϊος 2012, 12:31 από Salonika

        ιλικρινα περιμενεις να το αγορασι καποιος ενω υπαρχουν χιλιες φορες καλυτερα και δωρεαν κιολας οπος notepad++?

        avatar

        Δημοσίευση Την / Το Τρι 29 Μαϊος 2012, 13:29 από vagelis199

        @Salonika έγραψε:ιλικρινα περιμενεις να το αγορασι καποιος ενω υπαρχουν χιλιες φορες καλυτερα και δωρεαν κιολας οπος notepad++?
        ορεα, αν δεν γουσταρης, εγω εβαλα σεριαλ μονο για τα παιδια που ειναι απο το thegreeksenergy, οπιος αλος θελει σεριαλ ας αγοραση, δεν κοστιζι και πολυ... επισις δεν ειναι δισκολο να κανεις μια εγραφη στο σιτε(thegreeksenergy) για να δεις το σεριαλ... επισις εγω το εφτιαξα μονος μου...

        avatar

        Δημοσίευση Την / Το Τρι 29 Μαϊος 2012, 17:30 από Salonika

        ☢vagelis199☢ έγραψε:
        @Salonika έγραψε:ιλικρινα περιμενεις να το αγορασι καποιος ενω υπαρχουν χιλιες φορες καλυτερα και δωρεαν κιολας οπος notepad++?
        ορεα, αν δεν γουσταρης, εγω εβαλα σεριαλ μονο για τα παιδια που ειναι απο το thegreeksenergy, οπιος αλος θελει σεριαλ ας αγοραση, δεν κοστιζι και πολυ... επισις δεν ειναι δισκολο να κανεις μια εγραφη στο σιτε(thegreeksenergy) για να δεις το σεριαλ... επισις εγω το εφτιαξα μονος μου...
        οκ απλα σε προιδεαζο για τιν φιμι του προγραματο σου(γιατι κατα τιν γνομι μου ειναι ντροπι να πουλιεται προγραμμα σε visual basic)

        avatar

        Δημοσίευση Την / Το Τρι 29 Μαϊος 2012, 17:32 από vagelis199

        O.o? τι σχεσει εχει σε τι ειναι γραμενο? αφου το visual basic με το visual C++ ειναι σχεδον το ιδιο...(τι σχεδον τον ιδιο κοδικο χρισιμοπιις.)

        avatar

        Δημοσίευση Την / Το Τρι 29 Μαϊος 2012, 17:34 από Salonika

        ι διαφορα ειναι οτι στην visual basic το 80% στο κανει ο υπολογιστις...

        avatar

        Δημοσίευση Την / Το Τρι 29 Μαϊος 2012, 17:36 από Paulos

        @Salonika έγραψε:
        ☢vagelis199☢ έγραψε:
        @Salonika έγραψε:ιλικρινα περιμενεις να το αγορασι καποιος ενω υπαρχουν χιλιες φορες καλυτερα και δωρεαν κιολας οπος notepad++?
        ορεα, αν δεν γουσταρης, εγω εβαλα σεριαλ μονο για τα παιδια που ειναι απο το thegreeksenergy, οπιος αλος θελει σεριαλ ας αγοραση, δεν κοστιζι και πολυ... επισις δεν ειναι δισκολο να κανεις μια εγραφη στο σιτε(thegreeksenergy) για να δεις το σεριαλ... επισις εγω το εφτιαξα μονος μου...
        οκ απλα σε προιδεαζο για τιν φιμι του προγραματο σου(γιατι κατα τιν γνομι μου ειναι ντροπι να πουλιεται προγραμμα σε visual basic)

        Noμιζω οτι για τον κοπο του ο καθενας μπορει να το κανει οπως θελει φιλαρακο...Αν εσυ γουσταρεις το παιρνεις αν οχι δεν τον παιρνεις..Απλο...

        avatar

        Δημοσίευση Την / Το Τρι 29 Μαϊος 2012, 17:37 από Salonika

        συνφονο με αυτο απλα του προτινα κατι οστε να γινει καλυτερο το προγραμμα...δεν το ειπα απο κακια..

        avatar

        Δημοσίευση Την / Το Τρι 29 Μαϊος 2012, 17:39 από vagelis199

        τι λες μορε? και στα δυο το pc τα κανει... επιδι και τα δυο εχουν design απο ποτε εχεις να χρησιμοποίησις visual studio.. το visual basic με το c++ η διαφορα ειναι(καμια) μιπος εσυ εχεις χρισιμοπιισι c++ console και οχι windows form? και επισις το δοκιμασες και λες πος ειναι ντοπει να κοστίζει?

        avatar

        Δημοσίευση Την / Το Τρι 29 Μαϊος 2012, 17:39 από Paulos

        Οχι φιλε μου προς θεου απλα ειπα την αποψη μου δεν σημαινει πως ειναι και σωστη..

        avatar

        Δημοσίευση Την / Το Τρι 29 Μαϊος 2012, 17:42 από Salonika

        το θεμα ελειξε απλα κατα την γνομι μου παντα δεν πρεπει να πουλας προγραμματα απο vb(οχι οτι ειναι κακο απλα δεν θελει πολυ δουλεια) τελως παντων κανε οτι θες δεν υπαρχει προβλημα καλη επιιτιχια με το προγραμμα σου! Wink

        avatar

        Δημοσίευση Την / Το Τρι 29 Μαϊος 2012, 17:44 από vagelis199

        @Salonika έγραψε:το θεμα ελειξε απλα κατα την γνομι μου παντα δεν πρεπει να πουλας προγραμματα απο vb(οχι οτι ειναι κακο απλα δεν θελει πολυ δουλεια) τελως παντων κανε οτι θες δεν υπαρχει προβλημα καλη επιιτιχια με το προγραμμα σου! Wink
        ...δεν πουλαω, εσενα τη σε πιραξε? ιθελες να το δοκιμασις και δεν ειχες σεριαλ?

        avatar

        Δημοσίευση Την / Το Τρι 29 Μαϊος 2012, 17:47 από Salonika

        νταξει φιλε οπως θες..

        avatar

        Δημοσίευση Την / Το Τρι 29 Μαϊος 2012, 17:49 από vagelis199

        κιτα τι εχω γραψη για να καταλαβεις

        form1
        Κώδικας:
        Imports System.Net
        Imports System.IO
        Public Class Form1
            Private Function getHTML(ByVal Adress As String) As String
                Dim rt As String = ""

                Dim wRequest As WebRequest
                Dim wResponse As WebResponse

                Dim SR As StreamReader

                wRequest = WebRequest.Create(Adress)
                wResponse = wRequest.GetResponse()

                SR = New StreamReader(wResponse.GetResponseStream)

                rt = SR.ReadToEnd
                SR.Close()

                Return rt
            End Function
            Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
                Label9.Text = TextBox1.TextLength
                If CheckBox1.Checked Then
                    WebBrowser1.DocumentText = "<span style=" + """font-family: Arial, Helvetica, sans-serif;""" + ">" + "Για εμφάνιση απευθείας αποτελέσματος,ξετσεκαρε το" + " " + """Μην τρέξεις τον κωδικό""" + "</span></div>"
                Else
                    WebBrowser1.DocumentText = TextBox1.Text
                End If
            End Sub

            Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

                Beep()
                MsgBox("Προσοχή!.Πριν αποθηκεύσετε σβήστε όλα τα κενά από το κείμενο! Για να συνεχίσετε από κάτω βάζετε <br>")
                SaveFileDialog1.ShowDialog()
            End Sub

            Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
                If CheckBox1.Checked Then
                    TextBox1.Text = getHTML(TextBox2.Text)
                End If
                WebBrowser1.Navigate(TextBox2.Text)
                TextBox1.Text = getHTML(TextBox2.Text)
            End Sub

            Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
                MsgBox("By vagelis199")
            End Sub

            Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            End Sub

            Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

            End Sub

            Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

            End Sub

            Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

            End Sub

            Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)

            End Sub

            Private Sub ΚωδικοίToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΚωδικοίToolStripMenuItem.Click
                Form2.Show()
            End Sub

            Private Sub ΠερίToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΠερίToolStripMenuItem.Click
                Form3.Show()
            End Sub

            Private Sub ΠωςΛειτουργείToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΠωςΛειτουργείToolStripMenuItem.Click
                MsgBox("Λειτουργία Προγράμματος. Το πρόγραμμα λειτουργεί με την διευκόλυνση επεξεργασίας και δημιουργίας html κωδικό τον οποιο μπορείτε να χρησιμοποιήσετε ελευθερα στην ιστοσελίδα σας.Στα αριστερά είναι το παράθυρο επεξεργασίας και δημιουργίας html code στο οποιο είναι γραμμένος ο κωδικός και στον οποιο μπορείτε να κάνετε ότι δήποτε επεξεργασία θέλετε...Στα δεξιά βλέπετε πως θα εμφανίζεται στην ιστοσελίδα σας...πάνω δεξιά είναι τα εργαλεία που σας διευκολύνουν ώστε να εισάγεται αυτόματα έναν κωδικό με τις δικες σας ρύθμισις.. Επίσης εάν πατήσετε το πλήκτρο F1 του πληκτρολόγιο θα σας εμφάνιση ένα παράθυρο με χειροποίητους κωδικούς τους οποιους μπορείτε να κάνετε αντιγραφή και επικόλληση απευθείας στο αριστερό πλασίο που γράφετε τον κωδικό. Επίσης πάνω αριστερά υπάρχει το κουμπί αποθήκευσης η άνοιγμα αρχείου HTML,TXT και xml επίσης να τρέξετε κωδικό από κάποιο URL.Αναγνώριση και επεξεργασία HTML v3.5.3")
            End Sub

            Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

            End Sub

            Private Sub Button3_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
                Dim OpenDLG As New OpenFileDialog

                OpenDLG.Filter = "HTML Code In Text(*.txt)|*.txt|HTML Document(*.html)|*.html*|XML File(.*xml)|*.xml*|All Files (.**.*)|*.*.**"
                OpenDLG.Title = "Από Αρχείο"
                OpenDLG.InitialDirectory = "C:\"
                OpenDLG.RestoreDirectory = True

                DialogResult = OpenDLG.ShowDialog

                If DialogResult = Windows.Forms.DialogResult.OK Then

                    Dim objreader As New System.IO.StreamReader(OpenDLG.FileName)

                    TextBox1.Text = objreader.ReadToEnd

                    objreader.Close()

                    Me.Text = "Αναγνώριση και επεξεργασία HTML v2  | " + OpenDLG.FileName
                    Label1.Text = OpenDLG.FileName.ToString()

                ElseIf DialogResult = Windows.Forms.DialogResult.Cancel Then

                End If
            End Sub

            Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

            End Sub

            Private Sub Label1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
                Dim OpenDLG As New OpenFileDialog

                OpenDLG.Filter = "HTML Code In Text(*.txt)|*.txt|HTML Document(*.html)|*.html*|XML File(.*xml)|*.xml*|All Files (.**.*)|*.*.**"
                OpenDLG.Title = "Από Αρχείο"
                OpenDLG.InitialDirectory = "C:\"
                OpenDLG.RestoreDirectory = True

                DialogResult = OpenDLG.ShowDialog

                If DialogResult = Windows.Forms.DialogResult.OK Then

                    Dim objreader As New System.IO.StreamReader(OpenDLG.FileName)

                    TextBox1.Text = objreader.ReadToEnd

                    objreader.Close()

                    Me.Text = "Αναγνώριση και επεξεργασία HTML v2 | " + OpenDLG.FileName
                    Label1.Text = OpenDLG.FileName.ToString()

                ElseIf DialogResult = Windows.Forms.DialogResult.Cancel Then

                End If
            End Sub

            Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk

                Dim FileToSaveAs As String = SaveFileDialog1.FileName

                Dim ObjWriter As New System.IO.StreamWriter(FileToSaveAs)
                ObjWriter.Write(TextBox1.Text)
                ObjWriter.Close()
            End Sub

            Private Sub ΑποθήκευσηToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            End Sub

            Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
                Form12.Show()
                ToolTip1.SetToolTip(Button2, "Τρέξε και δείτε κωδικό από κάποια σελίδα url.")
                ToolTip1.SetToolTip(Button1, "Αποθήκευσε τον κωδικό σου η την σελίδα html σε αρχείο HTML,txt και xml στον υπολογιστή σου.")
                ToolTip1.SetToolTip(Button3, "Ανοιξε κωδικό html από αρχείο html txt και xml από τον υπολογιστή σου.")
                ToolTip1.SetToolTip(Button4, "Βάλε μια εικόνα από το internet")
                ToolTip1.SetToolTip(Button5, "Μετάτρεψε το υπογραμμισμένο κείμενο σου σε bolt")
                ToolTip1.SetToolTip(Button6, "Μετάτρεψε το υπογραμμισμένο κείμενο σου σε πλάγιο")
                ToolTip1.SetToolTip(Button7, "Βάλε κάτω γραμμή στο κείμενο που έχεις υπογραμμισμένο")
                ToolTip1.SetToolTip(Label6, "Βάλε ένα url με εμφανιζόμενο όνομα")
                ToolTip1.SetToolTip(Button8, "Βάλε video από το youtube")
                ToolTip1.SetToolTip(ComboBox1, "Διάλεξε γραμματοσειρά που θα εμφανίζεται(Υπογραμμισμένο κείμενο)")
                ToolTip1.SetToolTip(Button9, "Εμφανισει πρωτοτυπου")
                ToolTip1.SetToolTip(Button10, "Αναίρεση")
            End Sub

            Private Sub SupportToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SupportToolStripMenuItem.Click
                MsgBox("For Bugs send email to vagelis619@hotmail.com")
            End Sub

            Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)

            End Sub

            Private Sub ΧρώμαToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

            End Sub

            Private Sub ΕμφάνισηToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΕμφάνισηToolStripMenuItem.Click
                Form4.ShowDialog()
            End Sub

            Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            End Sub

            Private Sub ToolStripStatusLabel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

            End Sub

            Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
            End Sub

            Private Sub ΒοήθειαToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΒοήθειαToolStripMenuItem.Click

            End Sub

            Private Sub Button4_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
                Form5.Show()
            End Sub

            Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
                Dim bolt1 As String
                Dim bolt2 As String
                bolt1 = "<b>"
                bolt2 = "</b>"

                TextBox1.SelectedText = bolt1 + TextBox1.SelectedText + bolt2
            End Sub

            Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click
                Form6.Show()
            End Sub

            Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
                TextBox1.SelectedText = "<i>" + TextBox1.SelectedText + "</i>"
            End Sub

            Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
                TextBox1.SelectedText = "<u>" + TextBox1.SelectedText + "</u>"
            End Sub

            Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
                Form7.Show()
            End Sub

            Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
                Select Case ComboBox1.SelectedIndex
                    Case 0
                        TextBox1.SelectedText = "<span style=" + """font-family: Arial, Helvetica, sans-serif;""" + ">" + TextBox1.SelectedText + "</span>"
                    Case 1
                        TextBox1.SelectedText = "<span style=" + """font-family: 'Courier New', Courier, monospace;""" + ">" + TextBox1.SelectedText + "</span>"
                    Case 2
                        TextBox1.SelectedText = "<span style=" + """font-family: Georgia, 'Times New Roman', serif;""" + ">" + TextBox1.SelectedText + "</span>"
                    Case 3
                        TextBox1.SelectedText = "<span style=" + """font-family: 'Helvetica Neue', Arial, Helvetica, sans-serif;""" + ">" + TextBox1.SelectedText + "</span>"
                    Case 4
                        TextBox1.SelectedText = "<span style=" + """font-family: Times, 'Times New Roman', serif;""" + ">" + TextBox1.SelectedText + "</span>"
                    Case 5
                        TextBox1.SelectedText = "<span style=" + """font-family: 'Trebuchet MS', sans-serif;""" + ">" + TextBox1.SelectedText + "</span>"
                    Case 6
                        TextBox1.SelectedText = "<span style=" + """font-family: 'font-family: Verdana, sans-serif;""" + ">" + TextBox1.SelectedText + "</span>"

                End Select
            End Sub

            Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click
                Form8.Show()
            End Sub

            Private Sub ToolTip1_Popup(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PopupEventArgs) Handles ToolTip1.Popup

            End Sub

            Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick

            End Sub

            Private Sub NotifyIcon1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick

            End Sub

            Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
                Form9.WebBrowser1.DocumentText = TextBox1.Text
                Form9.ShowDialog()
            End Sub

            Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

            End Sub

            Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
            End Sub

            Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
                Form9.WebBrowser1.DocumentText = TextBox1.Text
                Form9.ShowDialog()
            End Sub

            Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click
                Form10.ShowDialog()
            End Sub

            Private Sub ΕικόναToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΕικόναToolStripMenuItem.Click
                Form5.Show()
            End Sub

            Private Sub ΒίντεοToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΒίντεοToolStripMenuItem.Click
                Form7.Show()
            End Sub

            Private Sub ΛίσταToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΛίσταToolStripMenuItem.Click
                Form8.Show()
            End Sub

            Private Sub ΣύνδεσμοToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΣύνδεσμοToolStripMenuItem.Click
                Form6.Show()
            End Sub

            Private Sub ΤιτλοςToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΤιτλοςToolStripMenuItem.Click
                Form11.ShowDialog()
            End Sub

            Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
                ' Determine if last operation can be undone in text box. 
                If TextBox1.CanUndo = True Then
                    ' Undo the last operation.
                    TextBox1.Undo()
                    ' Clear the undo buffer to prevent last action from being redone.
                    TextBox1.ClearUndo()
                End If
            End Sub

            Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click
            End Sub

            Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

            End Sub
            Private Sub TextBox1_VisibleChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.VisibleChanged
            End Sub

            Private Sub Label9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.TextChanged
                Label9.Text = TextBox1.TextLength
                If TextBox1.TextLength = "150" Then
                    Label9.ForeColor = Color.LightGreen
                End If
                If TextBox1.TextLength = "1800" Then
                    Label9.ForeColor = Color.Orange
                End If
                If TextBox1.TextLength = "5000" Then
                    Label9.ForeColor = Color.Red
                    Beep()
                    MsgBox("Προσοχή έχετε γράψει πολύ μεγάλο κείμενο html, έχετε ξεπεράσει τα 5000 γράμματα")
                End If
            End Sub

            Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
            End Sub

            Private Sub ΣειριακόςΑριθμόςToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΣειριακόςΑριθμόςToolStripMenuItem.Click
                Form12.ShowDialog()
            End Sub
        End Class

        form4
        Κώδικας:

            Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
                Close()
            End Sub

            Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            End Sub

            Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
                ColorDialog2.ShowDialog()
                Form1.BackColor = Me.ColorDialog2.Color
                PictureBox3.BackColor = Me.ColorDialog2.Color
            End Sub

            Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            End Sub

            Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


            End Sub
            Dim Setting As New My.MySettings()
            Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
            End Sub

            Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            End Sub
        End Class


        form5 και ακομα 5-6 τετια
        Κώδικας:
        Public Class Form5

            Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
                Dim IMG As String
                Dim border As String
                Dim src As String
                Dim link As String
                Dim width As String
                Dim height As String
                IMG = "<img style="
                border = """border:1px solid black;"""
                src = "src="
                link = """TextBox1.Text"""
                width = "width="
                height = "height="

                Form1.TextBox1.SelectedText = IMG + border + " " + src + """" + TextBox1.Text + """" + " " + width + """" + TextBox2.Text + """" + " " + height + """" + TextBox3.Text + """" + "/>"
                Close()
            End Sub

            Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            End Sub
        End Class

        form12
        Κώδικας:
        Public Class Form12
            Dim setting As New My.MySettings
            Private Sub Form12_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
                TextBox1.Text = setting.serialNumber
                Form1.Visible = False
            End Sub

            Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

            End Sub

            Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
                If TextBox1.Text = "HJEVG-TH891-IG82F-LO1MG-THG31" Then
                    Form1.Visible = True
                    setting.serialNumber = TextBox1.Text
                    setting.Save()
                    Close()
                Else
                    MsgBox("Λάθος Σειριακός αριθμός", MsgBoxStyle.Critical)
                End If
            End Sub

            Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
                If TextBox1.Text = "HJEVG-TH891-IG82F-LO1MG-THG31" Then
                    Button1.ForeColor = Color.Green
                    Label1.ForeColor = Color.Green
                    PictureBox1.BackgroundImage = My.Resources.Lock_Unlock_icon
                End If
            End Sub
        End Class

        avatar

        Δημοσίευση Την / Το Τρι 29 Μαϊος 2012, 17:52 από Salonika

        το θεμα ελειξε ειπα...

        avatar

        Δημοσίευση Την / Το Τρι 29 Μαϊος 2012, 17:53 από vagelis199

        memes

        avatar

        Δημοσίευση Την / Το Τρι 29 Μαϊος 2012, 18:11 από vagelis199

        Επίσης κάτι άσχετο τώρα, Για τους επόμενους που θα πουν κάτι, Είμαι 15 χρονών, Δεν πάω Λύκειο, γεννήθηκα και ζω στην Ελλάδα,Δεν πήγα ποτέ σχολειό πληροφορικής η προγραμματισμού, Ευτιαξα ενα πρόγραμμα, που όση το δοκίμασαν κατάλαβαν πός είναι αρκετά χρήσιμο,, Που οπός λεει ο αλος ο κιριος λεει το 80% το έκανε ο υπολογιστής, έχω γράψει στο youtube στο greekenergy τον κωδικό για να το ξεκλειδώσεις, και το μονο που ζήτησα ήταν 5 euro..

        ευχαριστώ όσους το διάβασαν..

        avatar

        Δημοσίευση Την / Το Παρ 01 Ιουν 2012, 19:09 από Proxy*64*

        καλο

        avatar

        Δημοσίευση Την / Το Σαβ 02 Ιουν 2012, 11:55 από kinder811

        @Salonika έγραψε:ι διαφορα ειναι οτι στην visual basic το 80% στο κανει ο υπολογιστις...
        Αυτό δεν το έπιασα,μπορείς να μου το εξηγήσεις?

        @kinder811 έγραψε:
        @Salonika έγραψε:ι διαφορα ειναι οτι στην visual basic το 80% στο κανει ο υπολογιστις...
        Αυτό δεν το έπιασα,μπορείς να μου το εξηγήσεις?
        αστον μιν ασχολεισε.


        Μήνυμα [Σελίδα 1 από 2]

        Μετάβαση στη σελίδα : 1, 2  Επόμενο

        Δεν μπορείτε να ξεκινήσετε ένα νέο θέμα


        Μοιραστείτε αυτό το θέμα

        Url
        BBcode
        HTML

        Δικαιώματα σας στην κατηγορία αυτή. Δεν μπορείτε να απαντήσετε στα Θέματα αυτής της Δ.Συζήτησης