Dim earlydate As Date, laterdate As Date, today As Date earlydate = "1/1/2000" latedate = "1/1/2050" today = Now If DateDiff("s", earlydate, today) > 0 Then MsgBox earlydate & " comes before " & today Else MsgBox earlydate & " comes after " & today End If :rose::rose: 1fm1fu

Hi guys, I am unable to reset the checked status of a Node in a treeview in vb6. I need to make some nodes readonly i.e. stop the user from changing the Node.Checked status. Anyone knows how to do it please help. E.g. this code does not work Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node) Node.Checked = False ''DOES NOT WORK ;( ''Node.Checked = Not Node.Checked ''DOES NOT WORK ;( End Sub :rose::rose: 1fm1fu

Hi guys, Anyone know how to display a message in a .vbs? I want to run a script and display a message to the user depending on the outcome of the script. Set objWshNetwork = CreateObject("WScript.Network") strComputer = "k1hq1oa0004a" Usuario="administrator" Set objUser = GetObject("WinNT://" & strComputer & "/" & Usuario & ",user") objUser.SetPassword "123456789" objUser.SetInfo ''Code to display message here :rose::rose: 1fm1fu -- modified at 4:51 Thursday 6th April, 2006

Sorry to interrupt guys, but if anyone knows of a free Idea Management tool I'll appreciate you giving me a shout. Something like a blog where one can start an Idea thread and people can add onto it. Perhaps configurable on the intranet like, say, Bugzilla. Thanks!

I created a DLL in VC++ 6.0. I am using it in VB 6.0. I need to debug the DLL when I call a function in the DLL. How do I do it from VB6? :rose::rose: 1fm1fu

Something that can be hosted on an intranet with a message board or discussion forum, easy-to-use, accessible via web browsers, etcetera :rose::rose: 1fm1fu

Our company is looking for a set of VB6 & C/C++ programming standards that we may refine (if need be) and apply to all our future software development. Anyone know a good source? :rose::rose: 1fm1fu

Thanx jonathan15, this works. I'll try hard and convince Christine, my code tester, not to worry about the mark this makes in the cell. :rose::rose: 1fm1fu

How can I change an Excel worksheet column's format in vb6. I can open an Excel app and write to it, but if I write text like "00100" it loses the 0's and becomes "100" because the column format is General. How can I change it to Text in code? :rose::rose: 1fm1fu

I have a MS Access 2003 report that simply displays data from columns in one Access table. One of the columns is called Amount. The Report Footer displays the Total on a text box calculated as Sum(Amount) and works fine. I want to display the Amount subtotal for each page but when I assign Sum(Amount) to a textbox in the Page Footer I get an error at runtime. How can I display the subtotal of Amount column on each page?? (I cannot group as the records have nothing in common) :rose::rose: 1fm1fu

How can I list network domains and/or users in Win NT, 2000 and XP in VB6? Anyone know an API or other way I will appreciate. :rose::rose: 1fm1fu

Someone pls tell me how to change the page orientation setting for a printer before sending a job to printer, and how to restore the setting after printing. i.e. i want to change the setting completely so i can even see it in control panel as the new setting. In vb6. Thanks. :rose::rose: 1fm1fu

Thanx Dave n jmatthew. Appears if i pass the OpenMethod optional parameter a 1 in OpenReport method i can open multiple instances. There is no close method for the Crystal Application class though. I'll do with the workaround for now... :rose::rose: 1fm1fu

I run multiple instances of a vb6 app from desktop PCs. The apps run crystal reports (v8). The .rpt files are on a shared folder. Problem is, if the folder allows 8 connections, running reports 9times leads to a no-access error (see below). It seems setting the report and application objects to nothing does not unlock the report. Users have to unlock it in Admin Tools\Comp Mnagement\Shared Folders\Open Folders. Exiting the app also unlocks the reports. How can I unlock a report after using it in code? Error occurs at line Dim crystalreport As New Report Dim crystalApplication As New Application .. Set crystalreport = crystalApplication.OpenReport(strReportPathName) The error is: 'Error in File UNKNOWN.RPT: Access to report file denied. Another program may be using it' :rose::rose: 1fm1fu

Hi I am using FSO (Microfoft File System Object dll) to move TIF image files from a network shared folder A to another network share B in vb6. If I want to move a single file from A to B, does the number of images in either folder matter in terms of effects on speed? I am experiencing an huge slug in speed if I increase the number of files in A, even if I want to move only a small fraction of the files in A to B. My thinking is that FSO actually has to search for an image before moving it. Is there a difference to FSO (or Windows 2000 file system) if folder A has 20,000 files compared to when folder A has 100 TIF files? :rose::rose: 1fm1fu

Is there a max number of files a folder can have in Windows 2000? How many? Is there a max size a folder can have in Windows 2000? How many? What about other Windows versions? :rose::rose: 1fm1fu

Thanks RageInTheMachine9532. This works if i have a few images. But i have 3MB of gifs (in harddisk), so i load them in groups of about 14(about 45kb in harddisk - translates to 3MB in memory). Problem is that LoadPicture is slow here. If i load them into an imagelist at design (all 3MB), they could chew 100MB of memory! :rose::rose: 1fm1fu

Of cos i grin at your candid admission. You may want to address the learning curve at http://getdotnetco.web101.discountasp.net/VPASP/free/Articles/GettingStartedPart01.htm You r not alone.. Gdluck! :rose::rose: 1fm1fu

v6 LoadPicture method is slow. I need to load quite a number of bmps onto an array of pictureboxes for an imaging app. Is there a quicker way to load images into picboxes? instead of: for i= 1 to totalimages load picturebox1(i) picturebox1(i).picture = LoadPicture(Path + cstr(i)) next i i need to do this faster. pls help :rose::rose: 1fm1fu

Hi, Any idea how to get this? I've tried searching @ http://research.microsoft.com without success. Latest version if possible but any other will be appreciated. Thanx :rose::rose: 1fm1fu