Подсветка синтаксиса

[gaidar]

Код: Выделить всё


Public function helloWorld(my param as string) as string

helloWorld = myParam

end function



[FaKk2]

Код: Выделить всё

Private Sub Test(str as String)
MsgBox "Hello World!" 'Sub means subprocedure, As String - variable type
End Sub


[gaidar]

Неа, не пашет

[Amed]

А что должно пахать?

[gaidar]

Не важно

[FaKk2]

Гайдар юзай DzSoft PHP Editor
Там есть проверка синтаксиса php перед заливкой на сервак

[Amed]

Кстати говоря, до последнего Вашего поста топик "завис"... Грузился только до заголовка...

[FaKk2]

Гайдар форум режет С ашипками

[gaidar]

Код: Выделить всё


Private Sub Test(str as String)
MsgBox "Hello World!" 'Sub means subprocedure, As String - variable type
End Sub


[FaKk2]

Раскраска дикая
А тэг какой?

[FaKk2]

Код: Выделить всё


Dim counter As Long


[gaidar]

Тег syntax="язык"

[gaidar]

Код: Выделить всё

Public function helloWorld(my param as string) as string

helloWorld = myParam

end function


[gaidar]

Код: Выделить всё

Public function helloWorld(my param as string) as string

helloWorld = myParam

end function


[gaidar]

Хрень какая-то твориться..

[gaidar]

Хотя... Вроде ничего так, работает как-то.

[FaKk2]

Я ж грю, раскраска дикая

[gaidar]

Код: Выделить всё



Sub Test

End Sub


[gaidar]

Ну что, можно сказать, что работает?

[gaidar]

Фуф, под рассказы о Титанике все удалось завершить.

[gaidar]

Код: Выделить всё

Private Sub ColourPicker1_Cancel()

    Unload Me
   
End Sub

Private Sub ColourPicker1_ColourChoosen(ByVal Colour As Long)

    Select Case frmMain.tbsCodeTabs.SelectedItem.Key
        Case "Code"
            frmMain.rtfCode.SelColor = Colour
        Case "Notes"
            frmMain.rtfNotes.SelColor = Colour
    End Select
    frmMain.ColourButton1.Colour = Colour
    Unload Me
   
End Sub

Private Sub Form_Load()
   
    On Error Resume Next
    Dim MeTop As Long
    Dim MeLeft As Long
    Dim TaskBarHwnd As Long
    Dim TaskRect As RECT
    Dim ColoursRect As RECT
   
    Me.Move frmMain.tbRTF.Buttons("Font Colour").Left + frmMain.tbRTF.Left + frmMain.Left + 70, _
        frmMain.rtfCode.Top + frmMain.Top + 650
    TaskBarHwnd = FindWindow(TaskBar, "")
    Call GetWindowRect(TaskBarHwnd, TaskRect)
    Call GetWindowRect(Me.hwnd, ColoursRect)
   
    If ColoursRect.Right > TaskRect.Right Then
        MeLeft = Screen.Width - Me.Width
    Else
        MeLeft = frmMain.tbRTF.Buttons("Font Colour").Left + frmMain.tbRTF.Left + frmMain.Left + 70
    End If
   
    If ColoursRect.Bottom > TaskRect.Top Then
        MeTop = (TaskRect.Top * Screen.TwipsPerPixelX) - Me.Height
    Else
        MeTop = frmMain.rtfCode.Top + frmMain.Top + 650
    End If
   
    Me.Move MeLeft, MeTop
   
    Select Case frmMain.tbsCodeTabs.SelectedItem.Key
        Case "Code"
            ColourPicker1.SelectedColour = frmMain.rtfCode.SelColor
        Case "Notes"
            ColourPicker1.SelectedColour = frmMain.rtfNotes.SelColor
    End Select
   
    Call ColourPicker1.GetColours(App.EXEName, "Colours")

End Sub

Private Sub Form_Unload(Cancel As Integer)

    Call ColourPicker1.SaveColours(App.EXEName, "Colours")
    Call frmMain.ColourButton1.MouseUp
    Set frmColour = Nothing
   
End Sub

[FaKk2]

ByVal, ByRef ещё добавь
А так все работает шоколадно.

[A.A.Z.]

Код: Выделить всё

Sub Main()
Dim Foo1$
Foo1 = "БЛА"
MsgBox Foo1
End Sub

Кул
Респект всем Гайдарам вселенной

[tyomitch]

Код: Выделить всё

    Select Case frmMain.tbsCodeTabs.SelectedItem.Key
        Case "Code"
            frmMain.rtfCode.SelColor = Colour
        Case "Notes"
            frmMain.rtfNotes.SelColor = Colour
    End Select


Мерзко Select смотрится.

[K@rt]

Народ, Вы никак подсветку под VB сделали? Молодцы! А вообще хороший язык VB, под него оч просто сделать подсветку

[GM]

А нельзя ли для подсветки ключевых слов использовать темно-синий цвет, а то синий по глазах бьет, или это шаг в сторону .NET
Будет выглядет примерно так

Private Sub ColourPicker1_Cancel()

Unload Me
End Sub

[GSerg]

Активно поддерживаю данное предложение...

[Andrey Fedorov]

Вообще-то, IMHO, в идеале - должна быть стандартная раскраска самого VB - она привычна большинству...

[gaidar]

Код: Выделить всё

Sub Main()
Dim Foo1$
Foo1 = "БЛА"
MsgBox Foo1
End Sub

Кул
Респект всем Гайдарам вселенной

Не надо всем! Достаточно мне


На счет цветов, поправлю чуть позже.

Код: Выделить всё


select * from myTable where user='me'


[gaidar]

Предлагаю составить список ключевых слов и список цветов для подстветки комментариев, строк, циферок, ключевых слов и операторов.