Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Probléme de code
Auteur Message
Répondre en citant
Message Probléme de code 
Bonjour aujourd'hui je vient demmander de l'aide parce que je suis en developpement d'un programme mais les bug sont a venir le logiciel permet de créer une page web (html) facilement mais il y a un problème.

code :

If TextBoxtxt.Text = "" Or TextBoxtxt.Text = "Default texte" Then
MsgBox("Veuillez écrire ou changer le texte")
Exit Sub
End If
If TextBoxpos1.Text = "" Or TextBoxpos2.Text = "0" Or TextBoxpos2.Text = "" Or TextBoxpos2.Text = "0" Then
MsgBox("Vous devez changer les positions")
End If
Dim file As System.IO.StreamWriter
file = My.Computer.FileSystem.OpenTextFileWriter("C:\EasyPage\Page\Page_1.html", True)
file.WriteLine("

<font color="listbox1">Textboxtxt</font>
")
file.Close()

je ne comprend pas pourquoi sa bug Merci pour vos futur réponse !





______________________________________________________
Bukkit: Bukkit
Skype
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Probléme de code 
Salut, ou est le problème ? Si tu utilises microsoft visual basic express tu dois avoir un message d'erreur ?




______________________________________________________


mon site web http://pr1c3-game.craym.eu/
aide moi a faire revivre la section vb ! (http://batch.xoo.it/f62-VB-Net.htm)

"J'ai toujours raison surtout quand j'ai tord" citation de moi même
mon niveau
batch : 40/100
vb : 60/100
Visiter le site web du posteur Skype
Répondre en citant
Message Probléme de code 
Bonjour,

tout d'abord : Pensez à [CODE] , car sinon, c'est difficile de copier coller

Voila ce que je propose, je n'ai pas plus testé (mono de base ne supporte pas le vb, il faut que je vois ça) :
Code:
[lang=vbnet] Public Shared Sub Main()
    If TextBoxtxt.Text = "" Or TextBoxtxt.Text = "Default texte" Then
        MsgBox("Veuillez écrire ou changer le texte")
        return ' Il ne faut pas oublier à quitter la fonction aprés avoir marqué le message.
    End If
    If string.IsNullOfEmpty(TextBoxpos1.Text) Or TextBoxpos2.Text = "0" Or string.IsNullOfEmpty(Text) Or TextBoxpos2.Text = "0" Then
        MsgBox("Vous devez changer les positions")
        return ' De même pour ici
    End If
    Dim file As System.IO.StreamWriter
    file = My.Computer.FileSystem.OpenTextFileWriter("C:\EasyPage\Page\Page_1.html", True)
    file.WriteLine("<font color=""listbox1"">Textboxtxt</font>") ' Le VB.NET ne supporte pas les chaines sur plusieurs lignes, pour ça, il faut voir avec \n.
    file.Close()
 End Sub


EDIT: Il y a des erreurs mais mon IDE .NET (j'ai linux donc Monodevelop) ne support pas vraiment le vb.net donc c'est compliqué corriger le bug.




______________________________________________________
Partager permet le savoir. Le savoir permet de partager de nouveau savoirs.
Répondre en citant
Message Probléme de code 
thesientific001 a écrit:
Salut, ou est le problème ? Si tu utilises microsoft visual basic express tu dois avoir un message d'erreur ?


désole pour le retard mon erreur c'est que in ne prend pas en compte les textboxtxt.Text ...




______________________________________________________
Bukkit: Bukkit
Skype
Répondre en citant
Message Probléme de code 
C'est a dire ? Le MSGbox ne s'affiche pas même si il n'a rien dans la textbox ?




______________________________________________________


mon site web http://pr1c3-game.craym.eu/
aide moi a faire revivre la section vb ! (http://batch.xoo.it/f62-VB-Net.htm)

"J'ai toujours raison surtout quand j'ai tord" citation de moi même
mon niveau
batch : 40/100
vb : 60/100
Visiter le site web du posteur Skype
Répondre en citant
Message Probléme de code 
C'est bon, j'ai trouvé le problème : un End Sub mal placé et un soucis de parenthese.

Code:
[lang=vbnet]If TextBoxtxt.Text = "" Or TextBoxtxt.Text = "Default texte" Then
    MsgBox("Veuillez écrire ou changer le texte")
End If
If TextBoxpos1.Text = "" Or TextBoxpos2.Text = "0" Or TextBoxpos2.Text = "" Or TextBoxpos2.Text = "0" Then
    MsgBox("Vous devez changer les positions")
End If
Dim fileStream = New FileStream("C:\EasyPage\Page\Page_1.html", FileMode.Append, FileAccess.Write)
Dim file As StreamWriter
file = New StreamWriter(fileStream)
file.WriteLine("\n<font color=""listbox1"">Textboxtxt</font>\n")
fileStream.Close()





______________________________________________________
Partager permet le savoir. Le savoir permet de partager de nouveau savoirs.
Message Probléme de code 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch