Notifikationer

Markér alle som læst Log ud

Kim Neesgaard Seniormester

17. juli 2003 - 15:01 Der er 12 kommentarer og
1 løsning

Forhindring af cursorbevægelse i en listbox

Til nogle liniers ren information har jeg brugt en listbox og tilføjet linierne med AddItem. Man skal ikke kunne tabbe sig til listboxen, så derfor har jeg sat TabStop=False, men desværre kan jeg med musen godt klikke mig ind i boxen og bevæge mig op of ned med piletasterne og det ser ikke ret godt ud! Hvad gør men for at forhindre dette? Er der en bedre måde blot at vise nogle tekstlinier på?

Synes godt om

sion Nybegynder

17. juli 2003 - 15:34 #1

En mulighed er at sætte listboxen til disabled, selvom det ikke ser så kønt ud.

Synes godt om

sion Nybegynder

17. juli 2003 - 15:35 #2

Du kan f.eks. bruge en multilinje tekstbox eller bare en normal label hvor autosize er sat til true.

Synes godt om

mikker Nybegynder

17. juli 2003 - 18:56 #3

Private Sub List1_GotFocus()
Command1.SetFocus
End Sub

- Mikker

Synes godt om

Kim Neesgaard Seniormester

18. juli 2003 - 17:26 #4

sion -> Jeg har brug for linieskift - kan man gøre det?

mikker -> Fikst! Blot eet problem: jeg har sort baggrund og hvide bogstaver, men den sætter en blå markør, som jeg ikke kan påvirke med hverken ForeColor eller BackColor?

Synes godt om

mikker Nybegynder

21. juli 2003 - 06:05 #5

Linieskift: VbCrLf

Markør: Hvor og hvornår?

- Mikker

Synes godt om

Kim Neesgaard Seniormester

21. juli 2003 - 09:45 #6

Mikker -> Når man klikker på en linie i listboxen, skifter focus til Command1, men den klikkede linie står med en blå 'bjælke'.

Synes godt om

mikker Nybegynder

21. juli 2003 - 18:58 #7

Egentlig burde man bare kunne skrive

Private Sub List1_Click()
List1.Selected(List1.ListIndex) = False
Command1.SetFocus
End Sub

Men det virker af en eller anden grund ikke... Nedenstående burde dog være iorden.

Private Sub List1_Click()
For i = 0 To List1.ListIndex
If List1.Selected(i) = True Then List1.Selected(i) = False
Next i
Command1.SetFocus
End Sub

- Mikker

Synes godt om

mikker Nybegynder

21. juli 2003 - 18:59 #8

Faktisk er

Private Sub List1_Click()
List1.ListIndex = -1
Command1.SetFocus
End Sub

mere end rigeligt ifølge mine forsøg :o)

- Mikker

Synes godt om

mikker Nybegynder

21. juli 2003 - 19:17 #9

Alligevel ikke helt nok, hvis du vil bruge resultatet til noget.
Den her virker... Tror jeg nok...

Private Sub List1_Click()
If List1.ListIndex <> -1 Then
Text1 = List1.Text
List1.ListIndex = -1
End If
Command1.SetFocus
End Sub

- Mikker

Synes godt om

Kim Neesgaard Seniormester

22. juli 2003 - 13:07 #10

I mit program virker

Private Sub List1_GotFocus()
List1.Selected(List1.ListIndex) = False
Command1.SetFocus
End Sub

fint med et enkeltklik, men dobbeltklik giver fejl. Håndtering med List1_DoubleClick giver fejl i List1.Selected(List1.ListIndex) = False - VB opfatter det åbenbart, som om en linie endnu ikke er valgt(?).

Synes godt om

mikker Nybegynder

22. juli 2003 - 17:29 #11

Prøv at flette dne her ind...

If List1.ListIndex <> -1 Then
...
end if

- Mikker

Synes godt om

Kim Neesgaard Seniormester

27. juli 2003 - 16:41 #12

Så er den der!!!

Følgende virker:

Private Sub List1_GotFocus()
If List1.ListIndex <> -1 Then 'Forhindrer blå bjælke ved museklik
List1.ListIndex = -1
End If
Command1.SetFocus
End Sub

Mange tak!!!

Synes godt om

mikker Nybegynder

27. juli 2003 - 17:32 #13

Selv ! :o)

- Mikker

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic	5	29/08/202512:28	04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic	0	05/08/202510:10	-
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic	0	16/05/202512:31	-
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic	1	22/04/202514:55	25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS