riadhh05
Messages postés17Date d'inscriptionjeudi 22 juin 2006StatutMembreDernière intervention16 juin 2008 10 févr. 2008 à 17:02
Re-bonjour,
Juste pour signaler que ce code et d'autres precedement déposés sur VBFrance m'ont servi pour créer mon propre logiciel d'analyse des séquences de protéines (bioinformatique), dans le cadre d'un projet de doctorat. http://scidbmaker.pfba-lab.org Si vous avez besoin d'un bou de code, d'un module, n'hésitez pas à me contacter,
Amicalement,
Riadh
riadhh05
Messages postés17Date d'inscriptionjeudi 22 juin 2006StatutMembreDernière intervention16 juin 2008 10 févr. 2008 à 16:19
Bonjour,
Je vous remercie pour votre intervention. Effectivement, c'était le bug que j'avais pas le temps pour résoudre. Merci de l'avoir fait. J'espère qu'il y en pas bcp de bug dans ce code.
Amicalement
steckdenis
Messages postés19Date d'inscriptionsamedi 2 décembre 2000StatutMembreDernière intervention27 juillet 2008 10 févr. 2008 à 14:42
Bonjour,
Le bug dans les fonctions Write et WriteLine vient du fait que vous utilisez "+=", ce qui lit la valeur avant de l'ajouter. Si le TextBox est vide, l'exception se produira. Il faut alors changer ce code par :
If Me.TextBox1.Text = String.empty Then
Me.TextBox1.Text = value
Else
Me.TextBox1.Text &= value '&= car c'est plus sûr et plus portable
End If
10 févr. 2008 à 17:02
Juste pour signaler que ce code et d'autres precedement déposés sur VBFrance m'ont servi pour créer mon propre logiciel d'analyse des séquences de protéines (bioinformatique), dans le cadre d'un projet de doctorat. http://scidbmaker.pfba-lab.org
Si vous avez besoin d'un bou de code, d'un module, n'hésitez pas à me contacter,
Amicalement,
Riadh
10 févr. 2008 à 16:19
Je vous remercie pour votre intervention. Effectivement, c'était le bug que j'avais pas le temps pour résoudre. Merci de l'avoir fait. J'espère qu'il y en pas bcp de bug dans ce code.
Amicalement
10 févr. 2008 à 14:42
Le bug dans les fonctions Write et WriteLine vient du fait que vous utilisez "+=", ce qui lit la valeur avant de l'ajouter. Si le TextBox est vide, l'exception se produira. Il faut alors changer ce code par :
If Me.TextBox1.Text = String.empty Then
Me.TextBox1.Text = value
Else
Me.TextBox1.Text &= value '&= car c'est plus sûr et plus portable
End If