Brugernavn:



Kodeord: Husk
Forside Forum Artikler Downloads Søg
 

Syntax Highligthing error

Hej Rowlies q:

Jeg har et problem med et stykke vb kode, det skulle være en syntax highlighting men jeg får denne fejl:

Type 'DataRow' is not defined

I dette stykke kode:

  1.    Public Sub ColorLineNumber(ByVal LineIndex As Integer, ByVal lStart As Integer)
  2.         Dim i As Integer = 0
  3.         Dim Instance As Integer
  4.         Dim LeadingChar, TrailingChar As String
  5.         Dim SelectionAt As Integer = Me.SelectionStart
  6.         Dim MyRow As DataRow
  7.         Dim Line() As String, MyI As Integer, MyStr As String

  9.         ' Lock the update
  10.         LockWindowUpdate(Me.Handle.ToInt32)

  12.         MyI = lStart

  14.         If CaseSensitive Then
  15.             Line = Split(Me.Lines(LineIndex).ToString, " ")
  16.         Else
  17.             Line = Split(Me.Lines(LineIndex).ToLower, " ")
  18.         End If

  20.         For Each MyStr In Line
  21.             Me.SelectionStart = MyI
  22.             Me.SelectionLength = MyStr.Length

  24.             If Words.Rows.Contains(MyStr) Then
  25.                 MyRow = Words.Rows.Find(MyStr)
  26.                 If (Not CaseSensitive) Or (CaseSensitive And MyRow("Word") = MyStr) Then
  27.                     Me.SelectionColor = Color.FromName(MyRow("Color"))
  28.                 End If
  29.             Else
  30.                 Me.SelectionColor = Color.Black
  31.             End If

  33.             MyI += MyStr.Length + 1
  34.         Next

  36.         ' Restore the selectionstart
  37.         Me.SelectionStart = SelectionAt
  38.         Me.SelectionLength = 0
  39.         Me.SelectionColor = Color.Black

  41.         ' Unlock the update
  42.         LockWindowUpdate(0)
  43.     End Sub

Nogen der kan hjælpe?

Bruger Visual Basic 2008 Express Edition..

-Oliver

Pointfordeling

Forfatteren har lukket tråden og har valgt at fordele de 20 point således:
Olivernoerd 20 point
Oprettet af:
Olivernoerd

Visual Basic

Point afsat: 20

Lukket
19:24 17/03/2009
ik for noget, men tror du er den eneste herinde på rowl.dk som kan VB :P
Oprettet af:
SimonJ

Kommentar
19:30 17/03/2009
o_o. Så jeg skal søge hjælp et andet sted?xD.
Oprettet af:
Olivernoerd

Kommentar
19:34 17/03/2009
Tror jeg :)
Oprettet af:
SimonJ

Kommentar
19:45 17/03/2009
Okay, er der evt et sted du sådan kan henvise til?(:
Oprettet af:
Olivernoerd

Kommentar
19:47 17/03/2009
udvikleren, eksperten
Oprettet af:
SimonJ

Kommentar
19:49 17/03/2009
Hey Oliver.
Problemet ligger i at "DataRow" ikke er sat som noget brugbart (Nu er jeg ikke en haj til VB) har du husket
  •  Inherits System.Windows.Forms.RichTextBox 

?
Oprettet af:
The-Freak

Kommentar
20:43 17/03/2009
Ja. Længere oppe i koden. Den er ret lang q: Så har ikke postet den hele.
Oprettet af:
Olivernoerd

Kommentar
06:42 18/03/2009
Satte koden det forkerte sted, har nu sat den på en anden måde :).
Oprettet af:
Olivernoerd

Accepteret svar

Point modtaget: 20
07:19 19/03/2009
Du skal være oprettet og logget ind for at svare på en tråd
Copyright © Rowl.dk v/ Michael Raagaard | 2005-12 | Alle rettigheder forbeholdes