PDW Setup1 frmCopy modifying
I'm trying to have a the frmCopy in my setup package to
last 60 seconds, while the files are installed on a users
computer. I added a timer control to frmCopy and set the
intervel to 60000, but when I ran it, the files were
copied in a lot less time. I didn't add any code behind
frmCopy....anybody have any suggestions? Tag: PDW setup1.exe FRMCopy modifying Tag: 508225
Taking Advantage of Additional Processors
Hi,
I'm aware that Wink2k does support 2 or more processors. Will a program
developed using VB6 be able to take advantage of the additional processing
power if I add more processors? Do I need to install any service pack from
microsoft? Do I need to re-design and re-code my program?
Thanks,
chew Tag: PDW setup1.exe FRMCopy modifying Tag: 508222
Form "Close Button" - top right "X"
Is it possible to disable that method of closing a form and still have a blue border at the top? Example?
Jim Y Tag: PDW setup1.exe FRMCopy modifying Tag: 508218
calling Word.Application and do track changes...
Hi
I would like to know if there is anything to call up Word and perform a
"Track Changes" function between two documents? How?
Thanks a lot.
Danny Tag: PDW setup1.exe FRMCopy modifying Tag: 508212
Create a Windows XP Compressed Folder (.zip File) with vb6?
All,
I posted this before and never really got a final response.
Is it possible to create a Windows XP (or Server 2003) Compressed Folder
programatically using VB6?
I am looking for a way to do this without purchasing/downloading a third
party ocx or dll. I imagine that it is possible through a set of API calls.
Any and all related suggestions/tips are appreciated!!!
Thanks!!
Brian Tag: PDW setup1.exe FRMCopy modifying Tag: 508209
What U See is What U get & Text Alignment
Hi, I've displayed a text file in a textbox and formatted
the output by changing the TextFont to "Courier" and by
adding some underlines, some " = " and " | " characters to
make the output looking better, but when I send the data
from the textbox to the printer using (Printer.Print
txtViewOutput.Text & Printer.EndDoc), what I see is not
what I got, the printout is unformatted and the " = "
and " | " symbols aren't aligned as it shows in the
textbox. Do U know how can I fix it..!!?
Thanks. Tag: PDW setup1.exe FRMCopy modifying Tag: 508199
Way to getobject a PID number...
Hi,
Got problem with runtime access. When i launch access for the first time, it
works ok. But if i need to open a second instance of access, it tries to
open the database and everything in the first window, not in the second.
And i can't getobject on access.application using the runtime access, i must
use the shell() command to launch access first, and then do a
getobject(dbname).
It seems that my problem is that getobject find only the first window of
access, not the second. As the shell command returns a double with the pid
process number in it, is there any way than i can do something like :
set x = getobject(PIDNumberOfAccess) ...
Maybe using hwnd property or something like that, PLEASE HELP !
Thx Tag: PDW setup1.exe FRMCopy modifying Tag: 508194
Geting the Path
Hi Guys,
I am having a problem in fetching the Path using VB.
Here i am developing an application in with on giving
source path and destination path it will synchronize the
file(If any xml file is present it will check the data in
the source with the destination file and add if any data
is missing and also do the same by taking destination
data and check with source data and synchronizes). I am
getting it done if i work in single system. If i connect
it to my Pocket PC or Laptop then i am unable to get the
path of the folder present in PocketPC or NoteBook.
Bottom Line: I need to get the path of the folder present
in Pocket PC or NoteBook for synchronizing.
Can any one help me by providing a solution ?
Thanks,
Omprakash Tag: PDW setup1.exe FRMCopy modifying Tag: 508192
Can WebBrowser1.Navigate set exclusive?
Hi All,
The following method loads the file to be displayed.
e.g. WebBrowser1.Navigate "myfiletodisplay"
If I have multiple users opening files from a single
directory, is there a way to flag the opening of the
file to be exclusive so that the second user "sees"
that this file is currently already open?
TIA,
Mark Tag: PDW setup1.exe FRMCopy modifying Tag: 508151
hwnd for Msgbox?
How do you find the hwnd for a message box that is created when an execption
occurs?
I need to find the hwnd of the msgbox, becasue I want to use the
SetForegroundWindow function to make it the active window.
Looking for help on where to start of find the hwnd of the msgbox.
Thanks
Harold Tag: PDW setup1.exe FRMCopy modifying Tag: 508146
Packaging the final app
Hello,
I have used the packaging and deployment wizard that comes with VB but I
think it's going to be a pain for this one app in particular. The app uses
a lot of extra small bitmaps, about 500 of them. Only half are used
depending or a setting in the the app but all of them need to be sent out.
The VB PDW allows you to add files to the package but only one at a time.
If I have to include all 500 that will take some time.
Does anyone know of a better installer creation utility that may suit my
needs better?
Thanks.
Mike Tag: PDW setup1.exe FRMCopy modifying Tag: 508139
VB6 ADO Add Field Problem
This is a program to record an employee's time in and time out record. When
the user enters an ID, the VB6 program will check the ID with the database
ID. If it matches, then it will store the current time to the TimeIn field
in the database, but the program will check if the field is empty before
doing that. Here's the code, but the debugger never steps through this line:
If rs.Fields("TimeIn") = "" Then
Private Sub connectDB()
Dim sqlQuery
sqlQuery = "select * from [User] where serialNumber = " & "'" & ID.Text
& "'" & ";"
rs.Open sqlQuery, strConnect, adOpenStatic ', adOpenForwardOnly,
adLockReadOnly, adCmdTable
If Not rs.EOF Then
Debug.Print "ID matches database record"
' Debug.Print rs.Fields("TimeIn") & "," & rs.Fields("TimeOut")
If rs.Fields("TimeIn") = "" Then
rs.Fields("TimeIn") = Now() 'current time
ElseIf rs.Fields("TimeOut") = "" Then
rs.Fields("TimeOut") = Now() 'current time
End If
End If
rs.Close
Set rs = Nothing
End Sub
Please advise. Thanks! Tag: PDW setup1.exe FRMCopy modifying Tag: 508123
To Read Dll's
Hello All
I Need to write a VB 6.0 App which reads all the Dll's in
the computer,Any Ideas?
Thanks
-Irshad Tag: PDW setup1.exe FRMCopy modifying Tag: 508117
Web Browser Problem in VB6 Program
Hi,
I am using a web browser form in a VB6 program to display web pages that are
created using the program. This works fine. I recently decided to learn Java
and write an applet to use in web pages created with the program. The
problem is that although such a page displays and the applet display area
appears, the applet itself does not run. The same page, however, displays
perfectly with the applet running properly when I load the same page into
Internet Explorer. Older applets do run properly both in the VB program and
in Internet Explorer, so I presume that the problem is that the browser in
my VB is not up-to-date.
I thought that the same modules were used by Internet Explorer and the web
browser form in VB6 so that whenever Internet Explorer is updated so is the
browser in VB. Is this not so?
Can someone suggest a way for me to fix the web browser in my VB to properly
run both old and new applets?
Thank you.
Doug van Vianen
courses@shaw.ca Tag: PDW setup1.exe FRMCopy modifying Tag: 508108
Unhandled Win32 Exception
I've recently moved my development environment onto a
Windows XP machine. I have both VS6 and VS.NET loaded on
this PC.
The problem I'm having is in VB6, while working in the
data environment designer of my code. If I right-click an
object in the tree and select properties, I get the
following error:
"Unhandled Win32 Exception has occurred in VB6.exe"
and VB aborts.
I also get this same message every time I close VB6.
I have tried reinstalling both VS6 and VS.NET.
I could sure use some help on this,
thanks--David Tag: PDW setup1.exe FRMCopy modifying Tag: 508091
Shut Down Windows
Hello, all.
I am looking for some guidance on creating a mini-app
(probably one invisible form) to shut down the computer
after a certain time, let's say 11pm. Any suggestions?
Thanks, Antonio Tag: PDW setup1.exe FRMCopy modifying Tag: 508088
Hot-keys & the Tab Control
I'm using a tab control and I want to have hot keys on it. The problem is
how do I prevent the user from jumping to a control on a different tab?
I'm hoping for an easy solution, but I get a feeling this isn't likely.
TIA Tag: PDW setup1.exe FRMCopy modifying Tag: 508087
Enumerate Icons in System tray.
Hello Group,
I would like to know if I can enumerate all the icons present in
the "system tray". In other words, find the processes corresponding to the
icons present in the system tray?
Thanks,
Chris. Tag: PDW setup1.exe FRMCopy modifying Tag: 508086
For each loop
What happens during a for each loop, if one of the members of the collection was present at the
beginning of the loop, but is missing by the end? For example, say you are looping through the
forms collection, and you close a form right after it gets into the for each loop for the first
time. Will it throw an error? Tag: PDW setup1.exe FRMCopy modifying Tag: 508077
return value
Is there a way to create a return value, aka process exit
code, from a VB executable? We run some executables from
within a SQL Server job, and we need to respond to
success/failure values.
Thanks
Vern Tag: PDW setup1.exe FRMCopy modifying Tag: 508076
MS's 827227 blaster removal vbs script
Is there any way to alter this script to work in a non AD environment?
Thanks in advance! Tag: PDW setup1.exe FRMCopy modifying Tag: 508065
Why too large?
I have rewritten ocx's for a button, statusbar, toolbar and tabstrip,
because I wanted to be able to change the back, fore and provide a hover
color. The button also has popup menus with pictures, colors and hover
colors etc.
The took some time to write, but I thought they were simple.
Yet when I use them on a form, it takes some time to load the form, and I
also get out of memory errors.
I canl add more info, if requested.
So where shall I satrt looking? Tag: PDW setup1.exe FRMCopy modifying Tag: 508049
Module list for Process ID?
How can I get the list of modules for any given process
ID? Especially on Win98, but also on Win2K and WinXP?
Thanks
Jason Tag: PDW setup1.exe FRMCopy modifying Tag: 508033
MessageBox Window
I have an VB Program that Open a view in another application, when the
Application opens it opens on Top of my VB Program. In those rare times
when the view does not open because for example one person is attempting to
open a view against a module that is already open by someone else. The now
Open application Window is active an on top but no view opens. I have a
message box that comes up and says that it was unable to open this view, but
the message box is hidden under or behind the active application Window.
My question is there a way (when the message box is needed) to bring the
message box to be the Top window( or active) so that the user sees it and
can act accordingly? Currently they don't see it until they either close or
minimize the Active application Window.
Harold Tag: PDW setup1.exe FRMCopy modifying Tag: 508030
Boolean
Similar to the way I might declare
dim nindex&
in order to get a long variable
and
dim thetext$
to get a string, is there a type definition character for
a boolean?
Thanks Tag: PDW setup1.exe FRMCopy modifying Tag: 508025
List View Control in VB 6.0
Hi !
I am using a List view control to populate data onto. On
the click event of the list view control, i need to find
out whether the area clicked has any information of has no
information. I basically need to either decide to add a
new record or edit the existing record depending on
whether data is available or not on the row where the
mouse click was performed.
I have tried using listViewControl.SelectedItem.Text .
This always returns the text of the selected item, there
indicating that there is a record. But if the click is on
a blank row, an empty text is not returned.
Will be glad if anyone can suggest a way around this.
Many Thanks. Tag: PDW setup1.exe FRMCopy modifying Tag: 508023
Scientific notations in VB
Now I am developing a quiz project in VB as front end and
SQL server as backend which involves Mathematical and
Scientific notations. I've tried to include these special
characters in VB but I am not succeeded in my attempts.
So please provide me a solution so that I can include
special characters without changing the font at runtime.
regards
Madhavan Tag: PDW setup1.exe FRMCopy modifying Tag: 508013
Header includes - which? where?
What if I want to look up somewhere to find out which
header file contains the class I need to use? Is there a
table or something ? Don't say look in help as I don't
have it.
For instance I am at a loss as to what I need to include
in order to use a CString in a console application?
Thanks Tag: PDW setup1.exe FRMCopy modifying Tag: 508010
Problem with Catalyst's CSRAS.OCX?
Hi all!
Has anybody used the Catalyst Software RAS Dialer of www.catalyst.com/ ?
I've made this application that dials to an ISP, sends a message and then
disconnects by itself. The problem is that it works fine in some PC's but
not in others.
Maybe it's not relevant, but I noticed that the program works in machines
with external modems, but it doesn't in machines with internal modems.
In these, I get only 4 status messages:
1.Communications port is about to be opened...
2.Communications port has been opened...
3.Device is about to be connected...
4.Communications port is about to be opened... (again)
(Then it hangs...)
I'm using CSRAS.OCX Vers. 3.60.0.3640 in a VB6 SP5 Appl. All PC's have
Win2K. All modems, internal and external, are "US Robotics" brand. I tried
installing the software with P&D Wizard and Inno Setup and the results are
the same.
The code is quite simple:
Private Sub Form_Load()
Dim sPassword as String
Dim sUserName as String
With Dialer1
.AutoConnect = True
.AutoDisconnect = True
.AutoDial = True
.PhoneNumber = "1234567890"
.Username = sUserName
.Password = sPassword
.Connect
End With
End Sub
Any idea or suggestion will be really appreciated.
Thanks,
Carlos
:o) Tag: PDW setup1.exe FRMCopy modifying Tag: 508007
Subclassing
Hi - really hope somebody can give me some clues on this:
I am using SetWindowLong to define a custom function to
respond to messages of my form's hwnd, before I call
SetWindowLong I use GetWindowLong to return the address of
the old function, in order to delegate messages that
aren't of the custom type I want to respond to. However
when I try to move the form using the blue bar at the top
it doesn't move, neither does it close if I click the
close button, although it will close if I select it from
the right click menu on the taskbar. Despite the fact that
other controls on the form appear to be responding, the
form's own events don't appear to be firing, presumably
because I've misdirected the messages that generate the
events. Any idea what I might be doing wrong? This is the
code I've got
(in frmReceiveMessage):
Option Explicit
Private Sub cmdShell_Click()
Dim proc As PROCESS_INFORMATION
Dim start As STARTUPINFO
start.cb = Len(start)
CreateProcessA 0&, _
"C:\My Documents\Visual Studio
Projects\dbproj\Debug\dbproj.exe " & Me.HWnd, _
0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0, 0, start, proc
'THIS IS MY PROGRAM THAT GENERATES THE CUSTOM MESSAGES,
'RECEIVING THE HWND IN ITS COMMAND LINE
End Sub
Private Sub cmdStopSubclassing_Click()
StopSubclassing
End Sub
Private Sub Form_Load()
noldwndproc = GetWindowLong(Me.hwnd, GWL_WNDPROC)
'noldwndproc is defined in the module below
SetWindowLong Me.hwnd, GWL_WNDPROC, AddressOf WndProc
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode
As Integer)
StopSubclassing
End Sub
Sub DisplayMessage(DisplayText As String)
Me.Print DisplayText
End Sub
Private Sub StopSubclassing()
SetWindowLong Me.hwnd, GWL_WNDPROC, noldwndproc
Debug.Print "SubClassing stopped"
End Sub
'=========================
(in the module modAPIs):
'==========================
Option Explicit
Public noldwndproc&
Public Declare Function GetWindowLong Lib "user32"
Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex
As Long) As Long
Public Declare Function SetWindowLong Lib "user32"
Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex
As Long, ByVal dwNewLong As Long) As Long
Public Type PROCESS_INFORMATION
hProcess As Long
hThread As Long
dwProcessId As Long
dwThreadId As Long
End Type
Public 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
Public Const NORMAL_PRIORITY_CLASS = &H20
Public Const GWL_WNDPROC = (-4)
Public Declare Function CallWindowProc Lib "user32"
Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long,
ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As
Long, ByVal lParam As Long) As Long
Public 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 Const WM_QUERYFINISHED& = &HBEEF&
Function WndProc(ByVal hwnd As Long, _
ByVal Msg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
If Msg = WM_QUERYFINISHED Then
frmReceiveMessage.DisplayMessage "Query finished
message received!"
Else
CallWindowProc noldwndproc, hwnd, Msg, wParam,
lParam
'IS THIS BIT RIGHT?
'SHOULD THIS FUNCTION BE PRIVATE? IF IT IS, A COMPILE
'ERROR ON THE ADDRESSOF OPERATOR COMES UP
End If
End Function Tag: PDW setup1.exe FRMCopy modifying Tag: 508001
behavior not what i expected...
hi all,
i've got a loop that executes 1000 times within a function. it's very
simple: at each loop, it prints a 633 character, one-line string to a file.
initially, i was doing this:
Open strNewBacFileName For Binary Access Write As #BacFileNum
Put #BacFileNum, , strNewFirstLine & vbCrLf
frmMain.Caption = "Making .bac template. Please wait..."
ccrpNormalizeProgress.Value = 0
ccrpNormalizeProgress.Max = 1000
For f = 1 To 999
DoEvents
ccrpNormalizeProgress.Value = f
strBlankBacLine = (Space(3 - Len(CStr(f))) & f) & Space(9) & ".0000
.0000 .0000 " & _
"1.0000 .0000 .0000 .0000 .0000
.0000 " & _
"9999999.0000 .0000 .0000 1.0000
.0000 " & _
".0 .0000 .0000 .0000 .0000
.0000 .0000 " & _
".0000 .0000 .0000 .0000 .0000
.0000 " & _
".0000 .0000 .0000 .0000 .0000
.0000 " & _
".0000 .0000" & Space(128) & vbCrLf
Put #BacFileNum , , strBlankBacLine
Next f
Close #BacFileNum
i then made a small change, assuming that if i were to build the entire 1000
line string first, then write it to the output file, that it would be
quicker (granted, it's not exactly slow to begin with, but this function is
called many times consecutively). here it is with the change.
Open strNewBacFileName For Binary Access Write As #BacFileNum
Put #BacFileNum, , strNewFirstLine & vbCrLf
frmMain.Caption = "Making .bac template. Please wait..."
ccrpNormalizeProgress.Value = 0
ccrpNormalizeProgress.Max = 1000
For f = 1 To 999
DoEvents
ccrpNormalizeProgress.Value = f
strBlankBacLine = strBlankBacLine & (Space(3 - Len(CStr(f))) & f) &
Space(9) & ".0000 .0000 .0000 " & _
"1.0000 .0000 .0000 .0000 .0000
.0000 " & _
"9999999.0000 .0000 .0000 1.0000
.0000 " & _
".0 .0000 .0000 .0000 .0000
.0000 .0000 " & _
".0000 .0000 .0000 .0000 .0000
.0000 " & _
".0000 .0000 .0000 .0000 .0000
.0000 " & _
".0000 .0000" & Space(128) & vbCrLf
Next f
Put #BacFileNum , , strBlankBacLine
Close #BacFileNum
now, surprisingly to me, it takes a lot longer to write this file. i'm just
guessing here, but it seems to take almost 10 times longer than the first
method. why would that be?
lance Tag: PDW setup1.exe FRMCopy modifying Tag: 507998
Class Name
VB6
ActiveX DLL,
How can I know the class name of the myself inside the
code?
Thank's
FILIPPO Tag: PDW setup1.exe FRMCopy modifying Tag: 507995
Add table columns with ADO
Hi,
I am trying to build MSAccess tables through ado code.
When i try and use the Fields collection to add a field
into a table that i have previously created, VB does not
give me any errors, but the field does not get created in
the table.
I use such code to create my new fields -
rsTable.Fields.Append sColName, eType, lSize
When this approach did not work i made fields using Alter
Table Sql statements, but it seems Access does not allow
one to use standard SQL syntax for creating field type.
Because of this i am able to create a Numeric field, but i
cannot specify the exact size. Which means i can specify
that i want a numeric field made, but i cannot specify
that it should be a decimal type field. I also want to set
the precision to 20 (the default value being 18 for a
decimal type). How can i achieve the above?
I am also not able to modify properties of a field that
already exists in my table through ADO. What is the reason
for that?
Please tel me if there is some way to achieve field
creation through ADO so that i can use the same code for
creating other tables eg in SQL Server.
Also, right now i am creating new tables using the Create
Table Sql statement. Is there some way to do that also via
ADO?
I even tried checking the errors collection of my
connection object but that also does not show me any error
Thanks for your help
Jayant Tag: PDW setup1.exe FRMCopy modifying Tag: 507994
Get the ASCII number for symbol "<" in KeyUp Event
Hi all,
This could be a simple question to you guys.
Here is the my ComboBox KeyUp event and at the moment
doesn't capture Shift key combination.
Private Sub cmbMyCombo_KeyUp(KeyCode As Integer, Shift As
Integer)
debug.print Chr(KeyCode)
End Sub
Thus when I type a less-than sign, <, KeyCode's value is
whopping 188!!!! Which is a symbol of one-quarter. I know
from the fact that if I type: Asc("<") then this gives me a
value of 60.
How can I capture Shift key and thus get the value of 60?
Thanks for your time.
---
Tetsuya Oguma, Sydney, Australia Tag: PDW setup1.exe FRMCopy modifying Tag: 507983
VB6 app send email using outlook not work for OfficeXP?
Hi,
I have following code which works in a WinNT/Office2K environment.
Dim olApp As Outlook.Application
Dim olItemMsg as Outlook.MailItem
Set olApp = New Outlook.Application
Set olItemMsg = olApp.CreateItem(olMailitem)
In the newer XP/Office2002 environment, the last statement fails if
Outlook is not already started, otherwise the application works fine
too.
Is there a different way of using Outlook to create and send mail
messages that works equally well for the two different environments
described?
Thanks in advance for help provided.
David
7Oct2003 Tag: PDW setup1.exe FRMCopy modifying Tag: 507977
Set Decimal Places on a field
I have code whcih lets me update properties of fields
of an Access97 database via VB/DAO.
I can update "Format" but "Decimal Places" just will
not work. Has anyone done this successfully?
Im using the code snippet from this site:
http://visualbasic.about.com/library/weekly/aa101602a.htm
AGP
--
**********************************************************************
Unpak my email address before sending me personal email
********************************************************************** Tag: PDW setup1.exe FRMCopy modifying Tag: 507969
Advanced Q: Listing DLLs in use by a process
Hi,
I have been searching for some information on this for a while but I haven't
been able to come up with anything *anywhere* . So I don't even know if this
is possible, except that I've seen it done before (sysinternals has a
utility like that I think) and my belief is that if it can be done in
Windows, it usually can be done in VB.
Basically I need to know which DLL files are in use by a certain process. I
can enumerate the running processes easily, but is there any way to know
which files a process is using?
For example: knowing the file name or handle of the process, say c:\program
files\internet explorer\iexplore.exe, retrieving a list of DLLs that are
open by the process, as in:
c:\windows\system32\msvcp60.dll
c:\windows\system32\msrating.dll
c:\windows\system32\uxtheme.dll
c:\windows\system32\jscript.dll
c:\windows\system32\wsock32.dll
....etc
I am completely at a loss as to where to next look for some info on this.
Any hints/comments will be greatly appreciated.
Best regards,
George Tag: PDW setup1.exe FRMCopy modifying T