vb.net 2008

Question

Bonjour
Voila j'ai fais en amateur du visual basic 6  et maintenant je tâte du vb.net
Et il y a des choses que je ne sais plus faire
Voila le code sans prétention  
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i = 1 To 20

            For x = i To 100000000 : Next
            TextBox1.Text = i
            TextBox1.Refresh()

            ProgressBar1.Value = i
            Label1.Text = ProgressBar1.Value * 10
            Label1.Refresh()
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End

    End Sub

   
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Button1_Click()

    End Sub


Alors pourquoi je ne parvins plus a lancer la sub button1_click au chargement
En vusual basic 6 ça fonctionnait

cs_casy · Answer

essaye peut-etre avec ceci :

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Button1_Click(Button1, New System.EventArgs)

    End Sub

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

PCPT · Answer

salut,
j'pourrai pas t'aider mais...
For x = i To 100000000 : Next

OUTCH!! au secours...

for x=1 to 5000
  application.doevents
next x

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

nhervagault · Answer

Salut

C'est pas très propre comme solution casy 

Je propose une solution alternative, qui n'est pas tres compliqué ;-)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    MaProcedure()   

End Sub

private Sub MaProcedure()
     For i = 1 To 20


            For x = i To 100000000 : Next


            TextBox1.Text = i


            TextBox1.Refresh()


            ProgressBar1.Value = i


            Label1.Text = ProgressBar1.Value * 10


            Label1.Refresh()


        Next
end

   

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        MaProcedure()

    End Sub

HermesCB · Answer

HermesCB
Salut Sevyc64  (alias Casy) 
ça marche
tu pourrais peu-etre m'expliquer
merci

HermesCB · Answer

HermesCB

Salut et merci à tous
mon probleme c'etait d'attaquer la sub au démarrage

merci de vos conseils

HermesCB · Answer

HermesCB

via un button

cs_casy · Answer

L'explication est très simple, tu appele une procédure qui attend des paramètres, il faut donc lui passer ces paramètres à l'appel.

Comme c'est une procédure d'évènement, ces paramètres sont habituellement passés par le système. Mais comme là, c'est toi qui appele la procédure, c'est à toi du lui passer les bons paramètres.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

HermesCB · Answer

HermesCB

bonjour et merci à tous

Vb.net 2008

8 réponses

Votre réponse

Discussions similaires