|
OK, so the code issue IS that you are pressing a key and you didn't write code to make it do anything ? I am confused....
Christian Graus
No longer a Microsoft MVP, but still happy to answer your questions.
|
|
|
|
|
dont get confused... Sorry if i am unable to explain u properly well i had found the solution...
thanks for ur support & invaluable time...
|
|
|
|
|
Public Class Form1
Delegate Sub d(ByVal b As Boolean, ByVal b1() As Button)
Private Sub disablefunction(ByVal val As Boolean, ByVal ParamArray b() As Button)
For i As Integer = 0 To b.Length - 1
b(i).Enabled = val
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Invoke(New d(AddressOf disablefunction), False, Button1, Button2)
End Sub
End Class
</pre>
I am getting the following error
Parameter count mismatch
|
|
|
|
|
It's sure VERY nasty that you're passing controls arround, but does ParamArray mean you can pass as many buttons as you like, or do you need to create the array and pas it ?
Is that really how you call a delegate in VB ? It looks nasty compared to C#
Christian Graus
No longer a Microsoft MVP, but still happy to answer your questions.
|
|
|
|
|
Pretty sure ParamArray is the equivalent of the C# params keyword. Regardless, his delegate signature is d(bool, Button) and he's calling it with two Buttons...
|
|
|
|
|
Christian Graus wrote: Is that really how you call a delegate in VB ? It looks nasty compared to C#
Not exactly. He's doing Me.Invoke, which would call a method on the main thread. From what I know, the same thing in C# would be (note that I've also fixed his problem here):
this.Invoke((d)disablefunction, false, new button[] {Button1, Button2})
|
|
|
|
|
ParamArray only works when you are directly calling the function. The arguments passed to a ParamArray parameter will always be converted to an array at compile time. When you are using Me.Invoke, you need to make the array yourself.
Me.Invoke(New d(AddressOf disablefunction), False, new Button() {Button1, Button2})
As a bonus, if you had declared the function as
disablefunction(ParamArray b() as object)
and called it as
disablefunction(new button() {Button1, Button2})
you would get a one element array that is an array of buttons.
|
|
|
|
|
Good day fellow codeproject.com'ers.
I am missing a vital part of theory which I've identified when I tried the below. (I believe it's theory...)
Please can one of you assist me by filling the theory gap I have. I've been through MSDN and Google, but to no avail...
Question:
Why can one not call a class from within another class? I don't mean within a function of a class, but at the top, where one declares variables pertaining to that class.
E.g. Below:
Friend Class Class1
Dim _message As String
Public Property Message()
Get
Return _message
End Get
Set(ByVal value)
_message = value
End Set
End Property
End Class
And here is where it fails, intellisense doesn't see the properties or methods of the variable (first class), I've labled the variable as THISDOESNTWORK.
Friend Class Class2
Dim _myVariable As String
Dim THISDOESNTWORK as New Class1
Public Property myVariable()
Get
Return _message
End Get
Set(ByVal value)
_message = value
End Set
End Property
End Class
It works when I place the code
Dim THISDOESNTWORK as New Class1<br /> within a function, so either there is a "secret way to do this", or I'm missing a bit of .Net/OOB Theory.
Thanks in advance... 
|
|
|
|
|
class2 needs to be like this
Friend Class Class2
Dim _myVariable As String
Dim THISDOESNTWORK As New Class1
Public Property myVariable()
Get
Return THISDOESNTWORK.Message
End Get
Set(ByVal value)
THISDOESNTWORK.Message = value
End Set
End Property
End Class
'Never argue with an idiot; they'll drag you down to their level and beat you with experience.' ~ anonymous
'Life's real failure is when you do not realize how close you were to success when you gave up.' ~ anonymous
|
|
|
|
|
Thank you!
Ah, a blonde moment of note!
This one will definatly go down in the books a silly moment for me, hopefully this helps someone else
Thanks again.
- Artificial intelligence is no match for natural stupidity
|
|
|
|
|
It should also be mentioned that your syntax might be a bit off:
Friend Class Class2
Dim _myVariable As String
Dim THISDOESNTWORK as New Class1
Public Property myVariable()as string
Get
Return THISDOESNTWORK._message
End Get
Set(ByVal value as string)
THISDOESNTWORK._message = value
End Set
End Property
End Class
or
Friend Class Class2
Dim _myVariable As String
Dim THISDOESNTWORK as New Class1
Public Property myVariable() as Class1
Get
Return THISDOESNTWORK
End Get
Set(ByVal value as Class 1)
THISDOESNTWORK= value
End Set
End Property
End Class
Regards,
Thomas Stockwell
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning.
Visit my Blog
|
|
|
|
|
I have web-pages & MS Access database in my web-host (http://www....), is there easy way to use VB.net to access it without using FTP?
If possible, please provide valid links or sample codes.
Thanks 
|
|
|
|
|
where is the access file in relationship to your vb.net code? why does ftp come into play?
'Never argue with an idiot; they'll drag you down to their level and beat you with experience.' ~ anonymous
'Life's real failure is when you do not realize how close you were to success when you gave up.' ~ anonymous
|
|
|
|
|
Please see the comments on Can I use VB.net and XML to read/write a MS access database in the web-site? about 2 pages after this page.
I post 2 questions because the first one I mentioned about using XML ... but what I try to find out which is the best way to write/read MS Access database in my Web-host! How do you think?
|
|
|
|
|
I need to find out how to do the following:
I have a script to do this
Ask User for a variable
Create a NEW sheet with the variable name
I am able to do some of the above however I need to incorporate some error checking to prevent the script failing. wats the best course of action
hope this makes sense to someone
|
|
|
|
|
Is this a question about VB scripting in MS Excel?
Steve Jowett
-------------------------
It is offen dangerous to try and see someone else's point of view, without proper training. Douglas Adams (Mostly Harmless)
|
|
|
|
|
|
Ok - I guess you need to check for 2 things:
1) Check that the user input is valid (not blank, doesnt contain invalid characters...)
2) Check that the name specified does not already exist as another sheet in the workbook where you want to attempt to create the new sheet (Check the Workbook.Sheets collection)
HTH
|
|
|
|
|
I used somethng like this recently.
In my case I wanted a new sheet consisting only of data of a particular Suppliers account.
But you can see the basis of it and adapt as per necessary.
'request supplier
Dim RequestedSupplier As String
RequestedSupplier = Application.InputBox("Enter Supplier Code", "Supplier Selection", , , , , , 2)
If RequestedSupplier = "" Then End
'UPPER CASE the RESULT
RequestedSupplier = UCase(RequestedSupplier)
'confirm supplier
MsgBox ("You have Selected : " & RequestedSupplier)
'create page
'creates ActNm - Active Sheet name
Dim ActNm As String
With ActiveWorkbook.Sheets
.Add after:=Worksheets(Worksheets.Count)
End With
ActNm = ActiveSheet.Name
On Error Resume Next
ActiveSheet.Name = RequestedSupplier
NoName: If Err.Number = 1004 Then ActiveSheet.Name = InputBox("Enter name for New Sheet")
If ActiveSheet.Name = ActNm Then GoTo NoName
On Error GoTo 0
Hope this helps
------------------------------------
"I'd rather have a bottle in front of me than a frontal lobotomy" - Bob Monkhouse
|
|
|
|
|
Hi,
Please help me to create pdf file from crystal reports with sub reports and parameters?
Thanks,
Deepa
|
|
|
|
|
Hi group,
we have a UserControl "UserCtrlWithDataGridView" containing a DataGridView
(and other controls such as labels ...)
To be able to set properties of the DataGridView (or other contained controls) in the designer of the form where the UserControl is placed, we defined a
public property for the component, e.g. "Public ReadOnly Property XDataGridView() As DataGridView".
With the following attribute "DesignerSerializationVisibility..." (see code below) we make sure, that the property values are persistant, that means they are automatically entered into the form.designer.vb code.
This works fine in case of a label and also for properties such as "Dock" for the DataGridView.
But if we try to add columns to the "XDataGridView" in the designer by clicking on "..." of the property "columns", the following error appears:
"Object reference not set to an instance of an object"
How can it be solved?
Michael
Public Class UserCtrlWithDataGridView
< _
System.ComponentModel.Localizable(False), _
System.ComponentModel.DesignerSerializationVisibility(System.ComponentModel.DesignerSerializationVisibility.Content) _
> _
Public ReadOnly Property XDataGridView() As DataGridView
Get
Return Me.DataGridView1
End Get
End Property
End Class
|
|
|
|
|
Hi,
I have a function with a parameter and when I call the function I want the parameter to be set properties or set values so that the function does the appropriate action within a select case, but dont want incorrect parameters to be passed lets say:
Public Function Test(ByVal strSetValue as string) as Integer
Select Case strSetValue
Case "Test1"
'do something
Case "Test2"
'do something
Case "Test3"
'do something
End Select
Return Test
End Function
In other words, when you call the function name and put in the first open bracket, I would like a intelisense listbox to appear where you can select the appropriate value...
any advice will be appreciated
|
|
|
|
|
Use an enum as the parameter.
Christian Graus
No longer a Microsoft MVP, but still happy to answer your questions.
|
|
|
|
|
|
You may always want to add a default: to your switch that throws an exception, in case one day a new value is passed in and not acted on. I do that with all switch statements where I expect every value passed in to do something. This would also work with the string approach, but enums are a lot better, not least for intellisense and to avoid typos.
Christian Graus
No longer a Microsoft MVP, but still happy to answer your questions.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
