|
Here's the answer: From bdbodger at MSDN (and also Dmitry Vitkovsky here at the Code Project)
http://social.msdn.microsoft.com/Forums/en-US/Vsexpressvb/thread/62900f1e-1969-49bb-92cd-4c4eb8c7456d/?prof=required
Create a form and add 2 PerformanceCounter controls . For the first one set Catagory property to LogicalDisk , CounterName to Disk Read Bytes/sec , InstanceName to _Total for the second PerformanceCounter set CounterName to Disk Write Bytes/sec and the other values the same as the first PerformanceCounter . You will need to create 4 small images that you will use with a notifyIcon and add them to your resources such as these
<some graphics shown here>
Set the form WindowState property to Minimized and the ShowInTaskbar property to false . Add a timer set it's enabled property to true , interval 100 and add a NotifyIcon . Then try this code
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim both As Integer = 0
If (PerformanceCounter1.NextValue > 0) Then
both += 1
End If
If (PerformanceCounter2.NextValue > 0) Then
both += 2
End If
Select Case both
Case 0
NotifyIcon1.Icon = My.Resources.blue
Case 1
NotifyIcon1.Icon = My.Resources.green
Case 2
NotifyIcon1.Icon = My.Resources.green2
Case 3
NotifyIcon1.Icon = My.Resources.greengreen
End Select
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NotifyIcon1.Icon = My.Resources.blue
End Sub
Private Sub NotifyIcon1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles
NotifyIcon1.MouseClick
If e.Button = Windows.Forms.MouseButtons.Right Then
NotifyIcon1.Visible = False
Application.Exit()
End If
End Sub
End Class
____________________________________________________________________________________________
Change InstanceName to monitor a particular disk drive .
Blessings
RevEd
|
|
|
|
|
Hi,
I am facing a critical problem with office version. I am not sure but this happening in my side.
I have developed a vb.net application of outlook add-in which integrate with outlook. Using this i am syncing contact from server and add onto outlook.
I am using ms access as a back end for saving contact information also. I have a Boolean fields in ms access table. My application is working fine. but in some OS Version and Office Version it is updating some contact automatically. I run my application in following OS with Office version which is given in Table below.
The Third column is my output in different machine. I am not updating contact but in window 7 and office 2007 this is doing automatically. First 3 rows is working fine according to my logic. but 4rth row is showing wrong output.
OS Version, Office Version , Boolean Fields Update Automatically.
Window XP, 2003, No
Window XP, 2007, NO
Window 7, 2003, No
Window 7, 2007, Yes
Please guide me where i am wrong and what i need to do.
Regards
Dharmchand Dhingra
|
|
|
|
|
I've got an Access Database
For whatever reason, there is a field in there for DATE that is declared as string.
Also there are 3 other fields in there called FDAY,FMONTH,FYEAR that are declared as number and actually get the parsed values from the DATE field.
So if the user enter for DATE 21/12/2009, the FDAY=21, FMONTH=12, FYEAR=2009
Now at some point, the user wants to get all the records from 20/6/2009 - 12/12/2009
Can someone help, on how we can make an SQL query to do that ?
Whatever i have tried does not solve the problem.
It is easy, as long you have the same month and year in the "FROM" and "TO", because you just check the FDAY variable to be within the limits.
For example if we wanted from 5/10/2009 - 23/5/2009, the SQL would be "SELECT * FROM TABLE WHERE FDAY BETWEEN 5 AND 23"
However the things get complicated when you have different month or year.For example if we want the records from 5/6/2009 to 23/11/2009.
Now what ?
Don't ask why the date field is declared as STRING and not DATE, in the first place.
The question is, is it doable with what we have now ?
Thanks.
|
|
|
|
|
Hi,
I would attempt this:
SELECT * FROM table WHERE STR_TO_DATE(stupidDateField, format)>=startDate AND STR_TO_DATE(stupidDateField, format) <=endDate
Where you need to replace "format" by whatever code suits your app, see http://dev.mysql.com/doc/refman/5.1/en/date-and-time-functions.html#function_str-to-date[^]
PS: it would be wise to rework your datebase so it stores real datetime information, not strings, as they will make life more difficult all the time.
PS2: startDate and endDate, when literals, again make date formatting problems sneak into the situation; I am not sure parameterized SQL is possible with Access, if it is, you better use it.
|
|
|
|
|
You can reformat the date to use ANSI format so they can be compared correctly. For example, use a query similar to this:
SELECT *
FROM Table
Where format(fyear,"0000")+'/'+format(fmonth,"00")+'/'+format(fday,"00")>='2009/06/05'
and format(fyear,"0000")+'/'+format(fmonth,"00")+'/'+format(fday,"00")<='2009/11/23';
Note that the begin and end date have to also be formatted to use ANSI format: "YYYY/MM/DD".
It's not pretty but because you don't have control over your table structure, this may be the solution to your problem.
Happy programming!
|
|
|
|
|
Thanks, that did it !!!
I should know better about this SQL
|
|
|
|
|
HI,
how to open existion file (all type of files)without open dialog box.
i have mention file location in programmatically,its automatically fetch the file from specific path...
Yours,
KaNNaN
-----------------------------------------------------------------
"Success is When Ur Signature Becomes An Autograph"
|
|
|
|
|
Dim strBuff As String
Open "c:\errorlog.txt" For Input As #1
Do
Line Input #1, strLine
Debug.Print strLine
Loop
Close #1 It would be better to use the FreeFile function to get a free number instead of hardcoding a #1, but I'm lazy today
I are Troll
|
|
|
|
|
...in a method called by a property within an object that is one of over 68,000...
In my 30 years of programming, I've never once experienced a stack overflow, until today.
Each time I run the program, the exception is thrown at a different spot.
I'm in hell.
EDIT ============
I moved about 60 lines of code from within a property to its own method, and had neglected to change some variable names to coincide with the move. The property was doing something like this:
Public Property Total As Decimal
Get
'do some stuff
Total = Total + x
End Get
Every time it referred to Total on the right side of the = operator, it ran through this property code again. In essence, it was a recursive method.
.45 ACP - because shooting twice is just silly ----- "Why don't you tie a kerosene-soaked rag around your ankles so the ants won't climb up and eat your candy ass..." - Dale Earnhardt, 1997 ----- "The staggering layers of obscenity in your statement make it a work of art on so many levels." - J. Jystad, 2001
modified on Tuesday, January 5, 2010 4:43 PM
|
|
|
|
|
Was this meant as a question or a comment?
John Simmons / outlaw programmer wrote: In my 30 years of programming, I've never once experienced a stack overflow, until today.
Wow, either you're a really good programmer or you must not have written many recursive functions in that time.
|
|
|
|
|
I think it's more luck than anything else. And yes, I've done my fair share of recursive functions.
.45 ACP - because shooting twice is just silly ----- "Why don't you tie a kerosene-soaked rag around your ankles so the ants won't climb up and eat your candy ass..." - Dale Earnhardt, 1997 ----- "The staggering layers of obscenity in your statement make it a work of art on so many levels." - J. Jystad, 2001
|
|
|
|
|
Hi All,
The Requirement is like this
I have to Set a Color to ComboBox as Red when Style is Other than DropDownList. How can it be possible in VB.Net. Also it should not be Editable and should be Read Only.
Code:
-----
'Combo Style is DropDown Here
ComboBox1.Items.Add("One")
ComboBox1.Items.Add("Two")
ComboBox1.Items.Add("Three")
ComboBox1.BackColor = Color.Red
'Items in ComboBox are able to Edit!!! which should not happen.
But ComboBox1 BackColor is Red which is OK for Me.
I dont want to Edit the Items in Combo, How it is Possible.
Please give me a solution for this.
Thanks & Regards,
Uday.
modified on Tuesday, January 5, 2010 1:18 PM
|
|
|
|
|
RTFM my friend. The help in VB.NET says "If you set the DropDownStyle property to DropDownList, you can select only valid values from the list. If you set the DropDownStyle property to DropDown, you can type any value in the editable area of the ComboBox."
You said "Style is Other than DropDownList" Why would you want to do that when DropDowmList does the job??
Please ask your homework questions somewhere else.
(As a PS: Thinking about this you could mask the edit area - but not the drop down arrow - with a transparent label, which you could hide when in the correct mode and you can't edit anyway, but it all seems a bit daft to me!)
modified on Wednesday, January 6, 2010 10:16 PM
|
|
|
|
|
Hallo,
I am developing an application where there is a source which sends UDP datagrams at a constant Interval (2 datagrams per second). I am receiving these datagrams in the following code:
EP = New IPEndPoint(IPAddress.Any, clsUDP.nListenOnPort)
' clsUDP.nListenOnPort=6466
UDPInput = New UdpClient(EP)
While clsMisc.ListenforUDP
Try
byt = UDPInput.Receive(EP)
..................
Catch ex As Exception<br />
MessageBox.Show(ex.ToString)<br />
<pre>End Try</pre><br />
End While
UDPInput.Close()
UDPInput = Nothing
EP = Nothing
the flag clsMisc.ListenforUDP is true as long as the application runs. This is set to false when an user Logs off.
This is working properly when a user logs in and logs off three times consecutively. But when an user logs in fourth time. I found out by debugging that the program hangs
after
byt = UDPInput.Receive(EP)
this line. I have also tried with asynchronous connection (Beginreceive and end receive) and also with
UDPInput.Client.SetSocketOption(SocketOptionLevel.Socket, SocketOptionName.ReceiveBuffer, 0) to flush the buffer before I read the byt but in vain. It is always the fourh time that the problem arises.
I am trying this to solve for the last 3 days without success. I shall be grateful if somebody helps me.
Thanks.
Roy
|
|
|
|
|
When your user logs off are you objects being properly released and disposed.
looking at the mess you have above, you have;
UDPInput.close()
UDPInput = Nothing
EP = Nothing
You may be thowing an exception trying to close the object, which then bombs because it is in a state that cannot be closed.
You should test to see it is open and/or isnot nothing before trying to close.
|
|
|
|
|
Good Morning Dave,
Thanks for your reply. i think yes. Because I checked every time when a user logs off. I do not know exactly how to dispose or release this UDPClient object. I found out only close method. i also tried with UDPInput.client.Shutdown() method, without success. I get no exceptions trying to close the object. If you could tell me how to dispose or release this UDPClient object, I could try to implement it.
As I wrote, it works three times properly but fourth time the Receive method does not work.
Have a nice day.
Roy
|
|
|
|
|
HI,
How to open openoffice document in vb 6.0 ???
Yours,
KaNNaN
-----------------------------------------------------------------
"Success is When Ur Signature Becomes An Autograph"
|
|
|
|
|
You're going to have to ask the people who wrote OpenOffice. I have no idea if they have a COM object model for you to use or not, and if so, how you would use it. You'd have to read up on any documentation they may have on the subject.
|
|
|
|
|
m2kannan wrote: How to open openoffice document in vb 6.0 ???
Extract the contents, it's a plain zip-file with some XML documents. And no, I'm not confusing it with Microsoft Word
I are Troll
|
|
|
|
|
Plz send me the solution...
very urgent for us...
Yours,
KaNNaN
-----------------------------------------------------------------
"Success is When Ur Signature Becomes An Autograph"
|
|
|
|
|
m2kannan wrote: Plz send me the solution...
Eddy has told you how to do it, what more do you want? Working code? If so, wrong place.
m2kannan wrote: very urgent for us...
.. but nobody else, so now you know what needs doing, go write the code.
Bob
Ashfield Consultants Ltd
Proud to be a Code Project MVP
|
|
|
|
|
There are lots of articles available about working with OpenOffice in VB6. Just Google for openoffice vb6 and you will find plenty of useful links showing you how to do all sorts of things.
|
|
|
|
|
hi,
i got the solution for open the open office document.
this below coding not only open open office document . we can run any application through this coding ....
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Const SW_HIDE As Long = 0
Private Const SW_SHOWNORMAL As Long = 1
Private Const SW_SHOWMAXIMIZED As Long = 3
Private Const SW_SHOWMINIMIZED As Long = 2
Private Sub Command1_Click()
ShellExecute Me.hwnd, "open", "C:\pdf\v.pdf", vbNullString, "D:\", SW_SHOWNORMAL
End Sub
Yours,
KaNNaN
-----------------------------------------------------------------
"Success is When Ur Signature Becomes An Autograph"
modified on Thursday, January 7, 2010 8:24 AM
|
|
|
|
|
I have a VB.NET program that calls a web service (using HTTP GET). The web service returns two types of files, with different file extensions: .PRD and PRD.OLD). How can I make the VB program check for the presence of either one of the file extensions? I mean: sometimes I need the .PRD files, sometimes I need a .PRD.OLD file). Currently, the VB.NET program will download everything from the web service, and that is not what I want.
I have used the following code:
Dim Request As HttpWebRequest
Dim Response As HttpWebResponse = Nothing
Dim Reader As StreamReader
Dim Result As String
Dim xd As New MSXML2.DOMDocument30
Request = DirectCast(WebRequest.Create(Address), HttpWebRequest)
Response = DirectCast(Request.GetResponse(), HttpWebResponse)
Request.Method = "GET"
Request.ContentType = "application/x-www-form-urlencoded"
Reader = New StreamReader(Response.GetResponseStream)
Dox Girl, where are you?
|
|
|
|
|
Depending of what this service gives you different types of files?
|
|
|
|
|