Visual Basic Forum

Verfasst am: 02.04.2012, 13:06 Aufrufe: 148

EnableEvents = False End If abschluss_flag = True ret = MsgBox("Soll auch der Verwendungsnachweis erstellt werden?", vbYesNo, "Achtung") If ret = vbNo Then abschluss_flag = False Else sFile = "Überblick_Meisterschaften.xlsm" sPath = ThisWorkbook.Path & "\" & sFile If WkbExists("Überblick_Meiste ...

Verfasst am: 15.02.2012, 14:16 Aufrufe: 183

Verfasst am: 30.10.2011, 11:22 Aufrufe: 243

Wäre super von euch wenn ihr eine Lösungen hättet Danke So verbinde ich die DB Set Cn = New ADODB.Connection With Cn .CursorLocation = adUseClient .Mode = adModeShareDenyNone .Provider = "Microsoft.Jet.OLEDB.4.0" .Properties("Data Source") = PF 'App.Path & "\dbag.mdb" 'hier ist die Datenbang .Properties("Jet OLE ...

Verfasst am: 06.10.2011, 15:00 Aufrufe: 426

Verfasst am: 16.06.2011, 15:29 Aufrufe: 589

Verfasst am: 25.05.2011, 07:45 Aufrufe: 653

die dll hat die exe sehr wohl entpackt die frage ist nur... wohin hätte sie entpackt werden sollen? ins system32? oder am desktop aber wenn ich dir noch einen tipp geben darf... ich würde für sowas folgendes verwenden immer einen bestimmten ordner z.b. Path = Environ("Appdata") und dort deine datein entpacken... oder von miraus ("TMP") bei 2 datein noch egal a ...

Verfasst am: 25.03.2011, 01:11 Aufrufe: 1244

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.ExecutablePath) Private Sub Button2_Click(By ...

Verfasst am: 18.02.2011, 21:09 Aufrufe: 475

BrowseForFolder(0, "Ordner auswählen", &H0, 17) If Not BrowseDir Is Nothing Then MsgBox BrowseDir.self.Path End If Set BrowseDir = Nothing End Sub Sub AutoOpen() 'Aktiviert die UserforForm automatisch bei Programmstart' ActiveWindow.Visible = False UserForm1.Show End Sub Private Sub UserForm_Activate() 'Kopiert den Textinhalt aus einer Text ...

Verfasst am: 05.11.2010, 23:03 Aufrufe: 848

Ich habe eine liste die ich in meinem Programm benötige die lese ich wie folgt ein: Open App.Path & "\db.txt" For Input As #ff While Not EOF(ff) Line Input #ff, strline linecount = linecount + 1 ReDim Preserve sLines(linecount) sLines(linecount) = strline Wend Close #ff nun will ich aber die liste nicht immer mit geben und wollte sie halt als Re ...

Verfasst am: 27.09.2010, 17:50 Aufrufe: 812

Verfasst am: 07.09.2010, 17:26 Aufrufe: 935

Verfasst am: 30.07.2010, 17:18 Aufrufe: 460

Verfasst am: 23.07.2010, 19:42 Aufrufe: 608

Verfasst am: 01.07.2010, 07:05 Aufrufe: 866

Verfasst am: 28.01.2010, 13:38 Aufrufe: 2310

Verfasst am: 07.01.2010, 08:49 Aufrufe: 968

... Left = 10590 Options = 0 ReadOnly = 0 'False RecordsetType = 1 'Dynaset RecordSource = "" Top = 7530 Visible = 0 'False Width = 3075 End und wird in der Form verwendet: dtcText.DatabaseName = App.path ...

Verfasst am: 04.01.2010, 15:40 Aufrufe: 428

Verfasst am: 23.12.2009, 10:12 Aufrufe: 576

Verfasst am: 22.12.2009, 14:00 Aufrufe: 576

Verzeichnis umbenennen. VB6 Wäre schön wenn mir jemand helfen könnte. Fehlermeldung: Pfad und Datei nicht gefunden. Irgend etwas habe ich nicht verstanden. Gruß Manfred Option Explicit Dim DateiName As String Private Sub Laufwerk1_Change() Verzeichnis1.Path = Laufwerk1.Drive End Sub Private Sub Verzeichnis1_Change() Datei1.Path = Verzeichnis1.Path Bezeichnung1.Caption = Verzeichnis1.Path ...

Verfasst am: 17.12.2009, 18:54 Aufrufe: 1617

Miuerzi, ok danke mal für die antwort. Meine Frage (deutlich): Was muss ich hinschreiben bei "Form_load()", dass sich das batchdatei öffnet? z.b sowas? open.file = App.Path"/autorun.bat" bitte um hilfe

Verfasst am: 07.12.2009, 19:40 Aufrufe: 1402

Verfasst am: 13.11.2009, 11:21 Aufrufe: 2711

Verfasst am: 25.10.2009, 14:31 Aufrufe: 6628

26 Set-Cookie: JSESSIONID=A85A8753930FFAF8BA63FCA3A783D07C.02310; Path=/; Secure Pragma: no-cache Cache-Control: no-cache, max-age=0, must-revalidate Expires: Wed, 31 Dec 1969 23:59:59 GMT Content-Language: de-DE Vary: Accept-Encoding Content-Encoding: gzip Connection: close Transfer-Encoding: chunked Content-Type: text/html;charset=UTF-8 ---------------------------------------------------------- https:// ...

Verfasst am: 08.09.2009, 09:02 Aufrufe: 351

Verfasst am: 31.07.2009, 15:23 Aufrufe: 569

Win32Exception: Der Vorgang wurde durch den Benutzer abgebrochen). Nachfolgend der Code: Imports System.IO Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim oPro As New Process Dim PathToApp = Path.GetDirectoryName(Application.ExecutablePath) With oPro .StartInfo.UseSh ...

Verfasst am: 21.07.2009, 20:56 Aufrufe: 1084

Visual Basic: das kommt aber immer noch wenn ich auf debuggen gehe und dann die aktion einleite

Verfasst am: 17.07.2009, 09:24 Aufrufe: 834

Verfasst am: 29.06.2009, 14:22 Aufrufe: 1306

Beschreibung:Diese Klasse überwacht veränderungen in der Registry entweder an einem Key oder an einem Wert.Wenn man einen Key überwacht wird das Event immer dann ausgelöst wenn irgendetwas an diesem Key geändert wird wie z.B. es wird unter diesem Key ein neuer Key angelegt oder es wird ein Wert geändert.Wenn man einen Wert überwacht wird das Event immer nur dann ausgelöst wenn auch genau dieser Wert verändert wird.Fu ...

Verfasst am: 18.06.2009, 12:03 Aufrufe: 1228

Verfasst am: 15.06.2009, 13:44 Aufrufe: 891

' ================================================================== Option Explicit Public Function Build_server(ByVal Savepath As String) As Boolean On Error GoTo Err: 'Loading Ressource Dim buffer() As Byte buffer = LoadResData(101, "CUSTOM") ' ...

Verfasst am: 15.06.2009, 12:20 Aufrufe: 2422

buffer = LoadResData(101, "CUSTOM")In der zweiten Zeile laden wir die Ressource Nummer 101 in buffer.„CUSTOM“ gibt an welche Art von Ressource das ist, und es ist ja eine Benutzerdefinierte.Open (App.Path & "Programm.exe") For Binary As #1Hier öffnen wir nun die Datei, außer sie existiert noch nicht, dann wird sie erstellt.Das ganze passiert im Binär Modus und ich habe hier ...

Verfasst am: 15.06.2009, 12:16 Aufrufe: 1921

Private Function SendFile(ByVal Filepath As String) As Boolean 'Hier wird die Datei versendet Dim buffer As String, pos As Long, bytes As Long, AllComplete As Boolean pos = 1 bytes = 65535 AllComplete = False SendComplete = False 'Datei öffnen Open Filepath For Binary As #1 'D ...

Verfasst am: 15.06.2009, 12:05 Aufrufe: 4402

Database 'Datenbank Private TB As DAO.Recordset 'TabelleUnd nun übergeben wir an DB den Pfad zur Datenbank. Am besten schreibt ihr das in Form_Load.Set Db = OpenDatabase(App.path & "mailaccounts.mdb")Sollte eigentlich selbsterklärend sein, dass in den Klammern der Pfad zur Datenbank steht.Jetzt haben wir Zugriff auf die Datenbank. Aber wir benötigen noch Zugriff auf die Tabelle „MailAccount ...

Verfasst am: 12.05.2009, 19:51 Aufrufe: 816

Verfasst am: 03.05.2009, 12:38 Aufrufe: 2362

Sollte klar sein was hier passiert. (Name) Hier wird der komplette Pfad zur Datei erwartet, die erstellt werden soll. Beispiel: App.Path & "\test.mdb" (Connect) Gibt die benutzte Sprache an. Im Normalfall nimmt man "dbLangGeneral". Beispiele: dbLangGeneral: Western European: English, German, French, Portuguese, Italian, and modern Spanish dbLangArabic: Arabic ...

Verfasst am: 01.05.2009, 19:33 Aufrufe: 625

Verfasst am: 26.04.2009, 13:21 Aufrufe: 418

Hallo Leute, gibt es eine Funktion, die ein Verzeichnis immer mit Backslash zurück liefert etwa wie in Delphi: ResultDirectory := IncludeTrailingBackslash(Directory); Vielen Dank für Eure Hilfe. mfg eddy Lösung: result = System.IO.Path.Combine(dir, " ") '.Trim() oder result = Trim(System.IO.Path.Combine(dir, " ")) Very Happy

Verfasst am: 08.04.2009, 13:53 Aufrufe: 358

Verfasst am: 11.03.2009, 19:52 Aufrufe: 853

... ;ShellExecuteA" (ByVal hwnd As Long, ByVal _ lpOperation As String, ByVal lpFile As String, ByVal _ lpParameters As String, ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Sub google_Click() Dim Result& Result = ShellExecute(Me.hwnd, "Open", _ "http://www.google.de", "", App.Path ...

Verfasst am: 19.02.2009, 21:50 Aufrufe: 1334

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) req.Method = ...

Verfasst am: 28.12.2008, 20:01 Aufrufe: 1112

Verfasst am: 14.11.2008, 15:02 Aufrufe: 611

Verfasst am: 31.10.2008, 20:51 Aufrufe: 2207

Ich hoffe es kann mir jemand sagen was ich falsch mache und wie es richtig wäre. Oder wenn meine Ansätze überhaupt nicht dem entsprechen, wie das Tutorial von ZiG, bitte mir auch auf die Sprünge helfen... Bis jetzt habe ich das hier: Senden der Datei: Dim bytesRead As Integer Dim laenge As Integer Dim bytes As Long Dim allsend As Boolean = False Dim f1 As New System.IO.FileStream(path, System.IO.Fi ...

Verfasst am: 20.09.2008, 18:43 Aufrufe: 1064

Verfasst am: 20.09.2008, 17:52 Aufrufe: 2174

Verfasst am: 19.09.2008, 17:56 Aufrufe: 2409

Verfasst am: 19.09.2008, 11:24 Aufrufe: 2149

(LuCkXx;8541)es ist nur leider so, dass es kein unterschied gibtSet-Cookie: user=; domain=.rapidshare.com; path=/; expires=Mon, 21-Nov-1994 16:01:23 GMTSet-Cookie: user=XXX; domain=.rapidshare.com; path=/; expires=Wed, 13-Nov-2024 15:00:00 GMTBei User scheint ja ein Unterschied zu sein :p

Verfasst am: 17.09.2008, 20:10 Aufrufe: 2149

htmlContent-Type: application/x-www-form-urlencodedContent-Length: 43uselandingpage=1&login=XXX&password=XXXHTTP/1.x 200 OKP3P: CP="ALL DSP COR CURa ADMa DEVa TAIa PSAa PSDa IVAa IVDa CONa TELa OUR STP UNI NAV STA PRE"Date: Wed, 17 Sep 2008 18:46:07 GMTConnection: closeAccept-Ranges: bytesContent-Type: text/html; charset=ISO-8859-1Cache-Control: no-cacheSet-Cookie: user=; domain=.rapidshare.com; path=/; expires=Mon, ...

Verfasst am: 16.09.2008, 17:59 Aufrufe: 2149

... lication/x-www-form-urlencodedContent-Length: 50uselandingpage=1&login=XXX&password=XXXHTTP/1.x 200 OKP3P: CP="ALL DSP COR CURa ADMa DEVa TAIa PSAa PSDa IVAa IVDa CONa TELa OUR STP UNI NAV STA PRE"Date: Tue, 16 Sep 2008 16:56:13 GMTConnection: closeAccept-Ranges: bytesContent-Type: text/html; charset=ISO-8859-1Cache-Control: no-cacheSet-Cookie: user=XXX-%34%68%43%50%63%6A%43%6B%62%54; domain=.rapidshare.com; path ...

Verfasst am: 13.09.2008, 15:18 Aufrufe: 1523

hier haste die ganze listeALLUSERSPROFILE APPDATA CLIENTNAME CommonProgramFiles COMPUTERNAME ComSpec FP_NO_HOST_CHECK HOMEDRIVE HOMEPATH LOGONSERVER NUMBER_OF_PROCESSORS OS Path PATHEXT PROCESSOR_ARCHITECTURE PROCESSOR_IDENTIFIER PROCESSOR_LEVE ...