Skocz do zawartości

Jak dodać takie przyciski?


xBodziu

Rekomendowane odpowiedzi

Zarejestruj się za darmo i naucz się zarabiać online!

  • Dostęp do darmowych poradników pokazujących krok po kroku jak zarabiać w Internecie
  • Sposoby zarabiania niepublikowane nigdzie indziej
  • Aktywna społeczność, która pomoże Ci rozwiązać problemy i doradzi
  • Profesjonalne treści na temat SEO, social media, afiliacji, kryptowalut, sztucznej inteligencji i wiele więcej!

 

 
If RadioButton1.Checked = True Then  //startujesz progressbarEnd If
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
      
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("Money Have Been Added", "Success!")
    End Sub
End Class

 

 

i gdzie wkleić ten kod twój?
Odnośnik do komentarza
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        If RadioButton1.Checked = True Then  //startujesz progressbarEnd If    End Sub
Chyba, że chcesz startować po zaznaczeniu, wtedy dodajesz zdarzenie _Click do RadioButton1.

 

ok jeden error mi wyskakuje co mam zrobić? http://scr.hu/0ugb/g0vrn

Odnośnik do komentarza

Rozpocząłeś klasę(słowo Class), ale jej nie zamknąłeś. Na końcu pliku dopisz EndClass.

 

 Takie błędy wpisuj w google to Ci wyskoczy co i jak ;)

 

http://msdn.microsoft.com/en-us/library/vstudio/f2h1w15d.aspx  ;)

okej napisałem ale teraz jak nacisne button to nic się nie dzieje a wcześniej przynajmniej okienko wyskakiwało...

Odnośnik do komentarza

Tam gdzie ci napisałem

Musisz dodać swój własny kod, który ma coś zrobić. Nie zapomnij zaznaczyć RadioButtona, bo taki warunek jest postawiony, żeby kod się wykonał.

 

Public Class Form1

 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
      
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RadioButton1.Checked = True Then
            MessageBox.Show("Money Have Been Added", "Success!")
        End If
    End Sub
End Class

mam taki kod i nie startuje progressbar...

Odnośnik do komentarza

bo nie dodałeś kodu odnoszącego się do progressbaru

Public Class Form1    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click        If RadioButton1.Checked = True Then            MessageBox.Show("Money Have Been Added", "Success!")            ProgressBar1.Value = ProgressBar1.Minimum            Timer1.Start()        End If    End Sub    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(3)        If ProgressBar1.Value = ProgressBar1.Maximum Then            Timer1.Stop()            Dim rnd As New Random            For i As Integer = 0 To 15                If i = 4 Or i = 8 Or i = 12 Then                    TextBox1.Text &= "-"                End If                TextBox1.Text &= rnd.Next(0, 9)            Next            MessageBox.Show("Good job!", "Success!")        End If    End SubEnd Class

W tym przypadku jak klikniesz w przycisk to wyskoczy Ci messagebox, a potem zacznie się ładować progressbar. Gdy osiągnie 100% to wyskoczy drugi messagebox i jakiś tak kod w textboxie.

Edytowane przez magucio
  • Super 1
Odnośnik do komentarza

bo nie dodałeś kodu odnoszącego się do progressbaru

Public Class Form1    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click        If RadioButton1.Checked = True Then            MessageBox.Show("Money Have Been Added", "Success!")            ProgressBar1.Value = ProgressBar1.Minimum            Timer1.Start()        End If    End Sub    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(3)        If ProgressBar1.Value = ProgressBar1.Maximum Then            Timer1.Stop()            Dim rnd As New Random            For i As Integer = 0 To 15                If i = 4 Or i = 8 Or i = 12 Then                    TextBox1.Text &= "-"                End If                TextBox1.Text &= rnd.Next(0, 9)            Next            MessageBox.Show("Good job!", "Success!")        End If    End SubEnd Class

W tym przypadku jak klikniesz w przycisk to wyskoczy Ci messagebox, a potem zacznie się ładować progressbar. Gdy osiągnie 100% to wyskoczy drugi messagebox i jakiś tak kod w textboxie.

okej dzięki ale ostatnie pytanie jak usunąć ten generowany kod który wyskakuje mi w text boxie?

Odnośnik do komentarza

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się
×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Ta strona korzysta z ciasteczek, aby świadczyć usługi na najwyższym poziomie. Dalsze korzystanie z witryny oznacza zgodę na ich wykorzystanie. Polityka prywatności .