|
|
Hi, i need to save to a text file with a variable name. This is what i have at them moment. It saves to mood.txt in the same directory as the project.
FileNum4 = FreeFile<br />
' Create mood.txt<br />
Open appPath & "mood.txt" For Append As #FileNum4<br />
' Write the contents of TextBox1 to mood.txt<br />
Print #FileNum4, mood; " , "; lblTime; " , "; songTitle<br />
' Close the file<br />
Close FileNum4
What i want tho, is for the filename to be "songTitle" mood.txt where songTitle is a varible As String. Ive tried this:
Open appPath & songTitle & " mood.txt" For Append As #FileNum4
But i get a bad file name error when i try to save to the file. Im sure there must be a way to do this, i just cant figure it out. How is it done?
Thanks
Gizza
-- modified at 2:14 Monday 29th August, 2005
|
|
|
|
|
If you're going to have spaces in your filename, the entire file path must be enclosed in quotes: "C:\Documents and Settings\...."
Dim filePath As String
filePath = """" & appPath & songTitle & " mood.txt""" For Append As #FileNum4
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I get a syntax error try to put " around the filename.
I aslo need help on another matter. My text files look like this.
upbeat, 2507
upbeat, 5503
slow, 8521
upbeat, 11517
upbeat, 14512
upbeat, 17507
calm, 20526
I need to read this in. But i want to put whats before the comma in one array, and whats after the comma in another array.
Thanks for the help
|
|
|
|
|
Hi there,
May I ask a question?
I wanna write a program about Call Logs.
However, when researching the information about Call Logs in MSDN, I cannot find anything about that.
Would you please supply me any simple sample about Call Logs?
Thank you very much.
|
|
|
|
|
Perhaps MSDN, like me, has no idea what you mean by call logs ?
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
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
|
|
|
|
|