|
I have created database driven menu in which against each menu item some function name is stored. I want to call function each menu item in vb.net as this function is defined in VB.net.
Thanx
Gurudatta B. Shelke
|
|
|
|
|
Guru_yogi wrote: I have created database driven menu in which against each menu item some function name is stored. I want to call function each menu item in vb.net as this function is defined in VB.net.
You might want to have a look in the Reflection namespace. Specifically the MethodInfo class.
|
|
|
|
|
You can create a database table storing something like:
menuname functionname
open openfunction
new newfunction
We can easily retrieved the function name from the database for the menu clicked.
After the function name is received by us, we have to use Reflection.
I am giving a code sample like this:
Sopposing I have a class where the functions are available
<b>Public Class Class1
Public Sub openfunction()
MsgBox("This is open function")
End Sub
End Class</b>
Then I have a button on the form, I want to call the function using reflection.
You have to import System.Reflection namespace
the code goes like this:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim t As Type = GetType(Class1)
Dim o As Object = Activator.CreateInstance(t)
Dim mi As MethodInfo = t.GetMethod("openfunction")
' U can write the variable which store the methor name in place of openfunction
mi.Invoke(o, Nothing)
End Sub
The code will slightly change when we will be using any reference assembly or resolving the assemblies at runtime.
Hope the solution is OK for you.
|
|
|
|
|
First create a function
like fun1()
use this funtion
[private\public\sub] fun1
............
....... .....
end sub
|
|
|
|
|
Did you even bother to read the original post?
|
|
|
|
|
I am using BackGroundWorker to Fill my DataSets And Create DataTables and it works fine. A little marque ProgressBar shows while it's processing for around 30 or 40 seconds and then the form pops up all nicely populated.
My problem is this. I would like to go one step furthor and populate my ComboBoxs. I have about 7 or 8 ComboBoxs on my form and a couple hold quite a bit of data. (One requires over 4,000 names from a SQL database and another holds some 11,000 license plate numbers). When I try to "Add.Item" to my ComboBoxs in my thread I get a CrossThreading error. I do realize why this error occurs and I'm OK with that. The problem I'm having is coding the work-around. In this case using the InvokeRequired. Here is a brief example of what I have that is working...
Imports System.ComponentModel
Imports System.Threading
Private Handler_DoWork As DoWorkEventHandler
Private Handler_Completed As RunWorkerCompletedEventHandler
Private Sub Parking_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AddHandler BackgroundWorker.DoWork, Handler_DoWork
AddHandler BackgroundWorker.RunWorkerCompleted, Handler_Completed
BackgroundWorker.RunWorkerAsync()
End Sub
Private Sub BackgroundWorker_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles BackgroundWorker.DoWork
Call LoadComboBoxes()
End Sub
Private Sub LoadComboBoxes()
<<<<< Fill DataSets >>>>>>
<<<<<< Fill DataTables >>>>>>
******** I am trying to add the following ********
Dim Counter As Integer
For Counter = 0 To Me.ParkingDataSet.Officers.Rows.Count - 1
cboIssuedByKey.Items.Add(Me.ParkingDataSet.Officers.Rows(Counter)("OfficerID"))
Next
******************************************************
End Sub
I've looked at InvokeRequired and Delegate Sub and I am lost as to how to make these work. Any help on the would really help. Thank you...
|
|
|
|
|
I have this code which added bits to a listbox... maybe you can grab from here?
'Delegate... <br />
Delegate Sub ListBox2AddDelegate(ByVal Str As String)<br />
<br />
'Function to call...<br />
Sub ListBox2Add(ByVal Str As String)<br />
If ListBox2.InvokeRequired Then<br />
Dim d As New ListBox2AddDelegate(AddressOf ListBox2Add)<br />
Me.Invoke(d, Str)<br />
Else<br />
ListBox2.Items.Add(Str)<br />
End If<br />
End Sub
With this, I just call "Listbox2add([String to add])", and the function will decide if it needs to invoke the main thread to add the item. It may be more efficent if you added an array of strings to the combo box in one go, especially if you have thousands of items to put it.
|
|
|
|
|
Hi,
I have an enumeration of 32 items (32 colors), how to randomly select an item from that enumeration, a radnom color.
Thanks!
|
|
|
|
|
Generate a random integer within the range of your enum then Enum.Parse the integer to the enum.
|
|
|
|
|
hi all,
please tell me how i manage my multipages in a single crystal report using vb.net
thanks in adv.
rmshah
Developer
|
|
|
|
|
Your question is so vague, it's unanswerable. What do you mean by "manage"??
|
|
|
|
|
thanks for reply,
i have a folded form (VAT-20) which has four part
(front side, back side and two opp. side in middle)
i want to designe it in crstal reports. my problem is to show all thease in a report at run time.
pl help me.
rmshah
Developer
|
|
|
|
|
Insert a page break into the report at the required position(s) when you design it!
|
|
|
|
|
Hi,
my code
command.CommandText = "SELECT COLUMN_NAME, SEARCH_CONDITION " & _
"FROM(USER_TAB_COLUMNS) " & _
"WHERE TABLE_NAME ='" & tableName & "'" & _
"AND DATA_DEFAULT IS NOT NULL"
reader = command.ExecuteReader()
constraintsList.Load(reader)
constraintsList is datatable
it is not showing the SEARCH_CONDITION column when it is binded with
a datagrid
desc USER_TAB_COLUMNS shows that SEARCH_CONDITION is LONG column(Oracle db)
i searched google also
can i see long column in a datagrid using datatable
please help.
thanks
jomet 
|
|
|
|
|
I am using Oracle ODP.Net drivers
and
command.InitialLONGFetchSize = 1000 solved my problem
|
|
|
|
|
Hello,
I'm doing some experiments which return large arrays of data. I was wondering if there was some way to make a 2 dimensional plot of this data within the Visual Basics form. I am running the visual basics editor from excel.
I appreciate you help,
Orlando
|
|
|
|
|
In a seperate worksheet, this is easily done. If on your form, you'd have to use an external library to do this, such as the MSChart control. I've never done this in Excel, so my experience is going to be quite limited.
|
|
|
|
|
Hello Dave,
Thank for your reply.
I am looking to do it within the form. Do you know of any libraries that would enable plotting.
If not, how do I go about plotting in a separate worksheet.
Thanks so much,
Orlando
|
|
|
|
|
 I just gave you one... MSChart, IF it's. Go to Tools, References, and scroll through the list. You mightbr mode="hold" />If not, you'll have to find a 3rd party COM library (ActiveX control) that does this. I don't know of any myself. Try Googling for "VB6 chart control".
|
|
|
|
|
|
|
Test this code
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
' supposing we have a label and it has the text 00:00:00 when the form loads
' Timer interval we can set as per requirement
' I have set it for 0-9. If you want to test upto 1 minute then change 9 by 99 and 10 by 100
s = Label1.Text.Split(":")
If CInt(s(2)) >= 0 AndAlso CInt(s(2)) < 9 Then
s(2) = Format(CInt(s(2)) + 1, "00")
ElseIf CInt(s(2)) = 9 Then
s(2) = Format(0, "00")
s(1) = CInt(s(1)) + 1
s(1) = Format(CInt(s(1)), "00")
End If
If CInt(s(1)) = 10 Then
s(0) = Format(CInt(s(0)) + 1, "00")
s(1) = Format(0, "00")
End If
Label1.Text = s(0) & ":" & s(1) & ":" & s(2)
End Sub
Hope this solves the purpose.
|
|
|
|
|
LOL!
This is awesome advice!!!
|
|
|
|
|
I just forgot to mention one thing.
Declare an string array globally like:
Dim s() as String
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
' supposing we have a label and it has the text 00:00:00 when the form loads
' Timer interval we can set as per requirement
' I have set it for 0-9. If you want to test upto 1 minute then change 9 by 99 and 10 by 100
s = Label1.Text.Split(":")
If CInt(s(2)) >= 0 AndAlso CInt(s(2)) < 9 Then
s(2) = Format(CInt(s(2)) + 1, "00")
ElseIf CInt(s(2)) = 9 Then
s(2) = Format(0, "00")
s(1) = CInt(s(1)) + 1
s(1) = Format(CInt(s(1)), "00")
End If
If CInt(s(1)) = 10 Then
s(0) = Format(CInt(s(0)) + 1, "00")
s(1) = Format(0, "00")
End If
Label1.Text = s(0) & ":" & s(1) & ":" & s(2)
End Sub
Hope this solves the purpose.
|
|
|
|
|
Wow, this is pretty bad. A value of time like this would normally be represented in your code by a TimeSpan object. You can then increment this time by adding 1 second to it on each tick of a 1000 millisecond timer.
Your code can then be replaced by a very simple, single line of code:
Label1.Text = myTimeSpan.ToString()
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
