VB: Ikke-lig

<>

eller

if not xxx = yyy then

end if

Arna_v smider ud et svar?

svar

Hmm.. Det virker nu ikke helt.

Jeg får en fejl når jeg kører dette:

Private Sub mFilerNy_click()

    If RichTextBox.Text <> "" Then

    End If

End Sub

Hvilken fejl ?

Hviken fejl?

Skriv fejlmeddelelsen..

Run Time Error 424.

Object required

****

Og fejlen opstår i følgende linie når jeg trykke på min menu knap med name=mFilerNy:
    If RichTextBox.Text <> "" Then

Er det ikke noget med at man i RichTextBox skal bruge .formatettext?

Ellers test på længden.

Din text box hedder noget andet. måske RechTextBox1

Hej.

Et tal kan være mindre end nul, men en text kan ikke være mindre end ingenting

Det du ønsker at teste må være om der står tekst i boksen, så kan du nøjes med 
If RichTextBox.text > "" then msgbox("Der står noget")

I øvrigt bruger jeg selv ofte at tage længden af den streng jeg vil teste på:
If len(RichTextBox.text) > 0 then msgbox("Der står noget")

M.v.h.  Jørn

Tak, det virker nu.

Har lige et lille spørgsmål mere:

Hvis jeg er inde i en menu-sub f.eks. MenuFilerNy, og jeg inden i skifte til det der skal ske hvis man trykker på MenuFilerGem (har index = 1). Hvordan kan jeg så gøre det?

Generalt skal du ikke lægge funktionalitet under en knap, kun henvisninger.

eks.

privat sub GemFiler()

'blablalblalalbla

end sub

privat sub command1_click()
GemFiler
end sub

privat sub command2_click()
GemFiler
end sub

På den måde undgår du mange problemer.

ellers kan du bare skrive

MenuFilerGem_Click

Synes stadig der opstår nogle fejl. Jeg har denne kode nu:

Private Sub mFilerNy_Click()
           
    If RichTextBox1.Text <> "" Then
        Dim Msg As VbMsgBoxResult, cnt As Long
        Msg = MsgBox("Vil du gemmer dokumentet?", vbQuestion + vbYesNo, App.Title)
               
            If Msg = vbYes Then
                mFilerGem_Click
            End If

    End If

End Sub

********************

Når jeg trykker på Ny-knapper, kommer denne fejlbesked:
Sob or Function not defined.

Hvad er der galt?

så hedder kanppen ikke mFilerGem, eller også har du ikke kodet suben endnu.

du kan også
call mFilerGem()

call mFilerGem_click() naturligvis

skwat >>

Smider du lige et svar, tak.

Iøvrigt nogen af jer der kan se fejlen i denne:

CommonDialog.Filter = "Alle understøttede , formater|*.txt;*.rtf;*.INI;*.htm|Almindelige Tekst Filer (txt|*.txt|, Rich Text Format (rtf)|*.rtf|Ini Filer|*.ini|Htm/Html filer|*.htm"

Luk dette spørgsmål, og stil dit spørgsmål til Commondialog i et nyt spørgsmål

skwat >>

Smider ud lige et svar?

jep