Search:

Testing post
Bruno

' Form1 code
option Explicit
private Type Rect
Left as Long
Top as Long
Right as Long
Bottom as Long
End Type
private Type POINTAPI
X as Long

To dinamically add control to a form, use:
option Explicit
Dim withevents ctlDynamic as VBControlExtender

private Sub Form_Load()
me.BackColor = vbBlue
set ctlDynamic =...

Hi,
change
>circleObject.setDrawObject (picDisplay)
to
circleObject.setDrawObject picDisplay
or
Call circleObject.setDrawObject(picDisplay)

We use arrays and collections most of the time. But you can create your own data structures:
http://www.devx.com/upload/free/features/vbpj/2000/05may00/fb0500/fb0500-1.asp

Jase, I am not sure you did it right. You should try NOT to use Variant variables for strings and numbers, but you should use specific data types (String, Integer, Long,...) instead.

You should...

public Function FormIsLoaded(frmName as string) as Boolean
Dim i as Integer

for i = 0 to Forms.Count - 1
If Forms(i).Name = frmName then
FormIsLoaded = true
...

>the value in errVal is always 0. Now i figured this would be because i am passing errVal 'ByVal', when i should be passing it ByRef

Correct, pass it ByRef.


> - however, when i pass it...

Use Frame control as container for your option boxes.
Set BorderStyle=0 for your Frame.

To disable option boxes on the frame, use : Frame1.Enabled = False

>very tiresome to declare all these api before i can use them
It is not - just use 'API Text Viewer' in Visual Studio 6.0 Tools program group.

Using type libraries can save few bytes in your...

Hi, Balki
You can do this if B is property of some object.
option Explicit
public PropOfObject as string

private Sub Form_Click()
Dim PropName as string
PropName = "PropOfObject"
...

Form1; to test, change window sheme to e.g. "Rainy Day" and click on form.
option Explicit
private Declare Function GetSystemMetrics Lib "user32" (byval nIndex as Long) as Long
private Const...

There is a limit on control names: 255 different control names on one form.
You can use control arrays, since the whole array uses one control name. E.g. you can load 32000 labels into one array,...

option Explicit
private Const DBCP_FH_LENGTH as Long = 80 ' #define DBCP_FH_LENGTH 80
private szFHtext as string * DBCP_FH_LENGTH

private Sub Form_Click()
MsgBox len(szFHtext)
End Sub

There is a very hardcore solution.
See: http://www.vbdotcom.com/FreeCode.htm (Call Pointer, class clsCallFunction)

Here is how to use that class instead of 'normal': lngReturn = GetDC(Me.hWnd)...

> But how about this - My ActiveX has a property of Object type, that object has its own property.
> How to create this structure to be able to work with that property like this:
>...

>What should I do to have the ability to work with all the properties, methods and events of constituent controls this way:

I don't think it is good, but it is possible.
You'll need one property...

Hi, Stuart
>how I can read the horizontal position of a listview
option Explicit
private Declare Function GetScrollPos Lib "user32" (byval hwnd as Long, byval nBar as Long) as Long
private Const...

If you want good performance, use ONLY 1-D arrays.

>Variant array
Are you sure you have good reason not to use specific data type?

>The array is not bound to any data control.
Huh??

>what...

>... but is not visible ...
Then use InvisibleAtRunTime = True

>ControlContainer=True
Oops, you don't need this property. :-)

Set these properties of your control:
Alignable=True
ControlContainer=True

Use Add method of Forms collection:
Forms.Add("Form1").Show
You'll need VB6 SP3 for Forms.Add to work. Without SP3 it won't work when compiled.


option Explicit

private Sub Form_Click()
...

If you didn't add some buttons recently, check Keycode when you press arrows on your keyboard, e.g.:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print KeyCode
End Sub

If...

I don't have the code, last time I tried, I was not able to use UpdateResource.

For setting any resource, I suggest automating your task with your Resource editor. Use Sendkeys to send commands to...