Προς το περιεχόμενο

my compile on vista for vista work fine but on vista for xp NO


clud7

Προτεινόμενες αναρτήσεις

Δημοσ.

Είμαι νέος στην 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

 

κάθε άποψη - γνώμη ευπρόσδεκτη! Ευχαριστώ

Δημοσ.

δοκίμασα να το τρέξω σε xp sp2 τπτ κ μετά το έτρεξα σε XP SP3 με όλα τα updates k Framework 3. Άλλες φορές απλά δεν τρέχει κ άλλες φορές μετά από λίγο αφότου έχεις εκτελέσει την εφαρμογή βγάζει ότι παρουσιάστηκε σφάλμα κατά την εκτέλεση της εφαρμογής...

Δημοσ.
Ισως κατι λειπει...δεν μπορω να βρω αλλη εξηγηση..

Θα το τρεχω στα χπ στο αλλο πσι κ θα σου πω

 

thanks έχω ξενερώσει πάρα πολύ με το συγκεκριμένο θέμα γιατί δεν γίνετε να παίζει άψογα στα vista ενώ στα XP να μην τρέχει καν... :mad:

Δημοσ.

σε ποσα μηχανηματα το δοκιμασες;

Μηπως ειναι καμια τσατσια της m$?

 

---------- Το μήνυμα προστέθηκε στις 20:04 ----------

 

Λοιπον πατριώτη το δοκιμασα και γιοκ πεταγε μουτζα.

Το μονο που μπορεις να κανεις ειναι η πατροπαράδοτη λύση που πάντα εντοπίζει το λαθος.

 

1)Κάνεις copy το project

2)Αρχίζεις και σβήνεις κωδικα εως οτου τρεξει στα XP

Δημοσ.
σε ποσα μηχανηματα το δοκιμασες;

Μηπως ειναι καμια τσατσια της m$?

 

---------- Το μήνυμα προστέθηκε στις 20:04 ----------

 

Λοιπον πατριώτη το δοκιμασα και γιοκ πεταγε μουτζα.

Το μονο που μπορεις να κανεις ειναι η πατροπαράδοτη λύση που πάντα εντοπίζει το λαθος.

 

1)Κάνεις copy το project

2)Αρχίζεις και σβήνεις κωδικα εως οτου τρεξει στα XP

 

έκανα ένα απλό project με την VB 2008 κ μέσα έβαλα την επιλογή Framework v2 γιατί σου έχει επιλογή για framework v2, v3, v3.5 όταν λοιπόν έτρεξα το project σε Framework v2 όλα ήταν ΟΚ :shock: έπαιζε κανονικότατα σε Χ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


καμιά ηδέα? :mad:

Δημοσ.

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 τι ειναι?

Δημοσ.
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 και όλα τέλεια :-D

 

 

Σας ευχαριστώ πάρα πολύ! :-D

Αρχειοθετημένο

Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.

  • Δημιουργία νέου...