vb6 forum

Because the UAC mechanism of Windows 7 restricts the access of Files in Program Files and Windows directories by programs with non-Admin permissions, many old VB6 Files (including all Visual series) are generated) the program fails to run or runs abnormally on Windows 7. The reason is that these old programs do not have the permission to apply for settings by default, so of course they do not have the Admin permission. Therefore, you must select "Run

Specifically, VB6 cannot implement class inheritance in the true sense (for example, inheritance in C ++), but implements also provides similar functions. We first create a class module cbase. CLs The Code is as follows: Private mvarbaseproperty as string Public sub basefunction () Msgbox "Hello world !" End sub Public property let baseproperty (byval vdata as string) Mvarbaseproperty = vdata End Property Public property get baseproperty () as stri

System. reflection. missing is a special class dedicated to represent the missing parameter in VB6. This class defined a static field missing. value to represent the sole instance of this class. each time you have to use missing object, you can only refer to this static value, and can not create any new instances. if you are aware of the Singleton pattern, you will understand that. The missing object is useful and necessary when you want to communica

In writing . Net When, . Net Resources will not be recycled automatically. Therefore, after calling the component, you need to clear the resources by yourself. If you call . Net Written COM + Component, the Resource Recycling syntax is obj. dispose () OBJ = nothing However, if you call VB6 Cannot call Dispose Release resources Therefore, you need to use the following commands to release the resource. ( The number in

Option Explicit Private Declare Function Getcurrentprocess Lib " Kernel32 " () As Long Private Declare Function Iswow64process Lib " Kernel32 " ( Byval Hprocess As Long , Byref Wow64process As Long ) As Long Private Sub Commandmediaclick () Dim Lngreturn As Long Call Iswow64process (getcurrentprocess, lngreturn) If Lngreturn = 0 Then Msgbox " Non-64-bit OS " Else Msgbox " 64-bit OS " End If End sub

Original: http://blog.csdn.net/Modest/archive/2008/05/22/2468937.aspx This version adds the hicon attribute and setformicon method. As the name suggests, setformicon is a 32-bit icon application that implements VB6 forms. The implementation is very simple, and sending a message is sufficient. The hicon attribute returns the icon Handle Based on the icon index. This handle can also be used to beautify 32-bit icons in the tray. ':::::::::::::::::::::::

Windows API reference for C #, VB. NET and VB6 The Windows API (Application Programming Interface) is the low level workings of windows. it offers high performance, and lightweight code, but it is very sparsely too ented. net programmers. this section provides a rough guide to the Win32 API from a C # and VB. NET developers perspective. This guide is not definitive, and will evolve with more content over time. currently listed are over 1,600

() + "}"; string sErr = se.RTX_SendIM(txtSender.Text, txtSenderPwd.Text, txtMsg.Text, sessionId, txtReceiver.Text); if (!string.IsNullOrEmpty(sErr)) MessageBox.Show(sErr); } 2, VB6 (soaptoolkit needs to be installed on the client) : Http://good.gd/1936572.htm The server uses the server in the C # solution. Client: Private Sub btnSendWcf_Click() On Error GoTo ERR Dim sGuid As String s

1, the new establishment of a VB6 project, the Form1 ShowInTaskbar property set to False 2, Menu: Project--Add Module Press "OPEN" This adds a new module, named Module1, save as Module1.bas 3, write down the following code in the Module1: Option Explicit Public Const Max_tooltip as Integer = 64 Public Const Nif_icon = h2 Public Const nif_message = h1 Public Const Nif_tip = h4 Public Const Nim_add = h0 Public Const Nim_delete = h2 Public Const wm_mouse

2011/05/29 1:53 a.m. MSDN for VB6 and VC6 are really cups,The index page inside is *.col format,And the details of the index page are placed on the system partition%systemroot%\help\hhcolreg.datand aC:\ProgramData\Microsoft\HTML Help\hhcolreg.datInsideAfter reloading the system, I had to reload MSDN.See the batch processing of a green version of Setup to understand. @echo off: _start set cpath=%cd% set rcpath=

Create ' casual stickers, learn VB people should know, sorry. '********************************************************************************************** ' MTS VB6 COM Component template-by Michael Gonzalez '********************************************************************************************** ' (1) must create a reference to the Microsoft Transaction Server Type Library (mtxas.dll). ' If using Windows watts, choose the COM + Services Libr

Create ' casual stickers, learn VB people should know, sorry. '********************************************************************************************** ' MTS VB6 COM Component template-by Michael Gonzalez '********************************************************************************************** ' (1) must create a reference to the Microsoft Transaction Server Type Library (mtxas.dll). ' If using Windows watts, choose the COM + Services Libr

Data | Database A lot of brothers here ask questions about VB6 reading and writing to a database, and here's an example that I hope is inspiring. 1, with names and related pictures as an example, the database is access, with the following fields: Name char,picture OLE object,filelength number. When you are MS SQL, change the picture to lob. 2, the example contains Control:commom Dialog,picture,listbox. The source code is as follows: Option Explicit P

Speed Unlike. Net, the default in VB6 is to pass arguments by using BYREF, and there seems to be nothing to optimize. But, actually, if you invoke the API, the code copied from the API browser is forced to use ByVal. This gives us a chance to optimize. Combined previously written Use API SendMessage to improve the speed of inserting Vb.combobox Item I again used the code to test a ByRef, ByVal the difference, the result is very exciting: ByRef is 16 t

ado| Create | dynamic | access | control | data | database Using the ADO control can easily access the ODBC database in VB6, but by directly placing adods control to get ADO data connection is troublesome, we can create a common data module in the VB project, the initialization of the ADO control, establish the connection, close the connection and so on the operation all writes to the function, This allows you to share calls to this ADO connection in

String DimFile as Long 'Assigning file handlesFile =FreeFile 'Create a default Setup.ini file if the file does not exist IfFileExist (Tmp_file) =False ThenGetKey="" PagerWritePrivateProfileString ("Setup Information","Server","", App.Path +"\setup.ini") PagerWritePrivateProfileString ("Setup Information","UserName"," ", App.Path +"\setup.ini") PagerWritePrivateProfileString ("Setup Information","Password"," ", App.Path +"\setup.ini") PagerWritePrivateProfileString ("Setup Inf

Set wallpaper in VB6 Private declare function systemparametersinfo lib "USER32" alias "systemparametersinfoa" (byval uaction as long, byval uparam as long, byval lpvparam as any, byval fuwinini as long) as long Set wallpaper in VB. NET 2003 Private const spi_set1_wallpaper as integer = H14 Set the wallpaper in VB. NET 2005: Private const spi_set1_wallpaper as integer = H14 Refer: Systemparametersinfo Function Definition and parameters: The statem

For Google and csdn, there is no correct and rigorous VB6 to determine whether the string contains Chinese characters, or simply to determine whether the ASC () return value is less than 0 (this can only determine whether it is a double byte string, such as Korean, Japanese, Chinese, and Arabic. It cannot be determined as Chinese. It is not rigorous to judge Chinese characters.It is better to give a more rigorous method to determine whether or not it

Today, my brother found an interesting phenomenon when debugging the program. The system prompts "circular relationship between modules". Let's look at the sample code below: 'CD Option explicit Public event clickevent () Public withevents C as CE Public sub click () Raiseevent clickevent End sub Private sub c_clickevent () ' End sub 'Ce Option explicit Public event clickevent () Public withevents C as CD Public sub click () Raiseevent clickevent End sub Private sub c_clickevent () ' En

The time in the program is usually-1-1 to the current time. Function getsecondsfrom1970 () as long '% s seconds since' 00: 00: 00 1970-01-01 UTC "(a GNU extension) getsecondsfrom1970 = datediff (" S "," 1970/01/01 ", now () '2014/02 18:11:24 => 2011/03 end functionfunction getdatetimefromseconds (byval seconds as long) as string getdatetimefromseconds = format (dateadd ("S", seconds, "1970/01/01 "), "yyyy/mm/dd hh: mm: SS") '2017 => 1299089484 06:11:24 end Function