|
Hey Eric.
You can check out the dll after you download the software demo from this link.
http://www.codeproject.com/win32/AntonioWinLock.asp[^]
The source code is given here as well.
Just see the procedures with respect to the system clock.Rest all, i am not using them.
Thanks a bunch.
Ppl who drop their watch'es in d toilet r bound to have sh*tty time.
-- modified at 23:06 Tuesday 17th January, 2006
|
|
|
|
|
here is some vb code to do the same thing without the dll
<br />
Private Const TASKBAR = "Shell_TrayWnd"<br />
Private Const ID_TRAY = &H12F<br />
Private Const ID_CLOCK As Long = &H12F<br />
Private Const IDM_TABLEPROPERTIES = 2210<br />
Private Const SW_SHOW = 5<br />
Private Const SW_HIDE = 0<br />
<br />
Private Declare Function UpdateWindow Lib "user32" (ByVal hWnd&) As Long<br />
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd&, ByVal nCmdShow&) As Long<br />
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long<br />
Private Declare Function GetDlgItem Lib "user32" (ByVal hDlg&, ByVal nIDDlgItem&) As Long<br />
'<br />
<br />
Private Sub Command1_Click()<br />
Show_Hide True<br />
End Sub<br />
<br />
Private Sub Command2_Click()<br />
Show_Hide False<br />
End Sub<br />
<br />
Private Sub Show_Hide(blnShow As Boolean)<br />
Dim hWnd As Long<br />
<br />
hWnd = GetDlgItem(FindWindow(TASKBAR, ""), ID_TRAY)<br />
hWnd = GetDlgItem(hWnd, ID_CLOCK)<br />
If hWnd = 0 Then Exit Sub<br />
<br />
ShowWindow hWnd, IIf(blnShow, SW_SHOW, SW_HIDE)<br />
UpdateWindow hWnd<br />
End Sub<br />
|
|
|
|
|
Hey! This works great.But still having the same problem.Tray wont refresh.
Windows xp sp2.
Ppl who drop their watch'es in d toilet r bound to have sh*tty time.
|
|
|
|
|
This don't really make sense to me...
But, try this:
<br />
Private Sub Show_Hide(blnShow As Boolean)<br />
Dim hWndTray As Long<br />
Dim hWndClock As Long<br />
<br />
hWndTray = GetDlgItem(FindWindow(TASKBAR, ""), ID_TRAY)<br />
hWndClock = GetDlgItem(hWndTray, ID_CLOCK)<br />
If hWndClock = 0 Then Exit Sub<br />
<br />
ShowWindow hWndClock, IIf(blnShow, SW_SHOW, SW_HIDE)<br />
UpdateWindow hWndClock<br />
UpdateWindow hWndTray<br />
End Sub<br />
Eric Dahlvang-Programmer
|
|
|
|
|
when i save d coding from ITCN ASP.NET Forum 2004, i met d error msg "cast forom string "01-16-2006" to type 'Date' is not valid" ... so how do solve such error.....
Angela ying
|
|
|
|
|
Specify the correct culture when converting the string to date.
---
b { font-weight: normal; }
|
|
|
|
|
Thanks for solve my problem 
|
|
|
|
|
I have a folder name "temp".
There is a lot of files inside "temp".
How can I delete the files which name "abc*.*"? {include: abc1.png, abc2.png ...}
I have try
<br />
System.IO.File.delete("c:\temp\abc*.*")<br />
and
<br />
shell("del c:\temp\abc*.*")<br />
Any suggestion, Thank You!
|
|
|
|
|
Directory.GetFiles(c:\temp");
then iterate through and delete files that match.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Dim fol As String() = System.IO.Directory.GetFiles("c:\temp")
Dim a As Integer = 0
For a = 0 To (folder.Length - 1)
If folder(a).Contains("abc") Then
System.IO.File.Delete(folder(a))
End If
Next
|
|
|
|
|
|
I'm working on a program for work, I need to monitor a set of data across a few SQL tables and distribute changes/updates in real time to multiple clients. There's a 3rd party program that's directly controlling the tables, my program will strictly monitor (only select statements). The program needs to refresh in 1 second intervals and there will be up to 80 clients running simutaneously. With these clients, there are actually only about 8 groups (10 clients receive the same data), so I'm looking for ideas on the best way to distribute these results to each "group" that will minimize network traffic and database server load. The query results won't be very large (strictly integers, about 8 columns, 6 rows), the thing I'm worried about is that it will be refreshing once per second. I'm by no means a vb.net expert, but not a complete novice either, so if you can point me in the right direction(s) it would be much appreciated. Thanks.
|
|
|
|
|
Hi,
I want a window to come up that has a few fields once the user chooses to shut down the computer.
It seemed fairly straigt forward to add:
Dim dataForm As DataEntryForm<br />
dataForm = New DataEntryForm()<br />
dataForm.Visible = True<br />
dataForm.Show()<br />
into the onStop()or onShutdown() methods of a service but this did not work.
How to do this? or is there a better way?
TIA,
Brian
|
|
|
|
|
Without the 4 lines above, the service starts and stops normally, but when added to the onStop() method, the service will have a problem stopping.
There is the following properties:
System.ServiceProcess.ServiceType.InteractiveProcess as well as Win32ShareProcess etc. I think I want it as InteractiveProcess because that should mean service can interact with desktop.
So how to set this property?
pls help^^
|
|
|
|
|
|
There is a forum for suggestions for the site.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Dear Friends
I have created report files in Crystal Report 8.5 was opened and saved in Crystal 9.2 format it doesn't work anymore from VB6 application which uses Crystal Control. What is the easiest way to make VB6 app with Crystal Control be compatible with Crystal 9.2 format?
else please can some one give me the sample code to use Crystal Report 9.2 .rpt files in the vb6 app.
Your quick repsonse will be highly appreciated.
Thank you
Patel Murtuza
|
|
|
|
|
Hi There,
I downloaded a code from net. I analysed the code.
http://www.only4gurus.com/v3/download.asp?resource=3281[^]
The file is ScopingOverloadingOverriding.zip
But it doesn't works the way I thought. I believe it should give a error when Employees Salary as every employee sal should be in a particular range, like for full time employee the range should be between 30000 & 50000. But it doesn't happens. Can anyone please tell me that am I correct will it show error. If not then what is the effect of line
if value<30000 and value >50000 then
throw new argumentoutofrangeexception ("Salary", Full Time salary should be between 30000 and 500000")
How should one diagnose the code that is given in a class file. Usually F10 mode is used but it skips code given in class file and directly returns answer to the actual code. I want to check each line of the class file.
Please Help.
Thanking you and waiting for some kind replies.
amit
|
|
|
|
|
Use "or" instead of "and".
There is no value that can be lower than 30000 and higher than 50000 at the same time.
If you want to step into the code that is called, use F11.
---
b { font-weight: normal; }
|
|
|
|
|
Hi! I'm quite new here and I was hoping if anybody could help me or kind enough to give a source code for viewing crystal reports in visual basic 6...
|
|
|
|
|
|
Hi there,
i want to know if there is any way to analize the body of an received mail in vb6. This is of an add-in for outlook.
Thanks
|
|
|
|
|
|
Well,the problem is that i don´t know how to catch the mail body.
What i want to do is to catch the mail body to search for an <tag> and then compare with the URL.
It´s a kind of anti-Phishing.
Thanks
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
