|
|
Hi everyone, I'm focusing on a real tough problem that I hav been trying
to solve since a long time. I'm trying to detect the Open or close status
of the Cd drive door. I'm using mcisendstring function to query the
status, mcisendstring("Status CDAudio Mode"). This function returns
the following values accordingly:
"not ready", "paused", "playing", and "stopped" values.
Some devices can return the additional "open", "parked", "recording",
and "seeking" values.
If there is a cd in the drive and the door is closed then it's almost easy to identify as "status CDAudio mode" returns a value anything other
than "open". But the real problem is when the CD door is open the
value returned by the mcisendstring function is "open". Again when the
CD door is closed with no CD inside the function is returning the same
value "open". There's no way I can distinguish the CD tray status
programatically when the value returned is "open". Can anybody help
me? Is there any way other than the mcisendstring function to
query the CD door status? If yes then Plz provide me a code example.
|
|
|
|
|
I imagine that all the system knows for sure is that there's no CD there. I am pretty sure there's an API to open the door, if there's no CD, you could open it, and then know it was open :P
Christian Graus
No longer a Microsoft MVP, but still happy to answer your questions.
|
|
|
|
|
Yeah u r right, through the API I'm using for MCISendstring function, the system can identify whether a cd is present in the drive or not through the command- mcisendstring(Status CDAudio Mediapresent). It returns true or false accordingly. But to be precise, the problem lies during the absence of any cd. At that time the command- mcisendstring(Status CDAudio Mode) is returning the same value- OPEN regardless the open or close state of the tray door. Can U plz focus more on it? Thanx.
|
|
|
|
|
hi all,
im using winsock array in vb6, i converted to vb.net 2005 platform...they created a axwinsockarray .dll.. my question is : it is useful using winsock in vb.net 2005 ?
until now the conversion is good .. but i don't know if it will be an error in futur by using winsock inside vb.net 2005 ....
can anyone help me thanks in advance.
|
|
|
|
|
I believe winsock went the way of the dinosaurs in .Net. It was replaced by System.Net.Sockets Namespace[^], and on a high-level by TcpClient [^] and TcpListener[^].
So, I suggest migrating to one of those to make it easier and avoid any unnecessary problems.
|
|
|
|
|
If you are using the winsock (VB.NET 2005) for desktop application then no issue. You will get the same functionality with InterOp Winsock component i.e. AxWinsockArray.dll.
Otherwise instead of InterOp Winsock you can use the socket programming, which is a great alternative of winsock.
|
|
|
|
|
I am trying to get a variable to pass to another procedure.
I have set my procedure as follows
Sub Procedure(X)
' programming code
End Sub
Normally I would use the following to send data
Procedure1 Count6
however in this case I am running the called procedure using this code
With ActiveWorkbook.Sheets(SetMonth).Buttons.Add(600, 20, 100, 25)
.OnAction = "Procedure1"
.Caption = "Bills Not Paid July"
.Name = "JULY"
End With
how do I adapt the ".OnAction = "Procedure1" section to pass the variable"
Can anyone help me
|
|
|
|
|
Hi
The issue with specifying the parameter when you create the button is that the value for the parameter will be fixed.
For instance:
Public Sub CreateButton()
With ActiveWorkbook.Sheets("sheet1").Buttons.Add(600, 20, 100, 25)
.OnAction = "'Procedure1 ""Hello"", " & nCount & "'"
.Caption = "Bills Not Paid July"
.Name = "JULY"
End With
End Sub
Public Sub Procedure1(ByVal s As String, ByVal x As Integer)
MsgBox s & " " & x
End Sub
In the code above, even though the parameter is specified as a variable, the value when you _define_ the OnAction is what will be passed in.
To get around this, you could try this:
Public Sub CreateButton()
With ActiveWorkbook.Sheets("sheet1").Buttons.Add(600, 20, 100, 25)
.OnAction = "July_Click"
.Caption = "Bills Not Paid July"
.Name = "JULY"
End With
End Sub
Public Sub July_Click()
Call ActiveWorkbook.Application.Run("Procedure1", "test", nCount)
End Sub
Public Sub Procedure1(ByVal s As String, ByVal x As Integer)
MsgBox s & " " & x
End Sub
HTH
|
|
|
|
|
Hai,
After selecting one row in a datagrid(vb.net2003) if i press enter then the focus has to go into another control like i have textbox in the form..
How to get that focus,In which event i have to write the focus.
In .net2005 i will get that easily,but in vb.net2003 how it is possible.Pls help me..
hanuman
|
|
|
|
|
Hi Hanuman,
Please try KeyPress or KeyDown event of DataGrid.
Hope this helps  .
Regards,
John Adams
ComponentOne LLC
|
|
|
|
|
Hi,
I have worked on .NET 2003.(VB.NET & C#.NET).
Now,my new project is support for the application written in VB6.
Please clear my confusion,is there any problem I will face while I do work on that?
What I need to learn?
Thanks in advance.
G Singh
|
|
|
|
|
Visual Basic 6 is a different language from any version of VB.Net. However, the transition should not be hard at all. Just Google for differences between VB6 and VB.Net and you'll find lots of sites, such as this[^] one.
|
|
|
|
|
Quit, oh sorry I thought you were STARTING a new project in VB6. The company really needs to look into a rewrite of the application. Support resources for a language that has not been supported for 6+ years are obviously getting thin on the ground, also training resources will be fast dissapearing other than the net.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
|
Am sorry to hear that your Company still wants you to Support vb6, but realy its true(They have to rewrite the Application to .NET), vb.net and Vb6 are different Animals. But it shouldnt be a hard thing, when you get stuck you can just Google.
Vuyiswa Maseko,
Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding
VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za
|
|
|
|
|
Hi,
How to set Control Panel's Language settings (Regional and Language Options)from VB Application. When I change the Language Option to Swedish Language, I want to Show those date Formats in all the Forms of the Application.
I am using the VB 6.0.
Through Shell command i am able to access the code but not able to proceed ahead.
Help in this regard is highly appreciated.
Regards
Bhuvanesh
|
|
|
|
|
Hi,
most control panel stuff should be only be manipulated interactively by the user, and not be
modified by a program. What would happen if different programs started to set different values
for the same system properties?
I really don't know how to change system settings programmatically either.
I do know how to tell an app to use specific settings tho:
- you can specify date, time, currency formats explicitly every time you need them (say in ToString)
using one of the method overloads
- you can specify an overall Culture for a thread (see Thread.CurrentCulture)
- AFAIK you can't specify it for the entire app (Application.CurrentCulture works on a thread too).
Hope this helps.
|
|
|
|
|
|
Dear Gurus,
I am trying to write an application to manipulate Publisher 2003 usign VB 2008.
Please find below my calling code in the module,
Module Module1
Declare Function GetCusorPos Lib "user32" Alias "GetCursorPos" (ByVal lppoint As Pnt) As Boolean
End Module
and here the declaration of structure Pnt,
Public Structure Pnt
Dim Ptx As Integer
Dim Pty As Integer
End Structure
The actual lines of calling code
' Stoploop declared as boolean at beginning
Dim Po As Pnt
Po = New Pnt
StopLoop = True
While StopLoop
GetCusorPos(Po)
tbMouseX.Text = Po.Ptx
tbMouseY.Text = Po.Pty
System.Windows.Forms.Application.DoEvents()
End While
actually there are two textboxes which will receive the input.
The error is
Initially, cannot find an entry point in DLL
Later, the values of Ptx and Pty are zero.
Please guide me what i have done wrong and for the past two days i am searching on and on... Thanks in advance.
|
|
|
|
|
Hi,
there are several problems here:
- the method you want is called GetCursorPos, not GetCusorPos;
that is good enough a reason why it can't be found
- GetCursorPos needs a single argument: the pointer to a structure of type POINT
so:
1) your declare statement is wrong; it needs the ByRef keyword
2) your GetCursorPos invocation is wrong; you passed a value (i.e. a copy of the current content of your struct).
Hope this helps.
|
|
|
|
|
Dear Luc Pattyn
Many thanks, the problem is solved.
I initially put getcursorpos, but later i inadvertently made a typo.
The real thing is using Byref instead of Byval.
Also can you kindly answer one more thing, is there any other way to access APIs without messing up with names and byref, byval etc., please guide me. 
|
|
|
|
|
Guys how to read the memory card using vb.net
pls send me the code ..
regards
rajesh
-
|
|
|
|
|
You'll need to be more descriptive. Every memory card I've ever wanted to read has been accessible through a drive letter.
|
|
|
|
|
sir,i want the code for that,can you have please share with me
code should be in Vb.net
regards
rajesh
-
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
