|
Hi, i create a menu from a database using datareader
then i 'm adding a handler for click event.
now iwant inside the handler procedure to get the text of the menuitem who called the handler and that's exactly my problem.
this is my code
Public Sub devsubmenu()
Dim cmddev As New OleDbCommand("Select modelname from devicetbl",OleDbConnection1)
OleDbConnection1.Open()
Dim dtread As OleDbDataReader = cmddev.ExecuteReader()
devmnu.MenuItems.Clear()
Do While dtread.Read
Dim ChildMenu As New MenuItem
ChildMenu.Text = dtread.Item("modelname").ToString()
AddHandler ChildMenu.Click, AddressOf model_click
devmnu.MenuItems.Add(ChildMenu)
Loop
OleDbConnection1.Close()
End Sub
End Sub
Private Sub model_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
' HERE I WANT TO TAKE THE MENUITEM (SENDER) TEXT AND PUT IT IN A TEXT BOX
End Sub
any ideas ?
|
|
|
|
|
I've got a very weird problem, when I run the following code the
ComboBox (Me.cmbInputDevice) is always empty. The ComboBox is on a
UserControl in a Class Library. I'm using VS.NET 2003 with SourceSafe
6.0d (the problem occurs whether the code is checked in or out)
If I step through the code, The line
Me.cmbInputDevice.DataSource = dv
Executes fine (ie, doesn't error), but on the next line (after an
F8/F11) Me.cmbInputDevice.DataSource is still equal to Nothing.
dv is definately not Nothing, and is definately not empty (I can view
it's contents in the Command Window)
*if* I delete the combo box from the control, and add a new one, give it
the same name, etc, it works for a while, but then goes back to
not-working after an unknown period. This isn't any kind of practical
solution.
Sql.GetDeviceTable() returns a valid & populated DataTable
[VB.NET] (Native Language)
Dim dt As DataTable = Sql.GetDeviceTable()
Dim dr As DataRow = dt.NewRow()
dr("ID") = DBNull.Value
dr("Description") = "<none>"
dt.Rows.Add(dr)
Dim dv As DataView = dt.DefaultView
dv.Sort = "Description"
dv.ApplyDefaultSort = True
Me.cmbInputDevice.DataSource = dv
Me.cmbInputDevice.DisplayMember = "Description"
Me.cmbInputDevice.ValueMember = "ID"
[C#] (Translation)
DataTable dt = Sql.GetDeviceTable();
DataRow dr = dt.NewRow();
dr("ID") = DBNull.Value;
dr("Description") = "<none>";
dt.Rows.Add(dr);
DataView dv = dt.DefaultView;
dv.Sort = "Description";
dv.ApplyDefaultSort = True;
this.cmbInputDevice.DataSource = dv;
this.cmbInputDevice.DisplayMember = "Description";
this.cmbInputDevice.ValueMember = "ID";
Hiren
-- modified at 14:04 Tuesday 9th May, 2006
|
|
|
|
|
Just make shorting property false.
this.cmbInputDevice.Sorted=False
IT works.....
etettr
|
|
|
|
|
Dear friends,
I have one VB form with two picture boxes on it. I have a picture in of the picture box and the other is empty. How can I cut the part of the picture inside the first picture box and paste that in the the second picture box. How can I pass the dimension from where to where I need to cut the picture. Please help me out in this matter. I really need to cut picture in lots of pieces and put them in seperate picture boxes for some special purpose.
Your quick response will be highly appreciated.
Thanks and Regards
Murtuza Patel
|
|
|
|
|
The easiest way is to not use the picture box control. If you handle your apps 'paint' event and draw the bitmap yourself, you can draw the parts where-ever you like, without having to actually chop up your source bitmap into lots of bitmaps.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Hi,
I've been banging my head on the keyboard for a few days now searching for a solution to my problem. Iv'e searched Google for a solution but I can't seem to find any.
The node information is stored in a MySQL database using the nodes.fullpath command or like this:
lvl1\lvl2\lvl3
Now, I've seen and tried to use the treeview.nodes.add(1).nodes.add(2).nodes.add(3) with a split command but because I don't know how many levels there are before hand this makes a giant select case that makes me cry each time I see it.
I want the routine to check if the level exists then add it if it doesn't and/or move to the next level. (Geez it sounds so simple writen like that...)
Here is the routine I'm using
Dim SQL As String = "Select * from troubleshooting order by node_path asc"<br />
Dim StrNodePath As String<br />
Dim nNode As TreeNode<br />
Dim BolNew As Boolean = True<br />
Dim X As Integer<br />
Dim StrNode As String<br />
<br />
<br />
RSProbleme = ReturnForm.StrConn.Execute(SQL)<br />
<br />
Do Until RSProbleme.EOF = True<br />
<br />
StrNodePath = RSProbleme("node_path").Value<br />
aNodePath = Split(StrNodePath, "\")<br />
<br />
For X = 0 To UBound(aNodePath)<br />
BolNew = True<br />
For Each nNode In TrVProbleme.Nodes<br />
<br />
If nNode.Text = aNodePath(X) Then<br />
BolNew = False<br />
End If<br />
<br />
Next<br />
If BolNew = True Then<br />
nNode.Nodes.Add(aNodePath(X)) <-- This is the line that gives me trouble<br />
End If<br />
Next<br />
<br />
RSProbleme.MoveNext()<br />
Loop
When adding it gives me the error, "Object reference not set to an instance of an object." and using the variable watch in VS it says that nNode = Nothing.
Any help will be greatly appreciated. (My head hurts from all that banging...)
Thanks
For every action there is an equal and opposite malfunction
|
|
|
|
|
I am guessing that you created a treeview called TrVProbleme in your application. If you have not added any nodes to the treeview - then nNode will be nothing. You might want to try changeing the statement nNode.Nodes.Add(aNodePath(X)) to TrVProbleme.Nodes.Add(aNodePath(X))
Hope this helps
Digicd1
|
|
|
|
|
Indeed you are correct; while I did not change the line as you suggested I've added a If... End If checking if this was a root node or not then added your line.
(Can't believe it was so simple  grr...)
Thanks a bunch!
Raist
For every action there is an equal and opposite malfunction
-- modified at 12:12 Wednesday 10th May, 2006
|
|
|
|
|
hi!
have u finish adding nodes to a treeview control?
can u help me!
can u give me ur code and the code in SQL!
i need it badly!
i hope u can help me!
thanks a lot!
coder
|
|
|
|
|
What kind of code are you interested in and what is the purpose?(what is it supposed to do?)
Raist
For every action there is an equal and opposite malfunction
|
|
|
|
|
good morning! a code that will retrieve the data from database or using query!
i will use the treeview for making a organizational chart!
one main ParentNode(Division),childnode(Department) and subchildnode(Section)
Thanks for ur kindheart!
"Giving something does not reduce what you have but gain more!"
coder
|
|
|
|
|
Good morning!The code that i will use is all that name in the node that wiil display is came from the database,
or using query!
i will use it in making organizational chart!
the content is i have a parentnode(Division), Chilnode(Department) and SubChildnode(Section).
thanks!
" Giving something to anyone is not reducing what u have instead you gain more!"
coder
|
|
|
|
|
Hi!
The following code selects a row from a table. If the row exists then it is updated otherwise a new row is added to the table.
How can I write this code using ADO.NET 2.0?
Dim rsRequest As New ADODB.Recordset<br />
rsRequest.Open "Select Form_No, User_ID, Status, Request_Date from tbl_ReExport_Info Where Form_No = '" & txtFormNo.Text & "' And User_ID = '" & txtUserID.Text & "'", cnnADO, adOpenDynamic, adLockOptimistic<br />
With rsRequest<br />
If .EOF = True Then .AddNew<br />
!Form_No = txtFormNo.Text<br />
!User_ID = txtUserID.Text<br />
!Status = 0<br />
!Request_Date = Now<br />
.Update<br />
End With<br />
Thank You
Gulfraz Khan
|
|
|
|
|
Can anyone tell me a way, or give me a class, that will allow me to handle Complex numbers, i.e. square roots of negative numbers. If it's important, I am using the Visual Basic 2005 Express Edition. Also, if relevant, I am trying to program the general solution to a cubic polynomial. I only started learning VB four days ago and have, as such, limited experience, so any help is hugely appreciated.
|
|
|
|
|
Hopefully this article here can give you a head start (It is in C# though)
http://msdn2.microsoft.com/en-us/library/6fbs5e2h.aspx
|
|
|
|
|
Thanks for the link, really appreciate the help. Only problem is that, as I started programming last Saturday, I don't really have the know how to translate what's there to VB. If anyone has any VB links, particularly ones that are designed to explain how to program a class or function in the first place, I would be eternally grateful.
|
|
|
|
|
I run my vb.net windows application that has crystal report in a pc it runs perfectly well and i am able to see the reports , but when i take setup of the application and run in same pc i get error "load report failed".
I have added the following to setup project
atl.msm
Crystal_Database_Access2003.msm
Crystal_Database_Access2003_enu.msm
Crystal_Managed2003.msm
Crystal_regwiz2003.msm
CrystalReports10_NET_EmbeddedReporting.msm
VC_User_ATL71_RTL_X86_---.msm
VC_User_CRT71_RTL_X86_---.msm
VC_User_STL71_RTL_X86_---.msm
apphelp.dll
msado25.tlb
I have added the following references
CrystalDecisions.CrystalReports.Engine
CrystalDecisions.ReportAppServer.ClientDoc
CrystalDecisions.ReportSource
CrystalDecisions.Shared
i am also adding
the reports ,
source files from "Project Name" and
primary output from "Project Name"
I don't understand what could be the problem as i am using the same pc.
If any of you know the solution do tell me.
Thanks in advance,
sarah
-- modified at 11:06 Tuesday 9th May, 2006
|
|
|
|
|
Don't really know that much about Crystal, but I've seen this problem a lot. Usually affects older operating systems (Win 98/ME/NT) in my experience, and is down to a missing DBGHELP.DLL file.
Visit:
http://www.microsoft.com/downloads/details.aspx?displaylang=en&FamilyID=CD1FC4B2-0885-47F4-AF45-7FD5E14DB6C0
to see if this helps.
|
|
|
|
|
hi,
can anybody help me how to export crystal report from vb in pdf format.
plz help me.
|
|
|
|
|
are you using WindowsApp or WebApp??
|
|
|
|
|
i am using windowsapp
means their are 3-4 formats in which i am able to send the report but in pdf it's not.
|
|
|
|
|
I am having problems with pseudocode and flow chart. Also very confusing is the DSD DIAGRAMS.with UML diagrams i also need som help
Eleazer Okoto
|
|
|
|
|
|
hi all,
actually i dont know much about VB.Net and i use some converstion techniques to convert C# codes into VB ...
i have the lines below :
...
Dim PD As PrintDocument = New PrintDocument
PD.PrintPage += New PrintPageEventHandler(PrintDocument1_PrintPage)
Dim pdiyalog As PrintDialog = New PrintDialog
...
i get these two errors because of the lines above :
Error 1 'Public Event PrintPage(sender As Object, e As System.Drawing.Printing.PrintPageEventArgs)' is an event, and cannot be called directly. Use a 'RaiseEvent' statement to raise an event.
Error 2 'System.Drawing.Printing.PrintPageEventHandler' is a delegate type and requires a single 'addressof' expression as the only argument to the constructor.
how can i modify the VB.NET codes above so as not to get errors above ?
help please ...
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
