Znajdź zawartość
Wyświetlanie wyników dla tagów 'textbox' .
Znaleziono 13 wyników
-
Jak zrobić aby button, progressbar działał dopiero po wpisaniu cyfr w polu textbox. Najlepiej jakby jakaś wiadomość informowała o tym że trzeba wypełnić pola. Sam kombinowałem z kodem i doszedlem jedynie do tego, że bez wpisu w textbox po kliknieciu na button wywalało błąd w aplikacji, a z tekstem było OK. Pomoże ktoś?
-
Akcja w RichTextBoxie po kliknięciu Buttona - How to?
EdinsonCavani opublikował(a) temat w Visual Basic
Witam, jestem laikiem w programowaniu w Visual Basic i proszę was o pomoc Chciałbym napisać kod, w którym po kliknięciu w button w richtextboxie wyświetlają się kolejno podane przeze mnie teksty W tym celu nie mogę użyć progressbaru, nie wiem jak się za to zabrać. Ktoś ma jakiś pomysł? -
[Jak to zrobić] Po kliknięciu w textbox wyskakuje info
Maximilion opublikował(a) temat w Visual Basic
Hej, chciałbym zrobić taki trick, po kliknięciu na textbox wyskakuje mi info/form 2. Ktoś to umie ? -
Witam, jak ustawić Visual Basic, aby po przejściu progressbara i wyskoczeniu okienka, że gra została zhakowana nie podświetlało textboxa jak na screenie?
-
Siemka. Chcę zrobić tak aby po kliknięciu w Button odpalał się ProgressBar a w raz z jego postępem zmieniał się napis w TextBoxie. Np. Do 10% - Loading 11%-20% - h@ack Loaded 21%-40% - cośtam cośtam itd. Ktoś zna kod na to?
-
Ma ktoś może pomysł jak zrobic taki program:
-
Witam, pracuję własnie nad swoim generatorem do postów, który znacznie przyspieszy mi pracę, jednak mam pewien problem, mianowicie potrzebuję kod, który w TextBox6 wyświetli mi tekst z TextBoxa5 z podmienionymi pewnymi wyrazami w tekście na te znajdujące sie w TextBoxach 1, 2, 3 i 4. Kod miałby działać na zasadzie: textbox3.text = textbox1.text.replace("Słowo które chcę zamienić", textbox2.text) Jednak potrzebuje formułę która obsłuży większą ilość słów do zmiany i TextBoxów z wprowadzonymi słowami do zmiany. Jakieś pomysły?
-
Cześć wszystkim. Siedzę i myślę jak to rozwiązać może ktoś z Was wpadnie na pomysł. Jak dodać odpowiednie wyniki z textboxa do odpowiednich linijek w istniejącym już pliku .txt Wizualizując wygląda to tak Mam np. textbox1 z wynikiem 6 i chciałbym tą 6 dodać do pierwszej linijki w pliku .txt Mój kod wygląda następująco: Public Class Form1 Private x As Long 'kalkulator i tworzenie zapisu cen i wag Private Sub FlatButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton2.Click Dim a, b, c, d, g, f As Object Dim dzien As String = My.Computer.FileSystem.FileExists("D:\kalkulator\" + DateTimePicker1.Text + ".txt") a = FlatTextBox1.Text b = FlatTextBox2.Text c = FlatTextBox3.Text d = FlatTextBox4.Text g = ILabel4.Text f = ILabel6.Text ILabel6.Text = Val(a * ILabel8.Text = Val(c * d) ILabel9.Text = CSng(ILabel6.Text) + CSng(ILabel8.Text) If dzien = False Then My.Computer.FileSystem.WriteAllText("D:\kalkulator\" + DateTimePicker1.Text + ".txt", FlatButton1.Text + "=" + FlatTextBox2.Text, False) ' Tworzy plik o nazwie (data dnia) jeśli go nie ma Else TUTAJ BRAKUJE kodu który by sumował i nadpisywał wyniki. End If End Sub 'wczytywanie pliku z cenami Private Sub FlatButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton6.Click Dim fd As OpenFileDialog = New OpenFileDialog() Dim strFileName As String fd.Title = "Wybierz plik txt" fd.InitialDirectory = ""D:\kalkulator\" fd.Filter = "All files (*.*)|*.*|All files (*.*)|*.*" fd.FilterIndex = 2 fd.RestoreDirectory = True If fd.ShowDialog() = DialogResult.OK Then strFileName = fd.FileName End If Dim lines = IO.File.ReadAllLines(fd.FileName, System.Text.Encoding.UTF8) ' fd.FileName to wybrany plik TXT 'pobieranie poszczególnych wartośćci z wybranych wierszy Dim pierwsza = lines(0).Split("="c)(1) Dim druga = lines(1).Split("="c)(1) FlatTextBox1.Text = pierwsza FlatTextBox3.Text = druga End SubEnd Class W miejscu gdzie jest " TUTAJ BRAKUJE kodu który by sumował i nadpisywał wyniki." Wymyśliłem takie coś: Dim fd As OpenFileDialog = New OpenFileDialog() Dim strFileName As String fd.Title = "Wybierz plik txt" fd.InitialDirectory = "D:\kalkulator\" fd.Filter = "All files (*.*)|*.*|All files (*.*)|*.*" fd.FilterIndex = 2 fd.RestoreDirectory = True If fd.ShowDialog() = DialogResult.OK Then strFileName = fd.FileName End If Dim lines = IO.File.ReadAllLines(fd.FileName, System.Text.Encoding.UTF8) ' fd.FileName to wybrany plik TXT Dim zapisane1, kg As Single zapisane1 = lines(0).Split("="c)(1) kg = CSng(FlatTextBox2.Text) ILabel3.Text = CSng(zapisane1) + CSng(kg) My.Computer.FileSystem.WriteAllText("D:\kalkulator\" + DateTimePicker1.Text + ".txt", FlatButton1.Text + "=" + CSng(zapisane1) + CSng(kg), False) Ale niestety wywala błąd "Konwersja z ciągu "Ilość=" na typ 'Double' nie jest prawidłowa." Ma ktoś jakiś może inny pomysł jak to rozwiązać?
-
siema, mam mały problem, robie włąsnie programik w VB który ułatwi mi nieco pracę, otórz potrzebuję zrobić tak, że po wpisaniu tekstu do textboxa1 i kliknięciu buttona tekst wpisany w textboxie1 wyświetlał się w textboxie2 wraz z tekstem wpisanym wcześniej w kod programu, na razie doszedłem do czegoś takiego: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox2.Text = TextBox1.Text jednak ten kod wyświetla mi w textboxie2 tylko tekst wpisany w textboxie1, teraz tylko potrzebuje pomocy, co dopisać aby dodawało inny ustalony w programie tekst przepraszam jeżeli napisałem troche niezrozumiale
-
Pytanie TextBox i zwiększanie jego wartości przy pomocy przycisku
Yoshimitsu opublikował(a) temat w Visual Basic
Jak stworzyć takie coś: wstawiam textbox i obok niego przycisk "+" który zwiększa liczbę zawartą w textboxie o 100. -
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
-
Cześć. Mam w programie zastosowany theme który można znaleźć pod tym http://pastebin.com/DEV3WiFy Jest tylko jeden mały problem ponieważ gdy robię textbox nie pojawia się trójkącik u góry w którym można wybrać multiline, (ale ok z tym poradziłem sobie gdyż pomimo nie ma trójkącika jest po prawej stronie opcja multiline i wystarczy zmienić ją na true.) Ale niestety jeśli jest dużo tekstu scroll się nie pojawia i tekst przesunąć w dół da się jedynie zaznaczając i przesuwając w dół. Ma ktoś pomysł jak dodać scroll do takiego okienka?? albo wyciąć z innego theme multitextbox ze scrollem (posiadam taki) i dodać do wcześniejszego theme?? Theme który posiada scroll http://pastebin.com/v3zb2BW2
-
Witam. Pytanie skierowane do osób dobrze znających Visual Basic. To ma być mój taki mały program do generowania tekstów. Generalnie chodzi o to. Jak zrobić by program generował teksty które posiadam po kliknięciu przycisku generate. Ma to mniej więcej wyglądać tak wybieramy Text1 lub Text2 (zależy którą opcję ludzie będą potrzebowali) Następnie w combobox Opcje1, Opcje2 lub inną. i np jak wybiorą Opcję1 będa mieli w textbox "aaaaaa" "bbbbb" a jeśli wybiorą Opcję2 to textbox wyświetli "ccccc" "dddddd" Niżej zdjęcie by zrozumieć jak to wygląda Mam nadzieję że w miarę jasno wytłumaczyłem.
