- TCP/IP activiteit.
Gaat waarschijnlijk niet lukken, maar ik kijk wat ik kan doen.
- Knoppies om workstation ineens mee te locken, uit te loggen, shutdown te doen of ineens een command prompt(NT/2K) / DOS prompt(9x/ME) te krijgen.
Dat eerste is idd een goed idee (die hou ik d'r in voor v2.1, aan v2.0 moet sowieso nog veel gebeuren en ik wil 'm een beetje op tijd af hebben

), het nut van het 2e zie ik niet echt in, aangezien je die ook in je quicklaunch balk kunt zetten.
- Wat modulairdere opbouw, bijv. alle losse onderdelen in een aparte PictureBox en dan in kunnen stellen welke je ziet (moet makkelijk te doen zijn).
Zat al in de planning (zie begin van de post) en is al vrijwel helemaal geïmplementeerd

- Naast de mogelijkheid om de RAM en CPU usage refresh in te stellen ook een mogelijkheid om te loggen; als het grafiekje nu links verdwijnt dan zul je het nooit meer weten...

(is ook handig om de activiteit van bv. games te bepalen, waarbij je StatBar niet ziet)
Dat komt ook op de planning voor v2.1

- Status van eventuele actieve dial-up connectie, met als het even kan de mogelijkheid te disconnecten.
Is misschien wel te doen (weet ik niet zeker), maar daar zie ik ook het nut niet echt van in... een dial-up verbinding zie je toch ook in je systray? Daar kun je 'm ook disconnecten.
- Volumeregeling
Is al 100% werkend, inclusief mute knopje

Enne, nog 1 dingetje... ik ben best benieuwd hoe je je StatBar zo bovenaan krijgt zodat de desktop geresized wordt...
Komt ie:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
| Sub CreateBar()
Dim iHeight As Integer
Dim R As RECT
ABD.cbSize = Len(ABD)
ABD.hWnd = frmMenu.hWnd 'Eigen handle werkt niet goed: pak gewoon een ander form
If SHAppBarMessage(ABM_NEW, ABD) = 0 Then
MsgBox "Error creating bar area." & vbCrLf & "Click OK to quit.", 16, App.Title & " Start Error"
End
End If
ABD.RC.Left = 0
ABD.RC.Right = Screen.Width \ Screen.TwipsPerPixelX
SystemParametersInfo SPI_GETWORKAREA, 0, R, 0
Select Case BarPosition
Case Pos_Top
ABD.RC.Top = R.Top
ABD.RC.Bottom = R.Top + picLeft.Height
ABD.uEdge = ABE_TOP
Case Pos_Bottom
ABD.uEdge = ABE_BOTTOM
ABD.RC.Top = R.Bottom - picLeft.Height
ABD.RC.Bottom = R.Bottom
End Select
iHeight = ABD.RC.Bottom - ABD.RC.Top
SHAppBarMessage ABM_QUERYPOS, ABD
ABD.RC.Bottom = ABD.RC.Top + iHeight
SHAppBarMessage ABM_SETPOS, ABD
End Sub |
code:
1
2
3
| Sub DestroyBar()
SHAppBarMessage ABM_REMOVE, ABD
End Sub |
ABD is van het type APPBARDATA; de declaraties kun je als het goed is allemaal terugvinden in de API documentatie die bij VB zit, en anders gewoon op MSDN.
BarPosition wordt door StatBar intern gebruikt om de positie (boven of onderaan het scherm) bij te houden, maar dat was duidelijk neem ik aan
Ik hoop dat je d'r wat mee kunt, suc6