| what's datatype against this vb.net collection type [message #428972] |
Sat, 31 October 2009 04:56  |
lancer26
Messages: 52
Registered: May 2006
Location: Pakistan
|
Member |
|
|
hi,
i m using video camera activex control.
for connecting camera device, in vb is following code and it's working fine in vb.net.
video_activex.Init("Trial Mode.")
'Load the drivers
Dim cDrivers As VBA.Collection
Dim cntr As Long
cDrivers = video_activex.GetDrivers
If cDrivers.Count > 0 Then
For cntr = 1 To cDrivers.Count
combo_box.Items.Add(cDrivers.Item(cntr))
Next cntr
'Select the first driver
combo_box.SelectedIndex = 0
end if
when i did it in oracle forms 6i, i used the following code
DECLARE
mINIT NUMBER;mGD oleOBJ;mCONN NUMBER;mSET_SOURCE NUMBER;mSET_DISPLAY NUMBER;
IS_GET_PIC NUMBER;
BEGIN
:global.x := :ITEM('BLOCK3.ACTIVEX_CONTROL4').INTERFACE;
mINIT := VIDEO_CAMERA_ACTIVEX_cVidCam.INIT(:GLOBAL.X,'Trial Mode.');
mGD := VIDEO_CAMERA_ACTIVEX_cVidCam.GetDrivers(:GLOBAL.X);
EXCEPTION
WHEN OTHERS THEN MESSAGE(SQLCODE ||SQLERRM);
END;
GetDrivers specs are:
FUNCTION GetDrivers(interface OleObj) RETURN /* VBA_CONSTANTS.z_Collection */ OleObj ;
1.can anybody explain what is equivalent data type for VBA.COLLECTION?
2. how to get and assign driver by using oleobj?
thanks.
|
|
|
|
|
|
|
|
] 
Blog
Search
Help
Members
Register
Login
Home
