|
I have problems with transparent form, can anyone help? 
problem is that its too slow 
example if i click on button where it should just switch another panel control it takes 3-4 secconds because of redrawing
Class: http://pastesite.com/22086[^]
On Form: http://pastesite.com/22087[^]
so at form load is called redraw() and if i click on a button and panel is switched i again call redraw()
form load 6 second
switching panels 3-4 seconds
thank you
|
|
|
|
|
I am writing Windows service with FileSystemWatcher.
Protected Overrides Sub OnStart(ByVal args() As String)
fw = New StreamWriter(LogPathFile)
fsw = New FileSystemWatcher
If args.Length > 0 Then
' the path to monitor has been specified in the argument passed in at Start
fsw.Path = args(0)
Else
fsw.Path = My.Settings.PathToWatch
End If
fsw.IncludeSubdirectories = False
fsw.Filter = "*.*"
AddHandler fsw.Created, New FileSystemEventHandler(AddressOf File_Created)...
Public Sub File_Created(ByVal obj As Object, ByVal e As FileSystemEventArgs)...
How can I check on start if My.Settings.PathToWatch had any files and then call for each file File_Created event?
|
|
|
|
|
Please do not ask the same question in more than one forum. Very naughty.
Decide where it fits best and just ask there.
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
I wouldn't let CG touch my Abacus!
When you're wrestling a gorilla, you don't stop when you're tired, you stop when the gorilla is.
|
|
|
|
|
Because your turning on filesystemwatcher after the fact, you will need to handle the startup manually by getting the list of files in the directory and calling the routine for each file. Then start the filesystemwatcher.
'Never argue with an idiot; they'll drag you down to their level and beat you with experience.' ~ anonymous
'Life's real failure is when you do not realize how close you were to success when you gave up.' ~ anonymous
|
|
|
|
|
Is there anybody who knows how to use google map in vb.net application for route optimization?
Thanks in advance
|
|
|
|
|
Google Directions API[^]
Have a look at that it might help you. You end up get through HTTP a XML Data string and have to build up from there
As barmey as a sack of badgers
Dude, if I knew what I was doing in life, I'd be rich, retired, dating a supermodel and laughing at the rest of you from the sidelines.
|
|
|
|
|
ejaz_pk wrote: Is there anybody who knows how to use google map in vb.net application for route optimization?
As a sidenote, you might want to work through their terms;
5.2 Account Key. After supplying Google with your account information and the URL of your Maps API Implementation, and accepting the Terms, you will be issued an alphanumeric key assigned to you by Google that is uniquely associated with your Google Account and the URL of your Maps API Implementation. Your Maps API Implementation must import the Google Maps APIs using this key as described in the Maps APIs Documentation, and Google will block requests with an invalid key or invalid URL. You may only obtain and use a key in accordance with these Terms and the Maps APIs Documentation.
Point 9 and 10 could be important too, depending on the circumstances.
I are Troll 
|
|
|
|
|
Thanks for your reply.
Actually my next step is how to put marks on different location on the map?
Thanks in advance
Ejaz
|
|
|
|
|
ejaz_pk wrote: Actually my next step is how to put marks on different location on the map?
No, your next step is research. Markers are described here[^].
I are Troll 
|
|
|
|
|
Thanks for the reply.
Is there a way to calculate the fastest route between multiple routes?
Thanks in advance
Regards,
Ejaz
|
|
|
|
|
Yup, multiple. I took the simple approach, and let the computer calculate each distance for all possible routes - assuming that the shortest one would be the fastest. Worked quite reasonably. You can find more advanced solutions by Googling for "Travelling Salesman Problem".
Good luck 
I are Troll
|
|
|
|
|
Can you please give me any sample code to get any idea to get the distance and fastest route?
Thanks in advance
|
|
|
|
|
ejaz_pk wrote: Can you please give me any sample code to get any idea to get the distance and fastest route?
I'm sorry, but the code is copyrighted and not mine to give. I'd have turned it into an article if it wasn't Would also have been too much to post as a copy&paste sample.
Simplest solution is to measure all possible distances. That requires you to build a tree with all possible routes. The root would be your startingpoint, and if you can move to two new points from there, you'd add those as children - recursively.
Once you have all possible routes, you'd have to measure how long it is, or request it's length over some third-party. If need be free, you can use the database from Geonames.org, and calculate the length of a straight line connecting each point. You'd have to account for the earth being a big round ball, but there are formulas[^] out there that return you a length of a line on a ball. Once you have written all lengths into the tree, you find the one that gives the shortest value.
That's a simplistic algorithm that'll generate relatively satisfying results. A more complicated algorithm like Dijkstra's would be an improvement. You can also improve on this by getting "real" distances from Google for the distance between two points - but that's going to cost money if you're going to do it in bulk.
Good luck
I are Troll
|
|
|
|
|
Currently, I have a aVB.Net project that uses Ghostscript 9.01 to convert PDF to TIFF file.
It converts a color PDF to a grayscale TIFF.
Code Snippet
-------------
astrArgs(0) = "pdf2tif" 'The First Parameter is Ignored
astrArgs(1) = "-dNOPAUSE"
astrArgs(2) = "-dBATCH"
astrArgs(3) = "-r300"
astrArgs(4) = "-sDEVICE=tifflzw"
astrArgs(5) = "-sOutputFile=" & destDir & fileName.Substring(0, fileName.IndexOf(".")) & ".tif"
astrArgs(6) = path
output = CallGS(astrArgs)
-------------
What are the parameter(s) to convert a Color PDF to a "COLOR" TIFF?
|
|
|
|
|
Did you try reading the documentation on GhostScript? I found the answer in about 60 seconds by doing that. Hint, it has something to do with the DEVICE you picked. Read[^]
|
|
|
|
|
Thank you.
To share with other that might have the same question in the future.
astrArgs(4) = "-sDEVICE=tiff24nc"
|
|
|
|
|
I'd rather share the advice on reading the documentation than just a single POSSIBLE solution to the problem. Reading the docs allows a greater understanding of how GhostScript works than just the one statement you posted.
|
|
|
|
|
Hello sir
I want to develop an email application in vb without using MAPI.
Further i want to know whether MAPI can be used without outlook.
ThankQ
|
|
|
|
|
For a general question like this you could try a bit of simple research first, such as: Google[^].
I must get a clever new signature for 2011.
|
|
|
|
|
Thanks Richard , but i did that and ended up with some trial version dlls. and from google only i got this forum.
|
|
|
|
|
Did you look at the link I posted? It contains quite a few sample VB.NET mail programs.
I must get a clever new signature for 2011.
|
|
|
|
|
This[^] is C#, but I am sure it will help.
|
|
|
|
|
if your using .net framework then google system.net.mail
if your using vb "classic" then google cdosys
As barmey as a sack of badgers
Dude, if I knew what I was doing in life, I'd be rich, retired, dating a supermodel and laughing at the rest of you from the sidelines.
|
|
|
|
|
|
Hi there,
I'm been searching the net for an answer but I couldn't really get it and/or understand it 
What I'm trying to accomplish is to Search my drives for the Folder's Name - and Add it to an MS Access Table
So far I have done that and works fine.
Now What I want to do is to add a Unique record ID number.(I don't want to use the auto-number function, because I'm deleting all the records every time I run the SearchFolders() and the auto-number kips incrementing otherwise)
I know this is done with the Do Until i = 1 + (Last Folder Found)
where I am lost is in the "Last folder found" I'm not sure what to reference there and also where to add it onto my code
Please take a look and help me out!
<br />
Private Sub SearchFolders(ByVal strDIR As String)<br />
Dim adoCON As New ADODB.Connection, adoRST As New ADODB.Recordset, objFSO As New FileSystemObject<br />
Dim FolderName, FolderPath, FolderDate, FolderLMod, FolderLAcc, FolderSize<br />
Dim fFolder As Folder, sFolder As Folder, i As Integer<br />
Set fFolder = objFSO.GetFolder(strDIR)<br />
For Each sFolder In fFolder.SubFolders<br />
' Search Recursively<br />
SearchFolders sFolder.Path<br />
' Get Folder Path<br />
FolderPath = sFolder.Path<br />
' get Folder Name<br />
FolderName = objFSO.GetFolder(sFolder).Name<br />
' Get Folder Date Created<br />
FolderDate = objFSO.GetFolder(sFolder).DateCreated<br />
' Get Folder Last Date Modified<br />
FolderLMod = objFSO.GetFolder(sFolder).DateLastModified<br />
' Get Folder Last Date Accessed<br />
FolderLAcc = objFSO.GetFolder(sFolder).DateLastAccessed<br />
' Get Folder Size<br />
FolderSize = objFSO.GetFolder(sFolder).Size<br />
<br />
Set adoCON = CurrentProject.Connection<br />
adoRST.Open "SELECT * FROM FoldersPath", adoCON, adOpenKeyset, adLockOptimistic<br />
With adoRST<br />
.AddNew<br />
!FolderID = i<br />
!CreatedOn = Now()<br />
!CreatedBy = Environ("UserName")<br />
!FolderName = FolderName<br />
!FolderPath = FolderPath<br />
!FolderSize = FolderSize<br />
!DateCreated = FolderDate<br />
!DateLastAccessed = FolderLAcc<br />
!DateLastModified = FolderLMod<br />
.Update<br />
End With<br />
adoRST.Close<br />
adoCON.Close<br />
Set adoRST = Nothing<br />
Set adoCON = Nothing<br />
Next<br />
Set objFSO = Nothing<br />
Set fFolder = Nothing<br />
Set sFolder = Nothing<br />
End sub<br />
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
