|
I am new to using delegates and am getting "Error Binding To Target Method" error on the CreateDelegate line. What am I doing wrong? Thanks in Advance.
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim sTest As String = "MyTest"
Dim test As ToolStripMenuItem
Dim currentType As Type = Me.GetType
Dim method As MethodInfo
Dim delTest As [Delegate]
method = currentType.GetMethod(sTest)
If Not method Is Nothing Then
MsgBox(method.Name)
delTest = CreateDelegate(GetType(EventHandler), method)
test = New ToolStripMenuItem("Testing", Nothing, delTest)
Else
test = New ToolStripMenuItem("Testing")
End If
MyBase.mnuMain.Items.Add(test)
End Sub
Public Sub MyTest(ByVal sender As Object, ByVal e As EventArgs)
MsgBox("testing")
End Sub
|
|
|
|
|
This isn't working because, for some reason, MyTest 's signature doesn't match the signature of EventHandler .
You'll run into another problem after that one's fixed. The method you're binding the delegate to must be a Shared method (Static in C#).
Imports System.Reflection
Imports System.Delegate
.
.
.
Public Shared Sub MyTest(ByVal sender As Object, ByVal e As EventArgs)
MsgBox("Testing...")
End Sub
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
|
Hi Below is my query that i am trying to run
-------
SELECT ProfileID FROM profiles WHERE ProfileStatusID=2 ORDER BY ProfileID DESC LIMIT 0, 3;
-------
ms sql server doesnt understand limit so i dont know how can i modify my query which gives me same result. many thanks in forward.
robin
|
|
|
|
|
The amount of questions you are posting on this board show that you really should RTFM a whole lot more.
Simple really - use the SELECT TOP function. You'll find a reference to it in the SQL Books Online (you ahve installed them havn't you)
...Steve
1. quod erat demonstrandum
2. "Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." I read that somewhere once
(Translation: I'll show you the way, but not write the code for you.)
|
|
|
|
|
what is RTFM? i know selecting top rows but i was just confused whether it produces the same effect as it did by mysql.
|
|
|
|
|
RTFM[^] on Wikipedia...Enjoy!
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
HOW TO INSERT A THUMBNAIL INTO DATAGRID OF PICTURE FROM A PICTURE BOX IN WINDOWS APPLICATION
VIJAYKUMAR.N.S
|
|
|
|
|
First, STOP YELLING!
Second, you haven't specified anything about your datasource or how you're populating this DataGrid.
You might want to look at this[^] to see if it fits your needs. The code is in C#, but is easily convertible to VB.NET.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
This code always results in a file in use error (error 57):
Sub DelPic(ByVal filename As String)<br />
<br />
Dim fi As New FileInfo(filename)<br />
If Not fi.Exists Then Exit Sub<br />
Try<br />
fi.Delete()<br />
Catch ex As Exception<br />
MsgBox(Err.Source & " caused an error of type " & Err.Number)<br />
End Try<br />
<br />
End Sub
No other programs are running, all files are closed and file.attributes shows normal.
What am I doing wrong?
|
|
|
|
|
See this[^] post for what's causing your problem and the solution...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
application.exit does not appear to do anything - is there another way to cancel a running process and kill the application?
|
|
|
|
|
If you spawn other threads to do work in your app, you have to shut them down before your app will actually exit.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hello everyone
i'm working on a project where i want to get a file from a remote Pc via telephone network.
my way to transfare the file is the remote pc to open the file as binary and reads a number of bytes and then send them.
the problem i'm facing is the number of bytes to read from the file.
i'm using currancy type in reading from the file because it can hold 8 bytes
i need to know how can i declare a variable that can hold mor than 8 bytes (50 bytes for example)i also want to know how can i make a processing on these bytes like making an error check procedure or adding sum bits to them.
note: the strig type didnit work with me
|
|
|
|
|
You need to create a byte array.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Hi,
I run a query below, but I don't know what the data is. How canI show the result of the query into a textbox?
Thanks a lot.
MyQuery7 = "SELECT Top 1 JOBACTIV.[STARTDATE] FROM [JOBACTIV] WHERE [MFRNAME] LIKE ('" & txtManufacturer.Text & "*') AND [SUPADDR3] LIKE ('" & txtAddress2.Text & "*') UNION ALL SELECT Top 1 JOBARC.[STARTDATE] FROM [JOBARC] WHERE [MFRNAME] LIKE ('" & txtManufacturer.Text & "*') AND [SUPADDR3] LIKE ('" & txtAddress2.Text & "*') ORDER BY 1"
|
|
|
|
|
All you've done here is define a query as a string. This does not give you any data, or even call the database.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Don't start a new thread for follow-ups.
---
b { font-weight: normal; }
|
|
|
|
|
Hi,
I'm trying to query 2 data (in forms of date) from 2 tables in MS Access. Then from those 2 date, I will compare and get the earliest date.
I tried the code below, but the problem is that if one of the query doesn't have the data, they couldn't make the comparison and could not display the other data. How can I fix this?
Thank you very much.
MyQuery7 = "SELECT Top 1 JOBACTIV.[STARTDATE] as strdt FROM [JOBACTIV] WHERE [MFRNAME] LIKE ('" & txtManufacturer.Text & "*') AND [SUPADDR3] LIKE ('" & txtAddress2.Text & "*') ORDER BY JOBACTIV.[STARTDATE]" <br />
<br />
MyQuery8 = "SELECT Top 1 JOBARC.[STARTDATE] as strdta FROM [JOBARC] WHERE [MFRNAME] LIKE ('" & txtManufacturer.Text & "*') AND [SUPADDR3] LIKE ('" & txtAddress2.Text & "*') ORDER BY JOBARC.[STARTDATE]" <br />
<br />
Set rs7 = db2.OpenRecordset(MyQuery7) <br />
Set rs8 = db2.OpenRecordset(MyQuery8) <br />
<br />
If rs8.Fields("strdta") < rs7.Fields("strdt") Then <br />
txtSupStartDate.Text = rs8.Fields("strdta") <br />
Else <br />
txtSupStartDate.Text = rs7.Fields("strdt") <br />
End If <br />
<br />
rs7.Close <br />
rs8.Close
|
|
|
|
|
Use UNION ALL to put the queries together, then sort by date so that you will get the earliest date first.
SELECT TOP 1 STARTDATE FROM JOBACTIV WHERE ...<br />
UNION ALL<br />
SELECT TOP 1 STARTDATE FROM JOBARC WHERE ...<br />
ORDER BY 1
---
b { font-weight: normal; }
|
|
|
|
|
I try this query, but I don't know how to see the result. How can I display the result to a textbox?
is it something like "txtdate.text = rs7.fields"?
Thanks.
MyQuery7 = "SELECT Top 1 JOBACTIV.[STARTDATE] FROM [JOBACTIV] WHERE [MFRNAME] LIKE ('" & txtManufacturer.Text & "*') AND [SUPADDR3] LIKE ('" & txtAddress2.Text & "*') UNION ALL SELECT Top 1 JOBARC.[STARTDATE] FROM [JOBARC] WHERE [MFRNAME] LIKE ('" & txtManufacturer.Text & "*') AND [SUPADDR3] LIKE ('" & txtAddress2.Text & "*') ORDER BY 1"
|
|
|
|
|
Just get the value like you did before. The name of the field is "STARTDATE".
---
b { font-weight: normal; }
|
|
|
|
|
thank you very much.
It works.
|
|
|
|
|
What are the dotNet equivalent functions for reading and writing registry values and keys?
Savesetting
GetSetting
GetAllSetting
tunde aransiola
|
|
|
|
|
As a start...
My.Computer.Registry object
|
|
|
|