Visual Basic Forum

Verfasst am: 13.01.2012, 07:39 Aufrufe: 97

Ich habe bisher alles mit VisualBasic 1.0 programmiert. Damit hatte ich bisher unter allen Betriebssystemen nie Probleme. Nun blockiert aber WIN 7 64 Bit den Programmstart mit dem Hinweis "Die Version dieser Datei ist nicht mit der ausgeführten Windows-Version kompatibel....". Kennt jemand einen Trick, wie ich das Programm dennoch zum Laufen kriege? Übrigens die Fehlerbehandlung unter Windows bringt nichts ...

Verfasst am: 01.12.2011, 07:27 Aufrufe: 254

eingebaut. Außerdem funktioniert das ganze auf meinem Entwicklungsrechner ohne Probleme auf anderen Clients spuckt es den Fehler aber aus. Das Merkwürdige ist, dass überhaupt eine Ausnahme auftritt, wo ich doch in jeder Procedur/Sub/Function eine Fehlerbehandlung eingebaut habe. Hier noch ein paar Hinweise zum Projekt: Das Form, das geschlossen wird ist ein Eingabeformular, DB basierend auf SQL-Server 2005. ...

Verfasst am: 20.11.2011, 19:59 Aufrufe: 196

... ate Inhalt As String Private Sub cmd_bold_Click() On Error GoTo cmd_bold_Click_Error If ZuErsetzen = "" Then Exit Sub End If Inhalt = Replace(Inhalt, ZuErsetzen, "<b>" & ZuErsetzen & "</b>") With Me.txtausgabe .SetFocus .Text = Inhalt End With ZuErsetzen = "" Inhalt = "" Exit Sub cmd_bold_Click_Error: fehlerbehandlung ...

Verfasst am: 07.03.2011, 19:07 Aufrufe: 404

... ' M(nr As Long, bit As Long) As Long ' nr: Adresse des Merkerbytes ' bit: Bitnummer im Merkerbyte ' Rückgabe: Gelesener Wert M5_4.Value = CPU.M(100, 5) fso.CreateTextFile "c:\testdatei.txt" Open "c:\testdatei.txt" For Output As #1 Close #1 GoTo ende err: Runstop.Text = "Fehler" ' Fehlerbehandlung ...

Verfasst am: 03.01.2010, 21:56 Aufrufe: 526

OK Then Try Dim DeinProcess As New Process DeinProcess.StartInfo.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 S ...

Verfasst am: 06.08.2009, 12:25 Aufrufe: 1029

Verfasst am: 29.06.2009, 14:26 Aufrufe: 1359

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: 15.06.2009, 11:32 Aufrufe: 1365

Verfasst am: 23.08.2008, 14:50 Aufrufe: 8690

Der Benutzer kann wärend eine Funktion ausgeführt wird trotzdem weiterarbeiten.VerwendungUm Threads verwenden zu können benötigt ihr ersteinmal den NamespaceSystem.ThreadingÖffnet daher das Codefenster und schreibt nach ganz obenVisual Basic: Fehlerbehandlung1. Beim zweiten Klick auf den ersten Button schmiert mein Projekt abDas passiert, weil der Thread bereits gestartet ist.Ihr könnt abfragen, ob der Thread bereits ...

Verfasst am: 10.08.2008, 13:26 Aufrufe: 753

Ubound sollte in einer eigenen Funktion genutzt werden mit einer Fehlerbehandlung.Wenn das Array aus welchem Grund auch immer nicht dimensioniert ist, verursacht Ubound einen Fehler.Eine Function gibt es übrigens in der Tipps und Tricks Section.Außerdem ist es ratsam die größe des Arrays vorher zu ermitteln und in eine Variable zu schreiben.Bei einer Schleife muß er sonst jedesmal den Wert über Ubound ermitteln und d ...

Verfasst am: 30.06.2008, 18:27 Aufrufe: 1749

Und jetzt noch ne ordentliche Fehlerbehandlung und die passenden Eigenschaften anstatt Methoden und es ist .NET Very Happy

Nene, ist schon gut durchdacht die Funktion, aber es stört immer noch der "lästige" CSS/JavaScript Teil Wink

Verfasst am: 16.06.2008, 11:20 Aufrufe: 2209

... llo,da ich in letzter Zeit häufiger Fragen zu Serials hier sehe, möchte ich euch heute zeigen, wie ihr diese erstellt und/oder überprüft. Ich habe es recht einfach gehalten und versucht häufig verwendeteFunktionen zu benutzen, damit dieser Code auch in VB6 verwendet werden kann ohne wirklich alles zu ändern;)Sollte es irgendwelche Fragen geben, könnt ihr diese natürlich hier stellen.Ich hab keine Fehlerbehandlung ...

Verfasst am: 23.05.2008, 16:44 Aufrufe: 2051

Verfasst am: 26.03.2008, 16:59 Aufrufe: 419

Ne das nicht, aber wenn man es deklariert, wird man schon wissen wo es anfängt. Btw. Verursacht Ubound bzw. LBound nen Fehler, wenn das Array nicht dimensioniert ist (z.B. wenn Split nen leeren oder falschen string übermittelt bekommt). Kann man umgehen wenn man es in eine extra Function packt mit ner Fehlerbehandlung. Hab auch mal iwo ne Function gesehen zum ermitteln ob das Array schon dimensioniert ist oder ...

Verfasst am: 09.03.2008, 20:24 Aufrufe: 951

Verfasst am: 10.01.2008, 08:04 Aufrufe: 411

Richtige Fehlerbehandlung ist mit vb6 gar nciht möglich,noch ein grund mehr endlich auf vb.net umzusteigen.

Verfasst am: 06.01.2008, 00:02 Aufrufe: 2007

Also es lohnt sich meiner Meinung nach auf jeden Fall noch, ich habe mir die DVD auch zugelegt und arbeite mit der 2008 Version. Also es ist kein "von 0 auf 100" Video Tutorial, es trägt ja den Titel "Einstieg für Anspruchsvolle" und den Inhalt kann man unter folgendem Link einsehen http://www.video2brain.com/products-67-2.htm Dort wird alles in einem gut verständlichen Deutsch erklärt mit e ...

Verfasst am: 04.12.2007, 17:52 Aufrufe: 3502

Jetzt fehlt nur noch die FileKill Funktion, dass ganze sieht dann so aus: Public Function FileKill(ByVal sFilename As String)As Boolean Dim F As Integer Dim sInhalt As String Dim FileSize As Long Dim ReadSize As Long Dim Size As Long Const BlockSize = 4096 ' Fehlerbehandlung aktivieren On Local Error GoTo FileKill_Error ' Datei binär öffnen F = FreeFile Op ...

Verfasst am: 03.12.2007, 21:42 Aufrufe: 477

... th As Long dwHeight As Long dwScale As Long dwRate As Long dwLength As Long dwEditCount As Long szFileType As String * 64 End Type ' Länge (Spieldauer) ermitteln ' (Rückgabewert erfolgt in Millisekunden) Public Function AVI_GetLength(ByVal sFile As String) As Long Dim hFile As Long Dim AviInfo As AVIFileInfo Dim nLength As Long ' Fehlerbehandlung ...

Verfasst am: 24.09.2007, 12:51 Aufrufe: 716

.. ' Public Function ReadLine(ByVal sFile As String, _ Optional ByVal nLine As Long = 1) As String Dim sLines() As String Dim oFSO As Object Dim oFile As Object ' Fehlerbehandlung aktivieren On Error GoTo ErrHandler ' Verweis auf das FileSystemObject erstellen Set oFSO = CreateObject("Scripting.FileSystemObject") ' Existiert die Datei überhaupt? If oFSO.Fil ...

Verfasst am: 21.07.2007, 15:51 Aufrufe: 477

... AUSBLENDEN End Enum Enum FensAnimEffekt DIMMEN ROLLEN_SEITE ROLLEN_MITTE SCHIEBEN End Enum Enum FensAnimRichtung N NO O SO S SW W NW End Enum Private Sub FensAnim( _ ByVal Fenster As Form, _ ByVal Art As FensAnimArt, _ ByVal Effekt As FensAnimEffekt, _ ByVal Richtung As FensAnimRichtung, _ ByVal Dauer_ms As Integer) ' Fehlerbehandlung ...

Verfasst am: 07.05.2007, 18:54 Aufrufe: 513

Verfasst am: 21.03.2007, 19:25 Aufrufe: 357

Tja. Die Beschreibung hilft einem nicht gerade weiter. Vielleicht beschäftigst du dich mal mit der Fehlerbehandlung. http://www.st-software.at/tutorials/tuterrors.php mfg, ZiG