Visual Basic Forum

Verfasst am: 30.01.2012, 16:53 Aufrufe: 78

aso jetzt versteh ich was du meinst... du willst dass dein link in der rtf box steht und aufrufbar ist ist mir nicht bekannt das das geht schreib den "quelltext" in eine Variable und rufe diese im webbrowsercontrol auf somit hast du den text stehen und auch deinen link Wink

Verfasst am: 30.01.2012, 11:47 Aufrufe: 78

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

Verfasst am: 30.01.2012, 10:32 Aufrufe: 138

hi ich werde dir hier an dieser stelle nochmals den index ans herz legen.... du hast eine textbox die beschrieben wird wenn das geschieht soll sich der checkbox value ändern Private Sub Text1_Change(Index as integer) if text1(Index).text <> "" then check1(index).Value = 1 else check1(index).value = 0 endif End SUb Wundersschön dynamisch und auf beliebig erweiterbar n ...

Verfasst am: 30.01.2012, 10:25 Aufrufe: 78

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: 30.01.2012, 09:14 Aufrufe: 78

Verfasst am: 30.01.2012, 06:51 Aufrufe: 78

hi wie wäre es mit Private Command1_Click() Text2.text = Text1.text End Sub somit schreibst du den inhalt der 1. textbox in die zweite oder hab ich was falsch verstanden?

Verfasst am: 29.01.2012, 14:58 Aufrufe: 78

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

Verfasst am: 28.01.2012, 21:44 Aufrufe: 78

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, 13:05 Aufrufe: 78

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: 26.01.2012, 12:15 Aufrufe: 138

hi ich habe leider keine ahnung was in vbs geht und was nicht ich hätte jetzt auch keine lösung für dein problem in vb6 habe ich damals ein modul geschrieben das wie für dich geschaffen wäre Smile

aber was du versuchen könntest dass du deinen steuerelementen einen index gibst somit ersparst du dir dein name und type of Text1(3).Text so würdest du dir wahrscheinlich sogar unnötig viel arbeit ersparten ...

Verfasst am: 25.01.2012, 08:45 Aufrufe: 121

... Ausgabe as string Dim cFile As String cFile = Dir(sPaht & "*." & sFileType) ' Alle Exedateien im Verzeichnis ausgeben Do While cFile <> "" ' Wiederholen bis cFile="" Ausgabe = Ausgabe & vbnewline & cFile cFile = Dir ' Aufruf der Funktion ohne Parameter!! Loop GetFiles = Ausgabe End Function 'Aufruf: Text ...

Verfasst am: 24.01.2012, 07:03 Aufrufe: 121

Verfasst am: 13.01.2012, 18:56 Aufrufe: 78

ich kann dir jetzt nur einen pseudo code aus vb6 bieten das wird aber in vb.net ähnlich funktionieren txtstring.text = "123456" txtsuch.text "123" x = instring(txtstring.text, txtsuch.text) if x = 0 then exit sub txtstring.selstart = x txtstring.sellengh = len(txtsuch.text) pseudocode ende ich hoffe du kannst damit was anfangen

Verfasst am: 13.01.2012, 15:36 Aufrufe: 97

Ich habe eine eigene Webseite, auf der eine Werbeeinbeldung per JavaScript gemacht wird, welche dadurch nicht funktioniert (Als Werbung wird ein Layer verwendet. Nun, da der Browser später für andere zugänkch gemacht werden soll, muss er auch JavaScript unterstützen. Ich habe den Code von BinLayer.de und er sieht so aus: <script type="text/javascript" src="http://view.binlayer.com/ad-46071.js ...

Verfasst am: 08.01.2012, 15:37 Aufrufe: 78

Hallo, Ich habe 2 Textboxen, txtstring, txtsuch Nun möchte ich einen Text in txtstring eingeben und in txtsuch den Suchbegriff. Nun soll wenn gefunden ,der gefundene Text im txtring markiert werden. Bsp. txtstring = 123456 txtsuch=123 dann soll txtstring= 123 markiert sein, der Rest normal geht das und wenn ja wie habe mit stringcompare versucht, zeigt mir da hja dann die position an, aber wie kriege i ...

Verfasst am: 06.01.2012, 03:55 Aufrufe: 2344

Um eine bestimmte Startseite festzulegen, gibt es keinen so kurzen Code.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 = "d ...

Verfasst am: 12.12.2011, 13:50 Aufrufe: 169

Object, ByVal e As System.EventArgs) Handles Command6.Click Dim iResult, iTmp As Short Dim sCmd As String Dim y As Byte 'make sure id is 8 chars in length While (txtID.Text.Length < 8) txtID.Text = "0" & txtID.Text End While 'and no more then 8 chars, really can't happen because the control is set to max 8 chars ...

Verfasst am: 29.11.2011, 08:37 Aufrufe: 194

Hallo erstmal in die Runde, ich habe ein Problem an dem ich nun schon ewig hänge und einfach nicht weiter komme. ich möchte ganz einfach den Text aus der Zwischenablage ausgeben bzw. in eine Variable schreiben. Hier mein Code: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(HoleTextVonZwischenablage&# ...

Verfasst am: 22.11.2011, 18:05 Aufrufe: 200

Verfasst am: 20.11.2011, 19:59 Aufrufe: 192

Ich hab' ein Formular mit zwei Textfeldern: txtEingabe und txtausgabe und einen Button: cmd_fett. In txtEingabe soll der markierte Text mit HTML <b></b> umgeben werden und in txtausgabe ausgegeben werden, nachdem auf btn_fett geclickt wurde. Funktioniert auch, aber eben immer erst nach dem zweiten click. Was mach ich falsch? Danke im Voraus für Eure Hilfe. Option Compare Database Option Explicit ...

Verfasst am: 06.11.2011, 17:42 Aufrufe: 333

Hat jemand einen Vorschlag zur Lösung des Problems? Konkret lese ich eine XML-Datei ein, die als Attributwerte Zahlen enthält. Mit diesen Zahlen muss ich später noch Berechnungen anstellen. Da XML aber reiner Text ist, muss ich irgendwie die Attribute in Zahlen umwandeln. Konkret brauche ich später wohl den Datentypen Double, aber wenn es mit INT klappt, dann klappt auch alles andere. Wink

Ach so, fall ...

Verfasst am: 02.11.2011, 21:19 Aufrufe: 1261

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: 02.11.2011, 20:54 Aufrufe: 289

jpg Code: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WebBrowser1.Navigate("www.pennergame.de") Me.Text = "Working..." Application.DoEvents() Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete Applic ...

Verfasst am: 31.10.2011, 17:04 Aufrufe: 85

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, 16:57 Aufrufe: 86

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: 25.10.2011, 11:38 Aufrufe: 160

hi also man kann auch den ersten teil schöner gestalten.... Private Sub Command1_Click(Index As Integer) Select Case Text1.Text Case 1 : Command1(Index).Caption = "X" Text1.Text = "2" Command1(Index).Enabled = False Case 2: Command1(Index).Caption = "O" Text1.Text = "1&q ...

Verfasst am: 24.10.2011, 22:43 Aufrufe: 160

... ren, dazu sollen wir (meine Klasse) jetzt schon (nach 6 Schulstunden) in der Lage zu sein. Ich habe soweit auch schon einen Code erstellt, der soweit auch funktioniert, ich habe aber einen Teil, den ich sowas von gar nicht toll finde, aber auch keine Ahnung habe, wie man ihn schöner bzw. übersichtlicher darstellen kann. So hier mal mein Code Private Sub Command1_Click(Index As Integer) If Text ...

Verfasst am: 19.10.2011, 10:42 Aufrufe: 156

eine andere Alternative ausprobiert und auch hier scheitert es am Freezing... Private Sub Verzoegerung() Dim Zeit As Integer = 2000 Dim Zeit1 As Integer = System.Environment.TickCount While (System.Environment.TickCount - Zeit1) < Zeit GeckoWebBrowser1.Navigate(URL.Text) End While End Sub EDIT: Hat sich erledigt! Habs selbst ge ...

Verfasst am: 17.10.2011, 20:05 Aufrufe: 321

Also Ziel ist es ein Programm zu erstellen das auf z.B zwei Pc`s installiert wird und über dass man dann kommunizieren kann wie z.B ICQ msn usw.. nur das ich halt erstmal klein anfangen möchte und nur text übertragen will. Bis jetzt bin ich immer gescheitert. Kennt ihr vielleicht eine Seite wo so etwas behandelt wird? Auf youtube findet mann immer nur so blöde videos wie ( wie baue ich einen funvirus oder spa ...

Verfasst am: 12.10.2011, 08:35 Aufrufe: 114

... ot;favoriten hinzufügen" button klick in eine picturebox die website vorschau anzeigt und ein label mit der url. funktioniert soweit ganz gut, Jetzt ist mein Problem das wenn ich schon ein Lesezeichen gesetzt habe z.b google.de und ich möchte z.b emp.de als Lesezeichen, dann soll er beim button klick das vorschaubild von emp.de in die zweite picturebox setzten (mit dem dazugehörigen Label mit emp.de als text ...

Verfasst am: 11.10.2011, 11:14 Aufrufe: 336

Hallo, ich habe mal eine kleine Frage zur Programmierung: Ich möchte gerne, dass sich beim Aufrufen einer VBS-Datei eine Webseite öffnet und der dann automatisch in das erste Eingabefeld was es in der Webseite gibt ein Text eingegeben wird und dann per Tab in das nächste Feld gesprungen wird, dann per Tab auf den Absendenbutton getippt wird und, dass dann wiederholt wird. Nochmal zum Verständnis ein Ablauf: Öffn ...

Verfasst am: 02.10.2011, 18:55 Aufrufe: 142

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: 30.09.2011, 06:59 Aufrufe: 353

Hallo zusammen, ich habe ein Problem beim Auslesen eines Text (Blob) Feldes aus einer MySQL Datenbank Es wird immer nur die Länge des Textfeldes ausgelesen, die der letzte Datensatz hat. Beispiel: Tabelle: cad_formel Felder: formel_nr (int), beschreibung(text) Tabelleninhalt: 1 abcd 2 abcdefghi 3 abcdef Meine Abfrage: Private Sub Command1_Click() Dim en As rdoEnvironment Dim QD As rdo ...

Verfasst am: 20.09.2011, 11:53 Aufrufe: 390

Hallo (: Ich muss zZ im Praktikum eine Datenbank mit Access erstellen. Ich will ein Treeview machen, was bisher auch gut klappt. Das Problem: Vom Unterelement wird nur die ID angezeigt, nicht der Text der zu der ID gehört. Wie kann ich das am Besten realisieren? Hier ein Bild: Die Stelle im Code, die ausgebesser gehört ( Suppliername und Customername, bisher wird nur die ID angezeigt ). tv ...

Verfasst am: 17.09.2011, 13:31 Aufrufe: 141

Das Problem hat sich erledigt. an der entsprechenden Stelle fehlte beim konvertieren ".Text". Jetzt geht's! Grüße Steve

Verfasst am: 17.09.2011, 09:31 Aufrufe: 141

... ' Ergebnis 4 = Minuten aus Ergebnis 5 ausrechnen ' Ergebnis 5 = Ergebnis 2 mal Arbeitstage ' Ergebnis 6 = Stunden aus Ergebnis 5 ausrechnen ' Ergebnis 7 = Minuten aus Ergebnis 5 ausrechnen ' Ergebnis 8 = Kosten für Stunden aus Ergebnis 6 ' Ergebnis 9 = Kosten für Minuten aus Ergebnis 6 ' Ergebnis 10 = Gesamtkosten aus Ergebnis 8 und 9 If txtEingabeDifferenzProTag.Text ...

Verfasst am: 05.09.2011, 09:15 Aufrufe: 2409

Hallo, ich habe nach deinem Beispiel einen Text im Listview gesucht. Diesen möchte ich jetzt rot färben: For i = 1 To UserFormList.ListView1.ListItems.Count If StrComp(UserFormList.ListView1.ListItems(i).SubItems(7), "***Auftrag", vbTextCompare) = 0 Then UserFormList.

Verfasst am: 26.08.2011, 11:20 Aufrufe: 467

Click Dim str As String = String.Empty For i = 0 To m_listView.Columns.Count - 1 str = str & m_listView.Columns(i).Text & "-" Next My.Settings.m_listView_setting = str My.Settings.Save() MsgBox("Fertig!") Return End Sub Laden: PROBLEME!! Bitte hier um HILFE!! Private Sub bt ...

Verfasst am: 23.08.2011, 20:03 Aufrufe: 150

Hallo Ich habe eine Listview mit mehreren Columnheaders, im letzten steht 1. Wenn ein eintrag doppelt ist, soll dieses 1 auf 2 gehen. ListView1.Columns.Add(Anzahl.Text +1) Wenn ich das benutze fügt der ein neuen Columnheader hinzu aber ich will nur das er die zähl die in der Spalte ist mit +1 multipliziert. Kann mir einer weiterhelfen? Nur das mit dem multiplizieren bekomme ich nicht hin, den rest ...

Verfasst am: 21.08.2011, 10:42 Aufrufe: 158

net. Hier meine Frage: ich habe eine Variable Feld(0,0) inhalt ist "Label1" Feld(0,1) inhalt ist "Mein Name" Feld(1,0) inhalt ist "Label2" Feld(1,1) inhalt ist "Meine Email" ich möchte nun per Schleife label1.text = "Mein Name" label2.text = "Meine Email" setzen gedacht war for i = 0 to 1 Feld(i,0).Text = cstr(Feld(i,1)) nex ...

Verfasst am: 18.08.2011, 01:40 Aufrufe: 188

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: 17.08.2011, 18:37 Aufrufe: 188

so erstmal vielen dank klappt alles wunderbar aber warum ist jetzt text1 automatisch immer im focus sobald die anwendung geöffnet wird ? d.h. der text von text 1 ist automatisch weg... Private Sub Command1_Click() Text5.Text = CSng(Text2.Text) / 60 Text4.Text = CSng(Text1.Text) / 9 Text3.Text = CSng(Text4.Text) + CSng(Text5.Text) Text6.Text = Math.Round(Text3.Text) End Sub Private ...

Verfasst am: 17.08.2011, 08:32 Aufrufe: 188

Hallo, Du kannst folgendes machen: Private Sub Text1_GotFocus() Text1.Text = "" End Sub Damit wird der Text in der TextBox gelöscht, sobald die TextBox den Focus bekommt um eine neue Zahl einzugeben. Gruß

Verfasst am: 17.08.2011, 08:08 Aufrufe: 188

achso dann schonmal vielen dank werd es nachher zuhause mal ausprobieren. hab aber gleich noch ne frage: wie mache ich das wenn ich in die textbox eine zahl eingeben will, der Text der bereits in der Textbox steht verschwindet ? geht das irgendwie mit "Clear"

Verfasst am: 17.08.2011, 06:27 Aufrufe: 188

Hi BaSh, es ist normal dass du die Dezimalstellen verlierst weil der Befehl Val(Text1.Text) den Wert aus dem Text nimmt und ihn auf die nächste ganze Zahl aufrundet. Besser ist es im Single-Format zu rechnen, da dieses Format auch Dezimalstellen verarbeitet. Private Sub Command1_Click() Text5.Text = CSng(Text2.Text) / 60 Text4.Text = CSng(Text1.Text) / 9 Text3.Text = CS ...

Verfasst am: 16.08.2011, 19:45 Aufrufe: 188

Hi ich versuche grade ein simples Programm zu coden das 2 werte zusammen rechnet. nur leider nimmt er die werte aus den textboxen an. Private Sub Command1_Click() MsgBox = Val(Text1.Text) + Val(Text2.Text) End Sub das sollte doch normal funktionieren? so hab das ganze jetzt umgebaut das alles nur in textboxen abläuft Private Sub Command1_Click() Text5.Text = Val(Text2.Text) / 60 Text4.Tex ...

Verfasst am: 16.08.2011, 14:13 Aufrufe: 203

Hallo an Alle, Ich habe Folgendes Problem, Ich möchte mitels VB Eine Tabelle Erstellen, per code, das Klapt ja Noch, aber ich möchte dann die Colums Formatieren, wie geht das Mit einem Code Ich Habe Jetzt Folgendes: Database1DataSet.Tables.Add().TableName = Me.Kunden_NummerTextBox.Text Wie bekomme Ich nun Folgendes Hin Spalte1: Datum nchar(500) Spalte2: Uhrzeit nchar(50) Spalte3: Eintra ...

Verfasst am: 11.08.2011, 05:45 Aufrufe: 363

hallo guido65, danke für die schnelle antwort. hatte die frage noch in einem anderen forum gepostet und konnte das problem jetzt lösen. es lag an der formatierung der textdatei, die für meine zwecke expliziet im ASCII-code ausgegeben werden musste. file = My.Computer.FileSystem.OpenTextFileWriter(Hauptmenü.txtdateien.Text & dateiname & ".dxf", True, System.Text.Encoding.ASCII)

Verfasst am: 10.08.2011, 07:34 Aufrufe: 363

0 geschrieben wurde und wir der Zeit nicht ganz hinterher sein wollen, habe ich begonnen dass Programm in Visual Basic 2010 neu zu schreiben. Momentan als Versuch mit der Express-Version. Die DXF-Dateien werden relativ simpel generiert: Der Anfang der Datei liegt in einer Text-Datei und wird vom Programm eingelesen und in die zu erstellende Datei kopiert. Dann folgen Linien, Kreise etc. gemäß der Abwicklung un ...

Verfasst am: 01.08.2011, 16:10 Aufrufe: 170

Ich habe folgendes Problem: Beim Ausführen der Methode "System.Console.SetCursorPosition(x, y)" wird eine IOExeption geworfen. (x & y sind vom Type integer) Fehlermeldungsbeschreibung: Titel: IOExeption wurde nicht behandelt. Text: Das Handle ist ungültig. Hinweis zur Fehlerbehebung: Deaktiviren sie das Konsolenfenster. Deteils: Ausnahme-Snapshot: ...System.IO.IOExeption:........{"Das ...