sreda, 1. december 2010

Syntax highlighter, kontrolnik za prikaz izvorne kode

Dodal "SyntaxHighlighting" funkcionalnost. Tole je primer kode v Visual Basicu. Informacije o namestitvi SyntaxHighlighterja so na naslednjih mestih:
Sub proDialogOkno()
Dim varStartTime As Double
Dim varSporočilo As String

    varStartTime = Timer
    
    Range("A1") = varStartTime
    
    Application.Goto Reference:="PoljeA"
    Application.Dialogs(xlDialogAlignment).Show
    Range("A2") = Timer
    
    Range("A3") = "Čas trajanja:" & Timer - varStartTime & " sekund"
    Sheets("List3").Range("PoljeA").Value = "AAA"
    
    If MsgBox("Se okno odpre?", vbYesNo, ".. gumb ...") Then
        Sheets("List5").Range("A1:F10").Value = "Ok!"
    Else: Value = "Poreden!"
    End If
    
    Selection.Offset(2, 3).Select
    ActiveCell.Value = "Barvica!"
    ActiveCell.Font.Name = "Verdana"
    ActiveCell.Font.Color = vbRed
End Sub



Ni komentarjev:

Objavite komentar