|
Thanks man , i got a Solution, the sql parameter variable in the adapter was not the same as the on i passed in the Parameter function. but now its working
Thanks
Vuyiswa Maseko
|
|
|
|
|
Hello,
i have a program which i need to control it's GUI, so i will be able to take over the form of the program and can write code which will get me the abillity to press buttons.
Any ideas?
Thank you
|
|
|
|
|
You can just invoke the button's OnClick event handlers. Not sure what your users would think of your app if all the sudden it took over itself
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
I think you not understand me ,
for example :
I wants to send command in my program
to click a button in another program (as word ).
thanks
i
|
|
|
|
|
KobiMora wrote: I think you not understand me
No, how about you be a bit more clear. Look back at your original post and you don't make it sound like you want to control another program outside your app
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
|
|
|
|
|
It's possible, but notoriously unreliable. It's not easy to do and not for the begginer to tackle.
This involves finding the correct window (all controls are relly windows), getting it's window handle, and sending the proper window messages to it. If you don't understand how Windows windowing system works and the API calls to manipulate it, you're going to find this project just about impossible to do.
|
|
|
|
|
Hi dudes,
In VB6 we could add a child node to a treeview control by specifying a key for an existing node, then a relationship then the new node to be added to the tree. How can i do something like that in vb.net, given that from the add method of the .net treeview there isn't even one thats requiring the parent key and relationship?
Thanks spans in advance
|
|
|
|
|
dim tnode as new treenode("text") ' is the main node
treeview.nodes.add(tnode)
dim tsubnode as new treenode("text") ' is the subnode
tnode.nodes.add(tsubnode)
this should give you 1 main node with 1 subnode
hope this helps
|
|
|
|
|
Thanks TDDragon for your reply,
The thing is I do not know the depth of the tree before-hand and I am adding the child nodes recursively, its a something like an explorer program. So i would need to add whatever child node to any parent whose key i know
|
|
|
|
|
if you go tru it parent node by parent node you can do it like folowing:
dim tnode as treenode()
dim subnode as treenode()
if "check the node you need to add" = "parent node" then
tnode = new treenode("text")
treeview.nodes.add(tnode)
else
subnode = new treenode("text")
tnode.nodes.add(subnode)
end if
remember this will only work if you make you'r treeview parentnode by parentnode
if not (you need to add a node to parentnode1 while you already created parentnode3) then maybe this might be some help
'first create alle parent nodes and give the tag property a key value
'then iterate true you're parent nodes and where node.tag = key add a subnode
for each t as treenode in treeview.nodes
if t.tag = key then
dim subnode as new treenode("text")
t.nodes.add(subnode)
end if
loop
this way will take more time so if possible I would recomend the first way
hope this helps
|
|
|
|
|
Thanks man, used the 2nd one coz i ended up having to 'lazy-load' the tree. thanks spans
|
|
|
|
|
Dear All,
We are developing a financial application in Visual Basic 6.0 with SQL Server 2000 at the back end database and Crystal Reports as reporting tool,I am facing some problems with Visual Basic 6.0,my questions are as follows:
1) We are using MSHFlexGrid to display data , my question is that can we make the cells of MSHFlexGrid editable, I mean that user can enter or edit the data displayed in the datagrid,is this possible in Visual Basic 6.0,are there any controls for it and if this is not possible than how can we achieve this?
2) Can I insert controls in the datagrid(MSHFlexGrid), like if I want to display check boxes in the first of grid that when that when the user check the check box the entire row is selected,if it is not possible than how can we achieve this.
3) Is it possible to make the columns "Sortable", I mean if I click at the top of the column than the entire column is sorted, if this is not possible in Visual Basic 6.0 than how can we add this feature.
I would be waiting for your replies and suggestions so please reply as soon as possible.
Regards,
Taqi Raza.
|
|
|
|
|
hi,
1. yes, you can edit the data from your flex grid.
2. im not sure for flex grid but in MSHFlexGrid it is possible to put a check box in a row.
3. also im not sure in flex grid if it is possible but in MSHFlexGrid1 it is possible to do that.
Don't block the drive way of all the newbies in programming.
|
|
|
|
|
Thanks, can you please tell how to achieve 1 and 2 and if possible than also please tell that how can we achieve number 3,1 and 2 are on our priority,which properties we can use???
|
|
|
|
|
Hi
I am trying to implement complex databinding concept to a datagrid some how managed to insert one table records in datagrid and struggling to bind other tables which been created in sql2005.
(using tableadapters,dataset)it will be greatly appreciated if you guys can share your knowledge and experiences.
many thanks
firasat
vb.net expertise
|
|
|
|
|
Here is the problem: I have to write vb application that will be used in local area network, so anyone who knows some kind of book or tutorial about programming vb application for network users
Thanks to anyone how will has time to answer me
Thanks again
|
|
|
|
|
You can just use network paths the same as any file paths. What are you hoping to achieve over your LAN ?
Christian Graus - Microsoft MVP - C++
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
Hello
I stored in the database the link of an appropriate photo as a string
How i can pass this string to the pictureBox to display the photo
Thanks in advance
Assaf
|
|
|
|
|
Did you read MSDN ? Picturebox does not take a path, it takes an image. So, you need to create one, as in
picturebox.Image = new Image(path)
Christian Graus - Microsoft MVP - C++
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
Hello
Thanks Christian i check the MSDN but i didn't find the one say it
instead i found a solution:
"Me.PictureBox1.Image = Image.FromFile(drt)
Where drt is the link from the database"
But can clarify your point.
Please
Thanks in advance
Assaf
|
|
|
|
|
If the "link" is a path in the local file system, you can put it in the ImageLocation property of the PictureBox .
If the "link" is an URL, you have to request the image from the server, load it into a Bitmap object and assign it to the Image property of the PictureBox .
---
single minded; short sighted; long gone;
|
|
|
|
|
How can i eject my CDROM ? (Using VB.NET)
|
|
|
|
|
i think this sample code can be useful :
<br />
<br />
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Int32) As Int32<br />
<br />
Private Sub Btb_open_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_open.Click<br />
Dim lRet As Int32<br />
Dim returnstring As String<br />
lRet = mciSendString("set CDAudio door open", returnstring, 127, 0)<br />
End Sub<br />
<br />
Private Sub Btn_close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_close.Click<br />
Dim lRet As Long<br />
Dim returnstring As String<br />
lRet = mciSendString("set CDAudio door closed", returnstring, 127, 0)<br />
End Sub<br />
|
|
|
|
|
Hi,
I had checked this method before, but it opens just the first CD/DVD Drive.
I am interested to know if any code exists to open other drives too?!
(To do this, I used to send a click on Eject verb in drive's context menu! which is quite absurd! but life-saving)
|
|
|
|
|
Hi all,
i have been thinking on this problem for a while now - How do i process data from a serial device?
i have a serial connetion to a fire alarm system that sends ascii characters to the computer, i have esablished comms to the device, and have a method that is fired on every byte of data received.
Problem is the device sends the data in three byte wide blocks, so for example status,channel and then the checksum which is (status+channel). i have tried various method of circular buffers and pop-queues to try and process this but with no success!
for example the device would send ....14 then 1 then 15.
14 01 15 - this would represent fire on sensor 1
i am trying to write a method that every time a byte is received it stores it to a buffer and then processes it to try and put them in seperate variables.
example...
abnormality = buffer(x)
channel= buffer(x+1)
checksum = buffer(x+2)
Here is some rough example code but its not working correctly, does anyone have any ideas?
Thanks
<br />
<br />
Dim queue(6) As Integer<br />
Dim startPos As Integer = 2<br />
<br />
<br />
Private Sub ProcessData(ByVal data As Integer)<br />
Dim test As Boolean = False<br />
Dim checksum As Integer, channel As Integer, abnormality As Integer<br />
Dim alphaBuffer As Integer, betaBuffer As Integer, gammaBuffer As Integer<br />
Dim mytxt As String<br />
<br />
'step1 fill queue at index 2 - starting point<br />
<br />
queue(startPos + index) = data<br />
<br />
index = index + 1<br />
<br />
If index = 3 Then<br />
<br />
'step2 test bytes <br />
alphaBuffer = queue(2)<br />
betaBuffer = queue(3)<br />
gammaBuffer = queue(4)<br />
<br />
If gammaBuffer = CalculateChecksum(alphaBuffer + betaBuffer) Then<br />
<br />
abnormality = alphaBuffer<br />
channel = betaBuffer<br />
checksum = gammaBuffer<br />
<br />
<br />
Me.Label2.Text = abnormality & " " & channel & " " & checksum<br />
mytxt = Me.Label2.Text & " " & Me.ListBox1.Items.Count<br />
Me.ListBox1.Items.Add(mytxt)<br />
'LeftShift(queue)<br />
<br />
<br />
Else<br />
<br />
LeftShift(queue)<br />
startPos = 1<br />
<br />
End If<br />
<br />
<br />
End If<br />
<br />
If index = 4 Then<br />
<br />
'step2 test bytes <br />
alphaBuffer = queue(2)<br />
betaBuffer = queue(3)<br />
gammaBuffer = queue(4)<br />
<br />
If gammaBuffer = CalculateChecksum(alphaBuffer + betaBuffer) Then<br />
<br />
abnormality = alphaBuffer<br />
channel = betaBuffer<br />
checksum = gammaBuffer<br />
<br />
<br />
Me.Label2.Text = abnormality & " " & channel & " " & checksum<br />
mytxt = Me.Label2.Text & " " & Me.ListBox1.Items.Count<br />
Me.ListBox1.Items.Add(mytxt)<br />
'LeftShift(queue)<br />
<br />
<br />
Else<br />
<br />
LeftShift(queue)<br />
startPos = 0<br />
<br />
End If<br />
<br />
End If<br />
<br />
If index = 5 Then<br />
<br />
'step2 test bytes <br />
alphaBuffer = queue(2)<br />
betaBuffer = queue(3)<br />
gammaBuffer = queue(4)<br />
<br />
If gammaBuffer = CalculateChecksum(alphaBuffer + betaBuffer) Then<br />
<br />
abnormality = alphaBuffer<br />
channel = betaBuffer<br />
checksum = gammaBuffer<br />
<br />
Me.Label2.Text = abnormality & " " & channel & " " & checksum<br />
mytxt = Me.Label2.Text & " " & Me.ListBox1.Items.Count<br />
Me.ListBox1.Items.Add(mytxt)<br />
'LeftShift(queue)<br />
<br />
Else<br />
<br />
LeftShift(queue)<br />
startPos = 0<br />
index = index - 1<br />
<br />
End If<br />
<br />
<br />
End If<br />
<br />
<br />
If index = 6 Then<br />
<br />
'step2 test bytes <br />
alphaBuffer = queue(2)<br />
betaBuffer = queue(3)<br />
gammaBuffer = queue(4)<br />
<br />
If gammaBuffer = CalculateChecksum(alphaBuffer + betaBuffer) Then<br />
<br />
abnormality = alphaBuffer<br />
channel = betaBuffer<br />
checksum = gammaBuffer<br />
<br />
<br />
Me.Label2.Text = abnormality & " " & channel & " " & checksum<br />
mytxt = (Me.Label2.Text & " " & Me.ListBox1.Items.Count)<br />
Me.ListBox1.Items.Add(mytxt)<br />
LeftShift(queue)<br />
<br />
Else<br />
<br />
LeftShift(queue)<br />
startPos = 0<br />
index = index - 1<br />
<br />
End If<br />
<br />
<br />
End If<br />
<br />
<br />
<br />
If index = 7 Then<br />
<br />
index = 0<br />
<br />
End If<br />
<br />
<br />
<br />
<br />
End Sub
|
|
|
|