Skocz do zawartości

Jak ustawić resetowanie textboxa


Mabcin

Rekomendowane odpowiedzi

Cześć. 
Mam taki problem, że nie mam pojęcia jak zrobić kasowanie textboxa.

Chciałem by to działało na zasadzie. Wybieramy opcje z comboboxa-> wciskamy generate-> Pasek progressbar się ładuje, gdy dojdzie do końca->  wyskakuje tekst w textbox

wybranie innej opcji z comboboxa-> generate ->Pasek progressbar się ładuje, gdy dojdzie do końca -> i wyskakuje inna zawartość textboxa

 

Mam taki kod co jest źle? Zaznaczam, że specem nie jestem więc bez hate'u proszę   :)

Public Class Form1    Private Sub RedemptionButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedemptionButton1.Click        System.Diagnostics.Process.Start("http://www.youtube.com")    End Sub    Private Sub RedemptionButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedemptionButton2.Click        System.Diagnostics.Process.Start("http://www.youtube.com")    End Sub    Dim s1 As String = "Wyświetlany skrypt1" & vbCrLf & "Wyświetlany skrypt1" & vbCrLf & "Wyświetlany skrypt1" ' Opcja1    Dim s2 As String = "Wyświetlany skrypt2" ' Opcja2     Dim s3 As String = "Wyświetlany skrypt3" ' Opcja3     Dim s4 As New System.IO.StreamReader("E:\...\Skrypty.txt") ' Opcja4     Private Sub ButtonBlue1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonBlue1.Click        Timer1.Start()        If PerplexProgressBar1.Value = PerplexProgressBar1.Maximum Then            PerplexProgressBar1.Value = 0        End If    End Sub    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        PerplexProgressBar1.Value += 10        If PerplexProgressBar1.Value = PerplexProgressBar1.Maximum Then            Timer1.Stop()            RedemptionComboBox1.SelectedItem = "Opcja1"            MultiTxtBox1.Text = "" & s1 & ""            RedemptionComboBox1.SelectedItem = "Opcja2"            MultiTxtBox1.Text = "" & s2 & ""            RedemptionComboBox1.SelectedItem = "Opcja3"            MultiTxtBox1.Text = "" & s3 & ""            RedemptionComboBox1.Text = "Opcja4            MultiTxtBox1.Text = s4.ReadToEnd        End If        RedemptionLabel1.Text = PerplexProgressBar1.Value & (" % ")    End SubEnd Class

Dzisiaj miałem chwilę i sprawdziłem dokładnie co tam gra :) 
Problem był w tym, że źle wstawiłem opcje wczytywania :)

Public Class Form1    Private Sub RedemptionButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedemptionButton1.Click        System.Diagnostics.Process.Start("http://www.youtube.com")    End Sub    Private Sub RedemptionButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedemptionButton2.Click        System.Diagnostics.Process.Start("http://www.youtube.com")    End Sub    Dim s1 As String = "Wyświetlany skrypt1" & vbCrLf & "Wyświetlany skrypt1" & vbCrLf & "Wyświetlany skrypt1" ' Opcja1    Dim s2 As String = "Wyświetlany skrypt2" ' Opcja2    Dim s3 As String = "Wyświetlany skrypt3" ' Opcja3    Dim s4 As New System.IO.StreamReader("E:\Skrypty.txt") ' Opcja4    Private Sub ButtonBlue1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonBlue1.Click        Timer1.Start()        If PerplexProgressBar1.Value = PerplexProgressBar1.Maximum Then            PerplexProgressBar1.Value = 0        End If    End Sub    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        PerplexProgressBar1.Value += 10        If PerplexProgressBar1.Value = PerplexProgressBar1.Maximum Then            Timer1.Stop()            If RedemptionComboBox1.SelectedItem = "Opcja1" Then                MultiTxtBox1.Text = "" & s1 & ""            End If            If RedemptionComboBox1.SelectedItem = "Opcja2" Then                MultiTxtBox1.Text = "" & s2 & ""            End If            If RedemptionComboBox1.SelectedItem = "Opcja3" Then                MultiTxtBox1.Text = "" & s3 & ""            End If            If RedemptionComboBox1.Text = "Opcja4" Then                MultiTxtBox1.Text = s4.ReadToEnd            End If        End If        RedemptionLabel1.Text = PerplexProgressBar1.Value & (" % ")    End SubEnd Class

PS. Załamałem się jak zobaczyłem jak ja to napisałem wcześniej :)

 

Źle:

RedemptionComboBox1.SelectedItem = "Opcja1"            MultiTxtBox1.Text = "" & s1 & ""            RedemptionComboBox1.SelectedItem = "Opcja2"            MultiTxtBox1.Text = "" & s2 & ""            RedemptionComboBox1.SelectedItem = "Opcja3"            MultiTxtBox1.Text = "" & s3 & ""            RedemptionComboBox1.Text = "Opcja4            MultiTxtBox1.Text = s4.ReadToEnd

Prawidłowo:

 If RedemptionComboBox1.SelectedItem = "Opcja1" Then                MultiTxtBox1.Text = "" & s1 & ""            End If            If RedemptionComboBox1.SelectedItem = "Opcja2" Then                MultiTxtBox1.Text = "" & s2 & ""            End If            If RedemptionComboBox1.SelectedItem = "Opcja3" Then                MultiTxtBox1.Text = "" & s3 & ""            End If            If RedemptionComboBox1.Text = "Opcja4" Then                MultiTxtBox1.Text = s4.ReadToEnd            End If
Edytowane przez Mabcin
Odnośnik do komentarza

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!

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ę
  • Polecana zawartość

    • JDG - Jak zarejestrować, rozliczać i prowadzić działalność gospodarczą w Polsce
      Jednoosobowa działalność gospodarcza (JDG) to najprostsza forma prowadzenia działalności gospodarczej w Polsce. Jest to działalność prowadzona przez jedną osobę fizyczną na własne nazwisko i na własne ryzyko. Jednak mimo, że nazywa się jednoosobowa - daje jednak możliwość zatrudniania pracowników. Takich firm jest zarejestrowanych w Polsce zdecydowanie najwięcej. Sprawdź jak zarejestrować, rozliczać i prowadzić własną JDG!
        • Super
      • 3 odpowiedzi
    • Inwestowanie w obligacje detaliczne skarbu państwa - od podstaw!
      Sprawdź jak inwestować w obligacje skarbowe - krok po kroku! Detaliczne obligacje skarbowe to rodzaj obligacji emitowanych przez Państwo, które są oferowane indywidualnym inwestorom, takim jak osoby fizyczne, a nie instytucjom finansowym.

      Są to instrumenty dłużne, nienotowane na żadnym rynku, co oznacza że kupując taką obligację, w praktyce pożyczasz pieniądze państwu na określony czas, a w zamian otrzymujesz odsetki. Można więc powiedzieć że obligacje są indywidualną pożyczką na określony % dla Skarbu Państwa. Państwo odda Ci więcej niż od Ciebie pożyczyło.
        • Super
      • 5 odpowiedzi
    • Jak pozyskiwać i zarabiać na poleconych dzięki make-cash.pl
      W tym poradniku przedstawiam możliwości dostępne dla każdego użytkownika. Dowiesz się jak efektywnie wykorzystać forum do zbierania poleconych i budowania dodatkowych zysków.

      Make-cash.pl to miejsce, gdzie ludzie dzielą się swoimi doświadczeniami, poszukują porad i rekomendacji, a także nawiązują wartościowe kontakty. Codziennie odwiedza nas minimum 2000 unikalnych osób, które są zainteresowane zarabianiem przez Internet - a to ogromny potencjał, z którego może korzystać nie tylko administracja - ale każdy użytkownik forum !
        • Super
      • 2 odpowiedzi
    • Jak pisać treści na stronę internetową z wykorzystaniem AI
      Tworzenie treści od podstaw może być procesem czasochłonnym. Istnieje wiele mniejszych kroków, o których należy pomyśleć w drodze do stworzenia atrakcyjnych treści, takich jak badanie rynku, SEO i redagowanie tekstu, a to tylko początek. Jednak nie musisz zaczynać od zera, gdy istnieją narzędzia AI, które mogą pomóc w tworzeniu wysokiej jakości treści. 
        • Dzięki!
        • Super
      • 13 odpowiedzi
    • 9 rzeczy, które możesz zrobić w SEMRush, by zwiększyć ruch swojej strony
      Istnieje kilka sposobów, by wykorzystać SEMRush, aby zwiększyć swój ruch na stronie WWW i wspomóc swoją pracę w zakresie SEO i content marketingu.
        • Super
      • 3 odpowiedzi
×
×
  • 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 .