Hallo ForumsteilnehmerIn,

um in diesem Form einen VB- und VBA-Code farblich so darzustellen, wie dieser auch in Visual Basic, Access, Word, Excel und allen anderen VBA-unterstützte Microsoft Office Programmen in der Quellcodeansicht angezeigt wird, hat Stefan Kulpa, der Moderator aus dem Visual Basic Forum, ein kleines Programm erstellt.

Mit dem CodeConverter kann der Code als Text eingegeben oder aus einem der o.g. Anwendungen kopiert und dann in den entsprechenden HTML-Code übersetzt werden.

Beispiel für Visual Basic

Private Sub Form_Load()
 
  Timer1.Interval = 65535 'Max.-wert etwa 1 Minute    
  Timer1.Enabled = True 
 
End Sub 

Private Sub Timer1_Timer() 
 
'// Start um 12:30    
  If Hour(Time) = 12 Then        
    If Minute(Time) >= 30 Then            
      Timer1.Enabled = False           
      'Abgleich starten        
    End If    
  End If 
 
End Sub 

Beispiel für Access, Excel, Word usw.

Option Compare Database
Option Explicit
 
Dim Gespeichert As Boolean
 
Private Sub Form_BeforeUpdate(Cancel As Integer)
' MsgBox IIf(Not Gespeichert, "NICHT ", "") & "gespeichert"
 
  If Not Gespeichert Then
    If MsgBox("Daten noch nicht gespeichert! Änderungen verwerfen?"
, vbQuestion + vbYesNo + vbDefaultButton2) = vbYes Then
      DoCmd.RunCommand acCmdUndo
    Else
      Cancel = True
    End If
  End If
 
  Gespeichert = False
 
End Sub
 
Private Sub Form_Current()
 
 Gespeichert = False
 
End Sub
 
Private Sub Speichern_Click()
 
  Gespeichert = True
  DoCmd.RunCommand acCmdSaveRecord
 
End Sub

Download
Das Programm benötigt einige spezielle Komponenten, aus diesem Grund gibt es dafür ein kleines Setup. Wer die Runtimedateien für VB 6.0 noch nicht auf dem PC installiert hat,. muss zudem diese nocht zusätzlich vorneweg installieren.

Stefan Kulpa stellt diesen CodeConverter für die Nicht-kommerzielle Nutzung frei zur Verfügung. Die Verwendung des Tools geschieht auf eigene Verantwortung. Wir, das MS-Office-Forum und namentlich Stefan Kulpa und ich, Günther Kramer, übernehmen keine Garantie bzw. Haftung für die Verwendbarkeit, oder evtl. aufgetretene Schäden. Das Tool ist selbsterklärend und bedarf aus diesem Grund keiner Hilfe.

Download des CodeConverters

Download der VB 6.0 Runtime