..............

[GenericName]

...

Endret 11. januar 2011 av Token

[Vain]

If rtfSkriv.text = "Hallo" Then

[Jonas]

[object].[property]

Hva du har i If'en har ikke noe å si. Du må bare gjøre det riktig:

Private Sub Command1_Click()
If rtfSkriv.Text = "Hallo" Then
frmTull.Show vbModal
Else
MsgBox "Ikke det nei!"
End If
End Sub

Edit: 86Fredrik kom først

Endret 26. november 2004 av Jonas

[GenericName]

...

Endret 11. januar 2011 av Token

[Jonas]

Det funker her. Får du noe feilmelding, eller "bare funker det ikke"? Koden din er case-sensitiv, så du må skrive med stor forbokstav i "Hallo".

[GenericName]

...

Endret 11. januar 2011 av Token

[GenericName]

...

Endret 11. januar 2011 av Token

[aadnk]

For å fjerne case-sensitive må du bruke LCase:

 

Private Sub Command1_Click()

If LCase(rtfSkriv.Text) = LCase("Hallo") Then
   frmTull.Show vbModal
Else
   MsgBox "Ikke det nei!"
End If

End Sub

 

En annen mulighet er å legge til følgende linje ved siden "Option Explicit":

 

Option Compare Text

[GenericName]

...

Endret 11. januar 2011 av Token

[GenericName]

...

Endret 11. januar 2011 av Token

[GenericName]

...

Endret 11. januar 2011 av Token

[aadnk]

Jeg tror du bør legge ut eksempelet på nytt; iallefall er form1.frm i virkeligheten selve prosjekt-filen. Men jeg vil gjøre et forsøk selv:

 

Test.zip

 

Jeg har også laget et mer avansert skript-språk med omtrentlig samme syntaks som VB:

 

VBScript.zip

[GenericName]

...

Endret 11. januar 2011 av Token

[aadnk]

Testen funka ikke, Compile Error.

 

Scriptet, er det VB kode, i allefall funker det ikke. men det er bra gjort.

Bruker du Visual Basic 2005 Express?

 

Hvis ikke, må jeg råde deg å reinstallere Visual Basic 6.0 igjen. Har du lavere, må du legge inn følgende kode i frmTest, eller i en modul i samme prosjekt:

 

Option Explicit

Public Enum CompareMethod
   BinaryCompare
   TextCompare
End Enum

Public Function Split(Expression As String, Optional ByVal Delimiter As String = "  ", Optional ByVal Limit As Long = -1, Optional ByVal Compare As CompareMethod = BinaryCompare) As Variant

'Expression:    The string to split.
'Delimiter:     The delimiter used for the split.
'Limit:         The max number of elements to return (-1 = all elements).
'Compare:       The compare method (binary or text).

'Returns:       A zero-based variant array of substrings or
'               entire expression as element(0) if no delimiter found.

Dim lPos1   As Long
Dim lPos2   As Long
Dim lIdx    As Long
Dim lCnt    As Long
Dim saTmp() As String

   'Initialize the variables
   lCnt = 0
   lPos1 = 1
   ReDim saTmp(99)
   
   'Search for the delimiter.
   lPos2 = InStr(1, Expression, Delimiter, Compare)
   While lPos2 > 0 And ((lCnt <= Limit) Or (Limit = -1))
       'Delimiter found, extract the substring between the delimiters.
       saTmp(lCnt) = Mid$(Expression, lPos1, lPos2 - lPos1)
       lCnt = lCnt + 1
       If (lCnt Mod 100) = 0 Then
           'Increase array size if needed.
           ReDim Preserve saTmp(UBound(saTmp) + 100)
       End If
       'Move to end of last delimiter found.
       lPos1 = lPos2 + Len(Delimiter)
       'Search for the next delimiter.
       lPos2 = InStr(lPos1, Expression, Delimiter, Compare)
   Wend
   
   If lPos1 < Len(Expression) Then
       'Extract last substring.
       saTmp(lCnt) = Mid$(Expression, lPos1)
       lCnt = lCnt + 1
   End If
   
   'Resize the array to correct size.
   If lCnt > 0 Then
       ReDim Preserve saTmp(lCnt - 1)
   Else
       ReDim saTmp(-1 To -1)
   End If
   
   'Return the array.
   Split = saTmp
   
End Function

Endret 28. november 2004 av aadnk

[GenericName]

...

Endret 11. januar 2011 av Token

[aadnk]

Hvorfor må jeg reinstallere Visual Basic, jeg bruker VB6, men jeg følger rådet ditt.

 

Jeg trur også jeg har funnet feilen!

Hmm... det finnes en rekke feil som kan oppstå. En mulighet er at du ikke ekstrakter ZIP-filene når du åpner prosjektene. En annen feilkilde er hvis du ikke åpner den rette filen; du skal åpne VBP filer for å få all kode med.

 

Hvis ikke noe av dette er årsaken, kan det bare være VB6 som ikke er korrekt installert.

[GenericName]

...

Endret 11. januar 2011 av Token