|
Heres the code, what do i have to Make a Shutdown Dialog That will go into standby as well (Command1 is Standby, command2 is shut down and command 3 is restart (Or... reboot). please Help, any help will be appriciated
' SHUT DOWN AND RESTART IN VB6
Const EWX_LogOff As Long = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindows _
Lib "User32" Alias "ExitWindowsEx" _
(ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Private Sub Command2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command2.Click
ExitWindows(EWX_SHUTDOWN, &HFFFFFFFF)
End Sub
Private Sub Command3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command3.Click
ExitWindows(EWX_REBOOT, &HFFFFFFFF)
End Sub
End Sub
End Class
|
|
|
|
|
|
well I am using Visual Basic 2008 Express edition
and... can you modify the code?
|
|
|
|
|
christopher121 wrote: well I am using Visual Basic 2008 Express edition
Same problem, you can't create (and are obviously not creating) an OS in VB.Net 2008.
All you're doing is piggy backing on the existing OS by calling the Win API.
Perhaps you should reframe what you are trying to achieve?
I'm largely language agnostic
After a while they all bug me 
|
|
|
|
|
MidwestLimey wrote: you can't create (and are obviously not creating) an OS in VB.Net 2008.
Maybe he won the bid to create that Windows XP-like OS for $20-100.
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham
|
|
|
|
|
"I got u teh codez 4rival OS 2 M$, u just got 2 instal like windoze xp or 2k (NOT VISTA!) then my codez, when i get my $100?"
I'm largely language agnostic
After a while they all bug me
|
|
|
|
|
MidwestLimey wrote: Same problem, you can't create (and are obviously not creating) an OS in VB.Net 2008.
All you're doing is piggy backing on the existing OS by calling the Win API.
Perhaps you should reframe what you are trying to achieve?
well, I am trying to Make my own OS That will be called windows 99, but i wanna make it Like windows 98, but with all the Features of windows XP. So could you help me with the code? please...
|
|
|
|
|
I did once write a DOS which took many hundreds of hours, written in C. Not as functional as DOS 6.0 was at the time, but it was a neat college project.
A windows operating system on the otherhand takes tens of millions of development hours, usually encompassing thousands of developers.
Thus to do what you propose you'll need to:
(a) Let's optimistically assume it'll take 1m man hours. So working 16/7/365 you should be finished in 2180 ish sort of time frame. You are in good health I hope?
(b) Skilz in C/C++ and assembler. Make sure you know which hardware configuration you're going to target. Which CPU family were you thinking of?
(c) The BIOS is your friend for simple stuff, be prepared to write an awfull lot of assembler when it doesn't do what you need.
(d) Intimate knowledge of hardware, you will need to write all the device drivers you know. You think that mouse you're using just magically works?
(e) Ever written a windowing system yourself? This nice caract I have here flashing as I type doesn't come free you know. You'll even have to code the loop to do that.
(f) This is perhaps the hardest .. understand that writing a Windows application in .Net that calls the Win API is not remotely similar to the monumental and derranged task of writing your own OS, since it's patently and painfully OBVIOUS to all that it's running on an OS and the calling that damn OS' shutdown method ... seeesh.
*Final word - no further response shall be forthcoming*
I'm largely language agnostic
After a while they all bug me
|
|
|
|
|
Hi,
i am using the infragistics textbox , i want to make the multiline property true.How should i do this ?
|
|
|
|
|
You'll have to ask Infragistics that question. Click here[^]. When you paid for the controls, you also paid for support. You DID pay for the controls, correct?
|
|
|
|
|
How do I create a smartphone using VB 2008, and use keys on that phone for input?
|
|
|
|
|
Your question belong to 'Mobile Development' board.
I Love T-SQL
"Don't torture yourself,let the life to do it for you."
If my post helps you kindly save my time by voting my post.
|
|
|
|
|
Well, google ought to tell you.
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham
|
|
|
|
|
it seems as you are not getting me,
here is a questions im givin:
Create a Smartphone application, Use a cell phone keypad, enter input using Smartphone, Enter other characters using the keypad, Add Smartphone application & Display MessageBox objects in a Smartphone environment.
|
|
|
|
|
Bongumusa wrote: How do I create a smartphone using VB 2008
I doubt very much that anyone could create a smartphone with vb.net, although you could write a program in vb.net for one. 
In all seriousness, there are entire books written on this subject. Try Googling VB.NET Windows Mobile[^], see what you get.
Steve Jowett
-------------------------
It is offen dangerous to try and see someone else's point of view, without proper training. Douglas Adams (Mostly Harmless)
|
|
|
|
|
|
Why double post?!
I Love T-SQL
"Don't torture yourself,let the life to do it for you."
If my post helps you kindly save my time by voting my post.
|
|
|
|
|
Don't double post with a vague, and short post 
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham
|
|
|
|
|
Figure it out?
Any suggestions, ideas, or 'constructive criticism' are always welcome.
|
|
|
|
|
Okay, so I'm trying to make a program that refers to a table of prices for various items. The problem I am having is being able to easily retrieve data from the CSV file... I can read from it, but I want to store it to an easy-to-use lookup table so that I can pull whatever kind of information I want at any given time.
To test this, I tried to make a program that consists only of a listbox, which upon loading of said program would be populated with the names of all of our items. But so far, I cannot figure out how to store this data.
I tried using a multidimensional string array, but for some reason my code isn't working. It seems like the program gets to a certain point in my code and stops doing what it's supposed to do, and the functions end and I'm staring at my form.
Can anyone help me with this? I would really appreciate it!
Imports System.IO
Imports System.Data.OleDb
Public Class Form1
Dim ITEM_FILE_PATH As String = ""
Dim ITEM_FILE As String = ""
Dim ITEM_LIST As String(,)
Dim ITEM_LINE As String()
Dim fs As FileStream
Dim sR As StreamReader
Dim frstComma As Integer = 0
Dim thisLine As String = ""
Dim NumLines As Integer = 0
Private Sub ReadCSVFile()
ITEM_FILE_PATH = Application.StartupPath & "\All_Item_Prices.csv"
fs = New FileStream(ITEM_FILE_PATH, FileMode.Open)
sR = New StreamReader(fs)
sR.ReadLine()
'ITEM_FILE = sR.ReadToEnd
While sR.EndOfStream = False
thisLine = sR.ReadLine
NumLines += 1
'MsgBox(thisLine)
frstComma = InStr(thisLine, ",")
thisLine = thisLine.Substring(frstComma, thisLine.Length - frstComma)
frstComma = InStr(thisLine, ",")
thisLine = thisLine.Substring(frstComma, thisLine.Length - frstComma)
frstComma = InStr(thisLine, ",")
thisLine = thisLine.Substring(frstComma, thisLine.Length - frstComma)
'MsgBox(thisLine)
Dim COMMAS As String = ",,"
For i As Integer = 2 To 6
'MsgBox(COMMAS)
thisLine = Replace(thisLine, COMMAS, "")
'MsgBox(thisLine)
COMMAS &= ","
Next
'ITEM_FILE &= thisLine & vbNewLine
'For iC As Integer = 0 To thisLine.Split(",").Count
' ITEM_LINE(iC) = thisLine.Split(",")(iC)
'Next
MsgBox(thisLine)
MsgBox(thisLine.Split(",").Count)
For iC As Integer = 0 To thisLine.Split(",").Count
ITEM_LIST(iC, NumLines) = thisLine.Split(",")(iC)
MsgBox(ITEM_LIST(iC, NumLines))
Next
End While
sR.Close()
fs.Close()
'MsgBox(ITEM_FILE)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ReadCSVFile()
For iCount As Integer = 0 To NumLines
MsgBox(iCount)
MsgBox(ITEM_LIST(0, iCount))
Next
End Sub
End Class
Any help? Thanks in advance!
As I sit here, I contemplate the last words of Socrates: "I drank what?".
Pokémon Pearl Friend Code: 4554-2418-6836
|
|
|
|
|
I think you need to use a DataTable.
Create a DataTable and add columns as necessary, then read your csv file line by line, and for each line create a new row, move your data to each column within the row, then add the row to the DataTable.
You can now use a DataView to filter and sort your data, and you can bind the DataTable to controls such as ListBox, DataGrid etc. You can even write the data back to an XML file.
Steve Jowett
-------------------------
It is offen dangerous to try and see someone else's point of view, without proper training. Douglas Adams (Mostly Harmless)
|
|
|
|
|
Steven has the right of it - use a datatable and dataview. However if possible store the data as XML then you can read/write it with 1 line:
dataset.ReadXML(sfileName)
saves all that crap reading in the CSV. Only issue it that it is not human readable but you can always output to CSV if required.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
So, I followed your advice and tried going with a data table. However, my code is just plain not producing results.
I frequently ask my code to msgbox me values here and there to see what's going on, and the last batch of code I posted, as well as this one, seems to ignore these msgbox requests, or the code is somehow not executing. I'm not getting a message box.
Below is the sub that I run when the form loads:
Private Sub ReadCSVToDataTable()
'http://vbcity.com/forums/topic.asp?tid=119121
'Dim dt As New DataTable 'class level
'in a method
Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\;Extended Properties=""text;HDR=Yes;FMT=Delimited"""
Dim conn As New OleDbConnection
conn.ConnectionString = constr
Dim cmd2 As New OleDbCommand
cmd2.Connection = conn
cmd2.CommandText = "Select * From All_Item_Prices.csv"
Dim da As New OleDbDataAdapter(cmd2)
Try
da.Fill(dt)
Catch ex As OleDbException
MessageBox.Show(ex.Message)
End Try
Dim row0col1 As String = dt.Rows(0).Item(1).ToString
'In the above code, the following assumptions were made:
'1) file is located in F:\ directory
'2) file name is testA.txt
'3) the file is a comma delimited file
'4) the file does not contain a header row
'MsgBox(dt.Rows(1))
End Sub
Any ideas?
As I sit here, I contemplate the last words of Socrates: "I drank what?".
Pokémon Pearl Friend Code: 4554-2418-6836
|
|
|
|
|
Ah sorry you got the wrong handle on the solution I proposed.
1. Read in the CSV file as you are doing now.
2. Move it to a datatable
3. Use the data in your app
4. Write the datatable to an XML file
Discard the CSV file
Replace 1 with read XML file into the datatable from now on. CSV is great for transporting large loads of data (XML is NOT) but XML is easier to work with.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
But... I can't move the data to a Datatable. That's my problem. It isn't working.
Is there something wrong with my code? I tried doing it that way, and also reading the file line by line as previously suggested. The data stops being read after like, the third column. And I don't know why.
As I sit here, I contemplate the last words of Socrates: "I drank what?".
Pokémon Pearl Friend Code: 4554-2418-6836
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
