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