|
Take your spam elsewhere.
Or better yet buy ad space on CP.
Bruce Duncan, CP#9088, CPUA 0xA1EE, Sonork 100.10030 'ugly naked women are good, when i'm not around, in front of someone else' - Shog9
|
|
|
|
|
VBA module
Type PROCESS_INFORMATION
hProcess As Long
hThread As Long
dwProcessId As Long
dwThreadId As Long
End Type
Type STARTUPINFO
cb As Long
lpReserved As String
lpDesktop As String
lpTitle As String
dwX As Long
dwY As Long
dwXsize As Long
dwYsize As Long
dwXCountChars As Long
dwYCountChars As Long
dwFillAttribute As Long
dwFlags As Long
wShowWindow As Integer
cbReserved2 As Integer
lpReserved2 As Long
hStdInput As Long
hStdOutput As Long
hStdError As Long
End Type
Declare Function CloseHandle Lib "kernel32" (hObject As Long) As Boolean
Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hObject As Long, ByRef dwExitCode As Long) As Boolean
Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Declare Function CreateProcessA Lib "kernel32" (ByVal lpApplicationName As Long, ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
'Public Sub ShellAndWait(AppToRun)As Integer
Function ShellAndWait(AppToRun) As Integer
Dim NameOfProc As PROCESS_INFORMATION
Dim NameStart As STARTUPINFO
Dim rc As Long
Dim dwExitCode As Long
dwExitCode = -1
ShellAndWait = dwExitCode
NameStart.cb = Len(NameStart)
rc = CreateProcessA(0&, AppToRun, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, NameStart, NameOfProc)
rc = WaitForSingleObject(NameOfProc.hProcess, INFINITE)
rc = GetExitCodeProcess(NameOfProc.hProcess, dwExitCode)
MsgBox "ExitCode for the process is, dwExitCode = " & dwExitCode
ShellAndWait = dwExitCode
rc = CloseHandle(NameOfProc.hProcess)
End Function
|
|
|
|
|
Try this (Need Script Host 5.5+):
Sub ShellAndWait(AppToRun)
Dim Shell
Set Shell = CreateObject("WScript.Shell")
Shell.Exec( AppToRun )
End Sub
YVOTD: 15 "The eyes of the Lord are on the righteous and his ears are attentive to their cry;
16 the face of the Lord is against those who do evil, to cut off the memory of them from the earth. " - Psalm 34:15-16 (1 Peter 3:11-12) (NIV)
|
|
|
|
|
Hello,
I've got these 2 lines of code, they each do the same thing, but one produces VERY different results. Can someone please tell me what is going on. It is simple painting code. In a user control, I overrided the onpaint event. The 2 drawing calls inside are practically the same, and produce the same effect on the control. HOWEVER, when you resize the form so the form border clips half of the usercontrol, it creates speckles on the control when you move the form off the control slowly. Take a look:
BTW, my usercontrol is inherited from system.windows.forms.button
<br />
Protected Overrides Sub OnPaint(ByVal pevent As System.Windows.Forms.PaintEventArgs)<br />
MyBase.OnPaint(pevent)<br />
Dim p As New Pen(Color.Navy)<br />
p.DashStyle = Drawing.Drawing2D.DashStyle.Dot<br />
<br />
With Me<br />
'THIS CODE SPECLES FUNNY<br />
pevent.Graphics.DrawRectangle(p, 4, 4, .Width - 10, .Height - 10)<br />
<br />
' - OR -<br />
<br />
'THIS CODE WORKS JUST FINE<br />
'ControlPaint.DrawFocusRectangle(pevent.Graphics, New Rectangle(4, 4, .Width - 10, .Height - 10))<br />
<br />
End With<br />
End Sub<br />
Can Someone Please Please let me know, because I am trying to implement a "focus rectangle", but I don't want to use ControlPaint.Draw.... because I need color customization and ControlPaint.Draw... Doesn't have working color customization.
Thanks,
ERIC FRANZ
|
|
|
|
|
hi, i still dont understand the concept of "stream", more specifically:
System.IO.Stream
System.IO.MemoryStream
Here's a code fragment in VB.NET:
Dim HSBCWC As new Customer()
HSBCWC.ID = 08346
HSBCWC.FirstName = "Paul"
HSBCWC.LastName = "Bowie"
...
Dim stream As MemoryStream()
Dim serializer As New XmlSerializer( Customer.GetType() )
serializer.Serialize( stream, HSBCWC ) QUESTION 1: Why not serialize to a string as supposed to a MemoryStream? It would be much simpler rite?
...
stream.Flush() QUESTION 2: I dont understand why we need to flush? flush what from what? I thought HSBCWC has already been "flushed" to stream?
stream.Seek(0,SeekOrigin.Begin) however, I do understand why u need to Seek (rewind the stream).
...
Dim reader As New StreamReader(stream)
message.body = reader.ReadToEnd()
stream.Close()
SmptMail.Send(message)
I'm a newbie and pretty confused why we need "streams" in general.
help!
SHAME
|
|
|
|
|
"The MemoryStream class creates streams that have memory as a backing store instead of a disk or a network connection."
I thought MemoryStream is a memory object (data in RAM). So, "Flush" will flush this data (already in memory) to another memory location???
help!
norm
|
|
|
|
|
Streams are supposed to be a higher-level abstract concept. An example: If you make a compression routine that compress one file to another, it will do just it.
But if you create a routine that compresses a input stream into a output stream you can use this routine in ,e.g., serial ports, sockets, HTTP, files, and even memory, without changing it.
So, a memorystream is useful when you want to use a routine that does something in/from a stream but do not want to have a file writing/reading overhead.
The flush method does nothing: it's there only to make the interface consistent.
Concussus surgo.
When struck I rise.
|
|
|
|
|
Thanx for the feedback first of all.
(1) but in the code fragment that i showed earlier, why not Serialize to a "String" as opposed to a "MemoryStream"
(2) Quote: "An example: If you make a compression routine that compress one file to another, it will do just it."
what do u mean by "it will do just it"?
norm
|
|
|
|
|
I'm currently buidling an ASP.NET application that requires custom HTML emails be sent. I was going to use "Sever.Execute" to capture the result of an aspx template execution and use it as the body of an HTML email. This works, but it only works if it is called from the "Page_Load" Sub. As soon as I call it from an event sub it fails and returns a "Corrupt ViewState" Error. Is this normal? Does "Server.Execute" only work in Page_Load? Is there another/better way to do this? Help is appreciated.
Code:
**** This Works ****
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SendItDude()
End Sub
**** This Doesn't Work ***
Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
SendItDude()
End Sub
Public Sub SendItDude()
Dim EM As CarSystem.Emailer = New CarSystem.Emailer()
Dim writer As New StringWriter()
Dim x As Integer = 1
Dim List(x) As Integer
List(0) = 3332
List(1) = 3332
Server.Execute("../Assignpreview.aspx?car_id=7", writer)
Response.Write(EM.Email_it(8, List, 3332, "This is a test", writer.ToString()))
End Sub
|
|
|
|
|
I would like to write a control panel applet, but have only found examples in C++
Can anyone guide me to some sample code on creating applet
Cheers
Geoff
|
|
|
|
|
I'm not a VB developer, but am in charge of implementing PVCS for our development team. The problem I've come across is that when I load up a VB project now, the Project View Tree does not display available forms, or anything really. I cannot figure out how to get this view back to displaying properly. Can someone help me, please?
We're running VB6, and PVCS VM6.8.
I don't know if this is a known VB anomaly or something to do with PVCS IDE add-on. Thanks.
BW
{insert witty/thought-provoking saying here}
|
|
|
|
|
Has anyone ever seen an issue in VB6 Where a call to Time or Date fails without an error message?
Actually now that I think about it there could be more than one thing here.
1. If an error is generated during the Load procedure of a Form, are any of the controls updated?
2. Is there any type of system or user permissions that would cause the Time or Date functions to fail at runtime?
Basically, I have a form that is very simple it sets two dt pickers and then reads in data from an ini file and puts it all onto controls on the screen. It works great on 3 different systems, but on the fourth the form shows with no errors, but all the controls are blank (not filled in, but completely drawn).
I don't think there is a code issue, but I'm trying to narrow my search to find out why this one system is different than the others.
From an internal company e-mail November, 2001 --
"Would the person who stole the ethics training manual from the class last Friday please return it."
|
|
|
|
|
I'm using VB 6.I want to show a bitmap field from database.When I use acceess 97 database its ok but for access 2000 I can not show it.Is there any trick for it?Or is there any veiwer component for access 2000?
Mazy
"If I go crazy then will you still
Call me Superman
If I’m alive and well, will you be
There holding my hand
I’ll keep you by my side with
My superhuman might
Kryptonite"Kryptonite-3 Doors Down
|
|
|
|
|
Can anybody help me to handle keypress event in Datagrid Columns? I have to validate the data entered in a column for that I need to have the keypress event of datagrid columns.
I have tried with DataGrid_Keypress Event but that does fire the key press event.
Please provide urgent help
|
|
|
|
|
I want to add a new webform using C# for the codebehind in an existing ASP.NET application using VB but there is no option under the menu Add new file to select C# webform. (I use Visual Studio .NET) I try to create the aspx and aspx.cs file in a different C# project and copy the files over but when I try to open the web page the browser display the error message that it does not find the class for the codebehind. Is there a way to do it or I have to stuck with one language under a web project. Anybody have any idea or solution for this? I want to gradually convert my project from VB.Net to C#.Net and I hope a lot other people might have the same problem. It is ok if you can show me a link to any website or document on how to do this I will be so happy. Thank in advance.
Young Huynh
John World
Senior Software Engineer
|
|
|
|
|
I'm having a problem with a program that needs to figure out which (if any) of the PC card slots in a laptop a particular card is in. I guess I either need to interigate the CIS tuples in some way, or (probably "safer") ask the WinAPI for the list of devices it can see, but can anyone point me in the direction of the correct calls to make please? I'm writing in VB6 under NT4/2000 if that makes any difference. Thanks.
|
|
|
|
|
Upgrade Failed: Exception occured The referenced Component CommonDialog is missing a design timr license ?
I get the above error when I attempt to upgrade my VB 6.0 project to VB.NET. Can anyone shed any light on this error. I am lost. I have licenses for both products. Had anyone had this error?
Sincerely,
Derek S. Smigelski
derek@smigelski.com
Dereks@mip.com
|
|
|
|
|
Hi Friendz!
Do any one know how to close a running exe in vb 6.0
PLz tell me as early as possible.
Work Hard and Test your Luck
|
|
|
|
|
|
Looks like Ray's solution should work, the basic idea is that you will need the handle to the window you want to close. Once you have the handle to the window you will then send a message to the message queue passing it the WM_CLOSE message to close that Window. So all you need is something like this:
Define these in a module:
Public Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal _
Msg As Long, wParam As Any, lParam As Any) As Long
Public Const WM_CLOSE = &H10
Your code:
Dim hWnd As Long
'You will want the handle to the window you want to close
'however this is just an example with the handle to the
'current window.
hWnd = Me.hWnd
result = SendMessage(hWnd, WM_CLOSE, ByVal CLng(0), ByVal CLng(0))
HTH
Nick Parker
|
|
|
|
|
See Api PostMessage
Oberdan
|
|
|
|
|
I built a webcontrol that has several properties, one of which is a Collection type. This property works just fine in design view from the Property Browser and brings up the Collection Editor when selected. However, when I run or close the project then re-open the project in design mode my inserted items are no longer visible!!!
What am I missing? I have read that collections must be Type Converted but no good examples are out there in VB.NET!?!?
Thanks!
|
|
|
|
|
Hi
I have a ActiveX control in V.Basic and need to load a bitmap and obtain the handle to use with API functions eg: SelectObject,GetObject,TransparentBlt,etc.
It´s work fine if the image is loaded from a file eg:
hImageGray = LoadImage(App.hInstance, "c:\gray.bmp", IMAGE_BITMAP, 0, 0, LR_COLOR Or LR_LOADFROMFILE)
The problem is when I try to load the bitmap from a resource file added in the ActiveX control project.
I try from different methods:
"ID_GRAY = 102
hImageGray = LoadImage(App.hInstance, CLng(ID_GRAY), IMAGE_BITMAP, 0, 0, LR_COLOR )"
" LoadBitmap(App.hInstance, ID_GRAY)"
"LoadBitmap(App.hInstance, "102") "
Ever with the same result. No work".
Also try to use the v.Basic method to load the image with LoadResPicture, returning a IPictureDisp with the image loaded.
This solution have a problem: the handle property of IPictureDisp isn't a bitmap handle to use with the GDI API´s.
Any ideas to solve this problem???
Thank´s (and sorry by my bad english!
MrSparc.
|
|
|
|
|
Yes, thanks for you help.
Now you are right, the variable does not get set to null at once, but if I try to create a new DC and select an old hBitmap in it, it return error...meaning a bitmap has been deleted successfully. Thanks again.
.
|
|
|
|
|
Haha...sorry man, I clicked it by accident, I actually wanted to reply to your answer to me just two lines before yours in this table.
Anyways, with respect to your question, I had the same problem and never succeeded in loading a bitmap from the resource. I perused all the books I had, Web sites, posted the same question at a several developer, sites...but nope, no answer. I guess it is not possible to explain to an API functions to use a bitmap from a VB resource. They made those wrapper functions to retreive an object from the resource, like LoadResPicture and alike, but it was never meant to be used by API functions. I also find it strange, for it is only logical if you use LR_LOADFROMFILE that you can use another constant to retreive a bitmap from the resource for example...but I don't think it is possible.
Anyways, thanks for your answer to my inquiry, you were absolutelly right.
|
|
|
|
|