I have not seen any significant disadvantages of using control array except it slightly increase difficulty in managing your controls. Moreover, control array is not applicable in every program.

Control array simply is a group of control that share the same name, same type, and same event procedures that increase flexibility of Visual Basic 6:


Being share the same name and same event...

Wrong section, goto Software Development -> Visual Basic, and post there, you might get better chance of getting answer.

http://www.program-transformation.org/Transform/VisualBasicDecompilers

frmsummary.lblfname0.Caption = frmWage.lblfirstname.Caption

I am not sure because I haven't program in VB6 for so long. I think Form.Visible would be the answer because if Form.Visible = false which mean the form doesn't not appear in the screen.

Percentage = Vote/Total_Vote * 100

I don't understand your problem. You should describe little more detail.

you mean this ?


Public Function NOTCH(test2 As Integer, ByVal offset As Integer) As Boolean

Dim NotchCharacter As Integer
NotchCharacter = offset + 1

if (test2 = 1) and (NotchCharacter =...

Asc : This function convert first letter in the string to ANSI code.

Example:
Msgbox(Asc("A"))


Mid : Returns a Variant (String) containing a specified number of characters from a string.
...

I write simple date sort, hope you like it

You can use listview component.

Sorry for my late reply. Because I haven't check DaniWeb for a month now. VB and C++ is much different. you cannot use VB code in C++. so it won't work. I am not good in C++ because I just start...

This is what you mean ?


Private Sub Form_Load()
Text1.MultiLine = True
Text1.ScrollBars = 2
End Sub

I test it, it is working fine, Here this is what i am testing with

random.exe code in C++

#include <time.h>
#include <fstream>
using namespace std;

void main()
{

In this code I write 2 functions, one function convert from char to binary and another one is for convert from string to binary code.


Private Sub Form_Load()
MsgBox (char2bin("a"))
...

you mean convert char to binary code example

"5" = 00110101
"a" = 01100001

this is what you mean ?

Because I don't have 24 hours internet. and my connection is slow.

I never browse MSDN.

It will return remainder from division of 2 numbers
example

a = 10 mod 3 ' // a = 1
a = 11 mod 3 ' // a = 2
a = 3 mod 3 '// a = 0
a = 12 mod 3 '// a = 0

how many line in your text file ?

you could try this one

If X Mod 2 Then
' // Odd Number Here
Else
' // Even Number Here
End If

maybe something wrong with your C++ code, can you post your C++ random number code, and also check your "\random.txt", if there something wrong with the file.
...

put this code on the top of your code

Private Declare Function sndPlaySound Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


and


If...

Atn is arctangent

let talk about math

tan(x) = sin(x) / cos(x)
cos(x) = sqr(1 - sin(x)^2)
tan(x) = sin(x) / sqr(1 - sin(x)^2)

so we got ArcSin = X / sqr(-X * X + 1)
and ArcCos = 90 -...

why don't you random number using VB, why using C++ random number ?

you can use Shell Function

Syntax : Shell(PathName, [WindowStyle])

example :

Private Sub Form_Load()
Shell ("notepad")
End Sub

Private Declare Function sndPlaySound Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Form_Load()
result =...

First you have to delcare this API


Private Declare Function sndPlaySound Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


after that

here is my count down code


Private Sub cmd_Click()
Timer1.Enabled = Not Timer1.Enabled
cmd.Caption = IIf(Timer1.Enabled, "Pause", "Start")
End Sub

Private Sub Form_Load()
...

try this function :


Public Function ArcCos(ByVal X As Double) As Double
If X <> 1 Then
ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
Else
ArcCos = 0
End If...

and i got another one line solution


SIDE = IIf(Z Mod 2, W - (V / 3600#), W + (V / 3600#))

first i check grandfilth code pattern
then we got


If Z = 1 Or Z = 3 Or Z= 5 Then
SIDE = W - (V / 3600#)
Else
SIDE = W + (V / 3600#)
End If

if Z is interger, you also can do this way without using If

SIDE = W + ((-1) ^ Z)*(V / 3600#)

You mean this one ?

Private Sub Form_Load()
Me.FontName = "Verdana"
MsgBox (Me.TextWidth("Hello"))
End Sub

try this one


Option Explicit

Dim SecLeft As Integer
Dim MinLeft As Integer

Private Sub cmdBreak_Click()
cmdbreak.Enabled = False ' To stop them resetting !

there are alot of way to do that, I give you 2 ways to do that

First Way : using Change Event
Private Sub Text1_Change()
Dim LastStart As Integer
LastStart = Text1.SelStart
...

I think there is infinity loop somewhere. Did you try other windows ?

hey Coma, long time no see! how are you.

and about code, I have change some of your code, i make it simple as possible and work very fine too.


Option Explicit

Dim SecLeft As Integer
Dim...

Randomize will generate different random number everytime ;)

here this is syntax for Randomize

Randomize (Optional Seed)

if you are omitted the seed, the system timer is used for the seed...