Hejsan.

Jag har tre frågor som jag vill ställa, 1, 2 och 3.

1. Jag har gjort så att mitt programs ikon visas nere i systray:en. Men det händer ju inget när man klickar på ikonen. Hur ska man skriva för att få så att när man klickar på ikonen där nere så skall programmet återställas från minimeringen? Mitt program visas INTE i taskbar. Om ni vill veta koden för hur jag fick ner en ikon i systray, så gå in på Tips & Tricks och sök på systray och gå in på "Addera en ikon i systray" av Pelle.

2. Hur gör jag för att radera en viss rad i en listbox? Jätteenkelt, tycker ni säkert då, men problemet är att jag vet inte radens index, jag vet bara exakt vad som står på raden. Måste man inte få reda på indexet först då?

3. Går det, i en richtextbox, att göra så att en viss rad får bakgrundsfärgen t.ex. blå, och en annan rad får bakgrundsfärgen t.ex. röd?

Tacksam för Svar!

MvH Dan "DaPe" Persson

Hej
Fråga 1

Har lagt ut ett program i Filarean Grafik Bilder....... Iconer..

Animerad SysTray

som ger svar på din fråga 1

mvh
Sven

Igen
Ungefär så här kan du lösa fråga 2

Option Explicit
Private Sub Form_Load()
Dim i As Long
For i = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(i)
Next 'i
End Sub

Private Sub Command1_Click()
Dim i As Long
For i = 0 To List1.ListCount - 1
If List1.List(i) = Text1.Text Then
List1.RemoveItem i
Exit For 'Om du tror/vet att det inte finns fler
End If
Next 'i
End Sub

mvh
Sven

Hej!

Tack För Hjälpen SvenPon. Det funkar (nästan).

Problemet är att jag har lagt till form1.show i den här "vänstermusknappklickningskoden" (du vet, fråga 1). Problemet är att om man t.ex. har minimerat programmet och trycker på ikonen nere till höger så börjar ju den blå titelraden längst upp blinka mellan grått och blått (när programmet dyker upp). Nån som vet hur man gör för att ens program ska få fokus direkt, inte börja blinka?

Har även testat med form1.setfocus

MvH Dan "DaPe" Persson

Hej
SysTray exemplet fråga 1.

Select Case meddelande
Case WM_LBUTTONDBLCLK: 'Vänster musknapp dubbelklickning
Form1.WindowState = 0
Form1.SetFocus

ha det
Sven

<code>

Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long


dim m_fcaller as form
Dim result As Long
m_fCaller.WindowState = vbNormal
result = SetForegroundWindow(m_fCaller.hwnd)
m_fCaller.Show

</code>

Typ ...

SvenPon: Ditt exempel har jag redan testat. Tyvärr funkar det inte.

Patrik: Jag får inte ditt att fungera riktigt tror jag. Måste jag inte lägga till lite mer kod på något annat ställe?

MvH Dan "DaPe" Persson

Hej igen
>SvenPon: Ditt exempel har jag redan testat. Tyvärr funkar det inte.

Jag refererar till det exempel som ligger i Filarean. Animerad SysTray
När jag då minimerera Form1 och sedan dubbelklickar
på SysTray iconen så intager Form1 vbNormal läge
om jag har Form1.WindowState = 0
Form1.SetFocus
under Case dubbelklick.

mvh
Sven

Jag har lagt in koden i "dubbelklick", och visst dyker formen upp. Problemet är bara att den blå titelraden längst upp blinkar (vad nu det ska vara bra för) och man måste trycka på formen innan man kan göra nått i den. Jag vill att man ska slippa att trycka på formen.

Blir det inte så hos dig SvenPon?

MvH Dan "DaPe" Persson

Hej igen
>Blir det inte så hos dig SvenPon?

Jag var tvungen att kolla,nej den uppför sig precis
som jag tänkt. Form1 blir vbNormal och får Focus
(överkanten bli blå), Testa och stäng av Timern
den blinkar ju och stör kanske på något vis som jag inte förstår.

Om du känner för det kan du testa detta
Case WM_LBUTTONUP: 'Vänster musknapp upp
Form1.WindowState = vbNormal
Form1.SetFocus
Case WM_RBUTTONUP: 'Höger musknapp Upp
Me.PopupMenu Meny
End Select

DS

Hej igen....

Jag använde det exempel du lagt upp på filarean, klistrade in koden från ditt förra inlägg här, men ner man trycker på knappen så dyker programmet upp men, som sagt, titelraden blinkar. Kan det bero på vad man har för operativsystem som vi får olika resultat?

Jag kör Win98.

MvH Dan "DaPe" Persson

Hej igen
Det är mystiskt.Jag tog hem zipen från Filarean och
kollade. Det är något tokigt med den Formen Form1.
Den kommer från VB 3 tiden 16 bit ,något är knas.
Tex kan man inte välja Center Screen ,den startar som
maximerad fastän den är liten.
Förslag starta ett nytt projekt kopiera över all kod
och alla kontroller,glöm inte popupmenyn.
Som du beskriver verkar det som att focus skiftar mellan
SysTray iconen och Formen i takt med Iconväxlingar.
Kör Win95 B
ha det
Sven