Msdn Library For Visual Basic 6.0' title='Msdn Library For Visual Basic 6.0' />Visual Basic Code Source VB Examples. A small example of using the Get. Performance. Info API Function with the PERFORMANCEINFORMATION structure converted from C to VB to get some low level information about the computers memory based data. Gives you the TotalAvailable Physical Memory Ram, Handle Count, Thread Count, Processes, Kernel Related Memory Data, Commit Charges, System Cache and more. Visual Basic Calculator Code using Control Arrays Visual Basic Knowledgebase This article is written by Pon Saravanan  on 0. Sep 0. 9Last modified on 1. Jan 1. 0VB calculator code. This article is mainly for the beginners. I am trying to explain the use of Control Arrays with the help of Calculator Sample. Get certified for Microsoft technology and products. Explore our online developer computer courses and exams, and take your career to a new level. Explaining the use of control arrays using visual basic calculator code VB calculator codeThis article is mainly for the beginners. I am trying to explain the use of. This site uses cookies for analytics, personalized content and ads. By continuing to browse this site, you agree to this use. Learn more. I feel control arrays are overlooked  in classic visual basic. Control Arrays can be used in the situations like whenever the need of same controls being used several times in an application. We can make them as an array, and the controls can be accessed by their index in all the respective events. VB 6 Control Arrays in form. As shown in the following figure, Design the form. Create a Command Button named as Command. This will create a control array. Then assign the text as shown in the figure. So design it accordingly. Operator control array for the green box group. Now you can use the sample code to try. VB Calculator we actually storing the Last Operator used and The first part of the number used in a class level variable. Since the operators also created as control arrays. Source Code SimpleVB 6. Private Last. Operator  As. String. Private First. Part As. String. Private. Sub cmd. ClearClickFirst. Part Last. Operator End. Sub. Private. Sub cmd. EqualsClickSelect. Case Last. Operator. Case Is Text. Text First. Part Text. Text. Case Is Text. Text First. Part Text. Text. Case Is Text. Text First. Part Text. Text. Case Is Text. Text First. Part Text. Oracle 10G Enterprise Edition For Windows Xp 32 Bit. Text. End. Select. The Visual Basic teams goal is that Visual Basic 6. Windows versions. As detailed in this document, the core Visual. First. Part Last. Operator End. Sub. Private. Sub cmd. OperatorClickIndex As. IntegerLast. Operator cmd. OperatorIndex. Caption. First. Part Text. Text. Text. 1. Text End. Msdn Library For Visual Basic 6.0' title='Msdn Library For Visual Basic 6.0' />PDF files that contain the Visual Studio 2005 documentation. Msdn Library For Visual Basic 6.0' title='Msdn Library For Visual Basic 6.0' />Sub. Private. Sub Command. ClickIndex As. IntegerText. Text Text. 1. Text Command. Index. Caption. End. Sub. Source Code Enhanced CalculatorVB 6. Now few places we need to lock the Calculator stop entering invalid entries. If not done then runtime error will be thrown. To prevent entering the alpha characters the textbox can be locked by enabledfalse. For improved usability, we can hook the keyboard to handle most of the keystrokes to minimize the use of mouse. After enabling Key. Preview in the Form, all the key strokes will be routed through the form. So handling event of forms keypress will be able to handle the keyboard keys. Source Code Enhanced CalculatorVB 6. Private Last. Operator  As. String. Private First. Part As. String. Private. Sub FormLoadtxt. Result. Enabled False. Me. Key. Preview True. End. Sub. Private. Sub FormKey. DownKey. Code As. Integer, Shift As. Integer numbers in main keyboard. If Key. Code 4. And Key. Code lt 5. Then. Add. Digits ChrKey. CodeEnd. If numbers in numpad. If Key. Code 9. And Key. Code lt 1. Then. Add. Digits ChrKey. Code 4. End. Ifif backspace. If Key. Code 8 Then. If txt. Result. Text lt Thentxt. Result. Text Lefttxt. Result. Text, Lentxt. Result. Text 1End. If. End. Iffor various operators. If Key. Code 1. Then Register. Operator If Key. Code 1. Then Register. Operator If Key. Code 1. 09 Then Register. Operator If Key. Code 1. Then Register. Operator End. Sub. Private. Sub cmd. OperatorClickIndex As. IntegerRegister. Operator cmd. OperatorIndex. CaptionEnd. Sub. Private. Sub cmd. ClearClickFirst. Part Last. Operator txt. Result. Text End. Sub. Private. Sub cmd. EqualsClickSelect. Case Last. Operator. Case Is txt. Result. Text First. Part txt. Result. Text. Case Is txt. Result. Text First. Part txt. Result. Text. Case Is txt. Result. Text First. Part txt. Result. Text. Case Is txt. Result. Text First. Part txt. Result. Text. End. Select. First. Part Last. Operator End. Sub. Private. Sub Command. ClickIndex As. IntegerAdd. Digits Command. 1Index. CaptionEnd. Sub. Private. Sub Add. DigitsDigit As. Stringtxt. Result. Text txt. Result. Text Digit. End. Sub. Private. Sub Register. OperatorOperator. Text As. StringLast. Operator Operator. Text. First. Part txt. Result. Texttxt. Result.