|
this is from ms's site for retrieving the device handle:
phwi
Pointer to a buffer that receives a handle identifying the open waveform-audio input device. Use this handle to identify the device when calling other waveform-audio input functions. This parameter can be NULL if WAVE_FORMAT_QUERY is specified for fdwOpen.
How do you create a buffer for a pointer?? inptr
I dont want the parameter to be null since i will be using this handle in the future to actually play a sound god forbid. So, I will not use the flag mentioned above
I got it....NOPE
|
|
|
|
|
Dim hDevice As new IntPtr.zero
sorry, still looking for my old vb.net mixer stuff.
|
|
|
|
|
ebred,
Sorry I havn't located what I was working on, I'll go back thru some back-up's I made tomarrow, I do remember it having something to do with allocating memory for the buffer. I'll send you an email when I locate my notes or source.
If anyone else can help, please do.
|
|
|
|
|
Phew.
I got it to work. I submitted a question on a ms run community. I was calcualting average bytes with variables that had not yet been calculated in the waveformat structure i posted earlier.
I have converted to WAVEFORMATEX as well.
Here the code that will return a handle to the device:
<br />
'opens input for recording<br />
<DllImport("winmm.dll", EntryPoint:="waveInOpen", _<br />
CallingConvention:=CallingConvention.StdCall)> _<br />
Public Shared Function waveInOpen(<Out()> ByRef lphWaveIn As IntPtr, ByVal uDeviceID As Integer, _<br />
ByRef lpFormat As WAVEFORMATEX, ByVal dwCallback As Integer, ByVal dwInstance As Integer, _<br />
ByVal dwFlags As Integer) As Integer<br />
<br />
End Function<br />
<br />
'used to describe format of wave data<br />
<br />
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _<br />
Structure WAVEFORMATEX<br />
Public wFormat As Short<br />
Public nChannels As Short<br />
Public nSamplesPerSec As Integer<br />
Public nAvgBytesPerSec As Integer<br />
Public nBlockAlign As Short<br />
Public wBitsPerSample As Short<br />
Public cbSize As Short<br />
<br />
End Structure<br />
<br />
Private Const WAVE_FORMAT_QUERY As Long = &H1<br />
Private Const WAVE_MAPPER As Integer = -1&<br />
Private Const WAVE_FORMAT_DIRECT As Integer = &H8<br />
Private Const CALLBACK_NULL As Integer = &H0<br />
Private Const WAVE_FORMAT_PCM As Integer = 1<br />
Private structWaveInputVars As WAVEFORMATEX<br />
<br />
<br />
#End Region<br />
Heres the calling code:
<br />
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
Dim l As Long<br />
With structWaveInputVars<br />
.wFormat = WAVE_FORMAT_PCM<br />
.nChannels = 2<br />
.nSamplesPerSec = 11025<br />
.nAvgBytesPerSec = 176400 'no longer calculated<br />
.nBlockAlign = 4<br />
.wBitsPerSample = 8<br />
.cbSize = 0<br />
End With<br />
<br />
hDevice = Marshal.AllocHGlobal(4)<br />
<br />
<br />
<br />
l = waveInOpen(hDevice, 0, structWaveInputVars, 0, 0, CALLBACK_NULL)<br />
<br />
End Sub<br />
Thanks a lot for your help anon
|
|
|
|
|
Hey, your welcome, I see you got it...
P.S. don't forget:
Marshal.FreeHGlobal(hDevice)
when your done with it.
|
|
|
|
|
Hello,
I am trying to bind a specific column to a specific control. The problem is that when the combo box control appears blank when I try to bind a column to this control, but if I bind the column to a text box, then it displays the correct value of that column.
pbndtemp = New Binding("Text", ds, "schedule_detail.Expr1")
Me.cboTrainingProgress.DataBindings.Add(pbndtemp)
pbndtemp = New Binding("Text", ds, "schedule_detail.Expr1")
Me.txtProgress.DataBindings.Add(pbndtemp)
Do I need to evaluate or validate the combo box binding? If so, how do I do that?
Thanks,
Jay
Feng Screwed... the art of moving to a new place because the old place is just too messy and not worth the effort to clean.
|
|
|
|
|
Private Sub box_Keypress(KeyAscii As Integer)
'if you enter ALT+0176
'then KeyAscii = 176 normaly, but on some WinXP machines
'KeyAscii = -23583 (because character not in range [0,127]).
'Also note that if you try to convert this value to a character,
'you'll get a range error (of course).
End Sub
Does anyone know why we receive an invalid character code on some WinXP machines and not on others?
Why are only characters in the range [0,127] being properly passed to Keypress?
Signed: John R. Shaw
|
|
|
|
|
|
Note: UNICODE uses same extended character codes as windows extended codes.
The problem only happens in VB code.
I think the problem only occurs on WinXP, if more than one language is installed.
On Win2000; if you select Chinese (Taiwan):
ALT+0176 translated to 162 = '¢'.
ALT+0177 translated to 161 = 'í'.
ALT+0178 translated to 50 = '2'.
|
|
|
|
|
Well if u say that MSN messenger is a service then how was it made when .NET was not introduced.How did the developers made it a service without .NET platform.
|
|
|
|
|
Services pre-date .Net by years. Look at the article here: http://www.vbrad.com/pf.asp?p=source/tip_service_vb.htm
It should have the answers your looking for.
Joe.
|
|
|
|
|
Ever here of Visual C++? It can generate ANY type of application for Windows. Including Windows itself! Think about it -- How long has Windows been around? Services, as we know them today, have been around since Windows NT 3.1, LONG before the .NET Framework came around...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I am trying to delete a whole table using vb.net oledbadapter, not individual records within the table. Does anyone have an example snipet of code to give me a clue. I can access the table and all the records, I just can't seem to pull off deleting the table.
Thanks.
|
|
|
|
|
This is one of my favourite SQL commands.
TRUNCATE TABLE <table-name>
All your data disappears, but the table with all indexes and integrity constraints, is still there waiting for some inserts. Be aware however that the command requires administrative type priveleges and is not transactional. ie. you can't rollback if you want the data back. Use with caution.
Chris Meech
I am Canadian. [heard in a local bar]
Gently arching his fishing rod back he moves the tip forward in a gentle arch releasing the line.... kersplunk [Doug Goulden]
Nice sig! [Tim Deveaux on Matt Newman's sig with a quote from me]
|
|
|
|
|
Dim DS As New DataSet
Dim query as string = "SELECT * from DAP"
Dim OLEConn = New OleDb.OleDbConnection("connection string goes here")
Dim adapter As New OleDb.OleDbDataAdapter
adapter.SelectCommand = New OleDb.OleDbCommand(query, OLEConn)
adapter.Fill(DS)
THIS IS THE POINT OF TROUBLE...
???? DS.Tables().Clear() ???? 'not this
???? DS.Tables().Remove() ???? 'not this
I want to delete the table "DAP" and I know the code above is not the correct way to just connect to a database, select a table, then delete the table. Does anyone have a snipet of code that 1. connect to a db. 2. selects a table. 3. deletes the selected table?
Thanks.
|
|
|
|
|
HRusaw wrote:
Dim DS As New DataSet
Dim query as string = "SELECT * from DAP"
Dim OLEConn = New OleDb.OleDbConnection("connection string goes here")
Dim adapter As New OleDb.OleDbDataAdapter
adapter.SelectCommand = New OleDb.OleDbCommand(query, OLEConn)
adapter.Fill(DS)
Dim query as string = "TRUNCATE TABLE DAP"<br />
'or if you need to log the action - but truncate will be faster<br />
'Dim query as String = "DELETE FROM DAP"<br />
Dim OLEConn = New OleDb.OleDbConnection("connection string goes here")<br />
dim cmd as OleDbCommand = New OleDb.OleDbCommand(query, OLEConn) <br />
cmd.ExecuteNonQuery
|
|
|
|
|
Scott and Sumit21,
Thank you for your help. The snippet's you two submitted helped a lot and were exactly what I was looking for.
Thanks Again,
Helen
|
|
|
|
|
in SQL (structured query language) there is a command that deletes the whole table: DROP Table (tablename) - I'm not sure the exact syntax of the VB.NET version of that command, but that should give you a place to start. Also you might check out the MSN group at http://groups.msn.com/VisualBasic/ (go to "Message Board" in the left frame and they have "Databases" and "VB.NET" message boards). You have to get a (free) msn passport in order to join the group, and then get approved by a manager or assistant manager (I am an assistant manager, so once you get the Passport, e-mail me @ rhenerlau@hotmail.com and I will approve you.)
Hope this helps!
Richard Henerlau
|
|
|
|
|
use oledbcommand
//con is oledbconnection
dim com as oledbcommand=new oledbcommand("drop table tablename",con)
con.open
com.executenonquery();
con.close
hope this will work
|
|
|
|
|
Scott and Sumit21,
Thank you for your help. The snippet's you two submitted helped a lot and were exactly what I was looking for.
Thanks Again,
Helen
|
|
|
|
|
Scott and Sumit21,
Thank you for your help. The snippet's you two submitted helped a lot and were exactly what I was looking for.
Thanks Again,
Helen
|
|
|
|
|
Hi,
I'm inheriting a base form we have written that mostly handles button arrangements. Every time I disable/enable the derived form it gets moved behind any other windows that are currently open. There is no code in either form that should be causing this behavior. We are not overriding or altering the enabled code in the base form in any way. Has anyone else encountered this problem or know how to fix it?
Thanks,
Joe
|
|
|
|
|
i want to know how to start application just like the msn or yahoo msngr which start whenever the computer starts.
second i want to know where r they placed in the windows xp. if i want to do that through code of vb6 what i have to do.
|
|
|
|
|
They are service applications, which VB6 cannot create. There is a seperate application that communicates with the service app that handles the user interface when someone logs in.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hold on there Gnome boy, you CAN run VB6 apps as services. If you Google "VB6 Services" you'll find tons of examples of this. Such as....... http://www.vbrad.com/pf.asp?p=source/tip_service_vb.htm
Joe
|
|
|
|