clud7 Δημοσ. 31 Μαΐου 2009 Δημοσ. 31 Μαΐου 2009 Είμαι νέος στην VB και ένα πρόβλημα που αντιμετωπίζω είναι το ότι ενώ δημιουργώ την φόρμα μου με την χρίση Microsoft Visual Basic 2008 Express Edition on Vista Ultimate SP1 x64bit ΧΩΡΙΣ ΚΑΝΕΝΑ ΣΦΑΛΜΑ Ή ERROR όταν πάω κ δίνω το πρόγραμμα μου σε άλλο H/Y που έχει κ αυτό Vista x86 (32bit) or Vista x64 όλα είναι τέλεια το πρόγραμμα δεν έχει κανένα απολύτως πρόβλημα... όταν όμως το δίνω σε pc με ΧP τότε ΔΕΝ ΠΑΙΖΕΙ... Δεν βγάζει κάποιο γνωστό σφάλμα απλά λέει η εφαρμογή σταμάτησε να τρέχει... ο κώδικας είναι ο παρακάτω: >Public Class Font Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click PictureBox1.Image = My.Resources.vfm WebBrowser1.Navigate("http://live24.gr/radio/vfm889.jsp") 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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click PictureBox1.Image = My.Resources.dromos WebBrowser1.Navigate("http://live24.gr/radio/dromos.jsp") End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click MsgBox("goodbye user :D") Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click PictureBox1.Image = My.Resources.kiss WebBrowser1.Navigate("http://live24.gr/radio/kissfm.jsp") End Sub Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged End Sub Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click ShellExecute(0, "open", "http://crazyfrog.yoo7.com", vbNullString, vbNullString, 1) End Sub Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click PictureBox1.Image = My.Resources.sfera WebBrowser1.Navigate("http://live24.gr/radio/sfera.jsp") End Sub Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click WebBrowser1.Navigate("http://www.google.gr") MsgBox("You have select Mute") End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click PictureBox1.Image = My.Resources.orange WebBrowser1.Navigate("http://live24.gr/radio/orange.jsp") End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click PictureBox1.Image = My.Resources.rythmos WebBrowser1.Navigate("http://live24.gr/radio/generic.jsp?sid=1321") End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click PictureBox1.Image = My.Resources.parea WebBrowser1.Navigate("http://live24.gr/radio/generic.jsp?sid=1413") End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click PictureBox1.Image = My.Resources.love WebBrowser1.Navigate("http://live24.gr/radio/loveradio.jsp") End Sub Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click PictureBox1.Image = My.Resources.john WebBrowser1.Navigate("http://live24.gr/radio/johngreek.jsp") End Sub Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click PictureBox1.Image = My.Resources.DJ WebBrowser1.Navigate("http://live24.gr/radio/generic.jsp?sid=1322") End Sub Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click PictureBox1.Image = My.Resources.Mad WebBrowser1.Navigate("http://live24.gr/radio/generic.jsp?sid=1353") End Sub Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click PictureBox1.Image = My.Resources.nitro WebBrowser1.Navigate("http://live24.gr/radio/nitro.jsp") End Sub Private Sub TextBox1_TextChanged_1(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 Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label2.Text = CStr((TimeOfDay)) End Sub End Class κ η εφαρμογή είναι αυτή εδώ: Download κάθε άποψη - γνώμη ευπρόσδεκτη! Ευχαριστώ
ΠάρηςΓ Δημοσ. 31 Μαΐου 2009 Δημοσ. 31 Μαΐου 2009 Πιστευα πως τα ειχαν καταργήσει τα ΑΠΙ με το ρημαδοφρειμγορκ. Μηπως λειπει κανενα framework απο τον υπολογιστη των XP;
clud7 Δημοσ. 31 Μαΐου 2009 Μέλος Δημοσ. 31 Μαΐου 2009 δοκίμασα να το τρέξω σε xp sp2 τπτ κ μετά το έτρεξα σε XP SP3 με όλα τα updates k Framework 3. Άλλες φορές απλά δεν τρέχει κ άλλες φορές μετά από λίγο αφότου έχεις εκτελέσει την εφαρμογή βγάζει ότι παρουσιάστηκε σφάλμα κατά την εκτέλεση της εφαρμογής...
lion2486 Δημοσ. 31 Μαΐου 2009 Δημοσ. 31 Μαΐου 2009 εγώ το έτρεξα σε vista Ultimate SP1 χωρίς framework 3.5
ΠάρηςΓ Δημοσ. 31 Μαΐου 2009 Δημοσ. 31 Μαΐου 2009 Ισως κατι λειπει...δεν μπορω να βρω αλλη εξηγηση.. Θα το τρεχω στα χπ στο αλλο πσι κ θα σου πω
clud7 Δημοσ. 31 Μαΐου 2009 Μέλος Δημοσ. 31 Μαΐου 2009 Ισως κατι λειπει...δεν μπορω να βρω αλλη εξηγηση.. Θα το τρεχω στα χπ στο αλλο πσι κ θα σου πω thanks έχω ξενερώσει πάρα πολύ με το συγκεκριμένο θέμα γιατί δεν γίνετε να παίζει άψογα στα vista ενώ στα XP να μην τρέχει καν...
ΠάρηςΓ Δημοσ. 31 Μαΐου 2009 Δημοσ. 31 Μαΐου 2009 σε ποσα μηχανηματα το δοκιμασες; Μηπως ειναι καμια τσατσια της m$? ---------- Το μήνυμα προστέθηκε στις 20:04 ---------- Λοιπον πατριώτη το δοκιμασα και γιοκ πεταγε μουτζα. Το μονο που μπορεις να κανεις ειναι η πατροπαράδοτη λύση που πάντα εντοπίζει το λαθος. 1)Κάνεις copy το project 2)Αρχίζεις και σβήνεις κωδικα εως οτου τρεξει στα XP
clud7 Δημοσ. 31 Μαΐου 2009 Μέλος Δημοσ. 31 Μαΐου 2009 σε ποσα μηχανηματα το δοκιμασες;Μηπως ειναι καμια τσατσια της m$? ---------- Το μήνυμα προστέθηκε στις 20:04 ---------- Λοιπον πατριώτη το δοκιμασα και γιοκ πεταγε μουτζα. Το μονο που μπορεις να κανεις ειναι η πατροπαράδοτη λύση που πάντα εντοπίζει το λαθος. 1)Κάνεις copy το project 2)Αρχίζεις και σβήνεις κωδικα εως οτου τρεξει στα XP έκανα ένα απλό project με την VB 2008 κ μέσα έβαλα την επιλογή Framework v2 γιατί σου έχει επιλογή για framework v2, v3, v3.5 όταν λοιπόν έτρεξα το project σε Framework v2 όλα ήταν ΟΚ έπαιζε κανονικότατα σε ΧP!!! πάω μετά να κάνω κ το δικό μου πρόγραμμα σε Framework v2 άπο Framework v3.5 k μου πετάει τα εξής σφάλματα: >Warning 1 Could not resolve assembly System.Xml.Linq. The target framework required by this assembly (3.5) is higher than the project target framework. If this reference is required by your code, you may get compilation errors. WindowsApplication2 Warning 2 Could not resolve assembly System.Data.DataSetExtensions. The target framework required by this assembly (3.5) is higher than the project target framework. If this reference is required by your code, you may get compilation errors. WindowsApplication2 Warning 3 The referenced component 'System.Xml.Linq' could not be found. Warning 4 The referenced component 'System.Data.DataSetExtensions' could not be found. Warning 5 Namespace or type specified in the project-level Imports 'System.Xml.Linq' doesn't contain any public member or cannot be found. Make sure the namespace or the type is defined and contains at least one public member. Make sure the imported element name doesn't use any aliases. WindowsApplication2 καμιά ηδέα?
ΠάρηςΓ Δημοσ. 31 Μαΐου 2009 Δημοσ. 31 Μαΐου 2009 Ρε πατριώτη δε σου ειπα να κανεις αυτο.... Δοκιμασε αυτο που σου προτεινω να βρεις το προβληματικο κοματι
Evgenios1 Δημοσ. 1 Ιουνίου 2009 Δημοσ. 1 Ιουνίου 2009 Aλλαξε ονομα στη κλαση Font (τη main φορμ λεω) εχεις προβλημα εδω. > this.Button9.Font = new Font("Microsoft Sans Serif", 8.25f, FontStyle.Bold, GraphicsUnit.Point, 0xa1); Βγαλε αυτο "Assembly Reference System.Xml.Linq" Κατα τα αλλα οκ. (τρεχει σε vista home) Αυτο δε μου δουλευει > private void Label1_Click(object sender, EventArgs e) { string lpOperation = "open"; string lpFile = "http://crazyfrog.yoo7.com"; string lpParameters = null; string lpDirectory = null; ShellExecute(0L, ref lpOperation, ref lpFile, ref lpParameters, ref lpDirectory, 1L); } ΥΓ: το my namespace τι ειναι?
clud7 Δημοσ. 1 Ιουνίου 2009 Μέλος Δημοσ. 1 Ιουνίου 2009 Aλλαξε ονομα στη κλαση Font (τη main φορμ λεω) εχεις προβλημα εδω. > this.Button9.Font = new Font("Microsoft Sans Serif", 8.25f, FontStyle.Bold, GraphicsUnit.Point, 0xa1); Βγαλε αυτο "Assembly Reference System.Xml.Linq" Κατα τα αλλα οκ. (τρεχει σε vista home) Αυτο δε μου δουλευει > private void Label1_Click(object sender, EventArgs e) { string lpOperation = "open"; string lpFile = "http://crazyfrog.yoo7.com"; string lpParameters = null; string lpDirectory = null; ShellExecute(0L, ref lpOperation, ref lpFile, ref lpParameters, ref lpDirectory, 1L); } ΥΓ: το my namespace τι ειναι? αυτό το κομμάτι το βρήκα έτοιμο στο ίντερνετ γιατί ήθελα να ανοίγει με το που το πατήσεις τον Default Web Browser. αν έχεις Firefox ως Default λειτουργεί αλλά αν δεν έχεις άλλο εκτός από τον ΙΕ δεν κάνει τπτ... Καμιά ηδέα για να ανοίγει τον WebBrowser με πίο απλή εντολή? έκανα κ την αλλαγή στην ονομασία και όλα οκ. Σχετικά με το πρόγραμμα το πρόβλημα ήταν σε αυτό το Update http://www.microsoft.com/downloads/details.aspx?FamilyId=333325FD-AE52-4E35-B531-508D977D32A6&displaylang=en το έκανα σε ένα PC με XP και όλα τέλεια Σας ευχαριστώ πάρα πολύ!
Προτεινόμενες αναρτήσεις
Αρχειοθετημένο
Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.