|
'In general section
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Integer, ByVal dwReserved As Integer) As Integer
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN, 0)
End Sub
'' Thanks in advance
|
|
|
|
|
OK. You really need to read the documentation on ExitWindowsEx[^]. If you use 0 for the second parameter, you can delay system shutdown considerably because this tells Windows that this is more-or-less an unplanned shutdown and XP and above will treat it like a crash. The ShutdownReason parameter is there for a reason, use it.
Also, if any application says that it's not OK to shutdown, it can abort the shutdown.
Your ignoring the return code. If this the return code is 0, then an error occured and you'll have to call the Win32 API function GetLastError to figure out why the call failed.
And last, but not least, you need to request the SE_SHUTDOWN_NAME privilege before you call ExitWindowsEx. You can find out how to do this by following the link on the ExitWindowsEx page for AdjustTokenPrivileges.
|
|
|
|
|
Hi
Is there a SIMPLE way to play MP3 and Midi files from within an application - Is there a class that can access media player or something?
What I want to be able to do is to Play, Stop, Adjust Master Volume, and perhaps have a Slider that I can drag to a position in a song.
I found some stuff in C#, but I need it in VB.Net.
I'm using VS2005
|
|
|
|
|
It's easy enough to translate C# to VB.NET. The two languages have far more in common than it would appear.
What's the C# code you have?
|
|
|
|
|
|
'----------------------------- كنترل هاي مورد استفاده
'-------------PageSetupDialog
'-------------PrintDocument
'-------------PrintPreviewDialog
'--------------------------------------------------------------
Private Sub MnItmPRINT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnItmPRINT.Click
If -DataSet-Name- .Rows.Count > 0 Then
CountLine = 0
NumberColumnsForPrint = -DataSet-Name- .Columns.Count
Titr = " جدول ..."
'-در اين صفحه متغيير هاي سراسري را كاربر تنظيم مي كند
'-مانند تعداد ستونها يا نوع خط جدول و ...
Dim OBJ As New PrintSettingPAGE()
OBJ.ShowDialog()
PageSetupDialog1.ShowDialog()
PrintPreviewDialog1.ShowDialog()
Else
MsgBox("اطلاعاتي براي پرينت وجود ندارد", MsgBoxStyle.OKOnly, "")
End If
End Sub
'------------------------------------------------------------------
'----------------------------- توابع مورد نياز پرينت ---------------
'------------------------------------------------------------------- Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
'----------------------------- متغير هاي سراسري استفاده شده-------------'-------------dim VerticalPAGE as Boolean افقي يا عمودي بودن صفحه
'-------------dim NumberColumnsForPrint as integer
'--------DirectionVertical تعداد ستونهاي ديتاست كه ميخواهيم چاپ كنيم
'-------------dim LinesPerPage as Integer تعداد خطهاي هر صفحه
'-------------dim Titr as String تيتر هر صفحه
'-------------------------------------------------------------- '''''''''''''''''''''''''''''''''''''''''
AxProgressBar2.Visible = True
AxProgressBar2.Value = 1
''''''''''''''''''''''''''''''''''''''''
Dim xCell As Integer
Dim yCell As Integer
Dim WidthCell As Integer
Dim xTITR As Integer
Dim yTITR As Integer
Dim HeightTITR As Integer
Dim WidthTITR As Integer
'--------------------------------------------------------------
'------------مقدار دهي اندازه ها و موقعيت سلول هاي جدول
'--------------------------------------------------------------
yTITR = CInt(PageSetupDialog1.PageSettings.Margins.Top)
xTITR = CInt(PageSetupDialog1.PageSettings.Margins.Left)
If PageSetupDialog1.PageSettings.Landscape = True Then
WidthTITR = CInt(PageSetupDialog1.PageSettings.PaperSize.Height) - (xTITR + CInt(PageSetupDialog1.PageSettings.Margins.Right))
Else
WidthTITR = CInt(PageSetupDialog1.PageSettings.PaperSize.Width) - (xTITR + CInt(PageSetupDialog1.PageSettings.Margins.Right))
End If
HeightTITR = 35
xCell = PageSetupDialog1.PageSettings.Margins.Left
yCell = yTITR + HeightTITR
WidthCell = CInt(WidthTITR \ NumberColumnsForPrint)
'--------------------------------------------------------------
'------------محاسبه تعداد خطهاي هر صفحه
Dim LinesPerPage As Integer
If PageSetupDialog1.PageSettings.Landscape = True Then
LinesPerPage = CInt((CInt(PageSetupDialog1.PageSettings.PaperSize.Width) - (yTITR + HeightTITR + HeightHeaderCell + CInt(PageSetupDialog1.PageSettings.Margins.Bottom))) \ HeightCell)
Else
LinesPerPage = CInt((CInt(PageSetupDialog1.PageSettings.PaperSize.Height) - (yTITR + HeightTITR + HeightHeaderCell + CInt(PageSetupDialog1.PageSettings.Margins.Bottom))) \ HeightCell)
End If
'---------------------------------------------------------------------- Dim RectF As RectangleF
If -DataSet-Name- .Rows.Count <> 0 Then
'----------------------------------------------------------
'------------ نوشتن متن تيتر
'---------------------------------------------------------- Dim StrForm As StringFormat
StrForm = New StringFormat(StringFormatFlags.DirectionRightToLeft)
StrForm.Alignment = StringAlignment.Center
StrForm.LineAlignment = StringAlignment.Center
RectF.X = xTITR ' xTITR = 15 or 790
RectF.Y = yTITR ' yTITR = 15 or 15
RectF.Height = HeightTITR ' HeightTITR = 25 or 25
RectF.Width = WidthTITR ' WidthTITR = 750 or 1140
e.Graphics.DrawString(Titr, TitrFont, Brushes.Black, RectF, StrForm)
'----------------------------------------------------------
'------------ نوشتن سطرها
'---------------------------------------------------------- RectF.X = xCell
RectF.Y = yCell + HeightHeaderCell
RectF.Width = WidthCell
RectF.Height = HeightCell
StrForm.Alignment = StringAlignment.Far
StrForm.LineAlignment = StringAlignment.Far
Dim PrintFont As New Font("Arial", 10)
PrintFont = DataGrid1.Font
Dim StrField As String '' براي دريافت فيلدهاي جدول
Dim counter As Integer '' شمارهنده
For I2 = 0 To LinesPerPage - 1
RectF.X = xCell
For I = (NumberColumnsForPrint - 1) To 0 Step -1
StrField = " " & CStr( -DataSet-Name- .Rows(CountLine).Item(I))
e.Graphics.DrawRectangle(PenRow, RectF.X, RectF.Y, RectF.Width, RectF.Height)
e.Graphics.DrawString(StrField, PrintFont, Brushes.Black, RectF, StrForm)
RectF.X += WidthCell
StrField = ""
Next
RectF.Y += HeightCell
CountLine += 1
If -DataSet-Name- .Rows.Count = CountLine Then
Exit For
End If
Next
'----------------------------------------------------------
'------------ كشيدن نام ستونها فقط 12 ستون
'---------------------------------------------------------- StrForm.Alignment = StringAlignment.Center
StrForm.LineAlignment = StringAlignment.Center
RectF.X = xCell
RectF.Y = yCell
RectF.Width = WidthCell
RectF.Height = HeightHeaderCell
PrintFont = DataGrid1.HeaderFont
For I = (NumberColumnsForPrint - 1) To 0 Step -1
StrField = CStr( -DataSet-Name- .Columns(I).ColumnName)
e.Graphics.DrawRectangle(PenColumn, RectF.X, RectF.Y, RectF.Width, RectF.Height)
e.Graphics.DrawString(StrField, PrintFont, Brushes.Black, RectF, StrForm)
RectF.X += WidthCell
StrField = ""
Next
End If
'--------------------------------------------------------------
'------------اگر تعداد خطها زياد شد بايد صفحه ديگر ايجاد شود
'------------در غير اين صورت صفحه جديد نبايد توليد شود
'-------------------------------------------------------------- If CountLine < -DataSet-Name- .Rows.Count Then
e.HasMorePages = True
Else
CountLine = 0
e.HasMorePages = False
End If
End Sub
|
|
|
|
|
Would you like to ask a particular question about this stuff??
Or do you normally just go around to forums and post random, yet long, sections of code for no particular reason?
|
|
|
|
|
Hey Guys, this I need to do hopefully you guys can help.
I just need an application or service to browse to a certain page every five minutes. In my case it will be an asp page. Once the services browses to the page it just needs to close the and the asp page takes it from there and starts producing a grid. For instance when it connects properly the grid will show some green, but say the service gets stopped or the computer or server goes down then the grid will start showing red.
I hope that all made sense, if not just let me know and i will try to give some more info. I am just hoping someone can help.
Thanks, Travis
|
|
|
|
|
You can use WebRequest class in System.Net to browse a web page. Pass a querystring that is unique to your calling application. When you execute WebRequest.GetResponse(), you can be sure that the application is trying to connect to the web page.
In the ASP page, check from the querystring if the connection request is from your calling application, if yes, do your color thing.
SG
|
|
|
|
|
Hey man,
I just wanted to say thanks alot for that little bit of information. By using the webrequest I got the results I was needing.
Thanks again,
Travis
|
|
|
|
|
if any one has the code that connect visual basic 6 with sql server 2000
plzz send me on my id jawad1_hassan1@hotmail.com
plzzz
|
|
|
|
|
I've got much better idea: Write it yourself.
When you get stuck at a certain point, then you can ask questions about the problem you're having. BTW, there is no "just do this" code that you can use to "connect" to an SQL, or any database, server. How you retrieve data from a database depends on what you want to do with the data and how the database is organized and even how your code is organized. There's lots of different ways to do this.
|
|
|
|
|
how to insert or save the entering values into msaccess from vb.net windows application?
|
|
|
|
|
http://www.google.com.au/search?hl=en&q=insert+save+access+vb.net&btnG=Search&meta=[^]
I trimmed a few words from your original question, but even the full question gave useful hits in google. We really can't offer anything more specific without knowing about your database, and you should read the generic stuff first.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
how to insert or save the entering values into msaccess from vb.net windows application?
|
|
|
|
|
if any one has the code that connect visual basic 6 with sql server 2000
plzz send me on my id jawad1_hassan1@hotmail.com
plzzz
|
|
|
|
|
how to insert or save the entering values into msaccess from vb.net windows application?
|
|
|
|
|
A simple google search[^] provides you with a lot of information.
Have a look at this article[^]
Do not spam the forums, delete your other duplicate messages.
|
|
|
|
|
 i need a code that connect visual basic 6.0 with sql server 2000 urgently
so any bode that have the code
plzzz send it.
jawad
|
|
|
|
|
I am having a datagridview.
New records added in the datagridview(by entering values in the blank row shown at the end) are not shown after focus is moved out of the row.
Why the row added is not shown in the datagridview?
|
|
|
|
|
Hi,
I try to programming something that scale a Image or a bitmap in a way, that every pixel becoms a small rectangle. I can dou this with two loops in wich the color of a pixel can be read and then a rectangel can be drawn, but this works to slowly. Is there anyboady who can help me to program this in a fast way?
Thanks, Hans-Christian
|
|
|
|
|
Hi to all
<code><asp:RadioButtonList id="radioGross" runat="server" Width="193px" AutoPostBack="True" RepeatDirection="Horizontal">
<asp:ListItem Value="1">Gross</asp:ListItem>
<asp:ListItem Value="2">Net</asp:ListItem>
</asp:RadioButtonList></TD>
</code>
& also i am having a checkbox on form when i click this checkbox then
this radio buttons should be enabled. I make this radiogross disabled.on page load event
-- modified at 8:02 Wednesday 9th May, 2007
|
|
|
|
|
When you post this in the ASP.NET forum, check 'Ignore HTML tags in this message (good for code snippets)', and your post will make sense 
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
Hi,
I have shelled a DOS command that gives me the list of projects in a particular server which goes like this.
Shell("c:\program files\ascential\datastage7.5\dsjob -server xx.xxx.xx.xx -user abcd -password xyz -lprojects")
If I run the above command in command prompt it will display the list of projects.
I need to get this result in a combobox or something of similar kind.
Can anybody help me on this ?
|
|
|
|
|
When you set up the process, you can tell it to redirect the output.
See this article[^] for details.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
