|
You can do that using the Exec method of the WScript.Shell object. The Exec method will return a WshScriptExec object that can be used to monitor the status of the running program, its exit code, and get to it StdIn, StdOut, and StdErr streams.
The docs on the WshShell.Exec method start here[^].
Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("MyCApp.exe")
Do While oExec.Status = 0
WScript.Sleep 100
Loop
WScript.Echo oExec.ExitCode
RageInTheMachine9532
|
|
|
|
|
Getting access to the StdOut would be great, thank you very much !
*edit*
Got it working now, thanks a bunch !
|
|
|
|
|
say suppose in my desktop application there is a datagrid having 20 records and i want that when i move my mouse pointer on any row then background color of that will be changed say red. i know it is possible in asp.net web application but i dont know how could i get this effect in my window application using vb.net at run time in desktop application not in the web application.if it is possible for any one then please give me small sample code to implement it for desktop application using vb.net
tbhattacharjee
|
|
|
|
|
If you change the Property Selection BackColor in the Grid Proerties page you can get your results. (If I understand your question properly)
Thanks,
Ken
Keshav.
|
|
|
|
|
Hi,
I am currently writing a utility to detect blank pages in tiff documents and delete them. I have a toolkit to manipulate the file but unfortunately it does not have a very flexible blank page detection routine.
So what I want to do is allow the user to set a percentage of black pixels parameter in a page and read the page data to look for the ratio of black to white pixels to determine if the page needs to be dropped.
The toolkit allows me to get the image data for each page into an IPicture but I am stuck from there on how to read the image data. Currently the system only needs to read black and white images (colour may be an option later but I will try to cross that bridge when I come to it)
So in short, can anyone help me in reading B&W data in an IPicture to count the black and white pixels?
Many thanks
Mark
|
|
|
|
|
I would like to create a command button on the vb form which i would like to export the data that i key in to the microsoft excel.What is the code for that command button?You get what i means???Thank !!!
|
|
|
|
|
Hi i am new to VB.NET. I want to develop an image gallery which consists of all kind of images. i want to show a thumbnail view for all the images. It consists of BMP,JPG,GIF,PSD,TIFF format. Is it possible to show PSD images in VB.NET if so how???
any help will be a great honour.
Thanks in advance.
Regards
Prasanna
|
|
|
|
|
I am migrating a large VB.6 solution to VB.Net and have encountered a problem that I haven't been able to solve.
It has been my habit for some years to notify myself of errors by putting up a new form and write to it the location and type of error that has occurred. This works nicely in VB.6.
I use this class in an error routine, such as.
Catch ex As Exception
Err.Showit("clsBars", "DoNewMinute", ex.Message.ToString)
End Try
In VB.Net the form comes up and is correctly sized and positioned and the error message is written to it.
When you pass the cursor over the form it turns to an hourglass. You can not minimize, maximize, close or drag the form.
If you use this class from a command button on another form with this code
Err.SetUpForm()
Err.Showit("This is a test")
the form behaves normally.
What am I missing?
Thanks
RCarey
Here is the code for my error class.(alias Err.)
Public Class clsError
Private dG As System.drawing.Graphics
Private dFt As System.Drawing.Font
Private dBr As SolidBrush
Private dFm As StringFormat
Private dX, dY As Integer
Private lineCount, maxLines As Double
Public Sub SetUpForm() '1/14/04
Dim dbgString As String
Try
frmError = New Form3 '<form3 is="" a="" ordinary="" form="" with="" no="" added="" objects
="" frmerror
="" .left="0
" .text="Errors"
="" .top="384
" .width="1000
" end="" with
="" frmerror.show()
="" catch="" ex="" as="" exception
="" dbgstring="ex.Message.ToString
" stop
="" try
="" dg="frmError.CreateGraphics
" dft="New" system.drawing.font("ariel",="" 7,="" fontstyle.regular)
="" dbr="New" solidbrush(color.black)
="" dfm="New" stringformat
="" dfm.formatflags="StringFormatFlags.MeasureTrailingSpaces
" maxlines="Math.Round(frmError.ClientSize.Height" dft.getheight)
="" sub
="" private="" sub="" clearform()="" '1="" 14="" 04
="" dim="" string
="" dg.clear(frmerror.backcolor)
="" linecount="0
" public="" overloads="" showit(byval="" instring="" string)="" if="" frmerror="" nothing="" then="" 'set="" up="" the="" form
="" setupform()
="" if
="">= maxLines Then
ClearForm()
End If
Catch ex As Exception
dbgString = ex.Message.ToString
Stop
End Try
Try
dX = 0
dG.DrawString(inString, dFt, dBr, dX, dY)
lineCount += 1
dY += dFt.Height
Catch ex As Exception
dbgString = ex.Message.ToString
Stop
End Try
End Sub
Public Overloads Sub Showit(ByVal inClass As String, ByVal inProcedure As String, ByVal message As String)
Dim dbgString As String
Try
If frmError Is Nothing Then 'set up the form
SetUpForm()
End If
Catch ex As Exception
dbgString = ex.Message.ToString
Stop
End Try
Try
dX = 0
dG.DrawString(inClass, dFt, dBr, dX, dY)
dX = 50
dG.DrawString(inProcedure, dFt, dBr, dX, dY)
dX = 200
dG.DrawString(message, dFt, dBr, dX, dY)
lineCount += 1
dY += dFt.Height
Catch ex As Exception
dbgString = ex.Message.ToString
Stop
End Try
End Sub
End Class
RCarey
|
|
|
|
|
I would like to show the .NET OpenFileDialog window after the MDI Parent Window is shown. This feature is available in the .NET IDE.
Tools/Options/Environment/General/AtStartup combobox.
Any ideas on how to code this feature?
Thanks,
Matt
.NetGuy
|
|
|
|
|
I got a problem here.
I need to link the microsoft excel to C++. The excel will act as a database for the coordinates..and i need to programme some commands for these coordinates like 3
Can C++ do this or should i use visual basic?
Thx alot
|
|
|
|
|
Goh Hui Beng wrote:
I got a problem here.
I need to link the microsoft excel to C++. The excel will act as a database for the coordinates..and i need to programme some commands for these coordinates like 3
Can C++ do this or should i use visual basic?
Thx alot
Hi, i have create a program using VB6.The purpose of this program are for sales department person key in the data and then review by manager.Now, my problem is manager want me to create a command button to export the data from microsoft access to excel.What is the command button code and the step? Another Question,this program must set up in the office and all the staff can see and use this program at their own PC's!Thank for ur help!
|
|
|
|
|
Hi,
I use crystal reports to show my reports @ my Winform. The procedure I do for this is...
Create a Crystal Report,
Create a Report Document,
Link the report document with the Crystal Report Viewer... as all described in the http://msdn.microsoft.com/msdnmag/issues/02/05/Crystal/default.aspx^, as in the server explorer section
But it reports the error as 'FAILED TO OPEN DATASET'..
Please help!!!
I was born intelligent
Education ruined me!.
|
|
|
|
|
How can i get the shared folders of a remote system?
|
|
|
|
|
How can I map & disconnect network drives using vb.net?Pleas replyy soonnnn.....
|
|
|
|
|
How about using P/Invoke to call WNetAddConnection2?
|
|
|
|
|
Hi,
Does anybody knows how to get all driections and subdirectoires of a hdd?
I took a look at System.IO.IsolatedStorage, but I could not specify the hdd.
If someone has any ideas....
Thanks
|
|
|
|
|
Use the DirectoryInfo and FileInfo classes.
--Colin Mackay--
EuroCPian Spring 2004 Get Together[^]
"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar
|
|
|
|
|
Could you give me an example??
it will be very helpfull
Thanks in advance
|
|
|
|
|
|
Hi,
I have already seen some these web pages, but by problem is to look at all subdirectories, I am going to make a kind of loop over each directory. I hope that it help me.
Thanks, you helped me a lot too.
|
|
|
|
|
ltt19 wrote:
but by problem is to look at all subdirectories, I am going to make a kind of loop over each directory
That sounds about right. For each directory you then have to loop over the subdirectories, for each of the subdirectories you have to loop over the subdirectories, and so on...
--Colin Mackay--
EuroCPian Spring 2004 Get Together[^]
"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar
|
|
|
|
|
This code is for VB. VB.Net is quite similar though.
Set a reference to Microsoft Scripting Runtime
Dim srt As New Scripting.FileSystemObject
Dim drv As Drive
Dim fld As Folder
Dim f As File
Set drv = srt.Drives("C:\")
Set fld = drv.RootFolder
For Each f In fld.Files
Debug.Print f.Name
Next
If you want to loop through each directory as well you will need to create another function to return the folder object. To check to see if a folder has sub folder use the following code: fld.SubFolders
Michael
|
|
|
|
|
There are some classes in System.IO that do the same that you are doing. The problem is to loop over all directories with this classes. I will try to do a loop with your code.
Thanks again!!!
|
|
|
|
|
Here is something I wrote a few years back in VB6 to simple create a text file of all of my MP3s. It doesn't filter them by *.MP3 since that is all that is in that particular shared drive but you get the idea. I haven't had to mess around with the system.io yet. But the below does work. Give it a try.
Dim fso As New FileSystemObject
Dim List As TextStream
Const C_PLUS As String = "+ "
Dim i As Integer ' Indent
Private Sub Main()
Dim d As Folder
Set d = fso.GetFolder("N:\")
Set List = fso.CreateTextFile(d.Path & "NewSongList.txt", True)
DoFolders d
List.Close
End Sub
Private Sub DoFolders(fldr As Folder)
Dim d As Folder
If i = 0 Then
List.WriteLine Space(i) & C_PLUS & fldr.Path
Else
List.WriteLine Space(i) & C_PLUS & fldr.Name
End If
i = i + 2
DoFiles fldr
For Each d In fldr.SubFolders
DoFolders d
Next
i = i - 2
End Sub
Private Sub DoFiles(fldr As Folder)
Dim f As File
For Each f In fldr.Files
List.WriteLine Space(i + 2) & f.Name
Next
End Sub
Michael
|
|
|
|
|
Hi,
Yes, the idea is great, I am going to use your example, but I will try to use the system.io class, if I can´t, I will use your example as it is.....
Thanks, it is what I was looking for....
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
