vb6

问题 what are the roles of a driver and provider in database communication? 回答1: These are database connector technologies used to bridge between a standard API and multiple database types having different communication patterns, data representations, and protocols. The standard API could be ODBC or OLEDB, the more common ones on Windows. Then an even higher-level API might talk to the middle API to talk to the Provider/Driver... to talk to the database engine. This higher-level API might be

问题 How to strip ALL HTML tags using MSHTML Parser in VB6? 回答1: This is adapted from Code over at CodeGuru. Many Many thanks to the original author: http://www.codeguru.com/vb/vb_internet/html/article.php/c4815 Check the original source if you need to download your HTML from the web. E.g.: Set objDocument = objMSHTML.createDocumentFromUrl("http://google.com", vbNullString) I don't need to download the HTML stub from the web - I already had my stub in memory. So the original source didn't quite

问题 Closed . This question needs to be more focused. It is not currently accepting answers. Want to improve this question? Update the question so it focuses on one problem only by editing this post. Closed 2 years ago . I have a software product written in VB6. It is a paid software product and it has a demo version for 1 month.There is no separate setup file for demo version.The software on entering the product key turns demo to a full version.I used to write the information in registry to track

问题 I have created an Inputbox to get the username entered but stuck with the cancel button Private Sub Form_Load() fsUserName = UCase(InputBox("Please Enter your name.", "User Name", _ "dc")) If fsUserName = "" Then MsgBox "No name Entered." & Chr(13) & Chr(13) & _ "You must enter a name.", vbExclamation, "ERROR" Form_Load ElseIf VarType(fsUserName) = 0 Then 'If cancel clicked cmdQuit_Click End If Also is there a way that when the X button on the form is clicked it executes cmdQuit_Click so that

问题 I have created an Inputbox to get the username entered but stuck with the cancel button Private Sub Form_Load() fsUserName = UCase(InputBox("Please Enter your name.", "User Name", _ "dc")) If fsUserName = "" Then MsgBox "No name Entered." & Chr(13) & Chr(13) & _ "You must enter a name.", vbExclamation, "ERROR" Form_Load ElseIf VarType(fsUserName) = 0 Then 'If cancel clicked cmdQuit_Click End If Also is there a way that when the X button on the form is clicked it executes cmdQuit_Click so that

问题 I am wondering if there is a way to send an email (SMTP) through VB6. I have an application that just needs to send a simple email when the user is done to let a group know that the application has processed. Is there a way to do that? 回答1: Yep - depends on which version of windows you're using. Assuming one of the later versions - CDO.Message works great. Sub SendMessage(MailFrom,MailTo,Subject,Message) Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") 'This section provides the

问题 I'm in charge of the maintenance of a C# application (VS 2005). This C# applications calls a dll ("mydll.dll"). I needed to make a few changes on the dll in question. I have the file "mydll.vbp" that was written in Visual Basic 6.0. I made my changes in Visual Studio and, then, "made "mydll"" from the Visual Basic interface. The problem is that, now, at each time I try to instance a class from "mydll.dll" in debbuger mode in C#, I have the following "InvalidCastException" Unable to cast COM

问题 VB6 classes have no parameterized constructors. What solution have you chosen for this? Using factory methods seems like the obvious choice, but surprise me! 回答1: I usually stick to factory methods, where I put the "constructors" for related classes in the same module (.BAS extension). Sadly, this is far from optimal since you can't really limit access to the normal object creation in VB6 - you just have to make a point of only creating your objects through the factory. What makes it worse is

问题 I want to upgrade MSFlexGrid to .net datagridview, what is equivalent code for these code?? With gridview If .Row > .FixedRows Then bDoNotEdit = True .Row = .Row - 1 bDoNotEdit = False End If If .Row < .Rows - 1 Then bDoNotEdit = True .Row = .Row + 1 bDoNotEdit = False End If End With 回答1: While VS 2008 and earlier can migrate a VB6 application to .Net, it won't use the .Net idioms (particularly the better databinding functionality). VS2010 removed the migration wizard. The real question here

问题 I want to upgrade MSFlexGrid to .net datagridview, what is equivalent code for these code?? With gridview If .Row > .FixedRows Then bDoNotEdit = True .Row = .Row - 1 bDoNotEdit = False End If If .Row < .Rows - 1 Then bDoNotEdit = True .Row = .Row + 1 bDoNotEdit = False End If End With 回答1: While VS 2008 and earlier can migrate a VB6 application to .Net, it won't use the .Net idioms (particularly the better databinding functionality). VS2010 removed the migration wizard. The real question here