Skocz do zawartości
xBodziu

Jak dodać takie przyciski?

Rekomendowane odpowiedzi

Dołącz do nas za darmo i naucz się zarabiać!

  • 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 i wiele więcej!

 

 

Słowa klucze:
HTML drop down list
HTML radio button


Fuck, to Visual Basic. Ale to niczego nie zmienia, nadal "visual basic drop down list" i "visual basic radio button" :D

Edytowane przez Szinek
  • Super 2

3ufCkrm.png

Zarobione w Internecie: 12 628 192,18 zł. MENTORUJE NA PW

AKTUALIZACJA 11/09/2015 = ZAROBIONE W INTERNECIE 15 909 132,85 zł.

Odnośnik do komentarza

 

 
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 progressbar

End If

    End Sub

Chyba, że chcesz startować po zaznaczeniu, wtedy dodajesz zdarzenie _Click do RadioButton1.
  • Super 1

3ufCkrm.png

Zarobione w Internecie: 12 628 192,18 zł. MENTORUJE NA PW

AKTUALIZACJA 11/09/2015 = ZAROBIONE W INTERNECIE 15 909 132,85 zł.

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

Tam gdzie ci napisałem

//startujesz progressbar

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ł.

3ufCkrm.png

Zarobione w Internecie: 12 628 192,18 zł. MENTORUJE NA PW

AKTUALIZACJA 11/09/2015 = ZAROBIONE W INTERNECIE 15 909 132,85 zł.

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 .