Visual Basic :: Visual Basic 2005 &"express&" / Properties Stuck!

Visual Basic 2005 Express Beta
I just downloaded the beta of VB Express 2005. I was messing around with it and I found out that some things are very irritating considering the fact that I come from a VB6 environment that I thought you all should know about.

1. Most of the names of some controls that we are accustomed to in VB6 are totally changed around and I found it hard to find some of the controls. Frames, for example, are the same thing as something like 4 different controls in VB Express 2005 that each have different names.

2. The code has changed quite a bit from VB6 which we all knew was coming considering the fact that Microsoft is aiming more towards their .NET architecture. From what I can tell by looking at the code, each form that is added to the project is declared in the code by a corresponding class. Then the sub procedure has changed from the simple ones we had in VB6. This is the way it looks in VB Express 2005:

VB Code:
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WebBrowser1.Navigate(New System.Uri(TextBox1.Text)) End SubEnd Class

That was part of the tutorial program they had you write that did a web browser. I don't know if it's just me but I think that they tried to make Visual Studio a little too user friendly and in turn took away from the ease of learning the language because if I have to re-learn VB because of all the new APIs they put in there to make it user friendly, then I quit programming VB. If someone would care to share their feelings on the matter or whatever, post back.

Shortcuts For Visual Basic 2005 Express
I tried messing with the code below to create shortcuts but Visual Basic 2005 Express doesnt recognize anything in red so if someone could help with this I would be much appreciated. Is it different for vb 2k5 express? I am not sure how each version differs as I am new to vb.

Dim VBD As IWshRuntimeLibray.IWshURLShortcut_Class
Dim VBExe As IWshRuntimeLibrary.IwshShortcut_Class
Dim VBPath As String

VBD = MyShell.CreateShortcut _
(MyShell.SpecialFolders("AllUsersDesktop") & _
"VBD.url")
VBD.TargetPath = "www.pinnaclepublishing.com/vbd"
VBD.Save()

VBPath = _
"C:Program FilesMicrosoft Visual StudioVB98VB6.EXE"

VBExe = MyShell.CreateShortcut _
(MyShell.SpecialFolders("AllUsersStartMenu") _
& "VB6.lnk")
VBExe.TargetPath = VBPath
VBExe.Save()

SQL Express 2005 Replication Via Visual Basic
Is there a way where you can programmatically (via visual basic) replicate two or more SQL Express databases located on multiple computers without the need of SQL Server 2005 acting as a publisher. From what i understand this is a limitation in SQL Express.

Right now i have SQL Express installed on 2 machines. I am able via vb to communicate with each database, read and write data between databases but cannot seem to figure out how to perform a simple replication.

Thanks

Need Help In Microsoft Visual Basic 2005 Express Beta 2!
i am making a program and i am wondering how to make the scrollbar scroll down in a program. i also want to know how you get data to save in a program when a user of the program types it in, after it stops running.(so that when you open it againg, it is still there.)

please help

Whats The Service Controller For (Visual Basic 2005 Express)
Ok i read the info on it and it says you can connect to, query another program...so dose that mean i can control another program such as Aim or MSN Messenger or somthing like that?

Visual Basic 2005 Express (executing Proprietary Scanner Application)
Anybody Help please?

I have built a VB 2005 Express project which I would like to code an event to launch a scanner (TWAIN device) software/application upon demand (i.e. PanasonicUserUtility.exe). I've invested in Viscom's ScannerActiveX which offers easy "drag and drop" of an actual prefabricated form design and code. It provides a quick and easy way to capture image from all the TWAIN compliant scanners and webcam devices (and Export & Print BMP, GIF, JPG, PNG, TIF, PDF files) at a click of the mouse. "Great!" you say? NO. My problem is that this prefabricated control panel form for the devices does not behave with my users scanning devices & software (HP Director for example).
Bottom line: Is there any event code ya'll can share so that my user might click a toolbox object (button) and it launches a specified .exe utility? (Such as: open "C:PanasonicUserUtily.exe" as...)

ANY VISUAL BASIC VERSION

Warren aka: hewey71

in Atlanta

Full Visual Basic Express Edition 2005 Download Here - What Are Limitations?
and yes its legal lol

http://lab.msdn.microsoft.com/expres...c/default.aspx

anyone know the limitations of 'express' editions?

Opening A Form In Microsoft Visual Basic 2005 Express Edition
Hi all,

I've been using VB in Access, but have just started using VB 2005 a couple of days ago, so I'm pretty much a newbie

I have searched the other threads in the forum, but cant seem to be able to use the following code

Code:

formname.hide
formname.show

neither can i use the following code

Code:

DoCmd.OpenForm "formname"

I'm sure that this is pretty elementary, but I'd really appreciate some help.

Thanks in advance!

Visual Basic 2005 Express (executing Proprietary Scanner Application)
I have built a VB 2005 Express project which I would like to code
an event to launch my scanner (TWAIN device)
software/application upon demand (ie PanasonicUserUtility.exe).
I've invested in Viscom's ScannerActiveX which offers easy "drag
and drop" of an actual prefabricated form design and code. It
provides a quick and easy way to capture image from all the
TWAIN compliant scanners and webcam devices (and Export,
Printing BMP, GIF, JPG, PNG, TIF, PDF files)at a click of the
mouse. "Great!" you say? NO.
My problem is that this prefabricated control panel for the
devices does not behave with my users scanning software (HP
Director for example).
Bottom line: Is there any event code ya'll can share so that I
might click a toolbox object and it launches a specified .exe
utility? (ANY VISUAL BASIC VERSION)

Warren in Atlanta

Remove "Version" Tab From Right-mouse Click On "Properties"
Thank You

&"Clipboard Object Not Upgraded To Visual Basic .NET By The Upgrade Wizard&"
I am getting a "run-time error '5'" when trying to run this old vb program in vb 6. When I click debug it highlights the statement "AppActivate ReturnValue" underlined below. When I run code advisor it writes the following under the statement: "FIXIT: Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard." I am not a vb programmer, so I appologize if this information is insufficient. But, any help you could give on how to modify this code to run properly would be greatly appreciated.
Thanks!

Option Explicit
'FIXIT: Non Zero lowerbound arrays are not supported in Visual Basic .NET FixIT90210ae-R9815-H1984
Public Dist59(1 To 60) As Double 'distances for 59 gage bands
'FIXIT: Non Zero lowerbound arrays are not supported in Visual Basic .NET FixIT90210ae-R9815-H1984
Public Dist40(1 To 41) As Double 'distances for 40 gage bands

'converts impax files to utility files (works on win 98, but not later, should be changed to use dll if XP becomes prevelant)
Public Function ImpaxConversion(path As String, runnumber As Integer, L_or_U As String, TestName As String, Comment As String, EventNumber As Integer, NumOfGages As Integer) As String
Dim ReturnValue As Long
Dim start As Long
Dim TempInt As Long
Dim FileName As String
Dim runnumberstr As String
runnumberstr = CStr(runnumber)
While Len(runnumberstr) < 3
runnumberstr = "0" + runnumberstr
Wend
FileName = path + "ASLDATAS" + runnumberstr + L_or_U + "XXX"
If Dir(path & "ASLDATA", 16) = "" Then
MkDir path & "ASLDATA"
End If
'Call CopyFile(path, App.path + "impax.ini")
'Call CopyFile(path, App.path + " est.dbd")
'Call CopyFile(path, App.path + "xdcr.txt")
ReturnValue = Shell(App.path + "Impx_cnv.exe", vbMinimizedNoFocus)
AppActivate ReturnValue
'FIXIT: Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard. FixIT90210ae-R6194-H1984
Clipboard.Clear
'FIXIT: Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard. FixIT90210ae-R6194-H1984
Clipboard.SetText path + vbCr + "S" + vbCr + vbCr + CStr(runnumber) + vbCr + L_or_U + vbCr + vbCr + TestName + vbCr + "0.0" + vbCr + Comment + vbCr + "No" + vbCr + "No" + vbCr + CStr(EventNumber) + vbCr
SendKeys "% ep", 1
MsgBox "Please wait for the console window to read ''Finished'', and click on Ok.", vbInformation, "Done"
ImpaxConversion = FileName
End Function

Private Sub CopyFile(path As String, FileName As String)
'FIXIT: Declare 'FSO' with an early-bound data type FixIT90210ae-R1672-R1B8ZE
Dim FSO As Object
'FIXIT: Declare 'File' with an early-bound data type FixIT90210ae-R1672-R1B8ZE
Dim File As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
End Sub

'initalizes distance arrays
Public Sub InitDist()
Dist59(1) = 0
Dist40(1) = 0
Dim i As Integer
For i = 2 To 59
If i <= 12 Or i >= 49 Then
Dist59(i) = Round(Dist59(i - 1) + 25.4, 9)
Else
Dist59(i) = Round(Dist59(i - 1) + 12.7, 9)
End If
If i <= 40 Then
Dist40(i) = Round(Dist40(i - 1) + 25.4, 9)
End If
Next i
Dist59(60) = Dist59(59)
Dist40(41) = Dist40(40)
End Sub

Crystal Reports 8.5 And Visual Basic 6--Err Message&" Server Has Not Yet Been Opened&"
I have been trying to get a pre-developed crystal report to display in a VB6 app at runtime. I can get the report to display with saved data, but when ever I use the .DiscardSavedData method and try to refresh the data I get an error message. The message is this "Server has not been opened". This is my first encounter with this version of Crystal 8.5, so I am sure that I am not using a certain method that is needed. Another question I had is do I even need to open an ADO recordset to populate the report?

Also, one other thing to point out is that my report is using to different tables from with in the same database.

=======================================================
'Declare GS Connection
Public cnGS As New ADODB.Connection

'Declare Connection String Variable
Public sGSConString As String

'Declare ADO record set
Public rsSelect As New ADODB.Recordset
Public rsExec As New ADODB.Recordset

'Declare SQL query string
Public sSQLSelect As String
Public sSQLExec As String

' Declare the application object
Public crxApplication As New CRAXDRT.Application

' Declare report object
Public crxReport As CRAXDRT.Report

Private Sub cmdViewReport_Click()

Call LoadReport

End Sub

Private Sub Form_Load()

Call OpenDatabase

End Sub

Public Function LoadReport()

Set crxReport = New CRAXDRT.Report
Set crxApplication = CreateObject("crystalruntime.application")

Set crxReport = crxApplication.OpenReport("C:Report1Test.rpt", 1)

crxReport.DiscardSavedData
crxReport.Database.SetDataSource rsSelect

crvViewer.ReportSource = crxReport
crvViewer.ViewReport

End Function

Public Function OpenDatabase()

'Setup the GS database connection
Set cnGOS = New ADODB.Connection
sGSConString = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=noway;Password=nohow;Initial Catalog=GR;Data Source=GS"
cnGS.ConnectionString = sGSConString
cnGS.Open
cnGS.CursorLocation = adUseClient

sSQLSelect = "SELECT * FROM OMDR"

rsSelect.Open sSQLSelect, cnGS, adOpenDynamic, adLockReadOnly
rsSelect.MoveFirst

End Function
========================================================

Any suggestions would be appreciated!

&"Can't Lock File&" Error For Database Using Visual Basic
Ok, I have searched this board for a while now trying to find the answer, and it seems that no one has really answered the problem at hand. I am running a vb6.0 app on serveral windows 2000 boxes that all must connect to an access database. i have tested the program here on my local machine (as a single user on the database) and the program runs fine, not a bug in site.

I installed the same program on another machine here on the network, and it worked fine as well. We both opened the program at the same time, modified the database at the same time, and everything, and still everything works fine. these tests were run on windows xp boxes.

The solution I need is this. I am delivering this software to another company where like i said, they are using 2000 boxes. when one user tries to open the program, they get the can't lock file error. they now have full control of the database (the it guys over there were big on security and had the security controls down to basically read-only). yet still, it doesn't work. the catch is this, the it guys who have administrative privileges, as well as the supervisor, run the program with no gliches.

Does anyone have an answer to any of this. Is it because of the Windows xp deal? is it because of the visual basic way of dealing with the database (I am dao for this one, i could change to ado if necessary), or is it because the users don't have admin privileges (as a side note, i do not have admin privileges on the network here at work, and in fact the database was stored in a very secured folder on the network when it was running here)

any help would be great

thanx

Why My &"new Thread&" Doesnt Show Up In Clasic Visual Basic?
Hi

Whirt for today.
My "new tread" doesnt show up in clasic visual basic, but other can replay to my tread.

appreciate if there is a any of information,thanks

Error With Multithreading In Visual Basic: &"CoInitialize Has Not Been Called&"
I've got this error with a COM object during a multithreading project. So I go insane on researching in web with visual basic. And the researchments give me a NULL POINT. So I've decided to make some own ways. In visual basic there's no way to cut this error out. So I've wrote a DLL in C++ and decided to share with people. Here is the codes below and the DLL attached.

// COMDLL.cpp : Defines the entry point for the DLL application.
//

#include "objbase.h"

BOOL APIENTRY DllMain( HANDLE hModule,
                       DWORD ul_reason_for_call,
                       LPVOID lpReserved
                     )
{
    return TRUE;
}

void __stdcall coinitialize()
{
    CoInitialize(NULL);
}
void __stdcall couninitialize()
{
    CoUninitialize();
}

thats all.. short huh but makes insane people

Edited by - sonerkoksal on 7/20/2005 12:38:10 AM

Registry Key For &"Trust Access To Visual Basic Project&"
Where can I find the registry key for the setting of "Trust access to Visual Basic project" This is found under Tools/Options/Security/macro Security/Trusted Sources in Excel 2003.

Have not found it under Polices under HKEY_CURRENT_USER /Software/Polices. But I do not know where or what to look for anyway?

Function &"Like&" In Database In Visual Basic Doesn't Work
How to use function "Like '' in ADO database?
I used it , but it didn't work.

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim str As String
str = "Driver=Microsoft Access Driver (*.mdb); DBQ=" & App.Path & "information.mdb"
Set cn = New ADODB.Connection
cn.Open str

Adodc.ConnectionString = str
Adodc.CommandType = adCmdText
Adodc.RecordSource = "SELECT DISTINCTROW WORKER.ID, WORKER.NAME from WORKER where [WORKER].[Name] LIKE '*' "
Adodc.Refresh

Getting The &"selection&" Object (from Word) In Visual Basic 6
Is the selection Object of Microsoft Word available in VB?

When I record a macro in Microsoft word that types some text and some carriage returns, and then go into VBA and look at the code that was generated, It uses an object entitled "Selection". I.e.:

Sub Demo()
'
' Demo Macro
' Macro recorded 5/5/2005 by Gareth
'
Selection.Font.Bold = wdToggle
Selection.Font.Size = 14
Selection.TypeText Text:="This is the title"
Selection.Font.Bold = wdToggle
Selection.Font.Size = 12
Selection.TypeParagraph
Selection.TypeParagraph
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="Year: "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="2005"

End Sub

But what I want to do is write code from a VB6 application that writes a report in Word. I have already got the code that creates a new word app and have had a little succes typing to it using the "range" object. But if I could get hold of the selection object, it would be a lot easier, that way I could just record the macros of what I want to type and then paste the code into VB.

The strange thing about the "selection" object in word's VBA is that it is not declared or set anywhere in the code, it seems to just be an automatically available object like the "thisDocument" object. I would therefore assume that it is not possible to obtain a reference to the selection object from VB. But it would be awesome if it was, it would make my work a hell of a lot easier. So if anyone knows how to get a reference to the "selection" object it would be REALLY REALLY helpful.

Visual Basic Code Runs During &"Save As&"
Please help - I have an excel form that has code attached to hide rows when a combobox changes. This works fine - the problem I am having is that whenever you "save as" the form to rename it, it launches the code again and takes a long time to save. I have tried everything and I am sure that it is probably a simple explanation! Here is an example of the code:

Private Sub New_Renewal_Change()
ActiveSheet.Unprotect ("loan2006")
If Worksheets("Codes").Cells(10, 19) = "CHOOSE TYPE OF OBLIGOR." Then
Worksheets("Commercial Loan Header").Select
Rows("6:300").Select
Selection.EntireRow.Hidden = True
ElseIf Worksheets("Codes").Cells(10, 19) = "NEW OBLIGOR" Then
Worksheets("Commercial Loan Header").Select
Rows("6:6").Select
Selection.EntireRow.Hidden = True
Rows("7:8").Select
Selection.EntireRow.Hidden = False
Rows("10:12").Select
Selection.EntireRow.Hidden = True
Rows("13:21").Select
Selection.EntireRow.Hidden = False
Rows("22:24").Select
Selection.EntireRow.Hidden = False
Cells(13, 9).Select
ElseIf Worksheets("codes").Cells(10, 19) = "NEW LOAN ON EXISTING OBLIGOR" Then
Worksheets("Commercial Loan Header").Select
Rows("6:6").Select
Selection.EntireRow.Hidden = True
Rows("7:11").Select
Selection.EntireRow.Hidden = False
Rows("12:289").Select
Selection.EntireRow.Hidden = True
Cells(10, 9).Select
ElseIf Worksheets("Codes").Cells(10, 19) = "RENEWAL ON EXISTING OBLIGOR" Then
Worksheets("Commercial Loan Header").Select
Rows("6:6").Select
Selection.EntireRow.Hidden = False
Rows("8:11").Select
Selection.EntireRow.Hidden = False
Rows("12:24").Select
Selection.EntireRow.Hidden = True
Rows("41:42").Select
Selection.EntireRow.Hidden = False
Rows("61:61").Select
Selection.EntireRow.Hidden = False
Rows("128:131").Select
Selection.EntireRow.Hidden = False
Rows("253:289").Select
Selection.EntireRow.Hidden = True
Cells(6, 3).Select
ElseIf Worksheets("Codes").Cells(10, 19) = "AMENDMENT/MODIFICATION" Then
Worksheets("Commercial Loan Header").Select
Rows("6:6").Select
Selection.EntireRow.Hidden = True
Rows("7:12").Select
Selection.EntireRow.Hidden = False
Rows("13:21").Select
Selection.EntireRow.Hidden = True
Rows("22:24").Select
Selection.EntireRow.Hidden = False
Cells(10, 9).Select
End If
Exit Sub
ActiveSheet.Protect ("loan2006")
End Sub

Thanks!

How Can I Make Visual Basic &"Read My Screen&"
Hi Everyone,
Recently, i came up with an idea which I do not know if it is possible or not.
Here is just an example of the situation:
Pretend I am scanning my computer for viruses.(Pretend) It takes 5 hours for it to complete the scan and I dont feel like waiting. I know that when the scan is completed, a messagebox with a blue flower will appear saying the scan is complete!
I want to write a program (macro) that allows Visual Basic to read my screen and when it sees that window with the blue flower saying "scan is complete" has appeared, turn off my computer.
I know how to do the turn off computer part but just not the reading screen part. Maybe I could take a screen shot of the flower and give it to visual basic saying "Hey, if u see this, i want you to turn off my computer "

Thanks

What Happened To Free &"Visual Basic 5.0 CEE&" Download
Visual Basic 5.0 CEE used to be offered for free to download from the microsoft site. But now it is gone. Any one has any knowlege as to where I can find this program?

Including &"&&" In Visual Basic Header Code
I want to include a "&" sign in my visual basic code for my page header and am having difficulty. The following is my header code that retrieves the proper header within my excel worksheet:

UnitHeaderName = Application.WorksheetFunction.VLookup(UnitName, Worksheets("ReportSetup").Range("pagesetup"), 2, False)

The text in my columns within the "pagesetup" range shows "Finance & Accounting", however, when I view through a print preview the header shows up as "Finance Accounting". Please let me know what in my code can fix this.

How Can I Use &"DoCmd.Transferdatabase Method&" In Visual Basic?
I want import a .DBF table to a .mdb by using DoCmd.Transferdatabase method in visual basic. I looked up in msn and other refrences but unfortunately I can not find any useful sample.

I would be glad if someone could help me in this field and send me a sample copy .

Thanks,
Mehdi Eghbal

HELP: &"Out Of Memory&" Error (and More) When Starting Visual Basic 6.0
Let me first start by saying that I am using WinXP and have been working with Visual Basic 6.0 for a few weeks now without any problems. Everytime I am done with it, I save the project and close the Visual Basic 6.0 window.

I wanted to work on my project last night, so I double-clicked on my desktop icon for Visual Basic V6.0 to open it up which I always did before) but this time I get the following errors (shown in order as they come up):

Error 1) Out of Memory : Continue? (I click YES button)
Error 2) Object Variable or With Block Variable Not Set: Continue? (I click YES button)
Error 3) Object Variable or With Block Variable Not Set: Continue? (I click YES button)
Error 4) Object Variable or With Block Variable Not Set: Continue? (I click YES button)
Error 5) Automation Error Catastrophic Failure (I click OK button)
Error 6) Object Variable or With Block Variable Not Set: Continue? (I click YES button)

After error (6), the Visual Basic 6.0 window does come up and I can open my project, edit the project, click RUN to test/debug my project and save my project.

Can someone please tell me what in the world is going on? Why do I have these errors all of sudden on opening up the application and what should I do to correct the problems?

Also, there were two other things I noticed:

- I tried to access the MSDN Library for Visual Basic 6.0 (via the Help menu) but discovered that the help library has disappeared. The other MSDN libraries (Visual C++ , etc..) were still there, but the Visual Basic 6.0 one was gone. A window gets displayed telling me to reinstall the library from disc

- When I first started my project, I added some controls via the Components menu option. Two of these controls(RICHTX32.OCX and COMDLG32.OCX) I added but never used yet. I decided to use a richTextBox last night and realized that the richTextBox icon in the control window (or is it called the component window), as well as the Common Dialog icon, were changed to a plain white folder icon. Usually these icons would be seen as image icons. Anyway, I tried to drag a richTextBox in the Form and was told that it could not found (or something like that).

Edited by - uncletr on 6/19/2004 3:41:59 PM

Forms In Visual Basic Minimize When I Use An &"about&" Form
I am developing a small application. Everything seems to work fine. I have on my menu a "Help" menu and under it I have "About" This menu will open a smal form that will give information about the program, the programmer and the version. Every time I click on the About menu the forms that I already have open get smaller rather than keep their size. Does anyone know why is doing this or how I can avoid it?

Thanks

All Visual Basic's .exe Files Say: &"Unexpected Error&"!
hi!

When i open Visual Basic 4 ( i have only 4... ...) it's open a window message that say: "Unexpected Error" and tells me to click OK, when i clicked on it, Visual Basic 4 colse.

The same thing is when i try to run a visual basic's .exe file it say the same.

(and close...) what to do?!?!?

i tryed to reinstall - didn't successful.

i tryed to uninstall and reinstall again - didn't successful.

HELP!!!!

Thanks.

Visual Basic 6.0 - &"Internal Error&" - Help Please
Hi,

Recently I upgraded my Windows XP to SP 1 Build 1097.
After that, the project I was working will return with an error which states:

"Internal Error"

And nothing would appear.

Also, when I run *.frm file from the project directory, it would say *.dll and *.ocx could not be loaded, and also didn't run. In the log it says:

Line 35: Control 'stbMAin' class couldn't load. It's not control class.
Line 63: Control 'tabOptions' class couldn't load. It's not control class.
Line 135: Control 'imgAccounts' class couldn't load. It's not control class.
Line 157: Control 'lvwAccounts' class couldn't load. It's not control class.
Line 224: Control 'WinSock' class couldn't load. It's not control class.

Any ideas? Thank you.

P.S. It works on every other computer.

A &"GOOD&" Visual Basic Guide
hey peeps

i was wondering if anyone knew of a good tutorial website for newbys in visual basic

something online, which is free, as i dont have the money to afford a £30/£40 book right now.

i just want something to show me how i can load forms in the same window using a command button
then pass variables from a form to load a application on the users os

and also to store some basic config files in a inf/cfg file in an installation directory

if no such tutorial exists i would gladly apreciate any help or pointers on how to achieve this goal

thanks very much

Comms

Does There Exist A &"visual Basic Introductory Ed&"?
hi all.

ok, so far i've got visual basic 4.0 standard edition which i bought some years ago and never used till now.
but there are some really helpful codes missing in this old win95-package, so i wondered if there exists an "introductory edition" of visual basic 6 or .net like there exists one of visual c++ 6?! dont wanna buy a new version right now, maybe later.
the introductory edition should have all the basic codes and possibilities, the one i have from c++ 6 only shows a message box at the start of every compiled .exe that it was created with the introductory edition and isnt allowed to be distributed or sth like that.
anyone knows where i could get such a version of vb6/.net?

thx for answers!

j0sh

&"Advanced Visual Basic 6&" Vista Fix
Anyone who owns a copy of "Advanced Visual Basic 6" by Matthew Curland and is running Windows Vista probably noticed:
The VBoost dll stopped working.

Turns out that whilst registering, the dll allocates a string buffer then fills it and adds that to the registry. No problem of course, but Vista tries to read the whole string and doesn't stop at the null terminated char!
To verify, open regedit and go to the CSLID and then select 'view binary data'

Anyway, here's a simple fix
Add this to a .reg file and doubleclick.
It simply re-adds the key overwriting the 'corrupted' string.

Code:
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOTCLSID{20708EE2-24E3-11D3-AB5C-D41203C10000}InprocServer32]
@="C:\Windows\System32\VBoost6.dll"
"ThreadingModel"="Apartment"
P.S.
I know this is not be the place to post these kind of fixes, but considering there are many true hardcore vb people here and this book is considered some sort of VB6 bible by many of them, I thought I'd share after figuring this all out.

Visual Basic Problem &"Do Without Loop&"
Okay i've got this piece of code thats not working. Each time i run it it says, do without loop.

VB Code:
Private Sub Form_Load() Dim Day As Date Dim Correct As Boolean Dim index As Integer Correct = False Do While Correct = False Day = InputBox("Please enter todays date, in this fasion 01/01/2006") If Len(Day) <> 10 Then MsgBox ("The date you entered wasn't the correct length, please reenter it") Else Correct = True End If Do While index <> Len(Day) If Mid(Day, index, 1) > Chr(64) Then MsgBox ("Dates don't contain letters") Correct = False ElseIf Mid(Day, index, 1) = "!" Then MsgBox ("Dates don't contain letters") Correct = False ElseIf Mid(Day, index, 1) = "@" Then MsgBox ("Dates don't contain letters") Correct = False ElseIf Mid(Day, index, 1) = "#" Then MsgBox ("Dates don't contain letters") Correct = False ElseIf Mid(Day, index, 1) = "$" Then MsgBox ("Dates don't contain letters") Correct = False ElseIf Mid(Day, index, 1) = "%" Then MsgBox ("Dates don't contain letters") Correct = False ElseIf Mid(Day, index, 1) = "^" Then MsgBox ("Dates don't contain letters") Correct = False ElseIf Mid(Day, index, 1) = "&" Then MsgBox ("Dates don't contain letters") Correct = False ElseIf Mid(Day, index, 1) = "*" Then MsgBox ("Dates don't contain letters") Correct = False ElseIf Mid(Day, index, 1) = "(" Then MsgBox ("Dates don't contain letters") Correct = False ElseIf Mid(Day, index, 1) = ")" Then MsgBox ("Dates don't contain letters") Correct = False ElseIf Mid(Day, index, 1) = "_" Then MsgBox ("Dates don't contain letters") Correct = False ElseIf Mid(Day, index, 1) = "-" Then MsgBox ("Dates don't contain letters") Correct = False ElseIf Mid(Day, index, 1) = "+" Then MsgBox ("Dates don't contain letters") Correct = False ElseIf Mid(Day, index, 1) = "=" Then MsgBox ("Dates don't contain letters") Correct = False ElseIf Mid(Day, index, 1) = "" Then MsgBox ("Dates don't contain letters") Correct = False ElseIf Mid(Day, index, 1) = "|" Then MsgBox ("Dates don't contain letters") Correct = False ElseIf Mid(Day, index, 1) = "?" Then MsgBox ("Dates don't contain letters") Correct = False ElseIf Mid(Day, index, 1) = "|" Then MsgBox ("Dates don't contain letters") Correct = False Else Correct = True End If Loop Extra(1).TodaysDate = DayEnd Sub

Now i've checked to see if the loop was in an if satment, but its not.

So can anyone help me?

&"Algorithmic File I/O In Visual Basic&"
Is it possible to do this? For example, I have a standard format
TEXT file which looks like this:

Date, ColumnA, ColumnB, ColumnC, ColumnD...
1/2002, 10, 25, 5, 7...
2/2002, 20, 50, 10, 14...
3/2002, 30, 75, 23, 15...
4/2002, 45, 9, 11, 27...
5/2002, 3, 22, 17, 54...

Then, recreates an output file ("deleting ColumnA"):

Date, ColumnB, ColumnC, ColumnD...
1/2002, 25, 5, 7...
2/2002, 50, 10, 14...
3/2002, 75, 23, 15...
4/2002, 9, 11, 27...
5/2002, 22, 17, 54...

it is basically deleting the column which immediately follows
the Date column (in this example).

GOOD LUCK & THANK YOU!

Visual Basic &"The Memory Could Not Be Written&"
I am automating a batch print process (50 reports) using Excel/VB. The process aborts partially through the procedure with the following error message...

The instruction at "0x77fcbb5c" referenced memory at "0xffe00037".  The memory count not be "written".

The instruction and memory location vary each time I run the procedure.  The point at which the procedure aborts is different each time.

The latest Crystal SP's have been applied.  Crystal Reports 8.5 ActiveX Designer Run Time Library and Crystal Reports 8.5 ActiveX Designer Design and Runtime Libraryreferences are included in the VB project.

Here is a sample of the code...  Any Help will be appreciated.  The frustration level increases geometrically with time!... Thanks!

============================================================

Dim crreport As CRAXDRT.Report
Dim crapplication As New CRAXDRT.Application

Dim reportfile As String
Dim FromPeriod As String
Dim ToPeriod As String
Dim Account As String
Dim Orientation As Integer
Dim PaperSize As Integer
Dim Copies As Integer

Sheets("PrintGandA").Activate
FromPeriod = Range("$C$7").Value
ToPeriod = Range("$C$8").Value
Copies = Range("$C$9").Value

crapplication.LogOnServer "pdsodbc.dll", "APP", "USR", "APP", "APPPWD"

' FIRST REPORT...
' ===============

Account = "751020"

reportfile = "S:T0_T4.rpt"
Set crreport = crapplication.OpenReport(reportfile)

Orientation = crreport.PaperOrientation
PaperSize = crreport.PaperSize

' Clear Parms
' ===========

crreport.ParameterFields.GetItemByName("FromPeriod").ClearCurrentValueAndRange
crreport.ParameterFields.GetItemByName("ToPeriod").ClearCurrentValueAndRange
crreport.ParameterFields.GetItemByName("AccountCode").ClearCurrentValueAndRange

' Add Parms
' =========
crreport.ParameterFields.GetItemByName("FromPeriod").AddCurrentValue (FromPeriod)
crreport.ParameterFields.GetItemByName("ToPeriod").AddCurrentValue (ToPeriod)
crreport.ParameterFields.GetItemByName("AccountCode").AddCurrentValue (Account)

crreport.PrintOut False, Copies, True

Etc.....

How To &"Map&" A Network Drive Using Visual Basic
I have written the following VBScript program. It is stored into a
file "map_drive.vbs". It successfully mapped to a network drive
\server1data.

Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
sPwd = inputbox("Enter password")
WshNetwork.MapNetworkDrive "J:", "\server1data", false,
"xyz_netJohn", sPwd
Msgbox "Drives has been map successful"

Could anyone teach me how to convert it to a Visual Basic program such
that it can be compiled to an .exe file?
I tried to use Active X Control – Windows Script Control 1.0. But I
couldn't make it work. Perhaps, I do not know how to use the Script
Control, or it is a totally wrong approach. It will be nice if you can
give Step-by-step instructions.
Please help. Thanks a lot.

Can I Still Buy &"Visual Basic 6 -Enterprise&" From Microsoft?
I have the student version of Visual Basic 6. Unfortunately ,as much as i know it is not allowed to write commercial code with it. So i want to buy the Visual Basic6 enterprise version. Do you know where i can find it ? I search and it was out of stock.
Will Microsoft sue me if i write a commercial shareware application
with my student edition ?

thanks !

If I Use "SaveSetting App.Title, "Settings", "Font", "001122"" - Save Date In The Registry, Where Ca
If i use "SaveSetting App.Title, "Settings", "Font", "001122"" - save date in the registry, where can i find the value saved in the registry? Thanks

Please &"To Put Gifs In Visual Basic&"
I have some gifs to put in my project at Visual Basic....but i don't know how to put...and they HAVE TO MOVE!!!TO ANIMATE!!!i tried to put in a normal way...propieties...picture...blablabla...but...didn't work...they did go...but DIDN'T MOVE...

PLEASE...WHAT CAN I DO??...WHAT I HAVE TO DO???....IF SOMEONE KNOW...PLEASE...I HAVE TO FINISH MY PROJECT AND I HAVE TO DO IT MORE QUICKY!!!

THANKS!!!

HOW TO USE &"F2&" FUNCTION IN VISUAL BASIC
[highlight=VB] I Can't Understand How To Use The "f2" Edit Or
The Double Click Feature In A Macro

When I Use "macro Record" It Just Comes Back With The Actual Number I Entered After Using F2 To Add 7 Days Into A Date Field

My Real Goal Is To Goto A Cell That Has A Date In It And Update It By +7 As To Go From
W/e 10/14/06 To 10/21/06

I Use =39004 (that Is 10/14/06) In That Cell And Then Wish To Update It To =39004+7 ( That Is 10/21/06)

Visual Basic &"Addon&" ?
on another visualbasic forum i noticed an eye-catching post, which is:

Quote:

There *IS* an addon for Visual Basic that allows you to compile native DLLs, or if it's ActiveX DLLs with exports.

but i can't find it. anyone know or ever heard of this?

How To Use The Number &"pi&" In Visual Basic?
Hi everyone,

I have to pass numbers expressed in radians to numbers expressed in degrees. It simply consist of multiplying by (180/pi). You know, pi=3,1416.... However, when I try it, visual basic doesnt recognize the number pi. (You can try to do the following sentence on the inmediate window: a=2*pi; ?a; return). I dont undestand it because I have looked the subject up the vb help and it tells me the same solution: I simply must do the product between the number and (180/pi).

Can anyone help me?

Thanks,

Cris

Visual Basic &"Sound&"
Im just learning Visual basic with no programming expericence proior. I want a song to start playing when I open a certain form and stop when I exit that form. Can anyone help me. All help would be greatly appreciated. Thanks

Visual Basic & Visual C++ &"what The Difference&"
Visual basic might be easier to learn then Visual C++, but isn't the end product that makes all the difference, as in Visual C++ you would have a faster running program. What sort of applications would you write in Visual C++ or Visual Basic

Help With &"If&" On Visual Basic
Hey
This is a part of my project...

Private Sub Command1_Click()
If StatusBar1.Panels(1) = "Connected..." Then GoTo 9
If StatusBar1.Panels(1) = "Offline..." Then
MsgBox You Need To Be Connected To Search, vbOKCancel + vbExclamation, "Note.."
End If
Timer1.Interval = 600
Timer1.Enabled = True
Timer2.Interval = 6000
Timer2.Enabled = True
Timer3.Interval = 6300
Timer3.Enabled = True
Timer4.Interval = 6600
Timer4.Enabled = True
End Sub
End Sub

What i want it to do is if the Status Bar Is "Connected" i want it to skip the next part and then go to the timer funtions. But If the Status Bar is "Disconnected" i want it to display the message then not to do the timer part of my project. At the moment it displays "Lable Not Defined"

Thanks

How Use &"like&" In Visual Basic Using Sql.
I need to find for example the constant joseph in a field of one database but the function "like" don't function to me, I need to obtain an example correct using sql.

Please.

OPENING VISUAL BASIC 6.0 ERROR, DAO350.DLL, &"Unexpected Error; Quitting&"
Hi,

I could really use some help. I am not the most knowledgable and would appreciate any guidance... I did a web search already at some sites including Microsoft, but I have not found a soultion yet.

Problem: CANNOT OPEN VISUAL BASIC 6.0; Says "Unexpected error; quitting"
Machine/Software:
OS: XP Media Center (although system info says XP Professional 5.1.2600 Service Pack2 Build 2600)
PC: Acer AspireE36
SW:Microsoft Visual Studio 6.0 Enterprise Edition

History:
1. Could not open visual basic 6.0. I got the an error that the DAO350.DLL could not be found.

2. So following some suggestions from the web:
a) Renamed old DAO350.DLL as DAO350.DLLOLD
b) I took this file from Visual Studio Disk 1 and copied it into the
C:Program FilesCommon FilesMicrosoft SharedDAO
c) Regsvr32 "C:Program FilesCommon FilesMicrosoft SharedDAODAO350.DLL"
d) Then I got a successful message that it registered
e) It did not work. When I tried to open the visual basic 6.0 now I get:
"Unexpected error; quitting" message.

WHAT DO I DO PLEASE?

I even loaded the component checker 2.0 as suggest via microsoft website to look up the Microsoft Data Access Components (MDAC).
(see Article ID: 304230 and 301202 on http://support.microsoft.com/kb/304230 and htpp://support.microsoft.com/default.aspx?kbid=301202))

It says MDAC 2.8 SP1 ON WINDOWS XP SP2. I am not sure what this MDAC does for me, but I looked at it anyways.