|
Hi
I want to open any document without the .exe file to open it. Example.
If I using shell("c:\program files\microsoft office\office\winword.exe c:\temp\mydoc.doc")
I dont't wanna that.
How i can only put Shell("c:\temp\mydoc.doc") or other command to open it.
Johnny Lizardo
|
|
|
|
|
The reason is clear..
Many PC have differents office version and I can't specify the path correctly.
|
|
|
|
|
|
Hi
Look, i don't know.. but this don't works. This is a command for vb.net?. Or give me more info about that.
Johnny Lizardo
|
|
|
|
|
VB5/6 declaration:
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
or better (but only for 2000/XP) the unicode function:
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteW" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
VB.NET declaration:
Declare Auto Function ShellExecute Lib "shell32.dll" (ByVal hwnd As IntPtr, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer</pre lang=vbnet>
nShowCmd & return value constants declaration:
<pre lang=vb>Public Const SW_HIDE = 0
Public Const SW_MAXIMIZE = 3
Public Const SW_MINIMIZE = 6
Public Const SW_RESTORE = 9
Public Const SW_SHOW = 5
Public Const SW_SHOWDEFAULT = 10
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOWNORMAL = 1
Public Const ERROR_FILE_NOT_FOUND = 2&
Public Const ERROR_PATH_NOT_FOUND = 3&
Public Const ERROR_BAD_FORMAT = 11&
Public Const SE_ERR_ACCESSDENIED = 5
Public Const SE_ERR_ASSOCINCOMPLETE = 27
Public Const SE_ERR_DDEBUSY = 30
Public Const SE_ERR_DDEFAIL = 29
Public Const SE_ERR_DDETIMEOUT = 28
Public Const SE_ERR_DLLNOTFOUND = 32
Public Const SE_ERR_FNF = 2
Public Const SE_ERR_NOASSOC = 31
Public Const SE_ERR_OOM = 8
Public Const SE_ERR_PNF = 3
Public Const SE_ERR_SHARE = 26
VB5/6 example
Private Sub OpenFile(ByVal File As String)
ShellExecute(Me.hWnd, "open", File, 0, 0, SW_NORMAL)
End Sub
See ShellExecute Function on MSDN
Hope this helps you out 
greetz 
*Niels Penneman*
Software/Dev Site
Personal Site
|
|
|
|
|
Men.. You're the men,.
Thankk a lottt.
Johnny Lizardo
|
|
|
|
|
Please Help!!
I can not connect to my Access Database because None of the ODBC Providers will work.
The only one that tries to work is the Fox pro Connection but that still gives me a error when I try to connect to the database.
Regards
Marc
marclaz@netactive.co.za
|
|
|
|
|
Hi Marc,
What's the connection string that you're using?
Datagrid Girl
|
|
|
|
|
wat is the code for matrix?can VB link wiv MATLAB?how?
|
|
|
|
|
When I use a ListView control in VB.NET, the control doesn't repaint its ColumnHeaders and sometimes the grid too at runtime (when scrolling, ...). I turned on and off visual styles support but the headers won't repaint correctly. Anyone who knows more about this?
greetz
*Niels Penneman*
|
|
|
|
|
hey,,
can anyone tell me that how can i install the keyboard hook in VB6 to capture the ALT+TAB, CTRL+ESC, and the like keyboard events and disable them.
Thanx
Vivek
|
|
|
|
|
I have a object call Request that has a sub object of Document. The object Request contains information about a request for a document. It includes a sub object called Document that contains all the details about the document being requested. I want to bind to the request object and show the document.title property in the same datagrid without haveing to do any navigation such as occurs with tables which are linked. For example I want my datamember to be "Document.Title". Any suggestions would be appreciated.
|
|
|
|
|
All I want to know is, "is the screensaver running or not?".
This problem seems to be much harder than it should be.
I'm attempting to use SystemParametersInfo api call to determine if it is running or not, but I keep getting an err.LastDllError.
Language: VB.Net
Platform: Win XP
Can anybody stop this coder from suiciding over something that should be fairly easy?
|
|
|
|
|
|
Thanks for replying Rage.
This is the code I am using and am getting back an error code (lastDllError code I think) of 998.
I can't seem to find any information on the error codes for SystemParametersInfoA.
Also, as VB.Net doesn't have any "Any" type I have used the VariantType, Object type, and boolean type all to no avail.
'My Code
Private Declare Function SystemParametersInfo _
Lib "user32" _
Alias "SystemParametersInfoA" _
(ByVal uiAction As Long, _
ByVal uiParam As Long, _
ByRef pvParam As VariantType, _
ByVal fWInIni As Long) As Boolean
Private Const SPI_GETSCREENSAVEACTIVE As Long = &H10
Private Const SPI_GETSCREENSAVERRUNNING As Long = &H72
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim p_lngRtn As Long
p_lngRtn = SystemParametersInfo(SPI_GETSCREENSAVERRUNNING, 0, bRunning, False)
If bRunning Then
Beep()
End If
If p_lngRtn = 0 Then
Debug.WriteLine(Err.LastDllError)
End If
End Sub
|
|
|
|
|
OK. All of your code is good except for one thing. Change all of your 'Long's to Integers. Long's in VB.NET are 64-bit integers and 32-bit in VB6. This is one of your problems. The other is that your VariantType just needs to be an integer. All the pvParam is returning is a boolean value saying True or False. When you call a function that has an ANy type in it, you have to think ahead and replace the Any with the type that you EXPECT to get back. In this case, a 32-bit Integer would work. The corrected code look like this:
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
(ByVal uiAction As Integer, _
ByVal uiParam As Integer, _
ByRef pvParam As Integer, _
ByVal fWInIni As Integer) As Boolean
Private Const SPI_GETSCREENSAVEACTIVE As Integer = &H10
Private Const SPI_GETSCREENSAVERRUNNING As Integer = &H72
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim p_lngRtn As Integer
Dim bRunning As Boolean
p_lngRtn = SystemParametersInfo(SPI_GETSCREENSAVERRUNNING, 0, bRunning, False)
If p_lngRtn = 0 Then
Debug.WriteLine(Err.Description)
End If
If bRunning Then
Beep()
End If
End Sub
Also, when calling into the API, exceptions will not be thrown, and the Err object will not be set at all. You would have to use the return value, 'p_lngRtn' is your code, to determine that an error HAS occured, then you would have to call the API function GetLastError to get the actual error that occured. Your's was probably something like '87 - The parameter is incorrect'.
RageInTheMachine9532
|
|
|
|
|
Yup!.. that's solved it alright!
I don't think I woulda ever thought about the difference between vb6 and vb.net integers.. 
Thanks!
Just one question though, you don't happen to know where the error codes are listed for api errors? I was getting an error code of 998 and couldn't find out what it meant to be able to fix this problem..
Thanks again!
|
|
|
|
|
998 wouldn't have told you what the problem was either. It means "Invalid access to memory location." The only thing it would have told you is that your passing an invalid reference to a variable, or memory location.
The complete list of Win32 API errors can be found here[^].
RageInTheMachine9532
|
|
|
|
|
Hi
I'm new to VB.Net and when I try to load an existing VB6 project I get a "Security Error"
When I try to start a new project in VB.Net I get a "Required permissions cannot be acquired" error
Can anybody point me in the right direction as to what to do?
Thanks
Stephen
|
|
|
|
|
Because .NET can run applications across the net it is concerned that your objects can be hacked by other net users. That's the crude explanation. So there are things called attributes, which you need to read up on, that indicate how certain aspects of your objects are to be controlled, accessed, and things like that. Attributes are a hell of a good idea, as you'll discover, you can do all sorts with them. Anyway, I've digressed. As you are upgrading from 6 to .NET you should take a look at msdn.microsoft.com and read about this process of upgrading, especially to see what's out and what's in if you know what I mean.
There are a lot of issues about upgrading. I learned real quick, its not just plug and play, its plug and pray, pray, pray, then rewrite 8-)
Nursey
|
|
|
|
|
So you can't even start a new project? Do you have Administrator rights and are you in the Debugger Users group?
greetz 
*Niels Penneman*
Software/Dev Site
Personal Site
|
|
|
|
|
Hello,
I am just learning the tcp/ip functions etc under vb.net so please look over me if this is obviouse. I have been all over looking into any functions that I didn't totaly understand and can't see that I am doing anything wrong (i obviousely am though)
everything "works", client connects to server and when anything is sent to the server it starts the mp3 and passes all messages the way i ment for it to except that my server is supposed to display the data it recieves in a window (that worked untill i changed some things) and my server will hang after I pass a few strings to it from the client.
The hanging is what I can't figure out. I can debug the other no problem.
Anyway here is the code, please look over how sloppy it has gotten after hours of changeing things arround.
Server :
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Public Class Form1
Inherits System.Windows.Forms.Form
'Windows Form Designer Generated Code was here "removed for size of post"
Const port As Int32 = 8353
Dim localIp As IPAddress = IPAddress.Parse("127.0.0.1")
Dim server As New TcpListener(localIp, port)
Dim netStream As NetworkStream
Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'start tcplistener on localhost: 8353
server.Start()
Try
'accept connections
Dim client As TcpClient = server.AcceptTcpClient()
'get stream
netStream = client.GetStream
While netStream.CanRead And netStream.CanWrite
'read stream into a byte array
Dim reciveBufferSize(client.ReceiveBufferSize) As Byte
netStream.Read(reciveBufferSize, 0, CInt(client.ReceiveBufferSize))
'convert data from the client into a usable string variable
Dim dataFromClient As String = Encoding.ASCII.GetString(reciveBufferSize)
'do something with the data
TextBox2.Text = dataFromClient
'send a response to the client
Dim serverResponse As String = "Transmision completed"
Dim sendBufferSize As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
netStream.Write(sendBufferSize, 0, sendBufferSize.Length)
'show what was sent
TextBox1.Text = serverResponse
If dataFromClient.ToString > "" Then
System.Diagnostics.Process.Start("C:\Documents and Settings\devan\My Documents\my music\christian\Did You Feel the Mountains Tremble_ (1).mp3")
End If
End While
Catch exc As Exception
MessageBox.Show(exc.ToString)
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
server.Stop()
End Sub
End Class
Client:
Imports System.net
Imports System.Net.Sockets
Imports System.Text
Public Class Form1
Inherits System.Windows.Forms.Form
'Windows Form Designer Generated Code was here "removed for size of post"
Dim client As New TcpClient
Dim netStream As NetworkStream
'If theres a problem check if this should be public for both client and server
Public Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'establish connection
client.Connect("127.0.0.1", 8353)
netStream = client.GetStream
'show connection status
If netStream.CanRead And netStream.CanWrite Then
StatusBar1.Text = "connected"
''do simple write
'Dim clientCommand As String
'clientCommand = TextBox1.Text.ToString
'Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(clientCommand)
'netStream.Write(sendBytes, 0, sendBytes.Length)
'' Read the NetworkStream into a byte buffer.
'Dim bytes(client.ReceiveBufferSize) As Byte
'netStream.Read(bytes, 0, CInt(client.ReceiveBufferSize))
''Do something with data from server
'Dim dataFromServer As String = Encoding.ASCII.GetString(bytes)
'Label2.Text = dataFromServer.ToString
Else
If netStream.CanRead = False Then
StatusBar1.Text = "cannot write to stream"
Else
If netStream.CanWrite = False Then
StatusBar1.Text = "cannot read stream"
End If
End If
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'do simple write
Dim clientCommand As String
clientCommand = TextBox1.Text.ToString
Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(clientCommand)
netStream.Write(sendBytes, 0, sendBytes.Length)
' Read the NetworkStream into a byte buffer.
Dim bytes(client.ReceiveBufferSize) As Byte
netStream.Read(bytes, 0, CInt(client.ReceiveBufferSize))
'Do something with data from server
Dim dataFromServer As String = Encoding.ASCII.GetString(bytes)
Label2.Text = dataFromServer.ToString
End Sub
End Class
Thanks in advance if anyone can help me figure this out.
|
|
|
|
|
I'm not an expert on the sockets stuff, but my gut feeling makes me wonder if the loops you are in need a DoEvents to keep the events running through the rest of your application.
You could also use the system.diagnostics namespace to get access to the Debug object and start writing some assert and trace statements, that will show where your code is stopping. It really might just be that it looks like its hung when in fact its in such a tight loop it can't do any of the event stuff it needs to do. So the doevents will yield for a time and let the system do its thing.
Nursey
|
|
|
|
|
Thanks,
I haven't gottin real deap into the diagnostics namespaces but the whole purpose is to learn so I'll look into it. Defenetly sounds like a good thing to learn to use for debugging.
Thanks again.
2 U.S. coins equal 30 cents and one is NOT a nickle. Hmm..
|
|
|
|
|
How to get all the controls in the form, like in VB we used to do
for each ctrl in me
if typeof ctrl is Textbox then
ctrl.text = ""
end if
next
How we do this in VB.Net.???
Thanks
 Be Humble in Victory and Strong in Defeat. -Het
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
