Re: Array of classes within a Class - Visual Basic Discussion Boards

Thank your repost.

I want to get call logs on my smartphone.

In smartphone SDK,it's include in "phone.h".

like~~~" PhoneCloseCallLog "...

I need any simple sample or idea about Call Logs with vb.net or embedded vc++ 4.0 .

Would you please supply me any simple sample or idea about this?

Thank you~

How can i make a data grid in VB.Net

Do you want to elaborate on that? All you really need to do is drop a DataGrid control on your form. Afte that, it's up to you to supply the data, however you want, from wherever you want. So what's the real question here?

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

hellow to all ..
i have an database tabel that i wana to bind it to a datagrid that i had created ...
how can i do this ?

thx

DataGrid1.DataSource = myDataTable

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Dave Kreskowiak wrote:
DataGrid1.DataSource = myDataTable

You have great patience.

Jon
Information doesn't want to be free.
It wants to be sixty-nine cents @ pound.

Hello,

I currently have a problem that i have thought of a soultion for but im unsure of how i can implement this.

Problem:

I have an new instance of a class, lets call it "Temp_Class" and within that class there are some properties x,y,z and say 6 instances of another class "Sub_Class". There may be 1 instance of "Sub_Class" or as many as 100 depending on Property X which is an integer.

Just like the "Temp_Class", "Sub_Class" contains some Properties A,B,C and up to 5 instance of a thrid class "Sub_Sub_Class" which just contains properties D,E,F.

I wanted to be able to referance each of the "Sub_Sub_Class" properties by using arrays so that i can set a varing amount of Sub_Classes or Sub_Sub_Classes where nessercary but for this i would need to create a new instance of each class. The problem with defining an array as a class is that it wont allow me to define it as a new class for some reason.

Public Temp_Class<br />
<br />
Private X_Value<br />
Private Y_Value<br />
Private Z_Value<br />
<br />
Public Property X .............(Get and Set are tested and are known to work)<br />
Public Property Y .............<br />
Public Property Z .............<br />
<br />
Public Array_1(X_Value) as Sub_Class<br />
<br />
End Class<br />
<br />
Public Sub_Class<br />
<br />
Private A_Value<br />
Private B_Value<br />
Private C_Value<br />
<br />
Public Property A .............<br />
Public Property B .............<br />
Public Property C .............<br />
<br />
Public Array_2(Y_Value) as Sub_Sub_Class<br />
<br />
End Class<br />
<br />
Public Sub_Sub_Class<br />
<br />
Private D_Value<br />
Private E_Value<br />
Private F_Value<br />
<br />
Public Property D .............<br />
Public Property E .............<br />
Public Property F .............<br />
<br />
End Class

The Idea is that you can then Referance any D,E,F propery as follows.

<br />
Dim Test as new Temp_Class<br />
<br />
Test.Sub_Class(0).Sub_Sub_Class(0).D = "Hello"             '(assuming 'D' is a String)<br />
Test.Sub_Class(0).Sub_Sub_Class(1).D = "Test"<br />
Test.Sub_Class(0).Sub_Sub_Class(2).D = "Hello"<br />
Test.Sub_Class(0).Sub_Sub_Class(3).D = "Test"<br />
<br />
Test.Sub_Class(1).Sub_Sub_Class(0).D = "Hello"<br />
Test.Sub_Class(1).Sub_Sub_Class(1).D = "Test"<br />
Test.Sub_Class(2).Sub_Sub_Class(2).D = "Hello"<br />
Test.Sub_Class(2).Sub_Sub_Class(3).D = "Test"

I have been able to get this working but only if dont use arrays, but then everything becomes alot more complicated.

i.e. (tested and works, where items have been defined as new instances)

Test.Sub_Class_0.Sub_Sub_Class_0.D = "Hello"<br />
Test.Sub_Class_0.Sub_Sub_Class_1.D = "Test"<br />
Test.Sub_Class_1.Sub_Sub_Class_0.D = "Hello"<br />
Test.Sub_Class_1.Sub_Sub_Class_1.D = "Test"

If anyone can help me with this problem or if they know if this idea would even work it would be much apprechated.

Shaun Bone
Bonio55@hotmail.com

Helo, Only me again, from all of my random attempts of trying to find a soultion for this i found one so i thought i would post the solution.

when u define the array as a class you have to define it with a random figure i.e.

public Temp(0) as Sub_Class

then in the subroutine 'New' for the class "Sub_Class" you call a subroutine called create_X()

Public Test as new Temp_Class(8,1,2)<br />
.....<br />
.....<br />
<br />
Public Class Temp_Class<br />
.....<br />
public Temp(0) as Sub_Class<br />
.....<br />
    Private x_Value as integer<br />
    Private y_Value as integer<br />
    Private z_Value as integer<br />
.....<br />
Public Sub New(ByVal x_val, ByVal y_val, ByVal z_val)<br />
    ReDim Temp(Temp_Class.X)<br />
    x_value = x_val<br />
    y_value = y_val<br />
    z_value = z_val<br />
    Create_X()<br />
End Sub<br />
....<br />
Public Sub Create_X()<br />
    Dim temp_X As New Sub_Class<br />
    Dim n As Integer<br />
    Public Sub Create_X()<br />
    For n = 0 To Temp_Class.X<br />
        Me.Sub_Class(n) = temp_X<br />
    Next<br />
End Sub<br />
....<br />
....<br />
End Class<br />
<br />
Public Class sub_Class<br />
.....<br />
public Temp2(0) as Sub_Sub_Class<br />
.....<br />
Public Sub New()<br />
    ReDim Temp2(Temp_Class.Y)<br />
    .....<br />
    Create_Y()<br />
End Sub<br />
....<br />
Public Sub Create_Y()<br />
    Dim temp_Y As New Sub_Sub_Class<br />
    Dim n As Integer<br />
    Public Sub Create_Y()<br />
    For n = 0 To Temp_Class.Y<br />
        Me.Sub_Sub_Class(n) = temp_Y<br />
    Next<br />
End Sub<br />
....<br />
....<br />
End Class

this relies on the fact hta default values have been put into the sub_Class and Sub_Sub_Class Properties in the subroutine new() and also relies on the fact the initaliation 'Test' class being called with overload.

if this approach is then taken you are effectivly creating defualt values for thouse classes and by doesing so removes the problem of the computer bringing up Null References

Sorry if this isnt very clear but someone else might be able to write it up more clearly if they can understand what i mean.

I want to connect Webcam to my application. I have made a form i want that as i click the button the image from webcam should be apear in picturebox. Please help me !!!!!!!!!!!!!!!!!

I have just used the same kind of thing on one of my projects. I cant remember where i got this code from but it works.

This is how i decided to implement it you can mess around with it to how u want it once you have it working.

1) Create a picture box and call it "picCapture"
2) Create a list box and call it "Video_Sources"
3) Create a Button Called "Change_Video_Apply"
4) Create a Buttin Called "Change_Video_Source"

On the Form designer place the Button and List box 'Behind' the Picture box.
Make sure the pic box has a ratio of 4:3 for its Width:Height - stops streching

Copy these into your form class

Place this with you declerations i.e. before subroutines

#Region "Webcam Defines"<br />
    Const WM_CAP As Short = &H400S<br />
<br />
    Const WM_CAP_DRIVER_CONNECT As Integer = WM_CAP + 10<br />
    Const WM_CAP_DRIVER_DISCONNECT As Integer = WM_CAP + 11<br />
    Const WM_CAP_EDIT_COPY As Integer = WM_CAP + 30<br />
<br />
    Const WM_CAP_SET_PREVIEW As Integer = WM_CAP + 50<br />
    Const WM_CAP_SET_PREVIEWRATE As Integer = WM_CAP + 52<br />
    Const WM_CAP_SET_SCALE As Integer = WM_CAP + 53<br />
    Const WS_CHILD As Integer = &H40000000<br />
    Const WS_VISIBLE As Integer = &H10000000<br />
    Const SWP_NOMOVE As Short = &H2S<br />
    Const SWP_NOSIZE As Short = 1<br />
    Const SWP_NOZORDER As Short = &H4S<br />
    Const HWND_BOTTOM As Short = 1<br />
<br />
    Dim iDevice As Integer = 0<br />
    Friend WithEvents SerialPort1 As System.IO.Ports.SerialPort<br />
    Friend WithEvents Button3 As System.Windows.Forms.Button<br />
    Friend WithEvents Timer1 As System.Windows.Forms.Timer<br />
    Friend WithEvents Button4 As System.Windows.Forms.Button<br />
    ' Current device ID<br />
    Dim hHwnd As Integer ' Handle to preview window<br />
<br />
    Declare Function SendMessage Lib "user32" Alias "SendMessageA" _<br />
        (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, _<br />
        <MarshalAs(UnmanagedType.AsAny)> ByVal lParam As Object) As Integer<br />
<br />
    Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Integer, _<br />
        ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, _<br />
        ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer<br />
<br />
    Declare Function DestroyWindow Lib "user32" (ByVal hndw As Integer) As Boolean<br />
<br />
    Declare Function capCreateCaptureWindowA Lib "avicap32.dll" _<br />
        (ByVal lpszWindowName As String, ByVal dwStyle As Integer, _<br />
        ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, _<br />
        ByVal nHeight As Short, ByVal hWndParent As Integer, _<br />
        ByVal nID As Integer) As Integer<br />
<br />
    Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wDriver As Short, _<br />
        ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, _<br />
        ByVal cbVer As Integer) As Boolean<br />
<br />
#End Region

Place these with your Functions

    Private Sub LoadDeviceList()<br />
        Dim strName As String = Space(100)<br />
        Dim strVer As String = Space(100)<br />
        Dim bReturn As Boolean<br />
        Dim x As Integer = 0<br />
        ' Loads name of all avialable devices into the Video_Sources<br />
        Do<br />
            bReturn = capGetDriverDescriptionA(x, strName, 100, strVer, 100)<br />
            If bReturn Then Video_Sources.Items.Add(strName.Trim)<br />
            x += 1<br />
        Loop Until bReturn = False<br />
        If Video_Sources.Items.Count > 0 Then<br />
            Video_Sources.SelectedIndex = 0<br />
        Else<br />
            Video_Sources.Items.Add("No Capture Device")<br />
        End If<br />
    End Sub<br />
<br />
    Private Sub OpenPreviewWindow()<br />
        Dim iHeight As Integer = picCapture.Height<br />
        Dim iWidth As Integer = picCapture.Width<br />
<br />
        hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 0, 0, 640, _<br />
            480, picCapture.Handle.ToInt32, 0)<br />
<br />
        If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then<br />
            SendMessage(hHwnd, WM_CAP_SET_SCALE, True, 0)<br />
            SendMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0)<br />
            SendMessage(hHwnd, WM_CAP_SET_PREVIEW, True, 0)<br />
            SetWindowPos(hHwnd, HWND_BOTTOM, 0, 0, picCapture.Width, picCapture.Height, _<br />
                    SWP_NOMOVE Or SWP_NOZORDER)<br />
        Else<br />
            DestroyWindow(hHwnd)<br />
<br />
        End If<br />
    End Sub <br />
<br />
    Private Sub ClosePreviewWindow()<br />
        SendMessage(hHwnd, WM_CAP_DRIVER_DISCONNECT, iDevice, 0)<br />
        DestroyWindow(hHwnd)<br />
    End Sub

In the code for the Change_Video_Apply button put

  iDevice = Video_Sources.SelectedIndex<br />
        OpenPreviewWindow()<br />
<br />
        Video_Sources.SendToBack()<br />
        Change_Video_Apply.SendToBack()

In the code for the Change_Video_Source button put

ClosePreviewWindow()<br />
      Video_Sources.BringToFront()<br />
      Change_Video_Apply.BringToFront()

I build my Matlab .m file as dll and I'm going to integrate vb.net with this dll. Just, I dont know how to pass an image to that matlab dll? Which data type i should use to declare that image?

Here is the code used in vb.net to call the method in that dll:
Private obj1 As MyMatlabApp.MyClass
obj1 = New MyMatlabApp.MyClass
obj1.methodName(1, objReceivedImage, objSendImage)

Due to the code above:
1 means only 1 object will be returned which is objReceivedImage
objSendImage is the image that i'm going to pass it into the dii for further processing

Anyone who knows about this, pls help me out here. I'm really in fix. Thanks in advance.

Hi,
I have just acquired a dual processer (SMP) machine for my latest database project (SQL Server & vb.net). It is working great. But when i check performance graph in my Windows Task Manager, it shows only one processor working to almost 100% and second processor pitching in only for short while befor going idle.

How do i develop my vb.net application that utilizes maximum of both the processor, like SQL Server itself and some graphics application like Ulead products while rendering graphics.

Note: I have tried to set the Affinity and Task priorities in Windows Task manager ... but with no success.

I assume it is some base architecture that utilizes multi-Processors, that i am lacking.

Any help would be much appreciated.

Regards,
msali.

Is your app written to use multi-threading?

Using a second processor doesn't happen automatically. You actually have to write your app to use mutiple threads of execution. Otherwise, you're running a single threaded app that only runs on a single processor.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Dear all,

I have a problem on how to get the PnP ID of a USB Thumbdrive. I will get the driveletter of the
thumbdrive, say "J" but not able to assoiciate the PnP ID of the USB device in that particular drive (ie J), instead the code given below is giving PnP ID of all the mounted thumbdrives

I will be very thankful if someone can get me the solution

code:

Dim obj, objs, buf

Set objs = GetObject("winmgmts:").InstancesOf("Win32_DiskDrive")

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set colDrives = objFSO.Drives

Dim drv As String

drv = "J"

For Each obj In objs

For Each objDrive In colDrives

buf = IIf((obj.InterfaceType = "USB") And (objDrive.DriveLetter = "J"), _ obj.PNPDeviceID, "")

buf = "Model: " & obj.Model & vbCrLf
buf = buf & "PnP Device ID: " & obj.PNPDeviceID & vbCrLf

msgbox buf
Next
Next

End Sub

thank you

Dinakara K
CAIR
Bangalore

You might want to do some research on this by reading and studying the code in this[^] article on MSDN.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Dear Dave,

Thanks for the reply.

I read the article but think it wont help for my problem

I will be glad to receive some more suggestions

Thank You

I've never had to get into that topic before.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Hello..
Can anybody tell me how to give readonly access to some of the rows in datagrid while leaving others as non-readonly. I have binded a dataset with the datagrid.
Plz reply urgently

Take care

The idea is....

When the cell gets focus... depending on the conditions (in your case - rowNum) you can set the datarow column's ReadOnly property accordingly

<br />
    Private Sub dg_RowChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)<br />
        Try<br />
            Me.Cursor = System.Windows.Forms.Cursors.WaitCursor<br />
            idCol.ReadOnly = True<br />
            If "condition" Then<br />
                idCol.ReadOnly = False<br />
            End If<br />
        Catch ex As Exception<br />
            MessageHandler.HandleError(ex)<br />
        Finally<br />
            Me.Cursor = System.Windows.Forms.Cursors.Default<br />
        End Try<br />
    End Sub<br />

P.S. idCol - will be a column which will be made readOnly in this case

"He that is good with a hammer tends to think everything is a nail."
- Abraham Maslow

vb.net 2003 Blush | :O

Crystal rept 9

I make a package using merge modules
and follow the crystal report rules.
the package install in win98 is not working.
Got the error msg given below. The problem is
Crystal report viewer. But I use microsoft viewer
have no problem in win98.How can I solve this problem.
(I installed framework everything)

WINDOWSAPPLICATION13.EXE - Common Language Runtime Debugging Services
Application has generated an exception that could not be handled.
Process id=0xfffc886b (-227221), Thread id=0xfffc7cb3 (-230221).
Click OK to terminate the application.
Click CANCEL to debug the application.

Microsoft (R) Common Language Runtime Test Debugger Shell Version 1.1.4322.573
Copyright (C) Microsoft Corporation 1998-2002. All rights reserved.

(cordbg) a 0xffe3366b
Process -1886613/0xffe3366b created.
Warning: couldn't load symbols for c:\windows\microsoft.net\framework\v1.1.4322\
mscorlib.dll
Warning: couldn't load symbols for C:\PROGRAM FILES\DEFAULT COMPANY NAME\SETUP9\
WINDOWSAPPLICATION13.EXE
Warning: couldn't load symbols for c:\windows\assembly\gac\system.windows.forms\
1.0.5000.0__b77a5c561934e089\system.windows.forms.dll
Warning: couldn't load symbols for c:\windows\assembly\gac\system\1.0.5000.0__b7
7a5c561934e089\system.dll
Warning: couldn't load symbols for c:\windows\assembly\gac\system.drawing\1.0.50
00.0__b03f5f7f11d50a3a\system.drawing.dll
Warning: couldn't load symbols for c:\program files\default company name\setup9\
axinterop.crviewer9lib.dll

00.0__b03f5f7f11d50a3a\system.drawing.dll
Warning: couldn't load symbols for c:\program files\default company name\setup9\
axinterop.crviewer9lib.dll
[thread 0xfffdf187] Thread created.
Unable to determine existence of prolog, if any
[thread 0xffe2590f] Thread created.
[thread 0xfffdf187] Unhandled exception generated: (0x04fd3344) <system.runtime.
interopservices.comexception>
_className=<null>
_exceptionMethod=<null>
_exceptionMethodString=<null>
_message=(0x04fd3448) "Class not registered"
_innerException=<null>
_helpURL=<null>
_stackTrace=(0x04fd34c0) array with dims=[120]
_stackTraceString=<null>
_remoteStackTraceString=<null>
_remoteStackIndex=0x00000000
_HResult=0x80040154
_source=<null>
_xptrs=0x00000000
_xcode=0xe0434f4d

[0099] mov ecx,esi
(cordbg)

anybody help me

Continue...

put the cd key in the license.msm merge module file and compile the project for deployment.

Hello. I have a homework assignment where we have a status bar which value comes from a percentage of "done" work. Don't worry, you're not doing the assignment for me. Already got the formula set up and it works, but would like to have a percentage along with the progress bar's value. This isn't part of the assignment, but I would like to add it to make a little more professional. I noticed there is a property .text. No text actually shows up. Is this possible?

Hello!
To show the current value of progress bar you can use the property VALUE of progress bar like,

Var=ProgressBar1.Value

Now you can add up a Timer and on each timer tick, update the status bar with the variable 'Var'.

_mubashir

Is it possible to have text show up in the progress bar?

Thanks for the reply!

Not with the intrinsic Progress Bar control.

You can create your own progress bar that you fill in and draw the text using your own painting algorithm.

This was easy in VB6, in VB.NET, not so much. Smile | :)