Visual Basic Forum

Verfasst am: 15.05.2012, 14:44 Aufrufe: 116

) zuhause habt und Euch die Arbeit am Computer erleichtern wollt, dann probiert dieses Programm aus! Es lohnt sich. Was kann Shia? Ihr sitzt gerade vor dem Computer und hört Musik. Die Lautstärke ist zu leise. Was macht Ihr? Richtig. Ihr sagt "Volume auf" und die Musik ist lauter. Shia's Macht geht von CD/DVD-Laufwerk öffnen und schliessen bis zum Herunterfahren des Computers. Natürlich könnt Ihr au ...

Verfasst am: 23.04.2012, 18:32 Aufrufe: 67

Open) Dim buffer(1024) As Byte Dim bytesRead As Integer While True bytesRead = fileStream.Read(buffer, 0, buffer.Length) If bytesRead = 0 Then Exit While End If requestStream.Write(buffer, 0, bytesRead) End While ' Den request schlies ...

Verfasst am: 02.02.2011, 00:18 Aufrufe: 640

Line (0, 0)-(6, 6), vbWhite, B Next i Call SetzeAnf(False) End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = 0 Then ' Schliessen unterbinden Cancel = 1 End If End Sub ' ' Focusrechteck zeichnen oder löschen, wenn bereits vorhanden ' Private Sub FlipFocusRect() Dim OldSetting As Boole ...

Verfasst am: 08.11.2009, 13:22 Aufrufe: 1624

Verfasst am: 06.08.2009, 13:25 Aufrufe: 1090

... a sie dort nicht vorhanden ist, wird ein FileNotFound Fehler ausgegeben und dieser auch aufgefangen. Bis dahin unbekannte Fehler können mit einem einfachen Catch aufgefangen werden. Zum Schluss kann man noch eine Finally Anweisung hinzufügen, d.h falls ein Fehler auftritt wird auf jeden Fall der Finally-Block ausgeführt. In diesem Block kann man noch "Aufräumarbeiten" erledigen und so zb offene Streams schliessen ...

Verfasst am: 02.08.2009, 18:38 Aufrufe: 1338

Text & " " & TextBox4.Text & " " & TextBox5.Text) ' Stream Spühlen .Flush() ' Stream Schliessen .Close() End With und dann nur noch uploaden Dim Server as string = "ftp.extra.hu" ' zB muss zu deinem ftp passen Dim User As String = "DeinBenutzer" Dim Passwort As String = &q ...

Verfasst am: 06.07.2009, 17:37 Aufrufe: 1338

Text & " " & TextBox4.Text & " " & TextBox5.Text) ' Stream Spühlen .Flush() ' Stream Schliessen .Close() End With und dann nur noch uploaden Dim Server as string = "ftp.extra.hu" ' zB muss zu deinem ftp passen Dim User As String = "DeinBenutzer" Dim Passwort As String = &q ...

Verfasst am: 05.06.2009, 08:31 Aufrufe: 655

Hallo ! Ich schreibe mir immoment ein Programm das meine Musik Libary durchsucht und mir die Ordner anzeigt in denen ich Cover Bild habe. Die Pfade werden dann in einer ListView dargestellt. Per Doppelklick auf den Pfad öffne ich dann meinen Browser (Firefox oder IE kann gewählt werden) mit einem direktem Link zur Google-Bildersuche: Beispiel: Mit fehlt das Cover für "Job For A Cowboy - Doom Dim Shell ...

Verfasst am: 03.02.2009, 10:11 Aufrufe: 1041

Gibt es hier eine Möglichkeit um festzustellen, dass so ein Excel-Dialog offen ist?? Dann könnte ich dem User eine Meldung geben?!?! Oder kann ich sogar so einen Dialog "von Aussen" schliessen? Mein einziger Ansatz ist, einen Thread zu starten, der 30 Sekunden läuft und wenn der Abgelaufen ist, Zeige ich automatisch einen User-Dialog an (weil ich davon ausgehe, das system steht weil ein Excel- D ...

Verfasst am: 29.01.2009, 22:04 Aufrufe: 2442

while (GetMessage(&msg, NULL, 0, 0)) //Wenn eine Message reingeht (z.b. wenn der Nutzer "Schliessen" gedrückt hat { TranslateMessage(&msg); //Wird die Nachricht übersetzt DispatchMessage(&msg); } return msg.wParam; //Nun wird die Nachri ...

Verfasst am: 09.07.2008, 17:27 Aufrufe: 2004

... /> } else { echo "User gibts schon"; } } else { echo "felder nicht ausgefüllt"; } // Die Verbindung zur Datenbank schliessen ...

Verfasst am: 01.05.2008, 09:46 Aufrufe: 1821

sehr geil :psowas hab ich schon gesucht?aber wie scannt der?Full TCP?Xmas?Null?SYN Scan?ACK Scan?kann ich leider aus der source nicht schliessen :S

Verfasst am: 24.02.2008, 00:30 Aufrufe: 508

Verfasst am: 05.01.2008, 00:39 Aufrufe: 579

In den Code von deinem Button schreibst du dann Form2.show() rein, damit wird die zweite Form (bei dir dann die About Form) geöffnet. Wenn du den Namen der Aboutform änderst, musst du auch das Form2 in deinen gewählten Namen ändern. Um die Aboutform (AF) zu schliessen, kannst du auch wieder einen Button nehmen und in den Code dann me.close() Form1.show() schreiben. Dann wird die A ...

Verfasst am: 12.12.2007, 00:14 Aufrufe: 1298

... schrift geklickt End Sub 'ende wenn auf label geklickt Private Sub tmrconnect_Timer() 'wenn 1sek vorbei ist reconnect 'wenn 1sek vorbei, dann reconnect End Sub 'ende wenn 1sek vorbei ist Public Sub reconnect() 'start programmteil neu verbinden If Winsock1.State <> sckConnected Then 'pruefen ob nicht schon verbunden wenn nicht weiter Winsock1.Close 'zur sicherheit winsock schliessen ...

Verfasst am: 05.12.2007, 19:13 Aufrufe: 987

Text = "" If Not frmStatus.Visible Then frmStatus.Show , Me lblStatus.Visible = True Status.Value = 0 MailConnectToServer = False popTempFile = "" With Winsock1 ' Ggf. vorher schliessen On Local Error Resume Next .Close On Local Error GoTo 0 ' Anmelden am Mailserver lblStatus.Caption = "Verbinden mit: " + _ ServerName + ...

Verfasst am: 04.12.2007, 18:52 Aufrufe: 3645

... größe FileSize = LOF(F) ' Datei-Inhalt blockweise mit ' Leerzeichen überschreiben While ReadSize < FileSize If ReadSize + BlockSize > FileSize Then Size = FileSize - ReadSize Else Size = BlockSize End If ' Leerzeichen schreiben sInhalt = Space$(Size) Put #F, , sInhalt ReadSize = ReadSize + Size Wend ' Datei schliessen ...

Verfasst am: 08.09.2007, 15:21 Aufrufe: 1093

... ate Sub sckMain_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) sckMain.Close sckMain.Listen End Sub Private Sub sckRev_Close(Index As Integer) If Index = 0 Then 'Wenn das Socket 0, also unser Reverse-Connection-Socket ist (das wo listened), dann sckRev(0).Close 'Schliessen ...

Verfasst am: 28.08.2007, 19:16 Aufrufe: 447

ne schliessen bringt mir nix Sad

naj trotzdem danke für die schnelle antword

Verfasst am: 28.08.2007, 18:57 Aufrufe: 447

Ne geht nich, kannst es aber ganz schliessen.

Verfasst am: 28.08.2007, 18:06 Aufrufe: 447

Geht doch, ein bisschen schoener formulieren koenntest du es, aber wenigstens versteht man was xD Willst du das Programm nur verstecken, oder ganz schliessen?

Verfasst am: 16.08.2007, 00:39 Aufrufe: 652

Verfasst am: 09.08.2007, 16:32 Aufrufe: 404

Verfasst am: 28.06.2007, 21:24 Aufrufe: 430

... e auch bald mehr als nur ne Verwarnung am Hals. Der Link geht jetz direkt mal an enco und du bist wirklich der jenige der sich zusammenreissen sollte. DU bist hier Moderator und solltest ein Beispiel zeigen. Klar Amethysts Post war nicht grad informativ, aber auf jeden Fall darfst du so nicht reagieren. Wenn hier keine Noobs posten duerfen (da gehoeren auch Kiddys dazu) koennen wir das Forum direkt schliessen ...

Verfasst am: 19.06.2007, 21:54 Aufrufe: 580

Du musst für das Schliessen von Form2 einen neuen Button nehmen. Ich denk mal man könnte das auch mit einem Button und einer If-Funktion realisieren, aber ich glaub du bist noch nicht soweit mit deinem Buch

Verfasst am: 17.06.2007, 13:37 Aufrufe: 460

Hallo Leute Also ich wollte grade so ein Progii proggen wo man wie bei Wer wird Millionär Fragen beantworten muss und da hatte ich mal eine Frage Frage: Wenn man auf die Antwort klickt zb kann sich dann das programm autotmatisch schliessen? Wenn ja könntet ihr mir sagen Wie Danke im Voraus MfG nd528

Verfasst am: 30.05.2007, 19:33 Aufrufe: 588

Verfasst am: 27.04.2007, 15:19 Aufrufe: 444

Also wenn ich z.B. ein flooder gemacht habe.....ihn ausfüre und ihn danach schließe bleibt komischer weise der Prozess offen!! Gibt es eine möglichkeit ihn zu schliessen?

Verfasst am: 23.04.2002, 19:05 Aufrufe: 323

Bei dieser solltest du dann die BorderStyle-Eigenschaft auf "3 - Fester Dialog" setzen... Dann kannst du die Form mit Private Sub Command1_Click Form2.Show 1 End Sub anzeigen (wenn die neue Form "Form2" heisst...) und wenn du dann z.B. ein Textfeld aus der Form abfragen willst, musst du z.B. Form2.Text1.Text verwenden, damit VB weiss, welches Textfeld welcher Form gemeint ist... Um die Form wieder zu schliessen, mus ...

Verfasst am: 23.09.2001, 14:33 Aufrufe: 383

Quote: SO Wie meinen? Aber zur Frage: Die Auswahl eines verzeichnisses ist mit dem Standarddialog (soweit ich weiß) nicht möglich... Du könntest entweder nach dem Schliessen des Dialogfeldes überprüfen, ob das Verzeichnis richtig ist (und bei Fehlern eine Meldung anzeigen und das Dialogfeld wieder öffnen), oder z.B. das HDirList-OCX (download auf dieser Website unter OCXe & Module) zusammen mit einem Dateilistenfel ...