|
You can do this by overriding the wndproc method and checking for WM_QUERYENDSESSION
|
|
|
|
|
Windows sends a message to all open applications on the event of a shutdown.
|
|
|
|
|
Yeah, I know that. But I read the question to be, how to tell how something WAS shut down, not how to tell that something is BEING shut down. So, a child dialog is closed, and the parent works out why.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
I have started a project to do it. I am overriding WndProc and catching some of the messages. I am having trouble figuring out which ones though. I have this so far.
MyBase.WndProc(m)<br />
<br />
Select Case m.Msg<br />
Case Is = Win32.WindowsMessages.WM_QUERYENDSESSION<br />
f = New UnloadModeEventArgs(ECloseMode.AppWindows, False)<br />
Case Is = Win32.WindowsMessages.WM_SYSCOMMAND<br />
If m.WParam.ToInt32 = Win32.WindowsMessages.SC_CLOSE Then<br />
f = New UnloadModeEventArgs(ECloseMode.FormControlMenu, False)<br />
End If<br />
End Select
|
|
|
|
|
Can someone please tell me how the run method can recognize a path with spaces? THis should be simple but I'm driving myself crazy trying to get this to work. Can someone please help?
in vbscript...
Option Explicit
InstallClearCaseClient
Function InstallClearCaseClient ()
Dim objApp
Set objApp = CreateObject("WScript.Shell")
objApp.Run cmd /K CD P:\Information Technology\Configuration Management\CC_Client_2275_install &setup.exe client_2275sitedefs.dat
Wscript.Quit
Set objApp = nothing
End Function '
Thanks,
kkirkpatrick
|
|
|
|
|
Put the string in quotes.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Any command line path that has spaces in it must be enclosed in double quotes. Otherwise, the path will be translated into multiple arguments.
objApp.Run "cmd /K CD ""P:\Information Technology\Configuration Management\..."" whatever else you want on the commandline"
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hey Dave,
Thanks for your reply. I've tried putting quotes around this string every which way but Tuesday with no avail.
I removed the running the setup.exe and removed the parameter, client_2275sitedefs.dat.
Now I'm just trying to change to that directory.
Here is what I have:
objApp.Run "cmd /K CD ""P:\Information Technology\Configuration Management\CC_Client_2275_install"""
This doesn't work.
And the bigger question…. If I need to put quotes around my arg; will this method allow me pass multiple arguments.
Any advise?
Original script
Option Explicit
InstallClearCaseClient
Function InstallClearCaseClient ()
Dim objApp
Set objApp = CreateObject("WScript.Shell")
objApp.Run "cmd /K CD ""P:\Information Technology\Configuration Management\CC_Client_2275_install"""
'objApp.Run "cmd /K CD ""P:\Information Technology\Configuration Management\CC_Client_2275_install &setup.exe client_2275sitedefs.dat"""
Wscript.Quit
Set objApp = nothing
End Function
|
|
|
|
|
cygnusx311 wrote:
Now I'm just trying to change to that directory.
How are you checking the results of this? This will work just fine if there is a folder called CC_Client_2275_install under Configuration Management:
Set objApp = CreateObject("WScript.Shell")
objApp.Run "cmd /K CD ""P:\Information Technology\Configuration Management\CC_Client_2275_install"""
This will launch a second command shell window with the current directory set to P:\Information Technology\Configuration Management\CC_Client_2275_install. That's IF this path really exists. Do you get an error in this 2nd command window?
Now, if you wanted to run a command in that directory, your run command would have to look like this:
Set objApp = CreateObject("WScript.Shell")
objApp.Run "cmd /K CD ""P:\Information Technology\Configuration Management\CC_Client_2275_install"" & setup client_2275sitedefs.dat"
This will generate a command line for the 2nd command window that looks like this:
CD "P:\Information Technology\Configuration Management\CC_Client_2275_install" & setup client_2275sitedefs.dat
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I've resovled thhis issue. Thanks for all your help.
objApp.Run "cmd /K P: & CD ""P:\Information Technology\Configuration Management\CC_Client_2275_install\"" & start setup.exe client_2275sitedefs.dat"
|
|
|
|
|
Hi,
I have built a user control in vb.net. The output has been generated in the form of a .dll file.
Whenever i use the .dll file in a form it works fine but as soon as i open an .htm page the control is disabled in the toolbox. The control works very fine in form but i am not able to use it in an html page using the <object> tag.
I want to customize its font face, size, bold and italics everything which the form allows me to do but i dont know how to do it via the <object> tag in a web page.
Kindly help me.
Regards
Rohan Kaul
|
|
|
|
|
A user control in a web page needs to be derived from the webcontrol base class, not the forms control base class. It needs to output HTML, not draw itself in a window. Unless there's some way to build an activeX control in VB.NET/C# ? Either way, it's obvious that the control you have built is for forms only, otherwise it would allow you to use it in a web page.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
hi,
could u kindly suggest me any e-books site from where i can learn to build a web user control.
regards
Rohan kaul
|
|
|
|
|
www.codeproject.com has an area full of them. Also, MSDN.microsoft.com has examples.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
How do I print the entire content of a datagrid in vb.net?
The code below did not help much. It printer only the portion of datagrid that is visible. All other was not printer.
==============================
Private Sub PrtDocument1_PrintPage(ByVal sender As System.Object, _
ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrtDocument1.PrintPage
Dim myPaintArgs As New PaintEventArgs(e.Graphics, New Rectangle(New _
Point(0, 0), Me.Size))
Me.InvokePaint(dgDataGridTest, myPaintArgs)
==============================================================
---FRANCIS EMAIL efnrhinobbs@centurytel.net
|
|
|
|
|
Hi,
have a look at this article. It has some bugs but should give you the idea on how to do it.
|
|
|
|
|
what abt the tree view its use and control in vb.net
Mian Rashed Inam Khattak
|
|
|
|
|
Calm down and formulate a proper question. I dont think anyone here is able to understand what exactly you want.
|
|
|
|
|
tree control?
Mian Rashed Inam Khattak
|
|
|
|
|
If you want to know how to use a tree control, try google. If you can't find out something that basic for yourself, then perhaps you need to slow down and start with the basics, for example, how to perform a web search.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
I am trying to add a simple datagridview to my form, and want it only to be able to display some arrays, have a user type/copy in some values in various columns and store their input as another array. Yet there is no resource I have found that shows me how to save simple input to a variable! help! I do not want it "bounded", datasourced, dataset, asp, sql, etc. etc. etc. just a plain and simple set of rows/columns to produce some arrays.
Also, I am finding that as I populate the grid with rows it runs extremely slow, and once I have it add over ~300 rows it just freezes up (it populates every hour for a selected time span). I was thinking it was trying to redraw every time it adds a row, but i can't find the option to turn off redraw (you could with datagrid). any thoughts? my code is below.... good god please help 
Private Sub dgvMetLoad()
Me.Controls.Add(dgvMet)
dgvMet.ColumnCount = 5
With dgvMet.ColumnHeadersDefaultCellStyle
.Font = New Font(dgvMet.Font, FontStyle.Regular)
.Alignment = DataGridViewContentAlignment.MiddleCenter
End With
With dgvMet
.EditMode = DataGridViewEditMode.EditOnEnter
.BorderStyle = BorderStyle.FixedSingle
.Name = "dgvMet"
.Location = New Point(28, 307)
.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders
.ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Raised
.CellBorderStyle = DataGridViewCellBorderStyle.Single
.GridColor = SystemColors.ActiveBorder
.RowHeadersVisible = False
.Columns(0).Name = "Date"
.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(0).DefaultCellStyle.BackColor = Color.Beige
.Columns(0).ReadOnly = True
.Columns(1).Name = "Time"
'add option for user to select LST or UTC
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(1).DefaultCellStyle.BackColor = Color.Beige
.Columns(1).ReadOnly = True
.Columns(2).Name = "Dew Pt"
.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(3).Name = "Coef a"
.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(4).Name = "Coef b"
.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Size = New Size(313, 200)
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.MultiSelect = False
.BackgroundColor = Color.WhiteSmoke
.Dock = DockStyle.None
.BringToFront()
End With
End Sub
Private Sub dgvMetPopulate()
' Add a row for each string array.
'
Dim dtDate As DateTime = modPublicVar.dtDateBegin
Dim dtDateEnd As DateTime = modPublicVar.dtDateEnd
While dtDate <= dtDateEnd
Dim strDate, strTime As String
strDate = Format(dtDate.Date, "MM/dd/yyyy")
strTime = Convert.ToString(dtDate.TimeOfDay)
Dim row As String() = {strDate, strTime}
Me.dgvMet.Rows.Add(row)
dtDate = dtDate.AddHours(1)
End While
end sub
|
|
|
|
|
|
you may print any thing using graphics library
see this, it will help you
http://testspot.net/Guest/Search.aspx?Section=Forums&q=How to print grid in Vb.net
|
|
|
|
|
If have one doubt:
How I can do that the width of the last column occupy the rest of the with of the datagrid. So, I avoid that it is left a hollow great.
|
|
|
|
|
hi
please tell me how i can print a from in page with size A5
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
