|
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
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.
|
|
|
|
|
I'm a newbie, how would I go about creating my own?
|
|
|
|
|
You'll have to creat your own ProgressBar class, inheriting from ProgressBar. Then you'll override the OnPaint event and draw the progressbar and text yourself.
But, if you go through this, consider that you might go too far and your prof will suspect you didn't write the code. Have you even come close to covering inheriting from other classes? Have you covered overrides? Have you covered drawing your own controls?
Yeah, this stuff might get you extra credit, but it's a bunch of work for a little credit.
I only say this, because in a class I took, I got accused of not writing the code myself. It turned into a huge mess with accusations of plagerism. I was able to wiggle my way out of it by having the prof give me a different assignment and I wrote it right in front of him.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Ok, not just wanting to do it for extra points. It would be nice if I could get it done in time to do so. It's actually an application I could use in everyday stuff and would like to have it for that too. But I'll give it the good old try and if I don't get it, oh well. Thanks!
|
|
|
|
|
Hmm....
I cant find any property of progress bar to display text...
but you can place the progress bar in a separate form and place a label on top of it and update the label text on timer tick with the desired text...
Remember you should explicitly update the text...
_mubashir
|
|
|
|
|
How to send and recive file with winsocket???
I try end get error the socket is not open or connection not established!!!
But HOST and Clien are connected...!
|
|
|
|
|
Without seeing any of your code, it's impossible to tell you what you'r doing wrong. The description you've given is too vague to be of any use in troubleshooting your problem.
How are you trying to transfer this file? How is this connection being made? What does the client code for this look like? The server code?
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Im intrested for some large FAQ or Help file about Winsocket?
Some link ....i try with google but nothing usefull not found so if sombody has sam good tutorial ....To send or link to download....
Tnx and sory about missundrstend.
|
|
|
|
|