[mike22]

thanasis, on 07 February 2010 - 11:51 AM, said:

Ναι το 3.5..επίσης μου βγάζει αυτό εδώ πέρα .. :blink:


http://img229.imageshack.us/img229/9961/45670251.png

Πατάς Install και δεν γινεται εγκατάσταση?
Εάν έχεις εγκατεστημένη την Visual Basic 2010 να σου στείλω κατευθείαν το project...
Έχεις Εγκατεστημένο τον Internet Explorer?

[thanasis]

Ναι πατάω και μου λέει ότι το πρόγραμμα δεν αποκρίνεται...Ναι τον εχω στο pc τον ΙΕ...Το Visual Basic 2010 τι είναι δεν το γνωρίζω..?

This post has been edited by thanasis: 07 February 2010 - 01:00 PM

[mike22]

thanasis, on 07 February 2010 - 11:59 AM, said:

Το Visual Basic 2010 τι είναι δεν το γνωρίζω..?

H Visual Basic 2010 (ή Visual Studio) είναι ένα πρόγραμμα που σου επιτρέπει να φτιάχνεις προγράμματα με την γλώσσα Visual Basic (είναι δωρεάν από την Microsoft)

[thanasis]

Δυστυχώς δεν έχω την γνώση προγραμματισμού..Αλλα μου έκανε εντύπωση αυτό που μου έβγαλε..Άρα προφανώς δεν μπορώ να το κάνω install..

[mike22]

Δεν ξερω τι ειναι ? :blink: :blink: :blink:
Θα το ψαξω...

[computeras]

Ευχαριστώ για την απάντηση. Μήπως υπάρχει πρόβλημα λόγω του ότι το visual studio 2010 είναι beta ακόμα και μπορεί γι' αυτό να εμφανίζει μερικές ασυμβατότητες;

[BHacker]

Φίλε μπορείς να μου στείλεις το Project με τον κώδικα έτσι ώστε να πάρω και εγώ ο καημένος μια ιδέα από τι θα πει πραγματικός προγραμματισμός, καθώς στο σχολείο μας έχουν τρελάνει στις βλακίες(αριθμομηχανή και άλλες χίλιες δυο βλακ...)

[computeras]

@BHacker

Πιστεύω είναι καλύτερα πρώτα να ασχοληθείς με κάποια βασικά πράγματα και να μην πέσεις κατευθείαν στα βαθιά όπως για παράδειγμα διαχείριση ψηφιακών πιστοποιητικών και γενικώς τις λειτουργίες που πρέπει να υποστηρίζει ένας browser. Αν θες κάτι πιο tricky θα βρεις αρκετά tutorials στο internet για να μάθεις να γράφεις. Αν ξέρεις για αρχή να κάνεις σε vb (φαντάζομαι) μια αριθμομηχανή, προχώρα λίγο πιο πέρα και μάθε να παίζεις λίγο με λίστες, μενού, κάποια βασικά πράγματα σε βάσεις κτλ. ;)

[mike22]

Παρακατω σας δινω ενα πολυ μικρο κομματι απο τον κωδικα του προγραμματος:

Private Sub frmMain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Browser.Dispose()

    End Sub


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

        If loadFavoritesonload Then
            Dim c As Integer = My.Settings.Bookmarks_Menu.Count
            Dim x As Integer
            For x = 0 To c - 1
                tsBtnBookmarks.DropDownItems.Add(My.Settings.Bookmarks_Menu.Item(x))
            Next
        End If

    End Sub


    Private Sub txtURL_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtURL.KeyDown

        If e.KeyData = Keys.Enter Then
            tb_navigate.PerformClick()
            e.SuppressKeyPress = True
        End If

    End Sub


    Private Sub tsMnuAddFavorites_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsMnuAddBookmarks.Click

        My.Settings.Bookmarks_Menu.Add(Browser.Url.AbsoluteUri)
        tsBtnBookmarks.DropDownItems.Add(Browser.Url.AbsoluteUri)

    End Sub


    Private Sub tsBtnFavorites_DropDownItemClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles tsBtnBookmarks.DropDownItemClicked

        Dim clicked As ToolStripItem = e.ClickedItem
        Dim i As String = e.ClickedItem.Name
        If Not i = "tsMnuAddBookmarks" And Not i = "tsMnuRemove" And Not i = "tsMnuOpenNew" _
            And Not i = "tsMnuManualAdd" And Not i = "tsMnuManualLoad" Then
            Browser.Navigate(e.ClickedItem.Text, inNewWindow)
        End If

    End Sub


    Private Sub tsMnuRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsMnuRemove.Click

        frmFavorites.Show(Me)

    End Sub


    Private Sub tsMnuAutoLoadFavorites_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsMnuAutoLoadBookmarks.Click

        My.Settings.Bookmarks_AutoLoad = tsMnuAutoLoadBookmarks.Checked

    End Sub


    Private Sub tsMnuOpenNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsMnuOpenNew.Click

        My.Settings.Bookmarks_NewWindow = tsMnuOpenNew.Checked

    End Sub


    Private Sub tsMnuManualAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsMnuManualAdd.Click

        Dim fav As String = InputBox("What is the URL of the Website to add?", "  Add URL", _
            "http://www.")

        If Not fav = Nothing Then
            My.Settings.Bookmarks_Menu.Add(fav)
            tsBtnBookmarks.DropDownItems.Add(fav)
        End If

    End Sub

This post has been edited by mike22: 13 February 2010 - 09:37 AM

[goose1992]

φιλε μου αν μπροεις στειλε μου το project...:)