DevX.com Forums - VB Classic

Hooking Create Process

evansjahja — Fri, 20 Nov 2009 15:22:34 GMT

Hi all, I want to ask, how do I hook CreateProcess? I want to write an antivirus program with Real Time Protector. Thanks.

.gif transparency problem

Shannon — Tue, 17 Nov 2009 21:39:43 GMT

VB6/WinXP/Hobby Programmer.

I've imported some little .gif files into an imagelist control in my App. I then use the image list with the mask color 'ON' to give me transparency of these little graphics (dice) in the program. It works great when I first import the graphics to the Imagelist control, but the moment I save the App the very next time I run it the transparency has been lost and I can see what should be an invisible color.

Can anyone tell me why this might be happening to save me from going any more insane on this issue.

Thanks!

PS: I previously set the image file's transparency color in Paintshop Pro, if that matters.

Brick a break

Yobber — Tue, 17 Nov 2009 09:31:54 GMT

Im trying to make a simple game called brick a break in vb6. It needs a padel, a ball and some bricks. The problem is i can't get the padel to move. Please can someone help iot doesn't matter hows its done just works lol.

Thanks
Yobber

How to update old Windows files ....

Shannon — Sun, 15 Nov 2009 19:40:13 GMT

VB6Pro/XP/Hobby Programmer. My computer is several years old now and the VB SP6 update (which I have) is dated at 2004. I noticed when recently installing an app on a friend's computer that her Windows said on several occasions that my App was trying to install files that were older than those her computer currently possessed.

Is there somewhere I can download the newest versions of Windows system files that might be used by VB6 Installs (that perhaps have been updated since SP6). I'm guessing there is, but I looked all around Microsoft's site and couldn't figure out the right search criteria.

Any help appreciated ...

Shannon

Buttons appearing too quickly ...

Shannon — Sat, 14 Nov 2009 01:58:29 GMT

VB6/XP, Hobby Programmer. I'm suddenly having a problem with a command button appearing before the rest of the form.

ie. form1 loads form2 , then unloads itself. You play a little game on form2. When the game is over form2 does this 'form1.show', then unloads itself.

It has worked great forever, then just recently I noticed the default command button for form1 will pop up (become visible) over the top of the form2 background graphic before form2 is unloaded, and before the entire form1 becomes visible.

Can someone tell me how to keep this from happening? And maybe better yet, what I might have recently done to make it happen? I've been dabbling with this App for a long time and never had this problem. I did recently add a bunch of graphics to an imagelist on the form, but I tried removing all but one and no change.

Any help appreciated.

Shannon

IE7 Protected Mode blocking my Plugin

Biox — Fri, 13 Nov 2009 06:52:24 GMT

I have an IE plugin writtten in VB6

It is digitally signed and runs fine on XP

However on Vista, IE7, with UAC on and in Protected Mode, the plugin will not run correctly, it will not interact correctly with other dll's it calls. Data is not passed correctly.

If I turn Protected Mode off, everything runs fine.

Appreciate if someone could suggest how I programatically have the plugin dll override/bypass the Protected Mode ? I thought having it signed would do the trick but it seems not.

thanks

Replace function for excel

mojo2405 — Wed, 11 Nov 2009 09:24:11 GMT

Hi there..

I've just finished to write my code in VBA, and now moving it to VB for compilation..
But I have a problem...
My code should look in the selected active sheet, and do a find&replace for an in put string..
For some reason I keep getting an error..

This is where I get the error :
xlsCell.Replace(strOldName, strNewName)

Anyone ?? HELP !! :)

Thanks alot !

DbGrid + DataSource

fchevitarese — Thu, 05 Nov 2009 16:33:20 GMT

Hello!
I have to maintain in an old code here, and I have to migrate the database "Access" to "MSSQL".
So far so good ... The consultations, inclusions and exclusions are all done.
The problem is that there is a "DBGrid" here, that takes a "data" object as "DataSource".
This object in turn, opened a database "access", carrying a table and populate the "DbGrid.
I would like this populate this "DBGrid" using a "Recordset". It�s possible? :confused:

For thus, I would do the query and populate a "grid" with the result.

Thanks.

xml header encoding declaration - help

bnaderi — Wed, 04 Nov 2009 01:57:14 GMT

i'm building an xml generator in vba (within excel), how can i get the encoding declaration to appear as the first line?

please help

thanks!

Sting or Long? not sure advice please

Drew_gable — Mon, 02 Nov 2009 03:37:27 GMT

Hi,

can someone please check the below for me and let me know if I am using the right data types

at the moment I have them like this

Public ValueTendered As String
Public TotalTendered As String

should they be

Public ValueTendered As Long
Public TotalTendered As Long

They are numbers (part of a tender tracking module for the cash drawer)

This is the code I am calling when ever a tender is done

If Val(TotalTendered) >= Val(SubTotalValue) Then Call ModuleFunction

If Val(TotalTendered) < Val(SubTotalValue) Then
TotalToPay = SubTotalValue - TotalTendered
TotalToPay = Format(TotalToPay, "######0.00")
FrmTenderScreen.LabUserMessages.Alignment = 0
FrmTenderScreen.LabUserMessages.Alignment = 0
FrmTenderScreen.LabUserMessages.Caption = " TENDERED " & DisplayTender & TotalTendered & vbNewLine & " TO PAY " & DisplayTender & TotalToPay
Call TotalToPayment

If FrmTenderScreen.Visible = True Then
FrmTenderScreen.Enabled = True
FrmTenderScreen.SetFocus
End If

If FrmDepositScreen.Visible = True Then
FrmDepositScreen.Enabled = True
FrmDepositScreen.SetFocus
End If
End If

It works every time with cash payments and gift cards but if you mix a credit card payment it does not work.

I have to enter 0 CASH about 5-10 times before it will function and end the transacation.

And in a EPoS software this is not a good thing.

I would welcome any advice, commets you guys can give me

Thanks

Problem with SQL Select command

Drew_gable — Mon, 02 Nov 2009 03:30:26 GMT

hi all,

can someone please help me I am having problems with this SQL Select command

Code:

SQLCommand = SQLCommand & "WHERE JournalDate Between '" & FrmJournalRoll1.txtStartDate.Text & "' AND '" & FrmJournalRoll1.txtEndDate.Text & " AND PoSNumber='" & FrmJournalRoll1.txtPoS.Text & "'"

If I enter in example 12/10/2009 in both the txtstartDate (text box) and 12/10/2009 it finds everything with no errors.

BUT if I enter a wide date range say 01/09/2009 to 20/09/2009 it is finding dates from 01/01/2007 and 01/01/2009 can someone please point out where I am going wrong?

Thanks

VB6 Won't Open Access DB

wisgro — Sun, 01 Nov 2009 15:21:16 GMT

Worked with a tutorial that is supposed to open a db file for input. No matter how I write the file path I get error messages .
The first attempt to open the file path that came with the tutorial generated the error message �Couldn�t find file.�
The next two attempts are my doctoring. Attempt #2 generated error message �Unrecognized DB format.� Third attempt error message is, �File Not Found.� I use VB6, XP.

'Connect a database to a form
Dim dbMyDB As Database
Dim rsMyRS As Recordset

Private Sub form_load()

'Open DB Attempts
' First attempt, Set dbMyDB = OpenDatabase("MyDatabase.mdb")
' Second attempt, Set dbMyDB = OpenDatabase("C:\VisualBasic\ConnectToDB\MyDatabase.mdb")
�Third attempt, Open App.Path & "MyDatabase.mdb" For Input As #1

Set rsMyRS = dbMyDB.OpenRecordset("MyTable", dbOpenDynaset)

If Not rsMyRS.EOF Then rsMyRS.MoveFirst
Do While Not rsMyRS.EOF
lstRecords.AddItem rsMyRS!Name
lstRecords.ItemData(lstRecords.NewIndex) = rsMyRS!ID
rsMyRS.MoveNext
Loop

End Sub
Private Sub lstRecords_Click()

rsMyRS.FindFirst "ID=" & Str(lstRecords.ItemData(lstRecords.ListIndex))
txtPhone.Text = rsMyRS!Phone

End Sub

How to use findfirst method to search database number one by one number index field

hwkong1688 — Sun, 01 Nov 2009 05:30:19 GMT

Hi all friend,
im new in vb, can anyone help me how to write the code for findfirst method by index number.

example
when i key in one by one number in field will search one by one number in list DBgrib1.

Code:

Private Sub Search_KeyPress(KeyAscii As Integer)





If KeyAscii = 13 Then

Data1.Recordset.FindFirst "[barcode] like '" + Search + "*'"

Search.Text = UCase(Search.Text)

If Data1.Recordset.NoMatch Then

MsgBox "Barcode number Not Found"



End If



Search.SelStart = 0

Search.SelLength = Len(Search.Text)



End If



If KeyAscii = 27 Then



Unload Me

Form1.Visible = True



End If



    num = InStr("1234567890" & Chr(8), Chr(KeyAscii))

    If num = 0 Then

        KeyAscii = 0

    End If



End Sub

:confused:
:(

Windows 7 Compatability

bkh_vb1 — Sat, 31 Oct 2009 15:04:24 GMT

I may need to upgrade my computer and I have several questions regarding Windows 7 (assuming someone has had a chance to actually use this OS):

1) Can a VB6 application be installed on Win 7 if the installation file was developed using Visual Studio Installer (msi file) if VB6 is not installed on the machine?

2) Will VB6 install and work under Win 7?

3) Will Visual Studio Installer work under Win 7?

4) Any other incompatabilities or othe concerns regarding developing and/or using applications developed using VB6?

I understand that there were some issues or difficulties under Vista, but Win 7 is supposed to be much better. Also, Win 7 Pro can operate in XP mode which may work better for VB6. I would consider conversion to .NET, but that would be very expensive to upgrade a number of 3rd-party tools and to re-write the application which has about 200,000 lines of code and I would like to squeeze an additional few years out of the application.

Form Activeate event

AM003295 — Thu, 29 Oct 2009 20:20:34 GMT

I have a subrouting on one form (call it form A) that is showing another form (call it form B) using the frmB.Show method, and the form B will then show the form and exicute the form B initialize event when it shows but does not exicute the form B Activate event. That doent seem right to me, it seems like when you show a form you should get both the initialize event and the activate event, how am I thinking about this incorrectly?