Advertisement

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

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


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

    » Νέα θέματα forum

      Φόρτωση...

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

        Φόρτωση...
        avatar

        Πρόγραμμα για HTML & CSS "ΝΕΟ" (Project Όχι τελειωμένο)

        Ξεκίνησε από: vagelis199, αναρτήθηκε στις 31/03/2014


        Γεια στην παρέα του thegreeksenergy..

        Αυτό είναι το δεύτερο πρόγραμμα που κάνω που αφορά html και γενικά ότι περιγιριζει γύρο από αυτόν το τομέα.

        Το προγραμμα είναι Open Source. Δηλαδή η κώδικες και το πρόγραμμα είναι ανοιχτά για όλους.. δηλαδή μπορούν να τους χρησιμοποιήσουν όλοι χωρίς κανένα πρόβλημα!

        Γλωσσά Visual Basic.
        Πρόγραμμα Visual Studio 2013.

        Δυνατότητες προγράμματος.
        Δημιουργία html και css περιεχόμενου.
        Css χωρίς καμια εισαγωγή.
        Φόρμες για ευκολότερη δημιουργία Html ή css
        Για παράδειγμα εισαγωγή εικόνας χωρίς να πληκτρολογείτε κωδικό απλά με γραφικό περιβάλλον.
        Γρηγορη μορφοποίηση κειμένου μέσο γραφικού περιβάλλοντος (χωρίς πληκτρολόγηση κωδικοί).
        Αποθήκευση css και html σε ένα αρχείο χωρίς καμια σύνδεση μεταξύ τους ή αποθήκευση css και html με αυτόματη σύνδεση μεταξύ τους.
        Προεπισκόπηση.
        Αποστολή σε FTP Server.
        Εισαγωγή IFRAME.
        Δημιουργία DIV layout.
        Άμεση εμφάνιση Css.


        Φωτογραφίες ..




        Source Code:: Form1
        Κώδικας:
        //form1

        Public Class Form1

            Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

                WebBrowser1.DocumentText = "<style>" + RichTextBox2.Text + "</style>" + RichTextBox1.Text
                ToolStripStatusLabel1.Text = RichTextBox1.TextLength + RichTextBox2.TextLength
             
            End Sub

            Private Sub RichTextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox2.TextChanged
                WebBrowser1.DocumentText = "<style>" + RichTextBox2.Text + "</style>" + RichTextBox1.Text
                ToolStripStatusLabel1.Text = RichTextBox1.TextLength + RichTextBox2.TextLength


            End Sub

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

            Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
                RichTextBox1.SelectedText = "<b>" + RichTextBox1.SelectedText + "</b>"
            End Sub

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

            Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
                RichTextBox1.SelectedText = "<strike>" + RichTextBox1.SelectedText + "</strike>"
            End Sub

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

            Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
                RichTextBox2.SelectedText = "font-weight: bold;"
            End Sub

            Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
                RichTextBox2.SelectedText = "font-style: italic;"
            End Sub

            Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click
                RichTextBox2.SelectedText = "text-decoration: line-through;"
            End Sub

            Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton8.Click
                RichTextBox2.SelectedText = "text-decoration: underline;"
            End Sub

            Private Sub ToolStripStatusLabel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripStatusLabel2.Click
                showcode.Show()
                showcode.TextBox1.Text = WebBrowser1.DocumentText
            End Sub

            Private Sub ToolStripButton9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton9.Click
                pictureimport.ShowDialog()
            End Sub

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

            Private Sub HTMLAndCssDiferentToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HTMLAndCssDiferentToolStripMenuItem.Click
                SaveFileDialog1.Filter = "HTML + CSS(TwoFiles) (*.html)|*.html|All files (*.*)|*.*"
                SaveFileDialog1.FilterIndex = 1
                SaveFileDialog1.RestoreDirectory = True
                SaveFileDialog1.ShowDialog()
                Dim writeline1 As String
                Dim writeline2 As String
                Dim filedest As String
                filedest = SaveFileDialog1.FileName
                Dim file As System.IO.StreamWriter
                Dim file2 As System.IO.StreamWriter
                Dim filedest2 As String
                filedest2 = SaveFileDialog1.FileName + ".css"
                Dim htmlfilename As String
                htmlfilename = System.IO.Path.GetFileName(SaveFileDialog1.FileName) + ".css"
                writeline1 = "<link rel=""" + "stylesheet""" + "type=""" + "text/css""" + " href=""" + htmlfilename + """ >" + RichTextBox1.Text
                writeline2 = RichTextBox2.Text
                Try
                    file2 = My.Computer.FileSystem.OpenTextFileWriter(filedest2, True)
                    file = My.Computer.FileSystem.OpenTextFileWriter(filedest, True)
                    file.WriteLine(writeline1)
                    file2.WriteLine(writeline2)
                    file.Close()
                    file2.Close()
                Catch
                    MsgBox("Oops! Something went wrong!.", MsgBoxStyle.Information)
                Finally
                    MsgBox("Save done!", MsgBoxStyle.OkOnly)
                End Try
            End Sub

            Private Sub BothInOneHTMLToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BothInOneHTMLToolStripMenuItem.Click

                SaveFileDialog1.Filter = "HyperText Markup Language(*.html)|*.html|All files (*.*)|*.*"
                SaveFileDialog1.FilterIndex = 1
                SaveFileDialog1.RestoreDirectory = True
                SaveFileDialog1.ShowDialog()
                Dim writeline1 As String
                writeline1 = "<style>" + RichTextBox2.Text + "</style>" + RichTextBox1.Text
                Dim filedest As String
                filedest = SaveFileDialog1.FileName
                Dim file As System.IO.StreamWriter


                Try
                    file = My.Computer.FileSystem.OpenTextFileWriter(filedest, True)
                    file.WriteLine(writeline1)
                    file.Close()
                Catch
                    MsgBox("Oops! Something went wrong!.", MsgBoxStyle.Information)
                Finally
                    MsgBox("Save done!", MsgBoxStyle.OkOnly)
                End Try
            End Sub

            Private Sub OnlyTheHTMLToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OnlyTheHTMLToolStripMenuItem.Click

                SaveFileDialog1.Filter = "HyperText Markup Language (*.html)|*.html|All files (*.*)|*.*"
                SaveFileDialog1.FilterIndex = 1
                SaveFileDialog1.RestoreDirectory = True
                SaveFileDialog1.ShowDialog()
                Dim writeline1 As String
                writeline1 = RichTextBox1.Text
                Dim file As System.IO.StreamWriter
                Dim filedest As String
                filedest = SaveFileDialog1.FileName
                Try
                    file = My.Computer.FileSystem.OpenTextFileWriter(filedest, True)
                    file.WriteLine(writeline1)
                    file.Close()
                Catch
                    MsgBox("Oops! Something went wrong!.", MsgBoxStyle.Information)
                Finally
                    MsgBox("Save done!", MsgBoxStyle.OkOnly)
                End Try
            End Sub

            Private Sub OnlyTheCSSToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OnlyTheCSSToolStripMenuItem.Click

                SaveFileDialog1.Filter = "Cascading Style Sheets (*.css)|*.css|All files (*.*)|*.*"
                SaveFileDialog1.FilterIndex = 1
                SaveFileDialog1.RestoreDirectory = True
                SaveFileDialog1.ShowDialog()
                Dim writeline1 As String
                writeline1 = RichTextBox2.Text
                Dim file As System.IO.StreamWriter
                Dim filedest As String
                filedest = SaveFileDialog1.FileName
                Try
                    file = My.Computer.FileSystem.OpenTextFileWriter(filedest, True)
                    file.WriteLine(writeline1)
                    file.Close()
                Catch
                    MsgBox("Oops! Something went wrong!.", MsgBoxStyle.Information)
                Finally
                    MsgBox("Save done!", MsgBoxStyle.OkOnly)
                End Try
            End Sub

            Private Sub ToolStripButton10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton10.Click
                fontfamilycss.ShowDialog()
            End Sub

            Private Sub ToolStripButton11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton11.Click
                fontfamilycss.ShowDialog()
            End Sub

            Private Sub Command1_Click()
                ToolStripTextBox1.Text = WebBrowser1.Document.Body.InnerText
           
            End Sub


            Private Sub ToolStripButton12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton12.Click

            End Sub

            Private Sub GoBellowOneLineToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoBellowOneLineToolStripMenuItem.Click
                RichTextBox1.SelectedText = "<br>"
            End Sub

            Private Sub GoBellowTwoLinesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoBellowTwoLinesToolStripMenuItem.Click
                RichTextBox1.SelectedText = "<br><br>"
            End Sub

            Private Sub ToolStripButton13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton13.Click
                iframeform.Show()
            End Sub

            Private Sub ToolStripButton14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton14.Click
                divmaker.Show()
            End Sub

            Private Sub ToolStripButton15_Click(sender As Object, e As EventArgs) Handles ToolStripButton15.Click
                divmaker.Show()
            End Sub

            Private Sub ToolStripLabel1_Click(sender As Object, e As EventArgs) Handles ToolStripLabel1.Click
                divmaker.Show()
            End Sub

            Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
         

            End Sub

            Private Sub ToolStripTextBox1_Click(sender As Object, e As EventArgs) Handles ToolStripTextBox1.Click

            End Sub





            Private Sub ToolStripButton16_Click(sender As Object, e As EventArgs) Handles ToolStripButton16.Click
         
                Dim findtext As String
                findtext = ToolStripTextBox1.Text
                Dim colortext As String
                Dim colortextreset As String
                colortext = "<font color=""green"" >" + findtext + "</font>"
                colortextreset = findtext
                Try
                    If WebBrowser1.DocumentText.Contains(findtext) Then

                        RichTextBox1.Rtf = RichTextBox1.Rtf.Replace(findtext, colortext)
                        Threading.Thread.Sleep(2000)
                        RichTextBox1.Rtf = RichTextBox1.Rtf.Replace(findtext, findtext)
                        MessageBox.Show("""" + findtext + """" + " found.")
                    End If
                Catch
                    MsgBox("Word not found!.", MsgBoxStyle.Information)
                Finally
                    MsgBox("Done.", MsgBoxStyle.Information)

                End Try
            End Sub

            Private Sub ToolStripButton17_Click(sender As Object, e As EventArgs) Handles ToolStripButton17.Click
                keyboard.Show()
            End Sub

            Private Sub UploadToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UploadToolStripMenuItem.Click
                ftpupload.Show()
            End Sub

            Private Sub TabPage4_Click(sender As Object, e As EventArgs) Handles TabPage4.Click

            End Sub

            Private Sub RichTextBox3_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox3.TextChanged

            End Sub

            Private Sub ToolStripButton18_Click(sender As Object, e As EventArgs) Handles ToolStripButton18.Click

            End Sub

            Private Sub ToolStripButton19_Click(sender As Object, e As EventArgs) Handles ToolStripButton19.Click
                linkform.ShowDialog()
            End Sub




        Import Picture form
        Κώδικας:
        Public Class pictureimport

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

            End Sub

            Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
                Dim href As String
                MsgBox("Importing...", MsgBoxStyle.Information)
                Try
                    PictureBox1.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData(TextBox3.Text)))
                    TextBox1.Text = PictureBox1.Image.Width
                    TextBox2.Text = PictureBox1.Image.Height
                    TextBox5.Text = TextBox3.Text
                Catch
                    MsgBox("Oops! Wrong URL!.", MsgBoxStyle.Information)
                Finally
                    MsgBox("Done.", MsgBoxStyle.Information)
                End Try
                If RadioButton3.Checked = True Then
                    TextBox5.Enabled = True
                    href = " href=""" + TextBox5.Text + """"
                ElseIf RadioButton4.Checked = True Then
                    TextBox5.Enabled = False
                    href = Nothing
                End If
            End Sub

            Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
                Dim border As String
                Dim href As String
                If RadioButton2.Checked = True Then
                    border = "border=""" + TextBox4.Text + """"
                ElseIf RadioButton1.Checked = True Then
                    border = Nothing
                End If

                If RadioButton3.Checked = True Then
                    TextBox5.Enabled = True
                    href = " href=""" + TextBox5.Text + """"
                ElseIf RadioButton4.Checked = True Then
                    TextBox5.Enabled = False
                    href = Nothing
                End If
                If RadioButton4.Checked = True Then


                    Form1.RichTextBox1.SelectedText = "<img src=""" + TextBox3.Text + """ height=""" + TextBox2.Text + """ width=""" + TextBox1.Text + """ " + border + " >"
                    Me.Close()
                ElseIf RadioButton3.Checked = True Then
                    Form1.RichTextBox1.SelectedText = "<a " + href + " >" + "<img src=""" + TextBox3.Text + """ height=""" + TextBox2.Text + """ width=""" + TextBox1.Text + """ " + border + " ></a>"
                    Me.Close()
                End If
            End Sub

            Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
                If RadioButton2.Checked Then
                    TextBox4.Enabled = True
                ElseIf RadioButton1.Checked = True Then
                    TextBox4.Enabled = False
                End If

            End Sub

            Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
                If RadioButton2.Checked Then
                    TextBox4.Enabled = True
                ElseIf RadioButton1.Checked = True Then
                    TextBox4.Enabled = False
                End If

            End Sub

            Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

            End Sub

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

            End Sub


            Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

            End Sub

            Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
                Dim href As String
                If RadioButton3.Checked = True Then
                    TextBox5.Enabled = True
                    href = " href=""" + TextBox5.Text + """"
                ElseIf RadioButton4.Checked = True Then
                    TextBox5.Enabled = False
                    href = Nothing
                End If

                WebBrowser1.Visible = True
                Dim border As String
                If RadioButton2.Checked Then
                    border = "border=""" + TextBox4.Text + """"
                ElseIf RadioButton1.Checked = True Then
                    border = Nothing
                End If
                WebBrowser1.DocumentText = "<img src=""" + TextBox3.Text + """ height=""" + TextBox2.Text + """ width=""" + TextBox1.Text + """ " + border + " >"

            End Sub

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

            End Sub

            Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
                If RadioButton3.Checked = True Then
                    TextBox5.Enabled = True

                ElseIf RadioButton4.Checked = True Then
                    TextBox5.Enabled = False

                End If
            End Sub

            Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
                If RadioButton3.Checked = True Then
                    TextBox5.Enabled = True

                ElseIf RadioButton4.Checked = True Then
                    TextBox5.Enabled = False

                End If
            End Sub
        End Class



        Text Decoration Form
        Κώδικας:
        Public Class fontfamilycss

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

            Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

            End Sub

            Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
                Dim font_family As String
                Dim font_color As String
                Dim font_size As String
                Dim italic As String
                Dim underline As String
                Dim strikethrough As String

                If CheckBox3.Checked = True Then
                    strikethrough = "text-decoration:line-through;"
                ElseIf CheckBox3.Checked = False Then
                    strikethrough = String.Empty
                End If


                If CheckBox2.Checked = True Then
                    underline = "text-decoration:underline;"
                ElseIf CheckBox2.Checked = False Then
                    underline = String.Empty
                End If



                If CheckBox1.Checked = True Then
                    italic = "font-style:italic;"
                ElseIf CheckBox1.Checked = False Then
                    italic = String.Empty
                End If


                If TextBox1.Text = "#000000" Then
                    font_color = String.Empty
                ElseIf TextBox1.TextLength = 7 Then
                    font_color = "color:" + TextBox1.Text + ";"
                Else
                    MsgBox("Please check again your color should have # and 6 numbers", MsgBoxStyle.Critical)
                End If


                font_size = "font-size:" + TextBox2.Text + "px;"

                Select Case ComboBox1.SelectedIndex
                    Case 0
                        font_family = "font-family:""" + "Aria""," + " Helvetica, sans-serif;"
                    Case 1
                        font_family = "font-family:""" + "Arial Black""," + " Gadget, sans-serif;"
                    Case 2
                        font_family = "font-family:""" + "Comic Sans MS""," + " cursive, sans-serif;"
                    Case 3
                        font_family = "font-family:""" + "Impact""," + " Charcoal, sans-serif;"
                    Case 4
                        font_family = "font-family:""" + "Lucida Sans Unicode""," + " sans-serif;"
                    Case 5
                        font_family = "font-family:""" + "Tahoma""," + " Geneva, sans-serif;"
                    Case 6
                        font_family = "font-family:""" + "Trebuchet MS""," + " Helvetica, sans-serif;"
                    Case 7
                        font_family = "font-family:""" + "Verdana""," + " Geneva, sans-serif;"
                    Case 8
                        font_family = "font-family:""" + "Courier New""," + " Courier, monospace;"
                    Case 9
                        font_family = "font-family:""" + "Lucida Console""," + " Monaco, monospace;"
                    Case 10
                        font_family = "font-family:""" + "Georgia""," + " serif;"
                    Case 11
                        font_family = "font-family:""" + "Palatino Linotype""," + " Palatino, serif;"
                    Case 12
                        font_family = "font-family:""" + "Times New Roman""," + " Times, serif;"
                End Select
                WebBrowser1.DocumentText = "<style>" + "p {" + font_family + vbNewLine + font_size + vbNewLine + font_color + vbNewLine + italic + vbNewLine + strikethrough + vbNewLine + underline + "}" + "</style><p>" + TextBox3.Text + "</p>"
            End Sub

            Private Sub fontfamilycss_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
                WebBrowser1.DocumentText = "<p>" + TextBox3.Text + "</p>"
            End Sub

         
            Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
                Dim font_family As String
                Dim font_color As String
                Dim font_size As String
                Dim italic As String
                Dim underline As String
                Dim strikethrough As String
                Dim href As String

                Select Case ComboBox1.SelectedIndex
                    Case 0
                        font_family = "font-family:""" + "Aria""," + " Helvetica, sans-serif;"
                    Case 1
                        font_family = "font-family:""" + "Arial Black""," + " Gadget, sans-serif;"
                    Case 2
                        font_family = "font-family:""" + "Comic Sans MS""," + " cursive, sans-serif;"
                    Case 3
                        font_family = "font-family:""" + "Impact""," + " Charcoal, sans-serif;"
                    Case 4
                        font_family = "font-family:""" + "Lucida Sans Unicode""," + " sans-serif;"
                    Case 5
                        font_family = "font-family:""" + "Tahoma""," + " Geneva, sans-serif;"
                    Case 6
                        font_family = "font-family:""" + "Trebuchet MS""," + " Helvetica, sans-serif;"
                    Case 7
                        font_family = "font-family:""" + "Verdana""," + " Geneva, sans-serif;"
                    Case 8
                        font_family = "font-family:""" + "Courier New""," + " Courier, monospace;"
                    Case 9
                        font_family = "font-family:""" + "Lucida Console""," + " Monaco, monospace;"
                    Case 10
                        font_family = "font-family:""" + "Georgia""," + " serif;"
                    Case 11
                        font_family = "font-family:""" + "Palatino Linotype""," + " Palatino, serif;"
                    Case 12
                        font_family = "font-family:""" + "Times New Roman""," + " Times, serif;"
                End Select
                If TextBox1.Text = "#000000" Then
                    font_color = String.Empty
                ElseIf TextBox1.TextLength = 7 Then
                    font_color = "color:" + TextBox1.Text + ";"
                Else
                    MsgBox("Please check again your color should have # and 6 numbers", MsgBoxStyle.Critical)
                End If
                If CheckBox1.Checked = True Then
                    italic = "font-style:italic;"
                ElseIf CheckBox1.Checked = False Then
                    italic = String.Empty
                End If

                If CheckBox3.Checked = True Then
                    strikethrough = "text-decoration:line-through;"
                ElseIf CheckBox3.Checked = False Then
                    strikethrough = String.Empty
                End If


                If CheckBox2.Checked = True Then
                    underline = "text-decoration:underline;"
                ElseIf CheckBox2.Checked = False Then
                    underline = String.Empty
                End If


                If TextBox5.Text = String.Empty Then
                    href = String.Empty
                Else
                    href = "<a href=""" + TextBox5.Text + """ >"
                End If

                font_size = "font-size:" + TextBox2.Text + "px;"

                If href = String.Empty Then
                    Form1.RichTextBox1.SelectedText = "<span class=""" + TextBox4.Text + """>" + TextBox3.Text + "</span>"
                    Form1.RichTextBox2.SelectedText = vbNewLine + "span." + TextBox4.Text + " { " + vbNewLine + font_family + vbNewLine + font_size + vbNewLine + font_color + vbNewLine + italic + vbNewLine + strikethrough + vbNewLine + underline + vbNewLine + "}"
                Else
                    Form1.RichTextBox1.SelectedText = href + "<span class=""" + TextBox4.Text + """>" + TextBox3.Text + "</span>" + "</a>"
                    Form1.RichTextBox2.SelectedText = vbNewLine + "span." + TextBox4.Text + " { " + vbNewLine + font_family + vbNewLine + font_size + vbNewLine + font_color + vbNewLine + italic + vbNewLine + strikethrough + vbNewLine + underline + vbNewLine + "}"
                End If
                Me.Close()
            End Sub
        End Class




        FTP Upload form
        Κώδικας:
        Imports System.IO
        Imports System.Net
        Imports System.Text
        Public Class ftpupload

            Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
             
                Dim username As String = TextBox1.Text
                Dim password As String = TextBox2.Text
                Dim localFile As String = Form1.SaveFileDialog1.FileName
                Dim remoteFile As String = "ftp://" + username + "@" + TextBox3.Text + "/" + TextBox4.Text + System.IO.Path.GetFileName(OpenFileDialog1.FileName)
                Dim sourceStream As New StreamReader(localFile)
                Dim fileContents As Byte() = Encoding.UTF8.GetBytes(sourceStream.ReadToEnd())
                sourceStream.Close()

                'Get the object used to communicate with the server.
                Dim Request As System.Net.FtpWebRequest = FtpWebRequest.Create(remoteFile)

                ' Setting Properties
                Request.Credentials = New NetworkCredential(username, password)
                Request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
                Request.Proxy = Nothing
                Request.KeepAlive = False


                ' Uploading file
                Request.GetRequestStream.Write(fileContents, 0, fileContents.Length)
                MsgBox("File Uploaded Successfully !!!")
            End Sub


            Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
                OpenFileDialog1.ShowDialog()
                Button2.Text = System.IO.Path.GetFileName(OpenFileDialog1.FileName)
            End Sub

            Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
                OpenFileDialog2.ShowDialog()
                Button3.Text = System.IO.Path.GetFileName(OpenFileDialog2.FileName)
            End Sub

            Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
                OpenFileDialog3.ShowDialog()
                Button4.Text = System.IO.Path.GetFileName(OpenFileDialog3.FileName)
            End Sub

            Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
                OpenFileDialog4.ShowDialog()
                Button5.Text = System.IO.Path.GetFileName(OpenFileDialog4.FileName)
            End Sub

            Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

                Dim username As String = TextBox1.Text
                Dim password As String = TextBox2.Text
                Dim localFile As String = Form1.SaveFileDialog1.FileName
                Dim remoteFile As String = "ftp://" + username + "@" + TextBox3.Text + "/" + TextBox4.Text + System.IO.Path.GetFileName(OpenFileDialog2.FileName)
                Dim sourceStream As New StreamReader(localFile)
                Dim fileContents As Byte() = Encoding.UTF8.GetBytes(sourceStream.ReadToEnd())
                sourceStream.Close()

                'Get the object used to communicate with the server.
                Dim Request As System.Net.FtpWebRequest = FtpWebRequest.Create(remoteFile)

                ' Setting Properties
                Request.Credentials = New NetworkCredential(username, password)
                Request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
                Request.Proxy = Nothing
                Request.KeepAlive = False


                ' Uploading file
                Request.GetRequestStream.Write(fileContents, 0, fileContents.Length)
                MsgBox("File Uploaded Successfully !!!")
            End Sub

            Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click

                Dim username As String = TextBox1.Text
                Dim password As String = TextBox2.Text
                Dim localFile As String = Form1.SaveFileDialog1.FileName
                Dim remoteFile As String = "ftp://" + username + "@" + TextBox3.Text + "/" + TextBox4.Text + System.IO.Path.GetFileName(OpenFileDialog3.FileName)
                Dim sourceStream As New StreamReader(localFile)
                Dim fileContents As Byte() = Encoding.UTF8.GetBytes(sourceStream.ReadToEnd())
                sourceStream.Close()

                'Get the object used to communicate with the server.
                Dim Request As System.Net.FtpWebRequest = FtpWebRequest.Create(remoteFile)

                ' Setting Properties
                Request.Credentials = New NetworkCredential(username, password)
                Request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
                Request.Proxy = Nothing
                Request.KeepAlive = False


                ' Uploading file
                Request.GetRequestStream.Write(fileContents, 0, fileContents.Length)
                MsgBox("File Uploaded Successfully !!!")
            End Sub

            Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click

                Dim username As String = TextBox1.Text
                Dim password As String = TextBox2.Text
                Dim localFile As String = Form1.SaveFileDialog1.FileName
                Dim remoteFile As String = "ftp://" + username + "@" + TextBox3.Text + "/" + TextBox4.Text + System.IO.Path.GetFileName(OpenFileDialog4.FileName)
                Dim sourceStream As New StreamReader(localFile)
                Dim fileContents As Byte() = Encoding.UTF8.GetBytes(sourceStream.ReadToEnd())
                sourceStream.Close()

                'Get the object used to communicate with the server.
                Dim Request As System.Net.FtpWebRequest = FtpWebRequest.Create(remoteFile)

                ' Setting Properties
                Request.Credentials = New NetworkCredential(username, password)
                Request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
                Request.Proxy = Nothing
                Request.KeepAlive = False


                ' Uploading file
                Request.GetRequestStream.Write(fileContents, 0, fileContents.Length)
                MsgBox("File Uploaded Successfully !!!")
            End Sub
        End Class




        DIV MAKER 
        Κώδικας:
        Public Class divmaker

            Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
                If CheckBox2.Checked = True Then
                    GroupBox2.Visible = True
                ElseIf CheckBox2.Checked = False Then
                    GroupBox2.Visible = False
                End If
            End Sub

            Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
                If CheckBox1.Checked = True Then
                    GroupBox1.Visible = True
                ElseIf CheckBox1.Checked = False Then
                    GroupBox1.Visible = False
                End If
            End Sub

            Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
                If CheckBox3.Checked = True Then
                    GroupBox3.Visible = True
                ElseIf CheckBox3.Checked = False Then
                    GroupBox3.Visible = False
                End If
            End Sub

            Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
                If CheckBox5.Checked = True Then
                    GroupBox4.Visible = True
                ElseIf CheckBox5.Checked = False Then
                    GroupBox4.Visible = False
                End If
            End Sub

            Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
                If CheckBox4.Checked = True Then
                    GroupBox5.Visible = True
                ElseIf CheckBox4.Checked = False Then
                    GroupBox5.Visible = False
                End If
            End Sub

            Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
                Dim topdiv As String
                Dim topdivcss As String
                Dim leftdiv As String
                Dim leftdivcss As String
                Dim rightdiv As String
                Dim rightdivcss As String
                Dim center As String
                Dim centercss As String
                Dim footerdiv As String
                Dim footerdivcss As String
                Dim extrahtml1 As String
                extrahtml1 = topextra.Text

                If CheckBox1.Checked = True Then
                    topdiv = "<div id=""" + TextBox1.Text + """ >" + vbNewLine + vbNewLine + extrahtml1 + vbNewLine + vbNewLine + "</div>"
                    topdivcss = vbNewLine + "#" + TextBox1.Text + " {" + vbNewLine + "width:" + topdivwith.Text + ";" + vbNewLine + "height:" + topdivheight.Text + ";" + vbNewLine + "border:" + topdivborders.Text + " solid " + topbordercolor.Text + ";" + vbNewLine + "background-color:" + topdivtextc.Text + ";" + vbNewLine + "color:" + topdivtextct.Text + ";" + vbNewLine + "}" + vbNewLine
                ElseIf CheckBox1.Checked = False Then
                    topdiv = String.Empty
                    topdivcss = String.Empty
                End If

                If CheckBox2.Checked = True Then
                    leftdiv = "<div id=""" + TextBox2.Text + """ >" + vbNewLine + vbNewLine + leftextra.Text + vbNewLine + vbNewLine + "</div>"
                    leftdivcss = vbNewLine + "#" + TextBox2.Text + " {" + vbNewLine + "float:left;" + vbNewLine + "width:" + leftdivwidth.Text + ";" + vbNewLine + "height:" + leftdivheight.Text + ";" + vbNewLine + "border:" + leftdivborder.Text + " solid " + leftbordercolor.Text + ";" + vbNewLine + "background-color:" + leftdivbgcolor.Text + ";" + vbNewLine + "color:" + leftdivtextcolor.Text + ";" + vbNewLine + "}" + vbNewLine
                ElseIf CheckBox2.Checked = False Then
                    leftdiv = String.Empty
                    leftdivcss = String.Empty
                End If

                If CheckBox3.Checked = True Then
                    rightdiv = "<div id=""" + TextBox3.Text + """ >" + vbNewLine + vbNewLine + rightdivextrahtml.Text + vbNewLine + vbNewLine + "</div>"
                    rightdivcss = vbNewLine + "#" + TextBox3.Text + " {" + vbNewLine + "float:right;" + vbNewLine + "width:" + rightdivwidth.Text + ";" + vbNewLine + "height:" + rightdivheight.Text + ";" + vbNewLine + "border:" + rightdivborder.Text + " solid " + rightbordercolor.Text + ";" + vbNewLine + "background-color:" + rightdivbgc.Text + ";" + vbNewLine + "color:" + rightdivtextcolor.Text + ";" + vbNewLine + "}" + vbNewLine
                ElseIf CheckBox2.Checked = False Then
                    rightdiv = String.Empty
                    rightdivcss = String.Empty
                End If

                If CheckBox5.Checked = True Then
                    center = "<div id=""" + TextBox4.Text + """ >" + vbNewLine + vbNewLine + cetnerdivexta.Text + vbNewLine + vbNewLine + "</div>"
                    centercss = vbNewLine + "#" + TextBox4.Text + " {" + vbNewLine + "float:left;" + vbNewLine + "width:" + centerdivwidth.Text + ";" + vbNewLine + "height:" + centerdivheight.Text + ";" + vbNewLine + "border:" + centerdivborder.Text + " solid " + centerbordercolor.Text + ";" + vbNewLine + "background-color:" + centerdivbgcolor.Text + ";" + vbNewLine + "color:" + centerdivtextcolor.Text + ";" + vbNewLine + "margin:0px auto;" + vbNewLine + "}" + vbNewLine
                ElseIf CheckBox5.Checked = False Then
                    center = String.Empty
                    centercss = String.Empty
                End If


                If CheckBox4.Checked = True Then
                    footerdiv = "<div id=""" + TextBox5.Text + """ >" + vbNewLine + vbNewLine + footerextrahtml.Text + vbNewLine + vbNewLine + "</div>"
                    footerdivcss = vbNewLine + "#" + TextBox5.Text + " {" + vbNewLine + "float:left;" + vbNewLine + "width:" + footerwidth.Text + ";" + vbNewLine + "height:" + footerheight.Text + ";" + vbNewLine + "border:" + footerborder.Text + " solid " + footerbordercolor.Text + ";" + vbNewLine + "background-color:" + footerbgcolor.Text + ";" + vbNewLine + "color:" + footertxtcolor.Text + ";" + vbNewLine + "}" + vbNewLine
                ElseIf CheckBox4.Checked = False Then
                    footerdiv = String.Empty
                    footerdivcss = String.Empty
                End If

                Dim containercss As String
                containercss = vbNewLine + "#container {" + vbNewLine + "width:100%;" + vbNewLine + "}"

                Form1.WebBrowser1.DocumentText = "<style>" + topdivcss + leftdivcss + rightdivcss + centercss + footerdivcss + "</style>" + topdiv + leftdiv + rightdiv + center + footerdiv
                Form1.RichTextBox1.Text = "<style>" + topdivcss + leftdivcss + rightdivcss + centercss + footerdivcss + "</style>" + "<div id=""container"" >" + topdiv + leftdiv + rightdiv + center + footerdiv + "</div>"
         


            End Sub
        End Class





        iFrame Form
        Κώδικας:
        Public Class iframeform

            Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
                Dim url As String
                Dim width As String
                Dim height As String

                If TextBox2.Text = String.Empty Then
                    width = String.Empty
                Else
                    width = "width=""" + TextBox2.Text + """ "
                End If

                If TextBox3.Text = String.Empty Then
                    height = String.Empty
                Else
                    height = "height=""" + TextBox3.Text + """ "
                End If

                url = "src=""" + TextBox1.Text + """ "


                Form1.RichTextBox1.SelectedText = vbNewLine + "<iframe " + url + width + height + ">" + "</iframe>"
                Me.Close()
            End Sub

            Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
                Dim url As String
                Dim width As String
                Dim height As String

                If TextBox2.Text = String.Empty Then
                    width = String.Empty
                Else
                    width = "width=""" + TextBox2.Text + """ "
                End If

                If TextBox3.Text = String.Empty Then
                    height = String.Empty
                Else
                    height = "height=""" + TextBox3.Text + """ "
                End If

                url = "src=""" + TextBox1.Text + """ "


                WebBrowser1.DocumentText = "<iframe " + url + width + height + ">" + "</iframe>"
            End Sub
        End Class




         :Κατεβάστε τώρα  :Κρυφό Περιεχόμ 

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

        Σχόλια

        Κανένα σχόλιο.


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

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


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

        Url
        BBcode
        HTML " />

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