Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin

Warning: preg_match() [function.preg-match]: Compilation failed: PCRE does not support \L, \l, \N, \U, or \u at offset 40 in /kunden/168984_32108/webseiten/multi-seo-phpbb/foren/search.php on line 1063

Warning: preg_match() [function.preg-match]: Compilation failed: PCRE does not support \L, \l, \N, \U, or \u at offset 40 in /kunden/168984_32108/webseiten/multi-seo-phpbb/foren/search.php on line 1063
 
Informationen über environment
 Try-Catch-Umgebung
Verfasst am: 15.03.2012, 14:24  Aufrufe: 283 


Forms.MessageBox.Show(ex.Message) End Try End Sub this kind of code shows me an exception but only started on left side of searched row/textbox. but i want to get an exception for each input... for example: "hello world" ... can only find "hello...", but not "...world"..., thats annoying Smile so how to insert a regex here in this environment? thx for help, marteng

 how to insert Regular Expression in try-catch-environment?
Verfasst am: 15.03.2012, 14:23  Aufrufe: 137 

Forms.MessageBox.Show(ex.Message) End Try End Sub this kind of code shows me an exception but only started on left side of searched row/textbox. but i want to get an exception for each input... for example: "hello world" ... can only find "hello...", but not "...world"..., thats annoying Smile so how to insert a regex here in this environment? thx for help, marteng

 VB2010: Verzögerung mit Timer realisieren
Verfasst am: 19.10.2011, 11:42  Aufrufe: 318 

habe mittlw. 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! H ...

 Download mit Backgroundworker sehr langsam :(
Verfasst am: 25.03.2011, 01:11  Aufrufe: 1244 

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

 Newbie braucht Hilfe beim Einlesen von Dateien
Verfasst am: 17.03.2011, 15:56  Aufrufe: 600 

Close() 'Wir erstellen ein Array aus allen Zeilen, indem wir den String an jeder neuen Zeile splitten Dim loadarray As Array = Var1.Split(New String() {System.Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries) Dim temp As String 'Jetzt müssen wir jede Zeile durchgehen: For Each temp In loadarray 'Eine Schleife, die je ...

 Newbie braucht Hilfe beim Einlesen von Dateien
Verfasst am: 17.03.2011, 13:24  Aufrufe: 600 

Close() Jetzt müssen wir nach deinen Zeilen suchen: 'Wir erstellen ein Array aus allen Zeilen, indem wir den String an jeder neuen Zeile splitten Dim loadarray As Array = Var1.Split(New String() {System.Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries) 'Jetzt müssen wir jede Zeile durchgehen: Dim temp As String For Each ...

 Neues Textdokument erstellen ?
Verfasst am: 11.11.2010, 17:46  Aufrufe: 714 

My.Computer.FileSystem.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\textnew.txt", (str)) der fehler wird in (str)) ANGEZEIGT Sad(

 Neues Textdokument erstellen ?
Verfasst am: 11.11.2010, 09:32  Aufrufe: 714 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click dim str as String for i = Text2.Text to Text3.Text str = str & text1.Text & i next My.Computer.FileSystem.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\textnew.txt", (str)) end sub und?? funktionie ...

 Neues Textdokument erstellen ?
Verfasst am: 10.11.2010, 20:53  Aufrufe: 714 

danke dir für dein tip nur leider bin ich nicht weiter gekommen bis jetzt habe ich es nicht geschaft mir der for schleife komm ich nicht klar!! Sad( HALLO 1 bekomme ich mit dem code schonmal hin mein code bis jetzt : [code]Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click My.Computer.FileSystem.WriteAllText(Envir ...

 konsolen anwendung in eine forms anwendung bringen
Verfasst am: 28.09.2010, 17:12  Aufrufe: 621 

Title = "Erbses Simpler IPScanner" Console.WriteLine("Erbses Simpler IP-Scanner.") Console.WriteLine() Dim args As String() = Environment.GetCommandLineArgs() If args.Length > 1 Then Dim abc_ As String = FilterMask(args(1)) If abc_ <> "-1" Then abc = a ...

 Betriebssystemabfrage an Remoterechner
Verfasst am: 25.08.2010, 15:05  Aufrufe: 1210 

Shell" ) lokalerSystemname = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" ) 'WScript.Echo "Computer Name: " & lokalerSystemname '*** Schleife zum Auslesen der Variablen aus dem INIfile *** do while GetINIString(INISection, "Systemname", "", INIfile) = "" Systemname=GetINIString(INISection, "Systemname", "", INIfile) Usr ...

 Betriebssystemabfrage an Remoterechner
Verfasst am: 25.08.2010, 08:56  Aufrufe: 1210 

Shell") Set WshSysEnv = WshShell.Environment("SYSTEM") 'tmp2 = "PROCESSOR_ARCHITECTURE: " & WshSysEnv("PROCESSOR_ARCHITECTURE") Select Case LCase(WshSysEnv("PROCESSOR_ARCHITECTURE")) Case "x86" OS = OS & "-32" Case "amd64" OS = OS & "-64" End Select Set WshShell = Nothing Set WshSysEnv = Nothing ' ...

 Absturz ohne Fehler (Im Debugmodus)
Verfasst am: 19.11.2009, 17:16  Aufrufe: 942 

Text)<br><br> Dim strLinks As ArrayList = GetLinks(strSource)<br> For i As Integer = 0 To strLinks.Count - 1<br> txtLinks.Text &= strLinks(i) & Environment.NewLine<br> Next<br><br> Dim strMails As ArrayList = GetMails(strSource)<br> For i As Integer = 0 To strMails.Count - 1<br> ...

 Post von Bildkoordinaten
Verfasst am: 14.11.2009, 20:06  Aufrufe: 583 

y=456")<br />WebBrowser1.Navigate("http://bla.de/xy.php", "", bytArguments, "Content-Type: application/x-www-form-urlencoded" + Environment.NewLine)Dieser code geht jedoch nicht. dann habe ich versucht, die seite auf zu rufen und dann das RaiseEvent("onclick") zu benutzen.        Dim theElementCollection As HtmlElementCollec ...

 Hilfe bei Projekt (2 Fragen) FTP & Verschieben
Verfasst am: 02.08.2009, 18:38  Aufrufe: 1338 

DirectoryPath & "\Log.txt", "ftp://" & Server & "/" & System.Environment.MachineName & ".txt", User, Passwort) Wenn ich den Code einfüge und ihn dann compilen will, kommt folgendes Probem: Fehler 2 Der Typ "StreamWriter" ist nicht definiert.

 Hilfe bei Projekt (2 Fragen) FTP & Verschieben
Verfasst am: 06.07.2009, 17:37  Aufrufe: 1338 

DirectoryPath & "\Log.txt", "ftp://" & Server & "/" & System.Environment.MachineName & ".txt", User, Passwort)

 Memory Flush - Ramverbrauch deutlich senken!
Verfasst am: 15.06.2009, 18:53  Aufrufe: 1162 

... ;   ByVal maximumWorkingSetSize As Integer) As Integer<br /><br />    Public Shared Sub FlushMemory()<br />        GC.Collect()<br />        GC.WaitForPendingFinalizers()<br />        If (Environment ...

 Prüfen ob das Betriebssystem Windows XP ist
Verfasst am: 15.06.2009, 11:29  Aufrufe: 739 

Beschreibung:Diese Funktion prüft ob das zur Zeit der Ausführung laufende Programm Windows XP ist.Funktion:Private Function IsWindowsXP() As Boolean<br /><br />            Dim OS As OperatingSystem = Environment.OSVersion <br />            Dim Result As Boolean = OS.Platfor ...

 httpwebrequest frage
Verfasst am: 19.02.2009, 21:50  Aufrufe: 1334 

IO Imports System.Net Imports System.Text Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Send.Click Dim verz As String = System.Environment.CurrentDirectory Const fpath As String = "blubb.txt" Dim req As HttpWebRequest = CType(WebRequest.Create("http://svrwalk.sv.funpic.de"), HttpWebRequest) ...

 Enter mit Streamwriter schreiben?
Verfasst am: 09.09.2008, 19:40  Aufrufe: 996 

Ich find Environment.NewLine besser.

 text ins prog einbauen
Verfasst am: 26.08.2008, 21:55  Aufrufe: 1323 

readtoend ' der inhalt von acss.text wird in strbuffer gespeichert str.close ' accs.txt wird wieder geschlossen dim strdaten as string = split(strbuffer, environment.newline) ' es wird jede zeile von strbuffer in strdaten geschrieben dim straccount(0,1) as string ' hier wir dein account array deklariert for i as int32 = 0 to strdaten.getupperbound(0) ' von 0 bis zeilen-von-strbuffer if strdaten(i).startswith("u") the ...

 text ins prog einbauen
Verfasst am: 26.08.2008, 17:57  Aufrufe: 1323 

(sollniss;7458)Frei ausm Kopf:Visual Basic: oh:confused:... bisschen kompliziert ... habe gradmal vbNewLine_vbCrLfIF & elseselect case&variablen...usw kennengelernt ...könntest du vielleicht noch mit hochkomma ( ' ) erklären was da von sich geht .. bzw was die begriffe bedeuten Wink wäre sehr nett Smile(habs mir um einiges einfacher vorgestellt was haltet ihr für besser, was benützt ihr mehr?Select Case oder die IF an ...

 text ins prog einbauen
Verfasst am: 25.08.2008, 21:24  Aufrufe: 1323 



 Wert aus Registry auslesen
Verfasst am: 21.08.2008, 13:11  Aufrufe: 1451 

Wie wärs mit System.Environment.Username?

 Windows Betriebszeit Messer
Verfasst am: 11.07.2008, 19:55  Aufrufe: 1258 



 ich glaub, ich hab nen Bug...
Verfasst am: 03.07.2008, 20:37  Aufrufe: 818 

txt", 1)) varPetname = (ReadLineFromTextFile("Ress/varPetname.txt", 1))Messagebox.show("Haustiername: " & varHaustiername & environment.newline & "Petname: " & varpetname) If varHaustiername = "leer" Then varHaustiername = "" ElseIf varPetname = "leer" Then varPetname = "" Else Form2.Visible = True End If End Sub[/code]Probier mal den Code und ...

 FTP Upload
Verfasst am: 01.07.2008, 06:24  Aufrufe: 1269 



 Textdatei erstellen?
Verfasst am: 30.06.2008, 19:53  Aufrufe: 5925 



 CPU Bench
Verfasst am: 09.06.2008, 19:43  Aufrufe: 2349 

(sollniss;3556)Visual Basic: Dann nimm halt ein Object-Array, bzw. kein BackgroundWorker() Array sondern ein richtiges Array, und dem weist du dann deine Backgroundworker Objekte hinzu. Das muss auf alle Fälle gehen Wink

 CPU Bench
Verfasst am: 09.06.2008, 12:52  Aufrufe: 2349 



 2005 zu 2008
Verfasst am: 26.05.2008, 14:16  Aufrufe: 675 

Sorry aber ich steh grad aufm Schlauch:Visual Basic:

 2005 zu 2008
Verfasst am: 25.05.2008, 22:24  Aufrufe: 675 



 Datei in den Autostart Ordner pflanzen! Problem: Individuell
Verfasst am: 25.05.2008, 19:25  Aufrufe: 1152 



 Datei in den Autostart Ordner pflanzen! Problem: Individuell
Verfasst am: 25.05.2008, 19:13  Aufrufe: 1152 

Du musst das Environment.UserName als Variable benutzen.Bedeutet soviel wie: "Pfadteil1" & Environment.Username & "PfadTeil2"Eine andere Möglichkeit wäre es, die Registry für den Autostart zu benutzen. Das wäre wesentlich simpler.

 Datei in den Autostart Ordner pflanzen! Problem: Individuell
Verfasst am: 25.05.2008, 18:49  Aufrufe: 1152 

Environment.UserNameso findest du den user namen raus der rest sollte dir ja klar sein greetz

 VB6 Funktionen in VB.NET
Verfasst am: 19.05.2008, 15:28  Aufrufe: 1433 



 Servie Pack 2 obwohl ServiePack 3
Verfasst am: 12.05.2008, 12:38  Aufrufe: 894 

Moin,ich habe mich mal an mein Visual Basic Buch gehalten, und da wollten die, dass ich so eine Console schreibe, die anzeigt welches ServicePack installiert ist. Nur das zeigt bei mir ServicePack 2 an, obwohl bei der Installation von Visual Basic Express 2008 stand: ServicePack 3.5 wird installiert...Hier der Code:Visual Basic: Simon

 Nützliche Funktionen [Sources]
Verfasst am: 19.03.2008, 02:10  Aufrufe: 3258 

Beschreibung: Diese Funktion prüft ob das zur Zeit der Ausführung laufende Programm Windows XP ist. Funktion: Private Function IsWindowsXP() As Boolean Dim OS As OperatingSystem = Environment.OSVersion Dim Result As Boolean = OS.Platform = _ PlatformID.Win32NT AndAlso ((OS.Version.Major = 5 AndAlso _ OS.Version.Minor >= 1) OrElse OS.Version.Major > 5) ...

 Memory Flush - Ramverbrauch deutlich senken!
Verfasst am: 02.12.2007, 13:52  Aufrufe: 2820 

... c Class MemoryManagement Private Declare Function SetProcessWorkingSetSize Lib "kernel32.dll" ( _ ByVal process As IntPtr, _ ByVal minimumWorkingSetSize As Integer, _ ByVal maximumWorkingSetSize As Integer) As Integer Public Shared Sub FlushMemory() GC.Collect() GC.WaitForPendingFinalizers() If (Environment ...

 Speichern & Laden von Datein
Verfasst am: 15.10.2007, 14:48  Aufrufe: 665 






[ Time: 5.1726s ][ Queries: 244 (5.0463s) ][ GZIP on - Debug on ]