I want to pass an optional parameter to a function of type System.Drawing.Color. The problem I am having is that when I declare the function it says "Constant expression is required" but I have tried variations of the following, including integers, full qualified indentifiers, even old vbWhite constants to no avail.
[Code]...
how can use color as an optional parameter in a sub/function?This doesn't work.
Code:
Public Sub WriteLog(ByVal sText As String, Optional ByVal lColor As Color = Color.Blue)
'Code
End Sub
If I write the following inside my class,
<DefaultValue(Guid.Empty)> _
Public Property KeyValue() As Guid
I get an error on Guid.Empty "Constant expression is required."
What I'm trying to accomplish is to get rid of this line that shows up in the Designer file,
Me.TestUserControl1.KeyValue = New System.Guid("00000000-0000-0000-0000-000000000000")
I can avoid running the property's Set code with some conditionals on the Value sent when the form instances. I was just wondering if there's a way to deal with it similar to other data types.
Here is my favicon code
Dim oURL As Uri = New Uri(e.Uri.AbsoluteUri)
Dim favicon As Image
If oURL.HostNameType = UriHostNameType.Dns Then
[code]....
The error is Value of type System.Drawing.Image cannot be converted to System.Drawing.Icon Is it even possible to make the favicon be the icon of the form?
I am attempting to make a browser. I have a menu drop-down where the user can choose one of a couple colors. I set up each button, panel, text, etc... as my.settings. I have tried to write the code two different ways, but neither works. How would I fix this?
code:
I keep Getting the Error: Value of type "System.Drawing.Color"cannot be converted to 'String'.
UInteger data type hold any value between 0 and 4,294,967,295. MSDN.
If I try this code in VB.NET I get a compiler error:
Dim Test As UInteger = &HFFFFFFFF
Error: "Constant expression not representable in type 'UInteger'.
Why I can't set 0xFFFFFFFF (4,294,967,295) to a UInteger if this type can hold this value?
I'm trying to make following subroutine work. The problem is this part of the statement.[code]I've tried everything and can't seem to come up with a constant to use here.[code]
View 3 RepliesI have created a program that creates a blank database in a users account (each user has a seperate folder when registered) by pressing a command button, i have got it to create the database but when i try to populate it with a table to go to the correct folder i get an error
Constant expression is required
the code im using for this is:
Const strConnection As String = ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
[code].....
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.BackColor = RGB(Rnd() * 255, Rnd() * 255, Rnd() * 255)
End Sub
then i see this error:Value of type 'Integer' cannot be converted to 'System.Drawing.Color'
After reading this post i realized that i cannot pass an anonymous type as a parameter to a function. So what other options do i have?
Perhaps, passing a Query.ToList as parameter would help, or am i re-inventing the wheel?
Update: I have the following query, which i would like to pass to a function:
Sub Test
Dim Query = (From c In DB Select New With { .ElementName = c.Name })
DoSomething(Query)
[Code].....
I need to read a named range into an array. Then if the value in the 1st position matches a static value, read the value in the second position. I've been looking into array's and this is what I think will work, however I get a compile error on the columns.count "constant expression required". Is it because in the DIM statement I'm attempting 2 things? This is a macro in Excel. The range name is Data1 and the string comparison is "AnyString". The second value will be an integer.
Sub macro1()
Dim rng As Range
Dim x As Integer
Dim y As Integer
rng = Range(Data1)
[Code] .....
I am hardcoding an insert statement to a database, based on certain details a user enters into a windows form. The form has a few textbox and datetimepicker controls for the purpose. This form enters a single row in a single table in the database.The table has a few possible null columns defined, in those cases where the user does not have any data for those columns at that particular time.
I have to provide controls for passing data to those null columns nevertheless. In my case, I have two such columns that accept null values, and two corresponding controls - a textbox and a datetimepicker. The datetimepicker has a checkbox added to it so that if it is supposed to be null it doesn't pass the default current date value, and remains unchecked to explicitly specify that it is supposed to be null. By default it is unchecked.
My code is structured as follows:
Form1:
'the sub referenced here resides in a dll file in my dataaccesslayer code, and in my actual example is referenced properly.
'I have shortened the code here for simplicity
[code]....
Now it gives me an error whenever the code comes to the executenonquery(), and says something to the tune of "SqlDateTimeOverflow. Must be between 1/1/1753 12:00:00 AM and 12/31/9999 11:59:59 PM."
I think the value of 'Nothing' from the subprocedure's paramter is not being assigned to the sqlcommand's parameter as a database NULL, which is what I need to pass to the database.I know instead of using optional parameters I can easily create overloaded subprocedures where one sub allows not passing values where the column(s) is supposed to null and other overloaded subs permit combinations of which column(s) are null or not. But it is simple as long as there is just one, or at the most two null columns in a table. If I have dozens of null values in a table that the user can choose to enter or not in a data entry form?
Is it possible to have an optional parameter of the type list?Ex.
Private Function TestFunction(Optional ByRef MyList As List(Of Double))
The real problem is giving the list a default value. When dimming a new list, you can use the code below to give it a starting value:
Dim MyList As New List(Of Double)(New Double() {1, 2, 3, 4, 5})
But even after trying many variations of the above code, I cannot get it to work as an optional parameter.
How can i create a optional parameter in C# as we create in VB.Net
Public Sub Demo(ByVal a As Integer,Optional ByVal b as integer=3)
End Sub
I want to declare this in C#
[code].....
im using an MDI parent form and MDI Child. how can i print the image that's inside a picture box that's inside the Child from a button that's on the Parent?when i try to use print preview or print dialog, i can't get it to recognize that the document is the picure inside the picture box. i've looked up this error message:Value of type 'System.Drawing.Image' cannot be converted to 'System.Drawing.Printing.PrintDocument'.[code]
View 6 RepliesIf I run the following code in C# then it runs fine
UInt32 a a = 0x9E3779B9
But when I run the same code in VB.Net then it gives me error "Constant expression not representable in type 'UInteger'"Dim a As UInt32 a = &H9E3779B9
I am trying to assign a constant with this value:
Public Const FIRST As UInteger = (0UI - 860UI)
I tried the following, but i get the error
constant expression is required
Public Sub ExampleSub(ByVal Test as string,
Optional ByVal fromDate As System.Nullable(Of DateTime) = Date.Today)
'A Great sub!
[Code].....
With this line...
If PictureBox1.Image = My.Resources._2star Then
I get this error: Operator '=' is not defined for types 'System.Drawing.Image' and 'System.Drawing.Bitmap'.Is there another way to say = with images?
My problem is this (apologies if this is a little long ... hang in there):I can define a function in VB.NET with optional parameters that wraps a SQL procedure:
Sub Test(OptionalByVal Arg1 As Integer _
Optional ByVal Arg2 As Integer _
Optional ByVal Arg3 As Integer
[code].....
I am using VB2008 in VS Prof and try to convert at Byte arry stored as a Image format in Sql2000 database.
Code:
Using acnLoc As New SqlConnection(CSLoc)
acnLoc.Open()
Dim G As SqlCommand = New SqlCommand("SELECT [SignatureData] FROM [MyTable] where [OID]=@OID", acnLoc)
G.Parameters.Add("@OID", SqlDbType.Int).Value =Cint(bxShipmentno.Text.Trim())
dim P= G.ExecuteScalar() 'returns a system arry
[Code]...
I work with C# 99% of the time. However, I'm having to update some legacy VB.Net code and encountering an issue with VB.Net code syntax. The error that I get is "ByRef" is underlined and "Expected Expression" tag shows up when you hover over "ByRef". The "FooDetail.Load" function is written in C# and expects a List object passed as reference. Don't have any trouble using the same function in other C# classes. Can someone indicate what is wrong with below VB.Net code.
Dim FooDetail As New clsFooDetail()
FooDetail.FooID = FooID
Dim lstFooDetail As New List(Of clsFooDetail)
FooDetail.Load(ConnectionString, "Stored Procedure", ByRef lstFooDetail as System.Collection.List(Of(clsFooDetail))
I have a table, the color of the whole row depends on one of the two columns. Table: | ID | Name | Date | Ext Date |
Where Date color depend on the value, <15 is green, <30 is yellow and >30 is red. While Ext Date depends on value, >-14 is red, >-30 is yellow, <-29 is green and without Ext Date value will follow Date value.
I tried to put Switch in IIf but returns no color at all.
=IIf(Fields!countexten.Value="-",Switch(Fields!countdate.Value < 15, "Green", Fields!countdate.Value <30, "Yellow", Fields!countdate.Value > 29, "Red"),Switch(Fields!countexten.Value>-14, "Red", Fields!countexten.Value>-30, "Yellow", Fields!countexten.Value<-29, "Green"))
I have this issue with casting....is there anyway i could pass an integer into a label...this is what i have done so far but i am getting this error "A first chance exception of type 'System.InvalidCastException' occurred in Microsoft.VisualBasic.dll"
Dim firstNumber As Integer
Dim secondNumber As Integer
Dim solution As Integer
[CODE].........................
i am getting all filenames from a directory.parsing out the directory names & the .vb extension then converting those filesnames to classes.Every file in the LPCriteria direcotry is its own class with a "Evaluate" function.[code]
View 1 RepliesI want to make a GetAllContacts method which takes a sort parameter of type Func(Of Contact, TKey) which is the same type that the OrderBy method for an IEnumerable(Of Contact) takes.[code]"Too many arguments to extension method 'Public Function ElementAtOrDefault(index As Integer) As Contact' defined in 'System.Linq.Enumerable'." on the second parameter.
View 2 RepliesI want to have a "template" function that can receive different parameter and a type parameter, like:[code]But Vb told me that tupeList is not defined... is there a way I can do that?
View 2 RepliesI just want to ask if it is possible to create a function that accepts an expression into its arguments. Just like what IIF do. Ex: Dim strResponse as String = IIF(Msgbox("Select Yes or No", vbYesNo) = vbYes, "Yes", "No") I forgot the code, but its the thought that counts.
View 1 RepliesI have a program that creates a Treeview from information procured through an ODBC query and dumped into a dataset. I have three such queries set up via radial buttons as well as a refresh button that triggers whatever radial button is active at the time it's clicked. The purpose of this program is to allow drag-and-drop of selected nodes, ending with a post to the database that officially makes that change of assignment to the new node.
[Code]...
I have a statement:
dat.XoaNhanVien(Me.dtgcapnhatthongtin.CurrentRow.Cells(1).Value, message)
That is a function for deleting info. Now I want to create other function and get above function to parameter. I mean:
Public Function func(Byval func as " What type can be ?")