Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin
 
Informationen über messagebox
 Try-Catch-Umgebung
Verfasst am: 15.03.2012, 14:24  Aufrufe: 283 


DatenbankTableAdapter.Autor(Me.Database1DataSet.Datenbank, AutorToolStripTextBox.Text & "%") Catch ex As System.Exception System.Windows.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" ...

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

DatenbankTableAdapter.Autor(Me.Database1DataSet.Datenbank, AutorToolStripTextBox.Text & "%") Catch ex As System.Exception System.Windows.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" ...

 MySQL - da.Update(ds, "Tabellenname")
Verfasst am: 09.08.2011, 13:25  Aufrufe: 1410 

EventArgs) Handles Button2.Click Dim ds1 As DataSet = ds.GetChanges If ds1 IsNot Nothing Then Try MySQLwrite(ds1) ds.Merge(ds1) ds.AcceptChanges() MessageBox.Show("Datenbank wurde aktualisiert!", "Erfolg") Catch ex As Exception ds.RejectChanges() Message ...

 Problem!
Verfasst am: 22.07.2011, 19:54  Aufrufe: 548 

If TextBox1.Text = Nothing Then 'hier prüfst du ob textbox1 leer ist 'wenn das nicht der fall ist (also wenn ein verein drin steht dann) else radio... msgbox... 'deswegen kommt hier eine messagebox 'weil die textbox nicht leer ist endif was du weiter im code machst ergibt auch keinen sinn... du 5 ifabfragen ineinander die alle das gleiche auslösen.... wenns schon ...

 Installierbares ISAM nicht gefunden
Verfasst am: 21.07.2011, 16:14  Aufrufe: 456 

... ) & " # " & reader("personalnummer") & " # " & reader("gehalt") & " # " & reader("geburtstag")) Loop reader.Close() con.Close() Catch ex As Exception MessageBox ...

 Stored Procedure von VB aufrufen - Probleme
Verfasst am: 01.06.2011, 13:06  Aufrufe: 743 

... 40;"Data Source=WINXP\FREIWILD;Initial Catalog=NeueDatenbank;Integrated Security=True") myCommand = myConnection.CreateCommand() myCommand.CommandText = "dbo.test_sp" myConnection.Open() Using Reader As SqlDataReader = myCommand.ExecuteReader() For Each Row As IDataRecord In Reader MessageBox ...

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

Close() bReader.Close() stream.Close() Catch ex As Exception ' Bei Fehler... MessageBox.Show("Fehler: " & vbCrLf & ex.Message, _ "Fehler", MessageBoxButtons.OK, _ MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) End Try End Sub Private ...

 Drucker fehler abfangen (Codesoft)
Verfasst am: 15.02.2011, 15:24  Aufrufe: 1086 

Document = Nothing Private Sub LblDruck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LblDruck.Click CodesoftApplication.EnableEvents = True 'Dokument geladen? If (noDocOpened) Then MessageBox.Show("Ein Etikett muss geladen sein!") Exit Sub End If 'Variable im Label füllen: 'CodesoftApplicati ...

 Cursor-Picturebox Abfrage
Verfasst am: 31.01.2011, 18:29  Aufrufe: 508 

... Exit For Else End If Hier werden die Koordinaten überprüft, textlich ausgedrückt: Befindet sich die Cursorposition auf der linken Grenze der im Array vorliegenden Bilder bishinzu dem rechten Rand (16pixel breit) und der die obere und untere grenze sind ebenfalls außerhalb des Cursors (also der Cursor muss IN der picturebox liegen) so wird eine messagebox ...

 Mails aus dem Postfach filtern
Verfasst am: 14.12.2010, 13:57  Aufrufe: 345 

olFolderInbox) Dim items As Outlook.Items = inbox.Items items.Restrict("[Unread] = true") If mailItem.Subject = "EMC" Then MessageBox.Show("Test") End If Next End Sub Aber ich bekomme immer in Zeile 8 die FM: "Der Vorgang konnte nicht ausgeführt werden.EinObjekt wurde nicht gefunden." Hat jemand ne Ahnung wie Postfacher/ ...

 Visual basic 08 Snake erstellen ?
Verfasst am: 13.12.2010, 21:47  Aufrufe: 409 



 Probleme bei "AutoUpdateFunktion"
Verfasst am: 16.10.2010, 17:57  Aufrufe: 828 

GetResponseStream()) Dim newestversion As String = sr.readtoend() Dim currentversion As String = Application.ProductVersion If newestversion.Contains(currentversion) Then MessageBox.Show("No updates need") Else MessageBox.Show("1 update need") End If End Sub End Class Und n ...

 Timer-Event wird zweimal gefeuert
Verfasst am: 14.09.2010, 09:51  Aufrufe: 437 

Start() Dieser Code wird derzeit ausgelöst, wenn ich auf einen Button klicke (soll später mit einem Event aufgerufen werden) Mein derzeitiger Code in der ResetDisplay ist folgender: TryCast(Timer, Timer).Stop() Console.WriteLine("Tick-Ereignis ausgelöst!") Ich hatte vorher eine MessageBox, hatte dann aber in der MSDN gelesen, das im Debug mit einer MessageBox das Event womöglich ...

 Einstiegsprobleme bei Microsoft Visual Basic 2008 mit der Co
Verfasst am: 03.09.2010, 15:04  Aufrufe: 813 

Name Dim customFolder As Outlook.MAPIFolder Try customFolder = inBox.Folders.Add(userName, Outlook _ .OlDefaultFolders.olFolderInbox) MessageBox.Show("You have created a new folder named " _ & userName & ".") inBox.Folders(userName).Display() Catch ex As Except ...

 Keine IP größer als 255.255.255.255
Verfasst am: 02.08.2010, 12:00  Aufrufe: 592 

... nd ein modul im modul private sub Msg_Box ( byval sText as string) msgbox sText end Sub ist auf der Form "unsichtbar" public sub Msg_Box ( byval sText as string) msgbox sText end Sub ist sichtbar und du kannst die funktion aufrufen in form1 private sub command1_click() modul1.Msg_Box "Das ist ein test" end sub und dann würde eine messagebox ...

 Zensurrechner
Verfasst am: 09.02.2010, 09:39  Aufrufe: 1207 

hi na du musst schon dazu sagen was denn nicht funktioniert oder passiert ganz einfach nix?! das wird dann wohl daran liegen dass du das ergebnis nirgendwo ausgibst Wink hänge mal unten dran MessageBox.Show(label2) lg

 Probleme bei Login auf einer Website
Verfasst am: 24.01.2010, 15:46  Aufrufe: 745 

Ich habe folgenden Sourcecode: -------------------------------------------------------------------------------------------------------------------- Public Username As String Public Password As String Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted Messa ...

 screenshot Automatisch bearbeiten
Verfasst am: 03.01.2010, 22:56  Aufrufe: 567 

FileName = OFD.FileName DeinProcess.Start() Catch ex As Exception 'Deine Fehlerbehandlung z.B. kein Programm hinterlegt!! MessageBox.Show(CType(ex.Message, String)) End Try Else 'abgebrochen End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Hand ...

 mehrere ListBoxen abfragen
Verfasst am: 14.12.2009, 23:07  Aufrufe: 729 

... 41; Then MsgBox("lol!alles gleich") Else MsgBox("etwas verschieden") Code Erklärung: WENN(der erste Wert der Listbox 1 gleich dem 1. Wert der Listbox2 ist UND der erste Wert der Listbox1 gleich dem 1. Wert der Listbox3 ist) DANN gib mir eine Message box mit dem Inhalt ("lol!alles gleich") SONST gib mir eine Messagebox ...

 Webseiten Autologin / Cookies
Verfasst am: 03.12.2009, 20:50  Aufrufe: 1227 

GetCookies(Request.RequestUri) DataStream = Response.GetResponseStream() Dim reader As New StreamReader(DataStream) Dim ServerResponse As String = reader.ReadToEnd() For Each SetCookie As Cookie In Response.Cookies MessageBox.Show(SetCookie.Name) Next reader.Close() DataStream.Close() ...

 MessageBox in den Vordergrund
Verfasst am: 22.11.2009, 18:49  Aufrufe: 859 

die MessageBox sollte eigentlich von alleine in den Vordergrund springen. versuche mal MessageBox.ShowDialog("Hallo")

 Event Handle - Probleme
Verfasst am: 04.11.2009, 04:34  Aufrufe: 529 

Nur verliere ich die Argumente(Ergebnisse) der Events... Eigentlichb müsste der richtige Code so aussehen: Private Sub AxISDNPhone1_DebuggingMessage(ByVal msg As String) Handles AxISDNPhone1.DebuggingMessage MessageBox.Show("1") End Sub Doch bei obigem Code löst das Event nicht aus... Bei folgendem Code löst das event aus aber ich weis nicht wie ich die (byVal msg as Str ...

 MessageBox in den Vordergrund
Verfasst am: 03.11.2009, 22:27  Aufrufe: 859 

Ich verwende Visual Basic 2008 unter XP. Dabei habe ich folgendes Problem, bei dem ich momentan nicht weiterkomme: Mein Programm läuft überwachend im Hintergrund. Wenn ein Ereignis eintritt, werde ich mit einer MessageBox darauf hingewiesen, und kann reagieren oder nicht (Yes,No). Soweit funktioniert das bereits, nun bräuchte ich eine Möglichkeit, die MessageBox in den Vordergrund zu bringen. Bitte hie ...

 Web.de Checker mit Cookies
Verfasst am: 25.10.2009, 14:31  Aufrufe: 6628 

Close() DataStream.Close() Response.Close() If InStr(ServerResponse, "Logout vergessen") Then MessageBox.Show("Login OK") Else MessageBox.Show("Login nicht OK") End If End Sub End Class Login schlägt immer fehl, aber auch im letzten Login wird nicht angezeig ...

 Text aus Datei in 2 Richtextboxen laden
Verfasst am: 23.10.2009, 05:17  Aufrufe: 754 

FileName sw = New StreamWriter(FileName) sw.Write(RichTextBox1.Text) sw.Write(RichTextBox2.Text) End If End With Catch es As Exception MessageBox.Show(es.Message) Finally If Not (sw Is Nothing) Then sw.Close() End If End Try End Sub P ...

 Zugriff auf VB.Net Funktionen
Verfasst am: 24.09.2009, 12:31  Aufrufe: 397 

Net (VS 2008) eine Excel 2007 Applikation und ein Excel Add-In programmiert. Das sind 2 unabhängige Projekte... Nun möchte ich, wenn ich auf einen Button meines Excel Add-In's klicke, eine Funktion (ist als public deklariert) meiner Excel Applikation aufrufen. Kann mir jemand beschreiben, wie ich das anstellen kann? Irgendein kleines Bsp. (z.B. Messagebox) würde schon reichen... Ich hoffe ich konnte mein ...

 Warum springt er nicht aus der Prozedur?
Verfasst am: 20.07.2009, 08:21  Aufrufe: 701 

SerialPort) Dim response As String ' serialPort.Open() 1: serialPort.WriteLine("SL&F") Try response = serialPort.ReadLine() Catch ex As Exception MessageBox.Show("No response from Radio") GoTo 1 End Try If String.Compare(response, String.Empty) &l ...

 Programmcode ausführen, bis Anweisung erfüllt
Verfasst am: 17.07.2009, 12:02  Aufrufe: 514 

Wenn du willst das es wieder zu Writeline springt mach es so 1: SerialPort.Writeline("Anweisung") Try SerialPort.Readline() Catch ex as Exception MessageBox.Show("No response") GoTo 1 End Try

 Https Upload funktioniert nicht
Verfasst am: 17.07.2009, 09:24  Aufrufe: 834 

Close() response = Nothing 'Überprüfen der Uploads. ' Prüfen der Übermittelten Bytes und der Größe des Files ' 'Überprüfen, ob File angelegt wurde If totalBytesRead = fileLength AndAlso _ code = HttpStatusCode.Created Then MessageBox.Show("The file has uploaded successfully!", &quo ...

 Programmcode ausführen, bis Anweisung erfüllt
Verfasst am: 15.07.2009, 10:02  Aufrufe: 514 

Hoffe ihr könnt mir soweit folgen. Ich habe in meine Pause-Funktion folgendes geschrieben: SerialPort.Writeline("Anweisung") Try SerialPort.Readline() Catch ex as Exception MessageBox.Show("No response") End Try Ich möchte aber das es wieder zu Writeline springt wenn die Exception ausgelöst wird. Dachte das funktioniert vllt mit Throw. Kann mir da jemand weit ...

 Prüfen, ob Array Daten beinhaltet
Verfasst am: 15.07.2009, 09:38  Aufrufe: 1461 

Hallo, wenn ich dich richtig verstanden habe möchtest du bestimmte Elemente im Array nach Inhalt überprüfen, richtig? Oder möchtest du generell wissen ob in deinem Array Daten vorhanden sind? Wenn du ein bestimmtes Element abfragen möchtest geht das ungefähr so: If array(0)="" then MessageBox.Show("Kein Inhalt") Else MessageBox.Show(array(0)) End If ...

 Multithreading mit VB.NET 2005
Verfasst am: 29.06.2009, 15:15  Aufrufe: 1372 

Mit .NET brachte Microsoft den heiligen Gral des Mutlithreadings zu den VB Programmierern. Bis dahin mußten wir uns mit DoEvents vor UI Lockups bewahren, oder noch schlimmer Out Of Process ActiveX-Exen programmieren um diese zu verhinden. Programmieren mit Threads bringt jedoch neue Probleme mit sich wie Deadlocks, nicht mehr ansprechbare Controls da diese in einem anderen Thread laufen usw.Dieses kleine VB.NET 2005 ...

 Fehler bei GetPixel
Verfasst am: 21.06.2009, 19:41  Aufrufe: 1141 

ImageLocation = "C:/Dokumente und Einstellungen/All Users/Dokumente/Eigene Bilder/Beispielbilder/Wasserlilien.jpg" End Sub Private Sub cmdPixelwert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPixelwert.Click Dim Wert As String = "0" Wert = GetPixel(pb, 1, 1) MessageBox.Show(Wert) End Sub End C ...

 Fehler bei GetPixel
Verfasst am: 21.06.2009, 16:32  Aufrufe: 1141 

ImageLocation = "C:/Dokumente und Einstellungen/All Users/Dokumente/Eigene Bilder/Beispielbilder/Wasserlilien.jpg" End Sub Private Sub cmdPixelwert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPixelwert.Click Dim Wert As String = "0" Wert = GetPixel(pb, 100, 100) MessageBox.Show(Wert) End Sub E ...

 VB6 vs. VB.NET
Verfasst am: 15.06.2009, 18:43  Aufrufe: 2840 

NET Code: Public Class Form1 <br />    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load <br />        MessageBox.Show("Hello World", "Titel", MessageBoxButtons.OK, MessageBoxIcon.Information) <br />    End Sub <br ...

 Datei auslesen
Verfasst am: 15.06.2009, 11:30  Aufrufe: 731 

Beschreibung:Diese Funktion liest eine Datei komplett aus.Funktion:Public Function ReadContent(ByVal FilePath As String)<br />        Dim ContentFile As New System.IO.StreamReader(FilePath)<br />        Return ContentFile.ReadToEnd.ToString()<br />End FunctionBeispiel:MessageBox.Show(ReadConte ...

 Prüfen ob Datei in benutzung ist
Verfasst am: 15.06.2009, 11:30  Aufrufe: 1024 

... gt;        FileClose(ff)  <br />      End Try<br />  <br />    End If<br />  <br />End FunctionBeispiel:If IsFileInUse("c:test.txt") = True Then<br />            MessageBox ...

 Random Zahl zwischen Min. und Max. Wert generieren
Verfasst am: 15.06.2009, 11:29  Aufrufe: 676 

... bsp;   <br />                Return [rnd].Next([Min], [Max])<br />            Catch ex As Exception<br />                MessageBox ...

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

... bsp; Else<br />                Return False<br />            End If<br /><br />End FunctionBeispiel:If IsWindowsXP() Then<br />                MessageBox ...

 Bestimmte Zeile aus einer Datei auslesen
Verfasst am: 15.06.2009, 11:27  Aufrufe: 661 

ReadLine()<br />            cnt += 1<br />        Loop<br />        ReadLineFromTextFile = Textfile.ReadLine()<br />        Textfile.Close()<br /><br />End FunctionBeispiel:Message ...

 Datenbank mit vb2005 verbinden scheitert
Verfasst am: 04.06.2009, 08:04  Aufrufe: 498 

AddWithValue("@Vertrieb", TextBox4.Text) cmd.ExecuteNonQuery() Me.Close() Catch ex As Exception MessageBox.Show(ex.Message) Finally Con.Close() End Try Danach habe ich meine Datenbank mit dem Projekt verbinden wollen, aber dann kam die Fehlermeldung, dass die Spalteninformationen d ...

 Ghost Writer Builder Hilfe funzt nicht!!!
Verfasst am: 02.05.2009, 19:02  Aufrufe: 820 

DirectoryPath & "\Ghost_Writer.exe" ProgressBar1.Value = 30 If System.IO.File.Exists(stub) = False Then MessageBox.Show("error - stub not found!") Exit Sub End If ProgressBar1.Value = 50 If IO.File.Exists(file) Then MessageBox.Show("File already exists") Me ...

 Arbeiten mit der Uhrzeit^^
Verfasst am: 19.04.2009, 20:02  Aufrufe: 457 

Hallo, Habe hier zwar die SuFu benutzt aber nix richtiges gefunden. falls ich es übersehen haben sollte tut mir sorry Wink nun zum problem. ich möchte mein programm im hintergrund laufen lassen und will, dass er dann nach einer bestimmten zeit eine bestimmte aktion ausführt (z.B. Dass er um 0:30 Uhr ein Messagebox bringt) nun weiß ich nich genau wie ich an die sache rangehen soll. ich benutzte VB2008EE. ...

 Hilfe beim Generieren...
Verfasst am: 17.02.2009, 14:39  Aufrufe: 1307 

meinst... Private Sub Generieren_Click() 'Click auf den commandbutton Ausgabe.Text = "Martin" End Sub 2. Private Sub Generieren_Click() 'Click auf den commandbutton Msgbox Ausgabe.Text 'da wird eine MessageBox angezeit wo der Inhalt der Textbox drin steht End Sub Beschreib bitte nochmal genauer was du genau möchtest... darf ich dir noch einen tipp geben... b ...

 Hilfe beim Generieren...
Verfasst am: 17.02.2009, 10:56  Aufrufe: 1307 

meinst... Private Sub Generieren_Click() 'Click auf den commandbutton Ausgabe.Text = "Martin" End Sub 2. Private Sub Generieren_Click() 'Click auf den commandbutton Msgbox Ausgabe.Text 'da wird eine MessageBox angezeit wo der Inhalt der Textbox drin steht End Sub Beschreib bitte nochmal genauer was du genau möchtest... darf ich dir noch einen tipp geben... b ...

 [C++ WinAPI] viele Sourcecodes !
Verfasst am: 14.02.2009, 12:36  Aufrufe: 2210 

Hallo Leute, ich gebe euch mal n par C++ Sourcecodes .. Es sind folgende Sourcecodes: Benutzer Abmelden / Herunterfahren Fenstergröße ändern , Button größe ändern , von iwas die Größe ändern Painten (Malen) Textfeld Text - Verwaltung WinAPI Button WinAPI Button Klick auswerten WinAPI Crypter Layout WinAPI Editboxen - Aufbau WinAPI Fenster WinAPI MessageBox Aufbau WinAPI Malen "Download" ...

 Trial Maker 14 Tage
Verfasst am: 04.02.2009, 21:13  Aufrufe: 1317 

Du könntest einfach das Installationsdatum und einen Wert der 1 ist wenn man registriert ist und 0 wenn nicht in die Registry schreiben. Das mit dem löschen würde ich nicht machen aber ich würde die Werte einfach beim starten abfragen und wenn die 14 Tage abgelaufen sind (einfacher Prüfalgo), kommt am Start nur noch eine messagebox, wo steht dass die Trial Zeit abgelaufen ist und das Programm beendet sich.

 ICQ-Nachricht verschicken
Verfasst am: 24.09.2008, 17:22  Aufrufe: 3876 

Object, ByVal e As System.EventArgs) Handles Button1.Click icq.Logon("login.icq.com", 5190) End Sub Private Sub ICQ_Client_LoginCompleted(ByVal sess As csammisrun.OscarLib.Session) Handles ICQ_Client.LoginCompleted MessageBox.Show("Login completed...") icq.SendMessage("460097", "Hallo", csammisrun.OscarLib.MessageFlags.None) End Sub Private Sub ICQ_Client_LoginFailed(ByVal sess As csa ...

 Funktion: KeyCode zu Tastenname
Verfasst am: 13.09.2008, 18:36  Aufrufe: 2236 



 ContextMenuStrip: DropDownItems
Verfasst am: 25.08.2008, 08:00  Aufrufe: 1439 






[ Time: 3.6514s ][ Queries: 296 (3.4406s) ][ GZIP on - Debug on ]