Visual Basic Forum

Verfasst am: 11.05.2012, 13:42 Aufrufe: 52

Private smsObj As NokiaCLMessaging.ShortMsgAdapter Private SubmitObj As NokiaCLMessaging.IGSMSubmit Private Sub Form_Load() smsObj = New NokiaCLMessaging.ShortMsgAdapter Dim smsEntry As NokiaCLMessaging.ShortMessageItem smsEntry = New NokiaCLMessaging.ShortMessageItem 'UPGRADE_WARNING: Couldn't resolve default property of object smsEntry.Type. Click for more: 'ms-help ...

Verfasst am: 23.04.2012, 18:32 Aufrufe: 67

GetResponse() Console.WriteLine("Upload fertig.") Catch ex As UriFormatException Console.WriteLine(ex.Message) Catch ex As IOException Console.WriteLine(ex.Message) Catch ex As WebException Console.WriteLine(ex.Message) Finally If uploadResponse IsNot Nothing Then ...

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

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

Verfasst am: 07.12.2011, 14:58 Aufrufe: 493

Windows.Forms.Control.Dispose(Boolean disposing) bei System.Windows.Forms.Form.Dispose(Boolean disposing) bei SPZ_Aktiv.frmAbrechnung.Dispose(Boolean disposing) bei System.Windows.Forms.Form.WmClose(Message& m) bei System.Windows.Forms.Form.WndProc(Message& m) bei System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) bei System.Windows.Forms.Control.ControlNativeWi ...

Verfasst am: 01.12.2011, 08:27 Aufrufe: 493

Windows.Forms.Control.Dispose(Boolean disposing) bei System.Windows.Forms.Form.Dispose(Boolean disposing) bei Benutzeradmin.frmUserDetail.Dispose(Boolean disposing) bei System.Windows.Forms.Form.WmClose(Message& m) bei System.Windows.Forms.Form.WndProc(Message& m) bei System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) bei System.Windows.Forms.Control.ControlNati ...

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

Verfasst am: 01.08.2011, 17:10 Aufrufe: 234

{"Das Handle ist unqültis. } +.Data..................................{System.Collections.ListDictionarylnternal} ...HelpLink..............................Nothing ...InnerException....................Nothing ...Message............................."Das Handle ist unqültis. " ...Source..............................."mscorlib" ...StackTrace.........................." bei Sysem.l0._E ...

Verfasst am: 21.07.2011, 16:14 Aufrufe: 456

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

Verfasst am: 25.06.2011, 14:01 Aufrufe: 668

... IBUTES Dim nLength As Integer Dim lpSecurityDescriptor As IntPtr Dim bInheritHandle As Boolean End Structure Public secatt As SECURITY_ATTRIBUTES Public tapehandle As IntPtr End Module Wenn ich das Debbuging starte kommen erstmal keine Fehler, allerdings wenn ich auf den Button12 klicke kommt folgender Fehler: PInvokeStackImbalance wurde erkannt. Message ...

Verfasst am: 24.05.2011, 07:23 Aufrufe: 653

OnCreateControl() bei System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible) bei System.Windows.Forms.Control.CreateControl() bei System.Windows.Forms.Control.WmShowWindow(Message& m) bei System.Windows.Forms.Control.WndProc(Message& m) bei System.Windows.Forms.ScrollableControl.WndProc(Message& m) bei System.Windows.Forms ...

Verfasst am: 21.04.2011, 00:50 Aufrufe: 368

Create) 'Erzeuge einen Writer.... Dim obj_Writer As New System.IO.StreamWriter(obj_Stream) 'Schreibe ein paar Zeichen rein obj_Writer.WriteLine("Test123") obj_Writer.Close() 'Schliesse obj_Stream.Close() 'Schliesse Catch ex As Exception 'Aubacke da ist was schief gegangen MsgBox(ex.Mess ...

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

Verfasst am: 20.03.2011, 22:12 Aufrufe: 617

php?page=Index", 5000) Then ToolStripStatusLabel2.Text = "Erreichbar" Else MsgBox("Der Server kann nicht erreicht werden!", MsgBoxStyle.Exclamation) End If Catch ex As Exception MsgBox(ex.Message) End Try Warum geht das nicht bei vb-Paradise.de gibt es noch eine andere möglichkeit ...

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

Verfasst am: 06.02.2011, 11:05 Aufrufe: 504

Soweit so gut... Funktioniert prima, aber das Wegschreiben der Daten ist leider sehr sehr langsam. Beispiel: die DB-Tabelle heisst t_Message. WebserviceTabs_dotNetDataSetTableAdapters stellt mir DotNet wegen der Datenquelle zur Verfügung. WSResult ist das Ergebnis des Webservice. Dim oM_A = New WebserviceTabs_dotNetDataSetTableAdapters.t_MessageTableAdapter For lngI = 0 ...

Verfasst am: 03.12.2010, 22:02 Aufrufe: 713

Value generieren() Next End Sub Private Sub generieren() Try TextBox1.Text += Buchstaben.Substring(l.Next(1, 60), 1) Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub erstellen() Try TextBox2.Text += Buchstabennur.Substring(r.Next(1, 61), 1) Catch ex As Excep ...

Verfasst am: 26.10.2010, 17:28 Aufrufe: 478

Hallo zusammen, ich bin neu hier im forum und habe da ein kleines problem und hoffe ihr könnt mir helfen. entschuldigung falls ich hier im falschen bereich bin... aber frage & antwort klang für mich nach dem richtigen. sollte es sein ddas ich hier falsch bin wäre es nett wenn mir einer den weg in den richtigen bereich zeigt Wink

danke! edit1Module modGlobal Public gcon_DB As OleDb.OleDbConnection = Not ...

Verfasst am: 03.10.2010, 13:51 Aufrufe: 538

Item(4) Loop reader.Close() con.Close() con.Open() CMD.CommandText = "SELECT `Message` FROM `motd` ORDER BY `ID` DESC LIMIT 0, 5" reader = CMD.ExecuteReader news.Clear() Do While reader.Read news.Add(reader("Message"& ...

Verfasst am: 17.09.2010, 17:51 Aufrufe: 840

... End Function '<remarks> 'Sends the magic packet for a specific MAC address '</remarks> Public Shared Sub WakeUp(ByVal macAddress As String) Dim s As Socket = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp) s.SetSocketOption(SocketOptionLevel.Socket, SocketOptionName.Broadcast, 1) Dim Message ...

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

Verfasst am: 13.07.2010, 06:09 Aufrufe: 530

Verfasst am: 19.03.2010, 19:45 Aufrufe: 1027

Close() con.Close() Catch ex As Exception MsgBox(ex.Message) 'Hinweis für den Fall das eine Zeile ohne Daten ausgewählt wurde End Try End Sub ------------------------- Beim Click auf meine Listbox soll das selektierte Item genommen werden und die Kundennummer an erster Stelle ausgesplittet werden. Diese Kundennummer will ich mit der ID_Kundennummer vergleic ...

Verfasst am: 06.03.2010, 16:58 Aufrufe: 1595

Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"}) Dim adp As New OleDbDataAdapter("SELECT * FROM " & Tbl.TableName, conn) Dim b As New OleDbCommandBuilder(adp) adp.Update(Tbl) conn.Close() Catch ex As Exception Console.Write("Error in SavegameAna ...

Verfasst am: 08.02.2010, 15:37 Aufrufe: 811

... & "user id=dbo317179755;" _ & "password=*******;" _ & "database=db317179755" Try conn.Open() ' Verbindung öffnen Catch myerror As MySqlException MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message ...

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

Verfasst am: 10.01.2010, 01:47 Aufrufe: 466

Naja versuche mich schon seit 2 tage an den scheiß und immer wieder kommt was raus was ich nicht haben will mein problemm ist das ich das nicht hinbekomme das wenn eine Error Meldung kommt...die auswahl OK/Cancel oder YES/NO auch zu verfügung stehet Ein Bild von das was ich haben möchte: Source habe ich hochgeladen, währe echt nett wen ihr das teil zum Laufen bringen würdet schon mal danke ^^ vg http:// ...

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

Verfasst am: 14.12.2009, 23:07 Aufrufe: 729

... If (inhalt_listbox1 =inhalt_listbox2 And inhalt_listbox1 =inhalt_listbox3) 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 ...

Verfasst am: 14.12.2009, 22:49 Aufrufe: 538

Button1_Click(Object sender, EventArgs e) bei System.Windows.Forms.Control.OnClick(EventArgs e) bei System.Windows.Forms.ButtonBase.OnKeyUp(KeyEventArgs kevent) bei System.Windows.Forms.Control.ProcessKeyEventArgs(Message& m) bei System.Windows.Forms.Control.WmKeyChar(Message& m) bei System.Windows.Forms.Control.WndProc(Message& m) be ...

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

Verfasst am: 28.09.2009, 18:03 Aufrufe: 921

Item("Fehler2") = merkerarray(9) merkerarray(9) = "" End If Table1.Rows.Add(NewRow) j = j + 1 weiter: i = i + 1 Loop Catch ex As Exception MsgBox(ex.Message) End Try Dim ds As New DataSet() ds = New DataSet() ds.Tables.Add(Table1) Form ...

Verfasst am: 20.08.2009, 11:46 Aufrufe: 692

... uot;) > 0 Then If Form1.DataGridView1.CurrentRow.Cells("Netsupport") IsNot Nothing Then If Form1.DataGridView1.CurrentRow.Cells("Netsupport").Value Like True Then Form1.RemoteComboBox.Items.Add("Netsupport") End If If Form1.RemoteComboBox.Items.Count > 0 Then Form1.RemoteComboBox.Text = Form1.RemoteComboBox.Items(0) End If Catch ex As Exception DebugIt(ex.Message ...

Verfasst am: 20.08.2009, 10:59 Aufrufe: 521

Habe es nochmal verändert: Dim message As String Dim pointer As String Dim stringarray(1) As Char Dim i As UShort ...... ReDim stringarray(Len(message)) For i = 0 To Len(message) stringarray(i) = Mid(message, i + 1, 1) Next pointer = System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(stringarray, 1)

Verfasst am: 17.08.2009, 16:56 Aufrufe: 843

Hat jemand eine Idee wie man die Ursache dieser Exception aufspüren kann? Die Details die im Exception-Window angezeigt werden sind auch nicht gerade Aufschlussreich wie weiter unten zu sehen ist. Vielen Dank für jede Hilfe. Grüsse STG Details: System.ComponentModel.Win32Exception wurde nicht behandelt. ErrorCode=-2147467259 Message="Der Vorgang wurde erfolgreich beendet" NativeErrorCode ...

Verfasst am: 16.08.2009, 17:28 Aufrufe: 672

Verfasst am: 06.08.2009, 13:25 Aufrufe: 1090

Verfasst am: 17.07.2009, 09:24 Aufrufe: 834

Verfasst am: 13.07.2009, 08:55 Aufrufe: 1798

CommandText = "select * from berater where nachname like '%" & txtNachname.Text & "%'" 'MsgBox(cmd.CommandText) Ausgabe() Catch ex As Exception MsgBox(ex.Message) End Try con.Close() End Sub Private Sub cmdEinfügen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEinfüg ...

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

Verfasst am: 29.06.2009, 15:00 Aufrufe: 1099

Beschreibung:Dieses Snippet scant auf einem zu definierenden System eine angegebene UDP Portrange.Als Ergebnis wird zurückgeliefert, ob über den Port eine Verbindung hergestellt werden kann oder nicht.Auf einem Formular werden die n.g. Steruelemente zur Verfügung gestellt:1 Listview Steuerelement1 Command Button1 Backgroundworker1 ProgressbarDie Listview muss 3 Spaten enthalten, View sollte auf Details stehen.Funktio ...

Verfasst am: 29.06.2009, 14:59 Aufrufe: 1328

Beschreibung:Dieses Snippet scant auf einem zu definierenden System eine angegebene Portrange.Als Ergebnis wird zurückgeliefert, ob über den Port eine Verbindung hergestellt werden kann oder nicht.Auf einem Formular werden die n.g. Steruelemente zur Verfügung gestellt:1 Listview Steuerelement1 Command Button1 BackgroundworkerDie Listview muss 3 Spaten enthalten, View sollte auf Details stehen.Funktion:Visual Basic: Q ...

Verfasst am: 29.06.2009, 14:11 Aufrufe: 2112

Beschreibung:Mit dieser Klasse kann man sehr leicht eine globale Hotkey funktionalität in seinem Programm einbinden.Man muss nur diese Klasse mit WithEvents deklarieren und ihr eine Form zuweisen die gesubclassed werden soll.Dann muss man nur noch ein paar eigene HotKey-Kombinationen registrieren (z.B. Strg+Alt+X) und diesemit dem Event abfragen bzw, abfangen. Dazu muss man eine eigene HotKeyID angeben um einen besti ...

Verfasst am: 29.06.2009, 14:02 Aufrufe: 1104

Beschreibung:Mit dieser Klasse kann man - wie man es vom Windows Media Player kennt - sich in MSN bzw. Windows Live Messenger anzeigen lassen was man gerade hört. Es wird einfach mittels SendMessage ein String-Parameter an den Messenger geschickt und der zeigt den Text dann in das entsprechende Feld "Was ich gerade höre". Diese Funktion muss aber im Messenger aktiviert sein.Funktion:Visual Basic: Quelle: dotnet-snipp ...

Verfasst am: 17.06.2009, 18:16 Aufrufe: 804

ReadToEnd Catch ex As Exception Return ex.Message End Try End FunctionBeispiel: Textbox1 ...

Verfasst am: 15.06.2009, 12:16 Aufrufe: 1917

Private Sub ws_ConnectionRequest(ByVal requestID As Long) ws.Close ws.Accept requestID Label1.Caption = "Connection established" End SubDamit wir auch sehen ob eine Verbindung besteht, wird gleich in Label1 eine Message ausgegeben.Das selbe wenn eine Verbindung geschlossen wird.Private Sub ws_Close() Label1.Caption = "Connection lost&# ...

Verfasst am: 15.06.2009, 12:12 Aufrufe: 2713

Wer nicht weiß was Count bedeutet sollte jetzt in einem Wörterbuch nachsehen.So ist also gewährleistet, dass die Schleife bis zum letzten Eintrag durchläuft, egal wie viele in der Liste sind.Als nächstes fällt euch vielleicht der Befehl „StrComp“ auf.Hier wird der Text in der Zeile mit dem Text „David“ verglichen und falls sie gleich sind, wird eine Message ausgegeben.Ich hätte hier auch einfach If lv.Listitems(i).Te ...

Verfasst am: 15.06.2009, 11:29 Aufrufe: 676

... ; Return [rnd].Next([Min], [Max]) Catch ex As Exception Message ...

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

Verfasst am: 03.05.2009, 12:32 Aufrufe: 820

OnCreateControl() bei System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible) bei System.Windows.Forms.Control.CreateControl() bei System.Windows.Forms.Control.WmShowWindow(Message& m) bei System.Windows.Forms.Control.WndProc(Message& m) bei System.Windows.Forms.ScrollableControl.WndProc(Message& m) bei System.Windows.Forms.ContainerControl.WndProc(Message& m) be ...