|
Can you post some code here? Something seems to be wrong. The textbox should not show negative values.
Too much of heaven can bring you underground
Heaven can always turn around
Too much of heaven, our life is all hell bound
Heaven, the kill that makes no sound
|
|
|
|
|
Private Sub btn_plusminus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_plusminus.Click
ReadOut.Text = ReadOut.Text * (-1)
End Sub
|
|
|
|
|
Actually I am designing a Scientific Calculator. The code for +/- button puts the negative sign after the number
|
|
|
|
|
Huh? TextBoxes show strings, they don't care what those strings may or may not represent...
|
|
|
|
|
The RightToLeft Property of TextBox is Set Yes. -1234 gets displayed as 1234-. Is it a probelm of VB 2010
|
|
|
|
|
internetuser2k11 wrote: How to Fix the TextBox so that It shows negative sign before the number
of course by using Code.
but before you need to mention your effort.
|
|
|
|
|
Private Sub btn_plusminus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_plusminus.Click
ReadOut.Text = ReadOut.Text * (-1)
End Sub
|
|
|
|
|
Assuming ReadOut is some WinForms Control (maybe a TextBox?), that line of code would not even compile.
What would be the meaning of string times minus 1???
I suggest you keep numeric values in numeric variables, i.e. use value types such as float, double, decimal, for calculations and storage; use strings only for I/O, i.e. for communicating with the user.
|
|
|
|
|
I tried even the below code. Even that soesn't work
It displays -1234 as 1234-
Private Sub btn_plusminus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_plusminus.Click
ReadOut.Text = Str(Val(ReadOut.Text) * (-1))
End Sub
|
|
|
|
|
All the below 3 codes is not working. Still a neg num -1234 is displayed as 1234-
I am coding a calculator and my TextBox's RightToLegt Property is set Yes.
ReadOut.Text = (CDbl(ReadOut.Text) * (-1)).ToString
ReadOut.Text = Convert.ToString(Convert.ToDouble(ReadOut.Text) * (-1))
ReadOut.Text = Str(Val(ReadOut.Text) * (-1))
|
|
|
|
|
By default a lot of formatting (dates, times, negative numbers, currency, ...) follows the wishes of the user, through the system's "regional settings", see one of the Control Panels.
If your app needs to do things differently (not a good idea IMO), then you must code for that explicitly. In this case the NumberFormatInfo class might help you out, in particular NumberFormatInfo.NumberNegativePattern
|
|
|
|
|
Hello!
is possible to use a custom function on a entity framework query?
i try this code :
----------------------------------------------------
Function MyFunction(tl as eclos) as boolean
..... some code here
End Function
....
Dim query=From t in context.eclos where Myfunction(t)= true
select t
---------------------------------------------------------------------------
but this code doesn't works and give an error :
LINQ to Entities does not recognize the method 'Boolean MyFunction(Project1.eclos)' method, and this method cannot be translated into a store expression.
what can i do , because i need to use this kind of query on my project ?
thank you.
|
|
|
|
|
|
i made this program
screenshot link - http://s10.postimage.org/jv5dvf17b/help.jpg
got up to here...
Private Sub computeBtn_Click(sender As System.Object, e As System.EventArgs) Handles computeBtn.Click
Dim sum As Double = 0
If regularRadio.Checked Then
sum += 4.19
End If
If cheeseRadio.Checked Then
sum += 4.79
End If
If baconRadio.Checked Then
sum += 4.79
End If
If cheesebaconRadio.Checked Then
sum += 5.39
End If
If smallRadio.Checked Then
sum += 2.39
End If
If mediumRadio.Checked Then
sum += 3.09
End If
If largeRadio.Checked Then
sum += 4.99
End If
If sodaRadio.Checked Then
sum += 1.69
End If
If waterRadio.Checked Then
sum += 1.49
End If
txtCost.Text = FormatCurrency(sum)
End Sub
how do i
1.
Get the price for each item to be extracted from the form itself (not hard-coded as constants) using string methods.
2. make a function, lets say called extractPrice() that has
One String input argument (the text label from one of the form's radio buttons)
One Double output argument (the extracted price, converted from text to a double).
Returns True if the price was successfully extracted from the input string, otherwise, False (similar to TryParse() )
3.
Create a function called Price(), that has
One String input argument (the text label from one of the form's radio buttons)
It returns a numeric value that is the price for that item.
The function has a side-affect. If the price can't be found in the string, or it can't be translated into a proper number,
the program should clearly explain the error to the owners so that they can correct the problem, and then,
terminate the program immediately, using a Me.Close().
4.
Add a groupbox to the upper right hand corner of the form, that contains two buttons.
A "Test Each Price on Form" button, which, when clicked on, will cycle through each radio button on the form, passing the Text associated with the radio button to extractPrice(), to make the price within the string can be extracted.
Display any strings that caused extractPrice() to return False in a MessageBox(), telling the owner that this label needs to be corrected.
Continue testing the text from the remaining radio buttons, even after extractPrice() returns False. That is, don't quit if one fails.
Any help would mean alot thanks!
|
|
|
|
|
Here are a few pointers for you:
1. you can get part of a string using some string functions, such as string.IndexOf and string.SubString; that should allow you to extract the part in between parentheses.
2. you can convert strings (such as "1.69") to their value type equivalent (a number holding the value 1.69) using someType.Parse or better yet someType.TryParse; read up on them for type double.
3. In a WinForms application all Controls that have the same Parent are listed in the Parent's Control property. Enumerating them one by one is what For Each excels at. Now there is one problem: your Form's Control hierarchy isn't flat, it contains some GroupBoxes which in turn contain RadioButtons. You will need two levels of enumeration here, which you can do explicitly or by using recursion.
4. You could create the entire Form from a text file, reading all the required food groups and food items, and dynamically creating the lay-out. Not too easy if it is all very new to you.
Now hit the books, and use Google, for all the ideas and keywords I provided.
PS: there are more advanced technologies that you could use but also can do without, e.g. Regex for #1, and XML for #4.
|
|
|
|
|
thanks a lot! really appreciate ur help 
|
|
|
|
|
1. PriceOfItem = Val(TextBox.Text)
|
|
|
|
|
I am using VB.Net windows form application developed in Visual Studio 2010, using web services to connecting to a SharePoint 2007 to retrieve custom list data. I can retrieve all records from the SharePoint custom list but when I try to filter out records and fields using the CAML fragments for the query and viewFields objects listed below, it does not filter either. I have tried many different variations (using “ows_” field names and without) to get a different query result but with no luck. It gets very strange when I use the viewFields object, it filters out the data listed in the viewFields object but leaves all the unwanted fields. No error messages are returned. Each and every time, the results set return all the records and fields in the list up to the RowLimit property as if the query and viewFields objects were not considered in the query. I have attached the function below for review. I can use any assistance to help resolve my dilemma. Thank you in advance for your assistance…
Private Function GetContractMainDataSet(ByVal cInConfiguratorName As String) As String
clsFunctions.DisplayStatusMessage("Retrieving Records, please wait...", stMessage)
Try
Dim ds As New DataSet
Dim cGUID_List As String = clsSP.cGUID_List_Configurator_Inventory_Log
Dim cGUID_View As String = "{085BAED5-3F10-4885-A99F-E6A5FEB1881A}"
Dim xmlDoc As XmlDocument = New XmlDocument
Dim query As System.Xml.XmlElement = xmlDoc.CreateElement("Query")
Dim viewFields As System.Xml.XmlElement = xmlDoc.CreateElement("ViewFields")
Dim queryOptions As System.Xml.XmlElement = xmlDoc.CreateElement("QueryOptions")
query.InnerXml = "<Query><OrderBy><FieldRef Name='Assigned Configurator' /></OrderBy>" & _
"<Where><Eq><FieldRef Name=""ows_Assigned Configurator"" />" & _
"<Value Type=""Text"">" & cInConfiguratorName & "</Value></Eq></Where></Query>"
viewFields.InnerXml = _
"<FieldRef Name='Title' />" & "<FieldRef Name='ows_Column3' />" & _
"<FieldRef Name='ows_Column4' />" & "<FieldRef Name='ows_Column5' />" & _
"<FieldRef Name='ows_Config_User' />" & "<FieldRef Name='ows_Smoke_User' />" & _
"<FieldRef Name='ows_Super_User' />" & "<FieldRef Name='ows_ID' />)")
queryOptions.InnerXml = "<queryoptions><IncludeMandatoryColumns>FALSE</IncludeMandatoryColumns>" & _
"<DateInUtc>TRUE</DateInUtc></queryoptions>"
Dim cRowLimit As String = "90"
Dim cWebID As String = ""
Dim objCredentials As New NetworkCredential(clsSP.cUSID, clsSP.cPWID, "CS")
Dim SPList As New WS_WGK_List.Lists
With SPList
.Credentials = objCredentials
.Url = clsSP.cURL_Contract_List
Dim nodeSP As XmlNode = .GetListItems(clsSP.cGUID_List_Configurator_Inventory_Log, _
cGUID_View, query, viewFields, cRowLimit, queryOptions, cWebID)
If Not nodeSP Is Nothing And nodeSP.InnerXml.Length > 0 Then
Dim reader As XmlTextReader = New XmlTextReader(nodeSP.OuterXml, XmlNodeType.Element, Nothing)
ds.ReadXml(reader)
Else
End If
End With
Dim nCnt As Integer = ds.Tables(1).Rows.Count
If nCnt > 0 Then
With dgvContracts
.DataSource = ds
.DataMember = ds.Tables(1).TableName
.Refresh()
End With
clsFunctions.DisplayStatusMessage("Ready...", stMessage)
Else
clsFunctions.DisplayStatusMessage("No Status Records Found...", stMessage)
tmrMain.Interval = 5000
tmrMain.Enabled = True
End If
Return Nothing
Catch ex1 As System.Web.Services.Protocols.SoapException
MsgBox("ERROR #1: " & ex1.Message, MsgBoxStyle.Critical, "SharePoint Data Error")
Catch ex2 As Exception
MsgBox("ERROR #2: " & ex2.Message, MsgBoxStyle.Critical, "Data Retrieval Error")
End Try
End Function
|
|
|
|
|
Hi,
I am going through this VB Code which displays list of Printers in a Combobox using VB.Global Printers.
Now we are facing a problem in Citrix environment, where the HKCU\Software\Microsoft\Windows NT\CurrentVersion\Devices is getting messed up due to know issues (Citrix / Windows 2008). Now one could fix the problem if VB.Global Printers were to list printers listed in HKCU\Printers instead of the Key mentioned above.
Does anyone know how to make VB.Global Printers to point to a different key?
Thanks in advance.
S
|
|
|
|
|
Shyvmir wrote: using VB.Global Printers.
The one from the VB Powerpack[^]? Does the InstalledPrinters method on the PrinterSettings[^]-class have the same problem?
Bastard Programmer from Hell 
|
|
|
|
|
Problem solved for now!
I tried reading the printers list using WMI scripting object instead of using VB6 Printers. This solved the problem.
|
|
|
|
|
Hello !
i'm working on a project with entity framework.
i have a form with several textbox , and i want to create a query depending on values on these textboxs.
The code is :
dim query= From t in context.customs where t.ndi=Me.TextBox1.Text
Select t
But this code doesn't work , and i get an error.If i change my code like :
dim x=Me.Textbox1.Text
dim query= From t in context.customs where t.ndi=x
Select t
everything is OK. But is possible to include on query directly the value of textbox like my first code ?
thank you.
|
|
|
|
|
alejx wrote: But this code doesn't work , and i get an error.
Perhaps you could include the message of the error in your post? It might help in determining what's wrong. I'm guessing that it has to do with an implicit conversion.
Why is your <a href="http://msdn.microsoft.com/en-US/library/zcd4xwzs%28v=VS.80%29.aspx">option strict</a>[<a href="http://msdn.microsoft.com/en-US/library/zcd4xwzs%28v=VS.80%29.aspx" target="_blank" title="New Window">^</a>] off?
Bastard Programmer from Hell
|
|
|
|
|
LINQ to Entities does not recognize the method 'System.Object CompareObjectEqual(System.Object, System.Object, Boolean)' method, and this method cannot be translated into a store expression.
|
|
|
|
|
Does the query below work? (I'm not at a compiler, can't test now)
dim query= From t in context.customs where CStr(t.ndi)=Me.TextBox1.Text
Select t
Bastard Programmer from Hell
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
