Visual Basic Forum

Verfasst am: 15.03.2012, 14:24 Aufrufe: 283

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" ... can only find & ...

Verfasst am: 15.03.2012, 14:23 Aufrufe: 137

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" ... can only find & ...

Verfasst am: 15.03.2012, 11:15 Aufrufe: 203

... gerne an die größe das Inhaltes anpassen nur wie mache ich das ?? hier mal mein Code Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim popup As New Form Dim browser As New WebBrowser browser.Navigate("http://irgendeine.URL") popup.Controls.Add(browser) popup.Show ...

Verfasst am: 14.03.2012, 17:44 Aufrufe: 142

... de Hilfe die ich bekommen kann. Mein Problem, ich versuche schon verzweifelt einen aktuellen Datensatz in ein DataReport (VB6)zu übergeben. Die Daten werden über Data1/RecordSource in Textfelder übergeben, jetzt möchte ich den angezeigten Datensatz in ein DataReport übergeben. Ich habe diesen Befehl eingesetzt Private Sub PrintMastInsp_Click() i = Me.Data1.Recordset.AbsolutePosition MastInspDruck.Show ...

Verfasst am: 15.02.2012, 14:16 Aufrufe: 183

SelText = InBuff Datatransfer_Counter = Datatransfer_Counter + 1 'Mit jedem über die Schnittstelle übertragenen Datensatz den Zähler um 1 erhöhen If Datatransfer_Counter = 1 Then frm_Dialog_Check_Data.Show Else MsgBox "Eben wurde die Inprozesskontrolle Nr. " & Datatransfer_Counter & " an den Rechner übertragen!" ...

Verfasst am: 09.08.2011, 13:25 Aufrufe: 1410

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() MessageBox.Show(ex.Message, "Fehler") End Try ...

Verfasst am: 21.07.2011, 16:14 Aufrufe: 458

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

Verfasst am: 19.07.2011, 19:27 Aufrufe: 628

Any, 4000) Dim funktion As String() Dim mainthread As Threading.Thread Dim list As New List(Of Connection) '______________ Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Show() Server = New TcpListener(ipendpoint) Server.Start() While ...

Verfasst am: 10.06.2011, 19:41 Aufrufe: 427

html so weit ist ja noch alles schön und gut. Der Browser zeigt jetzt (auch in Visual-Basic Webbrowser) "3.0" an. Also hab ich dann mal weiter programmiert: Code von Button1(Click): If Webbrowser1.documenttext = "3.0" Then form3.show End if Voller freude mal ausprobieren... aber es öffnets sich kein form3. Also mal ein Test: Code von Button1(Click): Textbox1.text = W ...

Verfasst am: 01.06.2011, 13:06 Aufrufe: 743

... uot;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.Show ...

Verfasst am: 25.03.2011, 01:11 Aufrufe: 1244

exe") End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Form2.Show() th = New BackgroundWorker AddHandler th.DoWork, AddressOf th_DoWork AddHandler th.RunWorkerCompleted, AddressOf th_Completed AddHandler th.ProgressChanged, AddressOf th_ProgressChanged th.WorkerRepor ...

Verfasst am: 18.02.2011, 21:09 Aufrufe: 475

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 Textdatei in eine Textbox' FNr = FreeFile Open "c:\Documents\test1.txt" _ For Input As #FNr Do While Not EOF ...

Verfasst am: 15.02.2011, 15:24 Aufrufe: 1087

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

Verfasst am: 16.10.2010, 17:57 Aufrufe: 829

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

Verfasst am: 27.09.2010, 17:50 Aufrufe: 812

Value = 38 Then JumbBar1.Value = 0 End Sub Private Sub Picture5_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 38 Then Jump.Enabled = True If KeyCode = 32 Then Jump.Enabled = True If KeyCode = 38 Then Fly = 1 If KeyCode = 32 Then Fly = 1 If KeyCode = 27 Then Form3.Show If KeyCode = 40 Then Picture5.Top = Picture5.Top + 40 X = Picture5.Top Dim wo1 As Long Dim wo2 As Long If KeyCode = 39 ...

Verfasst am: 25.09.2010, 20:30 Aufrufe: 812

Hab jetzt auch angefangen die eigentlichen Levels für das Spiel zu basteln. Aber da kamm auch das nächste Problem: Während des Spiels läuft ein Timer der die Restliche Zeit anzeigt. Sobald aber dann die Zweite Level geladen wird, Form5.Show läuft die Zeit DOPPELT so schnell und wenn sie dan einmal voll ist fängt sie wieder bei 0 an anstatt den GameOver Screen zu laden. Wenn allerdings Level2 das Startformular i ...

Verfasst am: 04.09.2010, 23:25 Aufrufe: 347

Hi! Ein fenster mit me.close() zu schließen ist klar. Dabei bleiben aber z.B. alle Textboxen gefüllt. beim nächsten form1.show() stehen in den Textfeldern die letzten Eingaben. Als alter VB6 Veteran kenne ich von dort das unload form1 und die Form war weg und leer. Danke! Leffe

Verfasst am: 03.09.2010, 15:04 Aufrufe: 813

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 Exception MessageBox.Show(" ...

Verfasst am: 29.08.2010, 19:05 Aufrufe: 1015

... ;Anlage bauen", "Kapital aufnehmen", "Kapital anlegen", "Periode beenden", "Wärme", "Absatz"} For i = 0 To 17 frmEin = Formulare(i) 'UPGRADE_WARNING: Couldn't resolve default property of object frmTitel(i). If Ausgewaehlt = frmTitel(i) Then 'UPGRADE_WARNING: Couldn't resolve default property of object frmEin.Show ...

Verfasst am: 30.07.2010, 09:34 Aufrufe: 748

Verfasst am: 09.02.2010, 15:05 Aufrufe: 702

Verfasst am: 09.02.2010, 09:39 Aufrufe: 1208

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

Verfasst am: 08.02.2010, 17:33 Aufrufe: 440

Bei Form1.vb musst du muss ein Button sein, in den musst du dann folgendens reinschreiben: Form2.Show Wenn du Form1 noch schließen willst dann: Me.Hide Müsste funktionieren Very Happy

Verfasst am: 05.02.2010, 09:09 Aufrufe: 492

Im Moment ist die "beste" Variante für mich folgende (leider auch nicht automatsiert, aber immerhin etwas schlanker): Dim f(10) As Form Private Sub Cmd_Aufruf_Click(Index As Integer) Load f(Index) f(Index).Show End Sub Private Sub Form_Load() 'Deklaration der Formnamen an einer zentralen Stelle - Eingabe leider per Hand Set f(0) ...

Verfasst am: 05.02.2010, 06:06 Aufrufe: 492

hallo ich habs gestern lange probiert aber nein ich habs nicht geschafft und ich glaube auch nicht dass das möglich ist was su aber machen könntest du schreibst selcet case in eine eigene sub Public Sub fLoad(index As Integer) Select Case index Case 0: frm_main.Show Case 1: frm_1.Show End Select End Sub z.B. und aufrufen tust dus ganz einfach mit ...

Verfasst am: 04.02.2010, 12:16 Aufrufe: 492

Verienfacht geschgildert gibt e ein Startformular (frmStart) von dem aus ich die anderen Formuare aufrufen will. Die anderen Formulare heißen frm0, frm1, frm2, frm3, frm4... Der Aufruf erfolgt über indizierte Buttons. Ich weiß also das wievielte (Index) Formular ich aufrufen will (z.B. das fünfte Formular -> frm5). Bisher habe ich das so realisiert: Select Case Index Case 0 Load frm0 frm0.show ...

Verfasst am: 24.01.2010, 15:46 Aufrufe: 746

... olgenden 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 MessageBox.Show ...

Verfasst am: 17.01.2010, 15:35 Aufrufe: 423

", vbOKOnly + vbExclamation, "Falsche Eingabe") 'txtPW.Text = "" 'txtPW.Focus() 'Else If txtMName = "ADMIN" Then Me.Close() frmOVA.Show() Else frmZVA.Show() Me.Close() End If 'End If End Sub Private Sub cmdBeenden_Click(ByVal sender As System.Object, ByVal e ...

Verfasst am: 15.01.2010, 22:52 Aufrufe: 762

Verfasst am: 03.01.2010, 22:56 Aufrufe: 568

Filter = "bitmap |*.bmp" If savefiledialog1.ShowDialog() = DialogResult.OK Then PictureBox1.Image.

Verfasst am: 04.12.2009, 09:04 Aufrufe: 329

hi close beendet das programm... probiers mit form2.show und danach me.hide so oder so ähnlich wirds in .net auch sein

Verfasst am: 03.12.2009, 20:50 Aufrufe: 1227

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() Response.Clo ...

Verfasst am: 04.11.2009, 14:47 Aufrufe: 524

hi der code wird zeile für zeile abgearbeitet darum wird am anfang geprüft ob die erste texbox leer ist und dann kommt die msgbox und die nächste text box und dann steht form2.show... deshalb wird sie angezeigt... einfach den code bisschen ändern Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = String.Empty The ...

Verfasst am: 04.11.2009, 04:34 Aufrufe: 529

. 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 String) einbauen soll? es kommt immer Signaturen inkompati ...

Verfasst am: 03.11.2009, 21:47 Aufrufe: 524

Click If TextBox1.Text = String.Empty Then MsgBox("Kein Text eingegeben!") End If If PasswordTextBox.Text = String.Empty Then MsgBox("Kein Passwort eingeben!") End If Form2.Show() Ich will es aber haben, dass sich Form2 nur öffnet wenn in Textbox1 ein text steht und in Passwordtextbox ein Password steht. Was muss ic ...

Verfasst am: 29.10.2009, 19:59 Aufrufe: 936

Show Else MsgBox "Loginvorgang fehlgeschlagen, versuchen Sie es bitte erneut!!!" End If End Sub ------------------------------------------------------------------------------------------------ Funktioniert! nach erfolgreichem login komme ich zur nächsten form: soo! dieses sieht wie folgt aus: soo jetzt brauche ich hilfe! ich will wenn man auf PASSWORD HINZUFÜGEN geht eine neue F ...

Verfasst am: 25.10.2009, 14:31 Aufrufe: 6628

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 angezeigt dass man eingeloggt war. Cookies ...

Verfasst am: 23.10.2009, 05:17 Aufrufe: 754

*" If .ShowDialog() = DialogResult.OK Then FileName = .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 ...

Verfasst am: 02.10.2009, 04:43 Aufrufe: 1901

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

Verfasst am: 17.07.2009, 12:02 Aufrufe: 515

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

Verfasst am: 17.07.2009, 09:24 Aufrufe: 834

' 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!", "Upload Complete", _ MessageBoxButtons.OK, MessageBoxIcon.In ...

Verfasst am: 15.07.2009, 10:02 Aufrufe: 515

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 weiterhelfen? Und weiß jemand wie ich dann wieder an die Stelle komme an der ich aufgehört habe in meinem Haupt ...

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

Verfasst am: 29.06.2009, 15:26 Aufrufe: 1459

Beschreibung:Mit der Funktion kann damit einige Fenstereffekte erzeugen. U.a. Einfaden, Ausfaden, Schieben, Rollen... Falls der Effekt nicht mit der Windows-Version kompatibel ist, oder ein anderer Fehler auftritt, wird die Form trotzdem ein-/ausgeblendet. Genauere Beschreibung zur Handhabung im Quellcode.Funktion:Visual Basic: Beschreibung der Parameter:Fenster: die Form die animiert werden sollArt:EINBLENDEN: Fenst ...

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

Verfasst am: 21.06.2009, 16:32 Aufrufe: 1141

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 End Class Ich bekomme folgenden Fehler angezeigt. Fehler 1 Der Wert vom Typ "System.Windows.Forms.PictureBo ...

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