---
title: "sökfunktion"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/74550-sökfunktion"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "joel_joel88"
published: "2003-04-20T11:58:21.000Z"
updated: "2003-05-07T16:35:25.000Z"
replies: 3
views: 248
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/74550-sökfunktion"
---

# sökfunktion

## #1 — joel_joel88, 2003-04-20T11:58Z

Hej jag håller på att göra ett atecknings program och jag undrar hur man gör en sökfunktion som ett visst ord i en text.

t.ex som i word när du ska sök efter något så markerar den
ordet som man har sökt efter.

Permalänk: https://www.webforum.nu/p/74550

## #2 — Nexus86, 2003-04-21T20:23Z

Om textrutan heter Text1 kan du använda

```
Dim i As Integer, hitta As String

hitta = "din söksträng"
i = InStr(1, Text1.Text, hitta)
If i > 0 Then
    Text1.SelStart = i
    Text1.SelLength = Len(hitta)
    Text1.SetFocus()
Else
    MsgBox "Texten " & hitta & " kunde inte hittas", vbCritical
End If
```

Permalänk: https://www.webforum.nu/p/1018705

## #3 — joel_joel88, 2003-04-22T15:57Z

Tack nexus86!

koden funkade i det stora hela men jag fick bort dom här () vid  text1.setfocus och då funkade det.

markeringen markerade inte hela ordet.  så jag gjorde så här så att det skulle funka att markera hela ordet:

Dim i As Integer, hitta As String

hitta = "din söksträng"
i = InStr(1, Text1.Text, hitta)
If i \> 0 Then
    Text1.SelStart = i - 1
    Text1.SelLength = Len(hitta)
    Text1.SetFocus()
Else
    MsgBox "Texten " & hitta & " kunde inte hittas", vbCritical
End If

Permalänk: https://www.webforum.nu/p/1019310

## #4 — Nexus86, 2003-05-07T16:35Z

Hållt på med php för mycket. :r Därav felen. Men du lyckades ju fixa till dom själv så. :)

Permalänk: https://www.webforum.nu/p/1040321

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/74550-sökfunktion