Hi

Visit here for control array tutorial and try it

http://www.vb6.us/tutorials/vb6-control-array-tutorial

Hi,

ReDim statement is used to change the size of a dynamic array in procedure level.

Preserve keyword is used to preserve the data in an existing array when you change the size.
Ex
...

Hi, U can use Usercontrol.Parent Property get the Parent object and use WithEvents keyword to capture the Parent events


'In UserControl
Option Explicit

Dim WithEvents mParent As Form
...

Hi,

You can also use PaintPicture () to get the portion of image

Code

Option Explicit
Dim iX As Integer, iY As Integer, iHeight As Integer, iWidth As Integer

Private Sub...

Yes, Debasisdas is correct.
Refer

WeekDayName ()
WeekDay ()
&
Other Date Functions
to achieve this.

WeekDayName ( WeekDay ( Date ) ) returns today date in String

Hi,

Use MSFlexGrid.TextMatrix ( row, column ) to get/set then value rom/to the grid.

Hi,
You can try Masked Edit Control instead of TextBox control

Hi, Try to Write MessageBox Coding in Form_QueryUnload event or Form_Unload Event. This is will show the Message whenever user close the Window

Hi, ADO uses similar properties and methods like DAO. It differs in some methods and properties. The way of open the database and Table are somewhat differ.

Hi,
When we use Unload statement the form is getting unload (visible=false) from memory and not destroyed as said by jireh. Then the form is removed from the Forms collection. It is not actually...

Hi,

Global variable or Properties can be used as your suggestion.
Assume you have Ok and Cancel button in your modal form.
In the Modal form, user can click Ok button for approval and for...

Ok, You can do extract and Concatenate from string. It is another way to solve your problem

Hi,
I think you want like Stop Watch. Date variables dont take such values, If u set 00:00:00 it automatically changes to 12:00:00 AM.

You can create Your own Date class that implements the...

Hi, Can u post your sub routine or its prototype?

Hi,
I was also faced that problem, but never get good solution. Data Environment is not refresh when add a new Record. It will be static.

But i did separate the Data Environment and my...

Hi,

If you want to shade that portion you have know a point inside that portion.

Ok, one solution is to have two FileListboxes. One with Multiselect = 1 (design time). and another with MultiSelect = 2 (Designtime). When user change the property you swap the visibility of the...

Hi, I think error form the line


File1.MultiSelect = 2


because MultiSelect property is read only at Runtime. that is you can set it at design time only.

Hi, Use
ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=MyDB;Persist Security Info=true;Jet OLEDB:Database Password=MyPassword"

Code the things said by guest11


Private Sub Command1_Click()
If WindowState = vbMaximized Then
WindowState = vbNormal
ElseIf WindowState = vbNormal Then
WindowState =...

Hi,
Form has WindowState Property.
The values may be
vbNormal - 0 - (Default) Normal.
vbMinimized - 1 - Minimized (minimized to an icon)
vbMaximized - 2 - Maximized (enlarged to...

Hi,
In vb, MOD is an operator to find Remainder
Ex

Dim iRemainder As Integer

iRemainder = 2008 MOD 10 'Here 8 is the Remainder


If you divide one number by another number...

It is correct, just change


Private Sub Label1_DragDrop(Source As Control, X As Single, Y As Single)
If Label1.Caption = "" And TypeOf Source Is Label Then
Label1.Caption =...

Make Enabled property of Target Control is working.
Consider the Above coding

Private Sub Label1_DragDrop(Source As Control, X As Single, Y As Single)
If TypeOf Source Is Label Then
...

Check the Caption of the Label
> If it is empty then perform the drag operation (that is Change the Caption)
> Otherwise Dont do the Drag Operation

OR

> Make Enabled Property of the...

Yes, Change the Visible property to false to the source control after making the drag operation.

I give example for drag and drop

> Place two label (Label1, Label2)
> Change DragMode Property of Label2 to 1 - Automatic
> And try the below code

Private Sub Label1_DragDrop(Source As...

Make Stretchproperty of ImageBox to true.

Hi, Use Mid() function or Left() or Right() function for separating the characters and Len () function for Length .

Yes, I agree dmf1978 points, Property is a special feature in VB6. It encapsulates a private member variable inside a class.

For Ex
'in a Class

Private mLength As Integer
Public Property Get...

Hi,
I think in vb6 you cannot do this using Shell () function. It just executes the exe files. You can use Win 32 APIs (CreateProcess(), WaitForSingleObject() ...) for this.

To create control array you must do it in design time. When drawing shape form Toolbox to form,

1) First place one shape control and set the properties for the shape. Change the Name of the Shape...

Do you have 140 shapes? How do you name the shapes ? Is it shape1, shape2 .... Shape140...

If you have shapes in control array, it will be useful. because we cannot code as many(140) controls.
...

Hi, Timer will solve your problem.

1) Use a flag variable that indicates bigger to smaller and smaller to bigger as form level.

Dim bBigToSmall as Boolean
Dim iNoOfTimes As Integer
...

Yes, Veena gives the correct code.
I give another way that use Recordset.GetRows. It may be faster.


Dim i As Long
Dim j As Long
Dim sC As Variant
Dim iU1 As Long
...

Hi, Instead of specifying the field name use field index and a loop.
For Example

Dim sAdd as String
Dim i as Integer
For i = 0 To rekod.Fields.Count - 1
sAdd = rekod.Fields(i) & vbTab...

yes, my suggestion is to select TextBox with lock property to True because you can copy from textbox but ListBox and Combobox not having this facility.

Hi, Rnd () function generates random number.

Dim iNumber As Integer

Randomize
iNumber = Int(2 * Rnd)
If iNumber = 1 Then
'Head
Else
'Tail

Hi, Are you using any loop? Then use DoEvents inside the loop. If you call DoEvents in your code, your application can handle the other events.

Ex

For ............
DoEvents
...

Yes, This control is ListView.
To draw the Similar, as Jx_Man said insert Component (Microsoft Windows Common 6.0(sp6)) into your project and Change the Following property.

View - Report...