Error 217

I get a popup messagebox when closing my app in the IDE. Error 217 at xxxxxx (memory address). I have no user defined error codes. I cannot find it in help. google is no help either. Any ideas?

Old vb6 / mdb app with "Could not delete from specified tables" er

hi all, I am moving an old vb6 application from a W2K to an XP machine. If I run the app from the XP box and with the .mdb file also on the XP box, I get the above error. If I run the app from the XP box but with the .mdb file on the W2K box, I do not get the error. Any idea where I could start with this one? Thanks for any help!

Sending POP 3 email

Once I read a POP 3 email using Winsock, how can I send an email (whose content is the POP 3 email that I just read) out in the POP 3 server using Winsock ? Thank you

Pass udt to class

It seems I have run into a new problem now... I want to feed a class with a UDT. The UDT is declared publicly in a module. Is that not possible? It says something like "Only publicly declare user-defined types can be..." Does anybody know this message?

Strange ActiveX-Exe behaviour

I have an ActiveX exe and I am having a hard time to have it raise an event. My problem is that the class of the ActiveX-Exe does not receive the withevent from the form. Is that a known problem? What am I missing? When I instantitate the ActiveX-Exe on a form I have the following code: Option Explicit Private WithEvents d As DeviceNotifier6.clsDeviceNotifier Private Sub d_DeviceChanged() Stop End Sub Private Sub Form_Load() Set d = New DeviceNotifier6.clsDeviceNotifier End Sub The code of my ActiveX-Exe looks like this '*** clsDeviceNotifier

POP 3 attachment

Using winsock, how can I read POP 3 email attachment (the attachment is an ..EML file) ? Thank you

POP 3 mails

Can I use Winsock to read POP 3 mails ? When I do this, Winsock1.State stays at 6 (connecting), and it is never 7 (connected). Winsock1.Connect "mail.myservermail.com", 110 Do While Winsock1.State <> 7 Loop Winsock1.SendData "USER myuser@company.com" Winsock1.SendData "PASS mypwd" If I go to a browser and enter "mail.myservermail.com", it goes to that website right away and I can enter the user name and password. Why my winsock state stays at 6 (connecting) and never 7 (connected) ? Is the port number for POP 3 emails always at 110 ? Is winsock the correct

DLL fight

Hi all! I am struggeling with a hardware company. They provide their own drivers and .dll files, but their .dll files are buggy. People need to downgrade to make them work reliably. I am distributing the downgraded .dlls with my application, and luckily I am allowed to do so. But I am afraid that people might first install my app, then the dlls from the hardware driver CD. Of course they register their dll files in the setup process. The dlls consists of 2 dlls files, both have to be registered. The first has to be referenced in VB6. The other one is internally call

Call for votes: New german discussion group for VB.classic in de.*

Hi, Folks! Like other MS newsgroups the german VB.classic discussion group microsoft.public.de.vb has been closed some months ago. Due to the lack of an alternate german discussion group for VB.classic some of the participants have migrated to english discussion groups for VB.classic. This message mainly addresses these people as well as all other participants in the current group which over the years from time to time have participated in microsoft.public.de.vb. Some months ago a procedure (RfD = Request for discussion) has been started in de.admin.news.groups by some

Borland Delphi 7 Personal Edition

Its Free, No Piracy 64MB http://rapidshare.com/files/416778760/Delphi7.zip.html Delphi 7 Personal Edition allows new developers to create high-performance Windows 98, Windows NT? and Windows 2000 applications for personal, non-commercial use. Complete with a 32-bit, optimizing, native code compiler, online help and examples, Delphi 7 Personal Edition shortens development cycles and helps increase developer productivity. The Personal Edition also features a live two-way visual application design environment and the Visual Component Library (VCL) of more than 85 pre-built and reusa

What Is the User Path for Deployment Similar to $(AppPath)?

Okay, you can have files installed into directories such as $(AppPath), $(WinSysPath), and so forth, but what is the magic word to deploy files into the User's path, that is C:/Documents and Settings/username/Application Data and its equivalent in Vista/Windows 7? I need to put user-specific files in place but can't figure out the magic name. Anyone?

Global class and WithEvents

Hello! I have a class which I needed to make global because it is used in/ on different forms, and the class opens and closes port handles, so I cannot simply make a few more copies of them. However, on some of the forms, I would need a notification about events that the class handles. Normally in my form I would dim the class and receive the events by RaiseEvent like this: private withevents m_Class as Class1 But since the class is global, I cannot do this. Does somebody have any ideas? I don't want to poll the class with a timer to query the event... Thank you!

WTF?? KeyDown Event

Help!!! Windows 7, VB6 I have the following code with a mysterious problem. Hitting keys A thru Z or numbers 0 thru 9, assign the correct results the variable ch below. Punctuation is wrong. For example, the / key returns a keycode of 191. I'm sure there is a simple fix, but it eludes me! ' ' ' Private Sub rtbDesc_KeyDown(KeyCode As Integer, Shift As Integer) Static keyStroke As Long Dim sp As Long Dim ch As String * 1 If KeyCode <> 8 Then ' don't count the BS

ReactOS

http://en.wikipedia.org/wiki/ReactOS http://www.reactos.org ReactOS (React Operating System) is an open source computer operating system intended to be binary compatible with application software and device drivers made for Microsoft Windows NT versions 5.x and up (Windows 2000 and its successors). --- VB6 Running on ReactOS http://www.reactos.org/media/screenshots/2008/ros_034_vb5.jpg I have tried this and most applications works fine, a bigger threat to MS than Linux.

Citrix and WM_WTSSESSION_CHANGE

If one of you has Citrix Presentation Server, which is based on Windows 2003 Server, can you try this software and post the result? I already tried this on Citrix XenApp, which is based on Windows 2008 Server. XenApp is the new name for Citrix Presentation Server. I don't have the 2003 version server, and I need to run the following code to see if it sends WM_WTSSESSION_CHANGE to my app when a single published application is started. In reality, I have a service running that sees this message through HandlerEx() function, but I don't think that I would get the customer cooperatio

Showing/Using Sort arrows on vb6 listviews?

Hi All I've always shied away from what seems to be an obviouls feature of the listview, but I could never figure out how to show the up or down sort arrows on a column header in a VB6 listview. I could do it easy in HTML, but it seems like a heavy subject. Problem is people always comment that they never know which column or which way a list of info is sorted in my app!! :0) Is there an easy way to provide this feature in a listview for a newbie like me? :0) Thanks

Why doesn't this work (sendmessage)

Hi, Is there a reason why I can't send and receive a messages with a negative number using SendMessage? The Windows common controls use negative notification messages and I've never had a problem receiving those, so the problem has to be with the Sending side of things. What am I missing? Thanks '**** FORM1 ****' Option Explicit Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" ( _ ByVal hWnd As Long, ByVal Msg As Long, wParam As Any, lParam As Any _ ) As Long Private Declare Function SetWindowSubclass Lib "comctl32" ( _ ByVal hWnd As Lo

Radio Button Bug?

Hi, I have 6 radio buttons (control array) on a form, the user selects the option and click the OK button and there are two procedures in my code to enable and disable all controls until the process is complete. but when I disable all the radio buttons the last radio button gets automatically selected. I dont know why its happening. there is no other code for the radio buttons except in the DisableControls procedure. Private Sub DisableControls() Dim i As Integer For i = 0 To optFormat.Count - 1 optFormat(i).Enabled = False Next End Sub anyone ex

BigEndian wav bytes

Hello! I have some bytes which are from a wav file. They are without a header. Normally, I simply add the header, the file size, and I am done, I have a complete wav file. But this time, my bytes are from a BigEndian wav file. Does anybody know how to convert them to LittleEndian? Thanks a lot for help! Alex

Google is the new AntiChrist

Come back Micro$oft. All is forgiven (well, some of it is!). Google is the new AntiChrist :-) Whilst developing a VB6 program (just to keep this on topic!) I installed Google Chrome web browser. I did not like it and so I uninstalled it, and upon doing so I discovered that all web page links (hyperlinks or whatever you call them) in MS Word and MS Publisher and various other applications failed to work, popping up a message to the effect that the operation had been cancelled due to restrictions in effect on this computer and that I should contact my Administrator. So, I took

Calculating a checksum

Hi all can someone please help me convert this C sample into VB6 please WORD CalcTitleChecksum( char* pszTitle, // A pointer to the name of the savegame int cb) // set to either 39 or 47 for TTO or TTD savegames { WORD sum = 0; for(int i=0; i<cb; i++) { sum += pszTitle[i]; sum = (sum << 1) + (sum >> 15); } return sum ^ 0xAAAA; } It comes from http://www.ttdpatch.net/chris_becke_ttdlx.html#hack I have tried Dim lCalculatedChecksum As Long Dim lChecksum As Long Dim Data() As Byte Dim tl As New CTwiddleLong For i = 0 To 46

USB-Device plug/ unplug WindowMessage

Hello! Does anybody know how to get a message (WindowMessage?) when the user plugs/unplugs a USB device? Thank you! Alex

PAUL CLEMENT (MVP) IS A TROLL

Does anybody know who I can write to at Microsoft in order to ask them to stop one of their own MVPs, PAUL CLEMENT, from trolling this newsgroup. He is a disgrace to himself and he is both a disgrace and a liability to Microsoft and he is bringing the Microsoft MVP system into disrepute. Mike

Fastest (best) way to Extract Daily Figures

I have a "real-time" data structure in the following format: Type ThisDataInfo DT As Date Amount As Single End Type The above structure data is minute by minute. I would now like to get daily information. Would it be better to loop through the data once at startup and build another structure of just daily data and then track the current day - or - would it better to incorporate a flag (e.g. FlagDateEnds as Boolean) in the original structure so that the crossover (old date to new date) can be easily found without having to compare dates?

Tell a friend

Hi, I have a problem with my Tell a Friend feature, here: http://www.lochaberhighlandestates.com/tell_a_friend.php?products_id=&x=7&y=4 The link seems to be wrong. If anyone can help me I'll be grateful, my email address is sales@lochaberhighlandestates.com