Visual Basic Code , VB.NET Code, VB Code
  Home   :  Code   :  Forums   :  Submit   :  Mailing List   :  About   :  Contact


Make code stand out


Make code stand out

Author
Message
pso
pso
Forum God
Forum God (73K reputation)Forum God (73K reputation)Forum God (73K reputation)Forum God (73K reputation)Forum God (73K reputation)Forum God (73K reputation)Forum God (73K reputation)Forum God (73K reputation)Forum God (73K reputation)

Group: Forum Members
Posts: 794, Visits: 338
All I meant was the borders always show up when I read posts by Mark and others that use his program.

I see the borders and I use firefox.

So I was confused as to why Mark need to change his code.

It seems to work in my browser just fine.



Still stumped here.

Why everyone so shy all a sudden?



pso





Tongue

Mark
Mark
Forum God
Forum God (142K reputation)

Group: Moderators
Posts: 1.1K, Visits: 11K
If I use my app to post code while using FireFox, it was posting the html instead of the formated text. I took care of that with the revision. With this revision, when posting from FireFox, it does not seem to pick up the border around the div. I never noticed this since I alway post using IE.
pso
pso
Forum God
Forum God (73K reputation)Forum God (73K reputation)Forum God (73K reputation)Forum God (73K reputation)Forum God (73K reputation)Forum God (73K reputation)Forum God (73K reputation)Forum God (73K reputation)Forum God (73K reputation)

Group: Forum Members
Posts: 794, Visits: 338
I see.

Well, personally I dont like borders around tables of code but it's still nice to see different styles and not always the same box from everyone.



thanks for responding

Wink




Tongue

Keithuk
Keithuk
Forum God
Forum God (298K reputation)

Group: Moderators
Posts: 1.9K, Visits: 5.5K
I'm rating this topic ***** for Mark's code. Smile

Keith

I've been programming with VB for 17 years. Started with VB4 16bit Pro, VB5 Pro, VB6 Pro/Enterprise and now VB3 Pro. But I'm no expert, I'm still learning.

vshankaa
vshankaa
Forum God
Forum God (39K reputation)Forum God (39K reputation)Forum God (39K reputation)Forum God (39K reputation)Forum God (39K reputation)Forum God (39K reputation)Forum God (39K reputation)Forum God (39K reputation)Forum God (39K reputation)

Group: Forum Members
Posts: 276, Visits: 215
I think "code" format in the forum is lame. Mark's programme is a very good one, I used it for the first time today!

Mark one suggestion...

    'Check the current word against all the words in the keywords list
    For i = 0 To intWordCount
        If LCase(sWord) = strKeyWords(i) Then
            sWord = Chr(Asc(Left(sWord, 1)) - IIf(Asc(Left(sWord, 1)) < 97, 0, 32)) & Right(sWord, Len(sWord) - 1) 'My Line
            'If you have a match, color it the color that is stated in the keyword color box
            IsKeyWord = "'#" & txtKeyword.Text & "'>" & sWord & ""
            blnIsKey = True
            Exit For
        End If
    Next i

In IsKeyWord function if you add "My Line", the keywords, if the first letter of them is in lower case, will get converted into upper case.

I hope you get the idea. You have converted Keywords to lower case for the sake of comparison, you can use this method or load keywords directly from the text file. If you use my line, keywords like 'dateserial' will be converted into 'Dateserial' (and not DateSerial). But keywords like 'dim' will be converted into 'Dim'.


___________________________________
You can see my projects in my homepage!

vshankaa
vshankaa
Forum God
Forum God (39K reputation)Forum God (39K reputation)Forum God (39K reputation)Forum God (39K reputation)Forum God (39K reputation)Forum God (39K reputation)Forum God (39K reputation)Forum God (39K reputation)Forum God (39K reputation)

Group: Forum Members
Posts: 276, Visits: 215
Private Sub Command1_Click()
    MsgBox StrConv("january", vbProperCase)
End Sub

Yes.... this will do the job. Blush


___________________________________
You can see my projects in my homepage!

Mobius
Mobius
Forum God
Forum God (105K reputation)Forum God (105K reputation)Forum God (105K reputation)Forum God (105K reputation)Forum God (105K reputation)Forum God (105K reputation)Forum God (105K reputation)Forum God (105K reputation)Forum God (105K reputation)

Group: Forum Members
Posts: 632, Visits: 1K
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim txtListGrades() As String = {"A+", "A", "B", "C", "D", "F"}
        FileOpen(1, "C:\arraywrite.txt", OpenMode.Output)
        WriteLine(1, txtListGrades)
        FileClose(1)
    End Sub

 

Yeah! Rock on! Thanks Mark, this was a test. Helps a whole lot.





-Mobius

Edited
2/21/2006 by Mobius
GO


Similar Topics


Reading This Topic


Login
Existing Account
Email Address:


Password:


Social Logins

Select a Forum....

















A1VBCode Forums


Search