Visual Basic Forum

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: 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

Verfasst am: 25.01.2012, 09:30 Aufrufe: 121

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: 25.01.2012, 08:45 Aufrufe: 121

Verfasst am: 24.01.2012, 07:03 Aufrufe: 121

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: 20.12.2011, 10:22 Aufrufe: 72

Microsoft VBScript compilation error '800a03ee' Expected ')' BackupCleanUp.vbs, line 18 Private Function ParseDate (ByVal DateString As String, _ ByVal DatePattern As String) As Date Bitte helfen! / Please help!

Verfasst am: 12.12.2011, 13:50 Aufrufe: 169

Ich weiss nicht wie gehe ich vor. ' Handles send data Private Sub btnSendData_Click(ByVal sender As System.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 ...

Verfasst am: 02.12.2011, 08:44 Aufrufe: 223

Hallo, Function ExportFile (lpszSourceFileName As String, lpszDestinationFileName As String, lExportType As Long) As Boolean wie man in der Zeile erkennen kann, erwartet die Funktion einige Eingangs-Parameter um funktionieren zu können. 1. lpszSourceFileName As String (Quell-Datei) 2. lpszDestinationFileName As String (Ziel-Datei) 3. lExportType As Long 4. Als Resultat kann die Funktion dir ein B ...

Verfasst am: 30.11.2011, 10:38 Aufrufe: 223

Ich möchte gerne in meinem Sub auf eine Function verweisen, damit diese dann ausgeführt wird. Meine Syntax schaut bisher wie folgt aus: Sub Execute1() Call ExportFile End Sub ------ Function ExportFile (lpszSourceFileName As String, lpszDestinationFileName As String, lExportType As Long) As Boolean ExportFile = True End Function der Code steht komplett in einem Modul. Nun zeigt mit VB beim Compilie ...

Verfasst am: 29.11.2011, 08:37 Aufrufe: 194

Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(HoleTextVonZwischenablage) End Sub Public Function HoleTextVonZwischenablage() As String Dim oData As New DataObject On Error Resume Next ' Brutal um falsche Formate abzuwürgen, gibt dann einen Leerstring oData.GetFromClipboard() HoleTextVonZwischenablage = oData.Get ...

Verfasst am: 20.11.2011, 19:59 Aufrufe: 192

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 Private ZuErsetzen As String Private Inhalt As String Private Sub cmd_bold_Click() On Error GoTo cmd_bold_Click_Error If ZuErsetzen = "" Then Exit Sub End If Inhalt = Replace(Inhalt, ZuErsetzen, "<b>" & ZuErset ...

Verfasst am: 06.11.2011, 17:42 Aufrufe: 333

Moinsen, eigentlich wollte ich nur einen String in einen Integer umwandeln, aber es scheint ja doch nicht ganz so einfach zu sein. Wink

Folgender Code klappt, er gibt mir als Ergebnis 124: Dim b b = CInt(123.6) Response.Write("b = " & b) Nun dachte ich mir, dass der Wert 123.6 doch auch durch eine Variable vom Typ String kommen könnte. Also probie ...

Verfasst am: 03.11.2011, 10:52 Aufrufe: 325

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: 29.10.2011, 10:04 Aufrufe: 148

Versuche jetzt seid Tage es selbst zu lösen aber muss jetzt das Handtuch werfen. Ich hoffe sehr das sich jemand damit auskennt: Also ich möchte Daten aus einer Datenbank formatieren und ausdrucken. Funktioniert auch alles super nur mit der Formatierung des Strings für den Druck habe ich ein Problem. Manche meiner Werte haben eine unterschiedliche Stringlänge und mir gelingt es nicht sie sauber unter einander zu fo ...

Verfasst am: 06.10.2011, 14:00 Aufrufe: 337

Hallo Forum, bin VB6 Anfänger und zum ersten mal hier. Ich habe ein Problem an dem ich schon wochenlang rummache und hoffe auf Eure Hilfe. Es geht um eine Dynamische Anpassung des Connection Strings in einem Adodc Objekt. Mein Prog erzeugt für jeden Testort (Benutzereingabe) eine Access mdb mit Tabellen für jeden Test (Benutzereingabe). Die DB ist über ADODC per Connection String mit vb6 verbunden. ...

Verfasst am: 30.09.2011, 06:59 Aufrufe: 353

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 rdoQuery Dim cn As rdoConnection Dim rs As rdoResultset Dim SQL As String Dim con As String Dim i As Long Dim j As Long Dim t As String Dim iColsize As Long ...

Verfasst am: 23.09.2011, 09:27 Aufrufe: 112

Private EinmaligBCS As String Private EinmaligHSI As String Private Einmalig As String EinmaligBCS und EinmaligHSI können für verschiedene Werte stehen: (EinmaligBCS für: "" oder "19,95" oder "39,90" oder "39,90 + 19,95") (EinmaligHSI für: "" oder "19,90" oder "24,90" oder "29,90" oder "19,90 + 24,90") Im insgesamt ...

Verfasst am: 26.08.2011, 11:20 Aufrufe: 467

Der Inhalt der List ist nicht wichtig. Ich hab schon im Internet gesucht, aber nichts hilfreiches gefunden. Bis jetzt habe ich das: Save: Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click Dim str As String = String.Empty For i = 0 To m_listView.Columns.Count - 1 str = str & m_listView.Columns(i).Text & ...

Verfasst am: 10.08.2011, 07:34 Aufrufe: 363

Die Dateien haben dann exakt den gleichen Inhalt und trotzdem geht die ursprüngliche Datei nicht und DXF-Dateien sind doch nur Text-Dateien .... ???!!! Kann sich jemand vorstellen was das sein könnten? Ideeen? Vielen Dank schonmal, Gruß Beppo DXF-Anfang einlesen: Public Sub dxfanfang(ByVal dateiname As String) 'dxf-anfang aus datei laden Dim dxfanfang As String dxfan ...

Verfasst am: 19.07.2011, 18:27 Aufrufe: 543

InteropServices Public Class Form1 'Variablen: Private Structure Connection Dim stream As NetworkStream Dim streamw As StreamWriter Dim streamr As StreamReader End Structure Dim Server As TcpListener Dim client As New TcpClient Dim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 4000) Dim funktion As String() ...

Verfasst am: 13.07.2011, 17:33 Aufrufe: 450

Hi, würde gerne eine Schleife bauen für den folgenden Code: Public Function funcLoadLanguage(ByVal varLang As String) Dim varXDoc As XDocument = XDocument.Load(Application.StartupPath & "\lang-" & varLang & ".

Verfasst am: 03.07.2011, 12:14 Aufrufe: 219

Generic.List(Of Date)" kann nicht in "1-dimensionales Array von Date" konvertiert werden." Keine Ahnung was das bedeutet und warum es nicht funktioniert. Dim darray As New List(Of Date) Dim d As String Dim dt As DateTime For i = 0 To dbDataTbl.Rows.Count - 1 d = dbDataTbl.Rows(i)("Datum") ' Liest Feld DATU ...

Verfasst am: 25.06.2011, 13:01 Aufrufe: 350

Inahlt des Moduls was ich dafür angelegt habe: Module ModulTape1 Public Declare Function PrepareTape Lib "kernel32" (ByVal hDevice As Integer, ByVal dwOperation As Integer, ByVal bimmediate As Long) As Integer Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, ByVal dwShareM ...

Verfasst am: 20.06.2011, 05:33 Aufrufe: 370

Accept requestID ' Command1 anschalten damit man die Nachricht ' senden kann Command1.Enabled = True End Sub ' Wenn Daten ankommen Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim sData As String ' Die ankommenden Daten werden in einer Variable ' (strDaten) gespeichert Winsock1.GetData sData End Sub Private Sub Command1_Click() ' Nachricht wird zum Client gesendet ...

Verfasst am: 14.06.2011, 21:25 Aufrufe: 325

deshalb +1 somit wird es 1 - 26 * Rnd und eben wieder + 65 dass die zahl wieder zwischen 65 und 90 ist aber wenn dir die funktion zu umständlich ist dann könntest du eine etwas längere einfacher verständliche funktion verwenden Public Function RandomWord(ByVal wLen As Integer) As String Dim abc As String Dim i As Integer Dim sWord As String abc = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" ...

Verfasst am: 09.06.2011, 12:22 Aufrufe: 320

Hallo zusammen Ich habe ein Problem bei dessen Lösung ich um eure Hilfe bitte. Eingesetzte VB-Version : "Visual Basic Express 2008". Aufgabe: Mein Programm soll einen String über eine serielle Schnittstelle("COM1") an einen externen Microcontroller übertragen. Das funktioniert so lange, wie alle Bytes des Strings keinen ASCII-Wert > 128 haben. In diesem Fall scheint VB nicht ein, son ...

Verfasst am: 25.05.2011, 13:44 Aufrufe: 650

Verfasst am: 24.05.2011, 12:33 Aufrufe: 724

Danke, aber bin selbst drauf gekommen, mit Hilfe einer F&A hier. Private Function ZellInhalt(ByVal XlsDatei As String, ByVal Zelle As String) As String Dim XL As New Excel.Application Dim WB As Excel.Workbook Dim WS As Excel.Worksheet Dim z As Integer Dim wbk As String ' Excel öffnen On Error Resume Next XL = GetObject(, "Excel.Ap ...

Verfasst am: 24.05.2011, 12:13 Aufrufe: 724

Hier meine Function: zunächst die Imports: Imports System Imports System.IO Imports Microsoft.Office.Interop Private Function ZellInhalt(ByVal XlsDatei As String, ByVal Zelle As String) As String Dim XL As New Excel.Application Dim XLWorkBooks As New Excel.Workbook 'hier wird der Fehler verursacht Dim XLWorkSheet As New Excel.Worksheet Dim z As Integer Di ...

Verfasst am: 23.05.2011, 12:04 Aufrufe: 330

Hi Christopher, danke für Deine Hilfe, eine Kleinigkeit scheint da nicht zu gehen. Ich bekomme eine Fehler : Typen unverträglich. aus irgendeinem Grund lässt sich das Array nicht verwenden?! Den Dim test (1 to 10) as String hat er auch angemakelt. den könnte ich auch weglassen, oder? LG Andreas

Verfasst am: 23.05.2011, 06:45 Aufrufe: 330

Verfasst am: 21.05.2011, 15:46 Aufrufe: 693

Hallo, mit folgendem Code lasse ich Dateien aus einem Ordner in einer Listview anzeigen: Hier der Code: Dim dlgFolderOpen As New FolderBrowserDialog() If dlgFolderOpen.ShowDialog() = DialogResult.OK Then Dim Auswahl As String = dlgFolderOpen.SelectedPath Dim directory As New System.IO.DirectoryInfo(Auswahl) For Each Datei As System.IO.Fil ...

Verfasst am: 28.04.2011, 13:17 Aufrufe: 387

Die X sind in Spalte H, Die E-Mail Adressen in Spalte G. Ich habe hier eine Vorlage für das verschicken mit Outlook: Sub emailverschicken() Dim Adressat As String Dim cell As Range Dim outapp As Object, outmail As Object Dim Mailnachricht As String Range("G5:G200").Select Mailnachricht = "<span style=""font-size:10pt; font-fam ...

Verfasst am: 20.04.2011, 23:50 Aufrufe: 300

Hoffe das hilft dir.... 'Erstellt einen Dialog zur Auswahl von Ordnern Dim obj_Folder As New FolderBrowserDialog Dim str_Folder As String 'Sorgt 100% dafür das du einen Button für "Neuen Ordner anlegen" hast obj_Folder.ShowNewFolderButton = True 'Wenn Dialog mit Ok beendet If obj_Folder.ShowDialog = Windows.Forms.DialogResult.OK Then 'Versuche den Ordner zu erstellen, könnte ja sein das das nich ...

Verfasst am: 25.03.2011, 08:56 Aufrufe: 625

Erstmal Hallo an alle, ich bin neu hier! Ich stehe als VB- Neuling momentan vor einem kleinen Problem, vielleicht habe ich auch einfach nur ein Brett vor dem Kopf. Ich muss ein VB-Skript für Excel schreiben, bei dem eine .csv - Datei geöffnet und die Daten Zeile für Zeile in einen String eingelesen werden. Das Öffnen über einen verknüpften Button funktioniert schon, hier einmal der bisherige Code: Sub OpenC ...

Verfasst am: 25.03.2011, 00:11 Aufrufe: 672

Imports System.IO Imports System.Net Imports System.ComponentModel Public Class Form1 Dim watch As Long Private th As BackgroundWorker Dim speed1 As Long = 0 Dim speed2 As Long = 0 Dim Temp As String = Environment.GetEnvironmentVariable("Temp") Dim Patcherver As String = "1.0" Dim MyPfad As String = Path.GetDirectoryName(Application.Executa ...

Verfasst am: 17.03.2011, 14:56 Aufrufe: 490

FileAccess.Read) Dim w As IO.StreamReader = New IO.StreamReader(fs) Dim Var1 As String = w.ReadToEnd 'Die Datei komplett einlesen 'Wenn das fertig ist, den Filestream und den reader wieder schließen w.Close() fs.Close() 'Wir erstellen ein Array aus allen Zeilen, indem wir den String an jeder neuen Zeile splitten Dim loada ...

Verfasst am: 17.03.2011, 13:14 Aufrufe: 490

Hallo Tyran, erstmal danke für die schnelle Hilfe aber scheinbar sind 2 Fehler drin "length" ist kein Member von "String" "Var1LastIndexOf" wurde nicht deklariert. Wo und was muss ändern? LG MarkOH Sry da waren ein paar Tippfehler drinn, habs nochmal editiert kannst es wieder versuchen. Achso und du musst, um Dateien einlesen zu können erst noch die Methode importieren ...

Verfasst am: 17.03.2011, 13:08 Aufrufe: 490

Hallo Tyran, erstmal danke für die schnelle Hilfe aber scheinbar sind 2 Fehler drin "length" ist kein Member von "String" "Var1LastIndexOf" wurde nicht deklariert. Wo und was muss ändern? LG MarkOH

Verfasst am: 17.03.2011, 12:24 Aufrufe: 490

Also, was du vorhast ist garnicht so schwierig, eine Datei komplett auslesen kannst du so: 'Wir deklarieren uns erstmal ein paar Variablen Dim Setting1 As String Dim Setting2 As String Dim fs As IO.FileStream = New IO.FileStream( _ "Settings.ini", IO.FileMode.Open, _ IO.FileAccess.Read) Dim w As IO.Strea ...

Verfasst am: 04.03.2011, 09:25 Aufrufe: 470

Mein Problem ist nur, das immer nur eine Verbindung zur letzten IP aufgebaut wird :/ Hier mein Code Sub Form_Load() VerbindungHerstellen("192.168.0.1") VerbindungHerstellen("192.168.0.2") End Sub Private Sub VerbindungHerstellen(ByVal Ip As String) Debug.Print "Verbindung zu " & Ip & " soll aufgebaut werden..." Win ...

Verfasst am: 03.03.2011, 09:47 Aufrufe: 300

Ich speichere den Zeitstempel in einen String Function fnIsoDateTime(dtmDateTime) Dim strMonth strMonth = Month(dtmDateTime) If Len(strMonth) = 1 Then strMonth = "0" & strMonth End If Dim strDay strDay = Day(dtmDateTime) If Len(strDay) = 1 Then strDay = "0" & strDay End If Dim strHour strHour = Hour(dtmDateTime) ...

Verfasst am: 17.02.2011, 17:00 Aufrufe: 462

Verfasst am: 15.02.2011, 14:24 Aufrufe: 859

Verfasst am: 09.02.2011, 14:23 Aufrufe: 395

Hab' das Problem mit Hilfe von anderen VB-Forum gelöst! For Each Line As String in IO.File.ReadAllLines("Pfad\Datei.txt") If Line.Contains("Zeichenfolge") Then Label1.Text = Line End If Next

Verfasst am: 09.02.2011, 11:13 Aufrufe: 395

FileMode.Create, IO.FileAccess.Write) Dim writer1 As New System.IO.StreamWriter(stream2) Do Until reader1.EndOfStream = True Dim zeile As String = reader1.ReadLine If zeile.Contains(TextBox1.Text) = True Then writer1.WriteLine(zeile) reader1.Close() writer1.Close() ...