Results 1 to 4 of 4

Thread: Code Colors

  1. #1

    Thread Starter
    PowerPoster Dave Sell's Avatar
    Join Date
    Mar 2004
    Location
    /dev/null
    Posts
    2,961

    Code Colors

    Private Sub Form_Load()
    Me.Grid1.ExcelFileName = "C:\Temp\GridTest"
    Me.Grid1.TableName = "Test"
    End Sub

    Code:
    1. Private Sub Form_Load()
    2.     Me.Grid1.ExcelFileName = "C:\Temp\GridTest"
    3.     Me.Grid1.TableName = "Test"
    4. End Sub
    Nobody knows what software they want until after you've delivered what they originally asked for.

    Don't solve problems which don't exist.

    "If I had eight hours to cut down a tree, I'd spend six hours sharpening my axe." --- Abraham Lincoln (1809-1865)

    2 idiots don't make a genius.

  2. #2

    Thread Starter
    PowerPoster Dave Sell's Avatar
    Join Date
    Mar 2004
    Location
    /dev/null
    Posts
    2,961

    Re: Code Colors

    vb Code:
    1. Private Sub Form_Load()
    2.     Me.Grid1.ExcelFileName = "C:\Temp\GridTest"
    3.     Me.Grid1.TableName = "Test"
    4. End Sub
    Nobody knows what software they want until after you've delivered what they originally asked for.

    Don't solve problems which don't exist.

    "If I had eight hours to cut down a tree, I'd spend six hours sharpening my axe." --- Abraham Lincoln (1809-1865)

    2 idiots don't make a genius.

  3. #3

    Thread Starter
    PowerPoster Dave Sell's Avatar
    Join Date
    Mar 2004
    Location
    /dev/null
    Posts
    2,961

    Re: Code Colors

    vb Code:
    1. '
    2.     Me.Grid1.AddColumn "Field1", adotype.adVariant
    3.     Me.Grid1.AddColumn "Field2", adotype.adVariant
    4.     Me.Grid1.AddColumn "Field3", adotype.adVariant
    5.     Me.Grid1.AddColumn "Field4", adotype.adNumeric
    6.     '
    7.     Me.Grid1.Initialize
    8.     '
    9.     Me.Grid1.AppendRow
    10.     Me.Grid1.AppendRow
    11.     Me.Grid1.AppendRow
    12.     Me.Grid1.AppendRow
    13.     '
    14.     Me.Grid1.Show
    15.     '
    16.     ' User edits ....
    17.     '
    18.     Me.Grid1.Export
    19.     '
    Nobody knows what software they want until after you've delivered what they originally asked for.

    Don't solve problems which don't exist.

    "If I had eight hours to cut down a tree, I'd spend six hours sharpening my axe." --- Abraham Lincoln (1809-1865)

    2 idiots don't make a genius.

  4. #4

    Thread Starter
    PowerPoster Dave Sell's Avatar
    Join Date
    Mar 2004
    Location
    /dev/null
    Posts
    2,961

    Re: Code Colors

    vb Code:
    1. '
    2.     If modKeyState.IsTabPressed And Not modKeyState.IsTabPressed Then
    3.     '
    4.     ' Why won't this code run?
    5.     '    
    6.     '
    Nobody knows what software they want until after you've delivered what they originally asked for.

    Don't solve problems which don't exist.

    "If I had eight hours to cut down a tree, I'd spend six hours sharpening my axe." --- Abraham Lincoln (1809-1865)

    2 idiots don't make a genius.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width