Znajdź zawartość
Wyświetlanie wyników dla tagów 'clear' .
Znaleziono 1 wynik
-
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
