Visual Basic Forum

Verfasst am: 23.04.2012, 18:32 Aufrufe: 67

Text & " " & My.Settings.Benutzer.ToString & " " & DateTime.Now.ToString pfad = Application.StartupPath dateiname = TextBox1.Text & TextBox2.Text & TextBox3.Text & TextBox4.Text & TextBox5.Text & ".ter" datei = "/text/" & dateiname & "/" open = pfad & datei Try ...

Verfasst am: 15.02.2012, 19:29 Aufrufe: 148

Ich will, dass mein Programm etwas macht, wenn ein bestimmter Wochentag ist. Z.B. : If Montag Then TextBox1.Text = "Es ist Montag." Kennt jemand den Code dafür? Gruß, Georg

Verfasst am: 30.01.2012, 12:47 Aufrufe: 213

So gehts nicht: RichTextBox1.Text = "=" & TextBox1.Text & TextBox2.Text & "" er schreibt dann logischer weise das als text mit dazu

Verfasst am: 30.01.2012, 11:25 Aufrufe: 213

oh den hidden text hab ich übersehen thx für den hinweis dass dein Dim url As String =TextBox1.Text & TextBox2.Text kann gar nicht funktionieren du benötigst ein paar anführungszeichen Dim url As String url = "=" & TextBox1.Text & TextBox2.Text & ""

Verfasst am: 29.01.2012, 15:58 Aufrufe: 213

Funktioniert leider genausowenig.... Dim url As String /url] Er sagt der "/" erwartet einen Bezeichner !

Verfasst am: 28.01.2012, 22:44 Aufrufe: 213

Hi, versuch doch mal folgendes: =TextBox1.Text & TextBox2.Text Das "&" verkettet die Texte der Boxen 1 & 2 zu einem zusammenhängenden String (url) Gruss

Verfasst am: 28.01.2012, 14:05 Aufrufe: 213

Hey... ich habe 2 Textboxen, in der einen Steht der Link und in der 2. der Text ! Wenn ich jetzt auf den Button Klicke soll er mir den Hyperlink in die untere Box schreiben. Diesen Code habe ich gerade dafür: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim url As String ]TextBox2.Text End Sub Aber er sagt mir das die ...

Verfasst am: 25.01.2012, 10:30 Aufrufe: 358

aber wenn ich jetzt nen Ordner mit datein asuwähle bleibt er nicht stehen wenn es keine Ordner sondern nur Datein in deem ordner gibt und es steht auch unten kein "öffnen" sodass er den pfad in die Listbox oder das Textfeld schreibt ! Sry bin icht Anfänger .. so sieht mein Code aus: Public Class Form1 Private Property cFile As String Private Sub TextBox1_TextChanged(ByVal sender As Sys ...

Verfasst am: 06.01.2012, 04:55 Aufrufe: 2691

Die einfachste Möglichkeit ist es die Startseite in einem Textdokument zu speichern. Die idee mit der Txt find ich gut aber ich Selber würdes eher so Machen weil man dann nichts extra abspeichern muss Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TextBox1.Text = "deine Startseite" If TextBox1.Text = "Deine Startseite ...

Verfasst am: 02.11.2011, 22:19 Aufrufe: 1520

Hier der Code: Dim mailtext As String mailtext = TextBox1.Text & " " & TextBox2.Text Dim Client As New Net.Mail.SmtpClient("smtp.web.de") Client.Credentials = New Net.NetworkCredential("DEINE EMAIL ADRESSE", "DEIN EMAIL PASSWORT") Client.Send("DEINE EMAIL ADRESSE", "DEINE EMAIL ADRESSE", ...

Verfasst am: 31.10.2011, 18:04 Aufrufe: 140

Hallo ich wollte mal fragen, weil ich das nicht selbst hinbekomme ob mir jemand einen sogenannten Umrechner schreiben kann. Er sollte so funktionieren: Button1: -100% = Wenn in der TextBox1 der Text "410" steht, soll in der Label1 der Text "10,00€" stehen. Bis dahin hab ich es geschaft allerdings will ich es auch zwischen drin haben: von 1 - 410... Button2: -100% = Wenn in der TextBox2 d ...

Verfasst am: 31.10.2011, 17:57 Aufrufe: 215

Hallo ich wollte mal fragen, weil ich das nicht selbst hinbekomme ob mir jemand einen sogenannten Umrechner schreiben kann. Er sollte so funktionieren: Button1: -100% = Wenn in der TextBox1 der Text "410" steht, soll in der Label1 der Text "10,00€" stehen. Bis dahin hab ich es geschaft allerdings will ich es auch zwischen drin haben: von 1 - 410... Button2: -100% = Wenn in der TextBox2 d ...

Verfasst am: 02.10.2011, 19:55 Aufrufe: 220

Also was ihr braucht: -2 Textboxen -1 Button Ihr platziert sie beliebig geht doppelclick auf den Button und gebt ein: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(TextBox2.Text, TextBox1.Text) End Sub End Class

Verfasst am: 18.08.2011, 02:40 Aufrufe: 279

Hallo BaSh, Das die TextBox1 automatisch den Focus erhält, liegt an der Eigenschaft "TabIndex". Wenn eine Anwendung startet, wird automatisch der Focus auf das Element mit dem kleinsten TabIndex gesetzt. Du kannst zb. dem "Command1" einen TabIndex von "0" geben und somit erhält der Button den Focus beim Start. Die TextBox1 wird dann nicht mehr automatisch aktiviert und löscht som ...

Verfasst am: 22.07.2011, 20:12 Aufrufe: 549

@Christopher: Ja,ich konnte was mit anfangen,hab mich aber mal in der Zeit die ich hatte damit auseinander gesetzt und schon einen übersichtlichen Code gemacht. Hier nochmal damit du siehst das dass eig. nicht so mein Codestil ist: ------------------------------------------------------------------------------------------------------------------------------------------------------ If TextBox1.Text = Nothing ...

Verfasst am: 22.07.2011, 19:54 Aufrufe: 549

du musst die einen ordentlichen code stiel angewöhnen!!!!! if abfrage dann hier ein einzug!!! end if so kann man das lesen und wenns wie bei dir ist if was weis ich if noch eine abfrage code end if end if aber zu deiner frage... If TextBox1.Text = Nothing Then 'hier prüfst du ob textbox1 leer ist 'wenn das nicht der fall ist (also wenn ein verein drin steht da ...

Verfasst am: 22.07.2011, 14:51 Aufrufe: 549

Verfasst am: 20.07.2011, 17:09 Aufrufe: 774

Object, ByVal e As System.EventArgs) Handles Button1.Click Test.Workbooks.OpenXML("Der Pfad der datei....") Test.Cells(1, 2) = TextBox1.Text Test.Workbooks.Close() End Sub End Class Jedoch kommt bei mir nun folgender Fehler: Der Typ "Microsoft.Office.Interop.Excel.Application" ist nicht definiert. Meine Fragen sind jetzt: 1. An was liegt es, dass der ...

Verfasst am: 10.06.2011, 19:41 Aufrufe: 427

Verfasst am: 30.05.2011, 09:56 Aufrufe: 447

Nun um es kurz zuu halten, ich habe einen Timer, drei Textboxn und einen Webbrowser.. Wenn der Timer tickt (alle Stunde) soll z.B. der erste Link aus Textbox1 im WB geladen werden.. dieser soll dann mit der absoluteURi verglichen werden (zwecks ob der Server auf eine andere Seite weiterleitet) Wenn das fertig ist mit dem Link aus Textbox2 das gleiche.. Allerdings ist das Problem, dass wenn der Timer tickt das P ...

Verfasst am: 23.05.2011, 07:33 Aufrufe: 907

hi 1. frage ist mal kein problem Form1.TextBox1.Text = "Kleiner Text" & """" 'also 4 x " => Kleiner Text" 2. frage wird schon aufwendiger das nennt sich "syntax highlighting" und das als anfänger selbst machen ... Keine chance aber um dir nicht gleich den ganzen tag zu verderben... diese arbeit haben sich schon andere gemacht Smile

wob ...

Verfasst am: 22.05.2011, 16:53 Aufrufe: 907

Verfasst am: 09.05.2011, 10:32 Aufrufe: 485

Kann mir vielleicht jemand weiter helfen? Hier der Code: Private Sub CommandButton3_Click() 'Datensätze ändern Dim lng As Long Dim i As Integer On Error Resume Next lng = UserForm3.ListBox1.Column(5) Sheets("Tabelle").Activate With UserForm3 'schreibt Daten aus Textbox in Tabelle Cells(lng + 3, 1).Value = .TextBox1.Value Cells(lng + 3, 2).Value = .TextBox25.Value Cells(lng ...

Verfasst am: 23.03.2011, 15:11 Aufrufe: 322

Wollte grad für mich einen MsgBox Creator machen. Wo ich dann doppelclick auf den Button klicke und diesen code eingebe: MsgBox (Textbox1.text, Textbox2.text) funktioniert noch alles. Wenn ich das Programm dann Ausführe und eine MsgBox machen will kommt diese Meldung: Ungültige Konvertierung von der Zeichenfolge Blablabla in Typ Integer. Blablabla war der Text und die Überschrift die ich eingegeben hatte ...

Verfasst am: 19.03.2011, 14:27 Aufrufe: 447

... geht das? Das ich mit einem Bild oder nem Panel die Form verschieben kann? 4. Very Happy

Durchhalten Smile

Wie kann ich Im fertigem Programm die Sachen verschiebbar machen? Also ich weiss so einigermaßen wie man mit einem Buttonklick einen Neuen Button erstellen kann! Wie kann ich die Sachen nun verschiebbar im Programm machen? Größe der Buttons ist ja einfach. Textbox+Button Button: Button1.size = Textbox1 ...

Verfasst am: 17.03.2011, 13:34 Aufrufe: 864

FileStream( _ "DeineDatei.txt", IO.FileMode.Open, _ IO.FileAccess.Read) Dim w As IO.StreamReader = New IO.StreamReader(fs) ' Nun können wir Zeilen einlesen und auch gleich deinen textboxen zuweisen Textbox1.text = w.ReadLine 'Liest die erste Zeile in der Datei und weist den Text der Textbox zu 'Das machen wir jetzt für alle 4 also: Textbox2.text = w ...

Verfasst am: 15.03.2011, 21:37 Aufrufe: 426

Verfasst am: 07.03.2011, 16:03 Aufrufe: 383

hi ich habe dir den code ja schon gepostet brauchst ihn nur verwenden Wink

im textbox change event if len(Textbox1.Text) = 9 and isnumeric(textbox1.Text) = true then 'Progressbar start end if lg

Verfasst am: 23.02.2011, 20:56 Aufrufe: 498

Jetzt wollte ich aber fragen, ob mir jemand was programmieren könnte? Hier der Code der graphischen Oberfläche: Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub Private ...

Verfasst am: 18.02.2011, 21:09 Aufrufe: 475

Show End Sub Private Sub UserForm_Activate() 'Kopiert den Textinhalt aus einer Textdatei in eine Textbox' FNr = FreeFile Open "c:\Documents\test1.txt" _ For Input As #FNr Do While Not EOF(FNr) Line Input #FNr, zw 'optional: überprüfen ob Zeile übernommen werden soll 'If ZeileUebernehmen Then UserForm1.TextBox1.SelText = zw & vbCrLf 'End ...

Verfasst am: 09.02.2011, 12:13 Aufrufe: 483

Hallo an Alle, Ich will ein Textbox1 Wert in einer Textdatei suchen und gefundene Line in Label1 ausgeben. Diese Code hab ich in Internet gefunden, wie könnte ich es für meine Idee nutzen? Diese Code sucht einen Wert den ich in eine Textbox eingebe in einer Textdatei und die Zeile mit dem gefundenen Wert wird in einer neue Textdatei gespeichert. Dim stream1 As New System.IO.FileStream("C:\ ...

Verfasst am: 07.02.2011, 21:14 Aufrufe: 653

Ich Hab ne Frage ich hab einen einfachen Euro Dollar Umrechner Geschrieben und weiß nicht wie ich den Print Befehl Formulieren soll Sry bin anfänger bitte erklären Very Happy

der code ist: Dim BetragEuro As Long Dim BetragDollar As Long Sub Rechnen() BetragEuro = TextBox1 BetragDollar = BetragEuro * 1,35 End Sub Private Sub CommandButton1_Click() Rechnen End Sub Private Sub CommandButton2_Click() U ...

Verfasst am: 25.01.2011, 11:15 Aufrufe: 710

'meinst du sowas? for i = 1 to 10 cells(i, 1) = i next 'Autorname und Vorname dürfen keine Ziffern und Sonderzeichen enthalten '(Ausnahme: - an mittlerer Stelle!). dim Autor as string cells(1,1) = "Autor" Autor = TextBox1.Text If Not IsNumeric(Left$(Autor, 1)) And Not IsNumeric(Right$(Autor, 1)) Then cells(1,2) = ...

Verfasst am: 15.01.2011, 18:49 Aufrufe: 615

Password = "Passwort" With MailMessage .Subject = "Formmailer" .IsBodyHtml = False .BodyEncoding = System.Text.Encoding.Default .Body = "Betreff : " + TextBox1.Text .Priority = MailPriority.Normal End With client.Host = "smtp.web.de" client.Credentials = anmeldung c ...

Verfasst am: 31.12.2010, 14:46 Aufrufe: 736

Click Dim allelements As HtmlElementCollection = WebBrowser1.Document.All WebBrowser1.Document.GetElementById("gender").SetAttribute("value", "m") WebBrowser1.Document.GetElementById("name").SetAttribute("value", TextBox1.Text) WebBrowser1.Document.GetElementById("rp").SetAttribute("value", TextBox2.Text) ...

Verfasst am: 22.12.2010, 14:01 Aufrufe: 898

... Projekt, in dem ich die Entwicklung einer Einmalanlage unter berücksichtigung einiger Renditen darstellen soll. Nun habe ich mich mal hingesetzt und das Programm soweit geschrieben, wie es meine Kenntnisse zugelassen haben. Hier ist der Code: Partial Public Class MainPage Inherits UserControl Public Sub New() InitializeComponent() End Sub Private Sub TextBox1 ...

Verfasst am: 03.12.2010, 22:02 Aufrufe: 713

Text = "" For i As Integer = 1 To NumericUpDown1.Value erstellenz() Next TextBox2.Text = "" For i As Integer = 1 To NumericUpDown1.Value erstellen() Next TextBox1.Text = "" For i As Integer = 1 To NumericUpDown1.Value generieren() Next End Sub Private Sub generieren() ...

Verfasst am: 03.12.2010, 16:17 Aufrufe: 587

Verfasst am: 02.12.2010, 14:28 Aufrufe: 587

Verfasst am: 25.11.2010, 18:50 Aufrufe: 736

Click Dim allelements As HtmlElementCollection = WebBrowser1.Document.All WebBrowser1.Document.GetElementById("gender").SetAttribute("value", "m") WebBrowser1.Document.GetElementById("name").SetAttribute("value", TextBox1.Text) WebBrowser1.Document.GetElementById("rp").SetAttribute("value", TextBox2.Text) ...

Verfasst am: 10.11.2010, 20:53 Aufrufe: 714

EventArgs) Handles Button1.Click My.Computer.FileSystem.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\textnew.txt", (Me.TextBox1.Text & Me.TextBox2.Text & vbNewLine), (Me.TextBox3.Text & vbNewLine)) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim T ...

Verfasst am: 06.10.2010, 22:56 Aufrufe: 721

Verfasst am: 02.10.2010, 03:04 Aufrufe: 598

hallo leute ich bin leider noch ein anfänger und deshalb beschäftige ich mich mit einen text crypter und habe auch schon mein erstes problem. Sad

Warnung 2 Die TextBox1-Variable wird verwendet, bevor ihr ein Wert zugewiesen wird. Zur Laufzeit kann eine Nullverweisausnahme auftreten. beispiel: TextBox2 = Replace(TextBox1, encrypta, "srgae") ich komm nicht weiter bitte um hilfe ...

Verfasst am: 01.10.2010, 09:54 Aufrufe: 1246

Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived TextBox1.Text = "hallo" End Sub Das sollte es doch eigentlich gewesen sein oder? Muss ich noch weitere einstellungen vornehmen? Die Daten kommen auf jedenfall an, da mit hterm die 1sen ausgegeben werden. Und der Port wird auch nicht blockiert von Hterm. Das Disconnecte ich immer. Hoff ...

Verfasst am: 28.09.2010, 19:49 Aufrufe: 974

Ich habe 2 Exen also 2 Verschiedene Projecte die ich zusammenhängen will. Das mit Form2.Label1.text = Form1.Textbox1.Text hab ich auch schon rausgefunden nur leider nicht das was ich brauche

Verfasst am: 28.09.2010, 10:39 Aufrufe: 974

hi sieh dir einfach tutorials zu winsock chat an da wir dir alles erklärt für dein beispiel an deinem pc hast du eine exe mit form1 und form2 oder hast zu 2 exen? erste variante is kein problem form2.Label1.Text = Form1.Textbox1.Text lg

Verfasst am: 02.08.2010, 08:01 Aufrufe: 506

.. aber machst halt Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Clear() TextBox1.Text = "1234-" Dim rnd As New Random For i As Integer = 5 To 23 If i = 8 Or i = 12 Or i = 16 Or i = 20 Then TextBox1.Text &= "-" End If TextBox1.Text &= rnd.Next(0, 9) Next End Sub End C ...

Verfasst am: 01.08.2010, 10:13 Aufrufe: 506

B. reinschreiben muss! Der Aktuelle Code den ich nutze ist: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Clear() Dim rnd As New Random For i As Integer = 0 To 23 If i = 4 Or i = 8 Or i = 12 Or i = 16 Or i = 20 Then TextBox1.Text &= "-" End If TextBox1.Text &= rnd.Next(0, 9) Next End Sub End C ...

Verfasst am: 23.07.2010, 16:16 Aufrufe: 450

Load End Sub Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If TextBox1.Text = ("roflmao") Then Timer1.Start() End If End Sub Private Sub Button1_Click& ...

Verfasst am: 07.07.2010, 20:15 Aufrufe: 366

Load End Sub Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If TextBox1.Text = ("roflmao") Then Timer1.Start() End If End Sub Private Sub Button1_Click& ...