VB6 And VBA To Short Circuit And Execute The First True Case
Apr 27, 2009Apparently this used to be a way in VB6 and VBA to short circuit and execute the first true case:
[Code]...
Apparently this used to be a way in VB6 and VBA to short circuit and execute the first true case:
[Code]...
We had a Nullable object must have a value error today on this line of code:list = From x In Me Where x.FooDate.HasValue AndAlso x.FooDate.Value.Date >= barDate
Funny thing is that I feel sure this used to work fine (and there has always been a sprinkling of null values in the underlying data). And logically it looks fine to me. The check for HasValue and the AndAlso look as if they're going to shield us from any Null danger.But it seems suddenly they're not. Am I missing something?OK, we can correct it to this, which eliminates the error:
list = From x In Me Where If(x.FooDate.HasValue, x.FooDate.Value.Date >= barDate,False)
But this looks to me less readable. In simplifying the above code to shorten the line I left out a crucial chunk of the code. The original problem should have read something like:
list = From x In Me Where x.FooDate.HasValue AndAlso x.FooDate.Value.Date >= fromDate And x.FooDate.Value.Date <= toDate
Because of the rules of shortcircuiting and operator precedence (as outlined in an answer to a long ago question of my own) I needed to add brackets round the second part of the instruction in order to stop LINQ evaluating the second x.FooDate.Value.Date:
list = From x In Me Where x.FooDate.HasValue AndAlso (x.FooDate.Value.Date >= fromDate and x.FooDate.Value.Date <= toDate) LINQ really does obey AndAlso and force me to look more closely at the original problem.
How can i return null values in if statement above. This statement is not working if condtion is false its retruning me 0 value even if condition is false
dim d as nullable(0f Decimal)
d=(if(_dr("value") isnot dbnull.value,Convert.toDecimal((_dr("value")),Nothing)
I have a form called LogIn.vb which has no errors. After log-in, it opens the MainForm.vb which IsMDIContainer property is set to true. From the MainMenu, it opens a child form called Assure_Benefits.vb So far no problem up to this point. When Assure_Benefits.vb loads, it displays 2 DataGridViews with datasourses from my 2 tables in my database.
There is still no problem with the loading. Now, to show the difference between different user types, I only allow the admin to edit the DataGrid. SO I set the readonly property to true when UserType = "user".
I have no problem doing that. My problem is I want to add some codes besides the readonly being set to true and false but other codes are not executed and the program does not display any errors at all. i tried to add messageboxes on the if and else conditions to try if added codes will work but even the messagebox does not appear though the codes next to it are properly executed.
When my Assure_Benefits.vb loads I call for the subroutine below.
Private Sub SetControlProperties()
If LogIn.UserType = "admin" Then
MessageBox.Show("Yes") 'This line is not executed
[CODE]...
I can't seem to understand why the first code is not executed when the next codes works fine.
[Code] Now the problem is that after i put this user-control in a form, I have to set a value for the Handled file. Otherwise it gives me a value cannot be null exception. Is there a way that i can set code that would execute in the case of the value being null? [Code]
View 14 RepliesI'm using some VB.Net code to manipulate files on my system - the idea is that the code checks if a file exists, and based on a value read from a text file elsewhere the system decides what to do... For this I'm using a 'select... case' statement to decide on the action to take. However, when assigning a value to the variable, the code doesn't even find the option to go for... Here's the VB code:
[Code]...
Now i dont need a discussion on speed issues but i would prefer to use select case but select case stops at the first True. Example is i have 10 checkboxes and depending on which is checked i add a different number to the variable. Now i know this can easily be done using if elseIf but seems messy. I cant use select case because it will stop at the first true and i need to check all 10 boxes.
View 12 RepliesI had a program,like this:
n=10;
do while n<1000000000
n=n+1
[code].....
Currently, one of our assignment for Physics are to create a program that can calculate series, parallel and combined circuit, with any number of capacitance. We are using Visual Basic.
1. How to make that when we click the 'Enter Capacitance', a pop up show and tell us to enter number of capacitance, or to enter value for a number of capacitance?
[code]...
i want to build my own electronic circuit simulator which is use mathematical models to replicate the behavior of an actual electronic device or circuit. Simulating a circuits behavior before actually building it can i do that with vb.net is there any library that deal with simulation or something
View 6 RepliesI implemented a serial communication between a PC and a circuit based on ATMEL mP, managing the submission of correct / incorrect reception of commands ... The following code works, I wanted a block on the performance and reliability as it is for me very important part of this project that I'm doing.
Public Class frmTrattamento
Dim IsStart As Boolean = False
Dim inputData As String = ""
Dim Stmp As String = ""
Public Event DataReceived As IO.Ports.SerialDataReceivedEventHandler
[Code] .....
I'm trying to develop a module that calculates voltages in a circuit based on setting for certain components. Is a module available to handle circuit calculations including parallel paths.
View 1 RepliesIt titled E-Speech Door Access System. It security based system which user need register before use it. Now im using Visual Basic 2008 Express. I have use VB6 code it show error. Now i need the coding which when password spoken then signal need travel trough my laptop port. My laptop oni hv VGA port. So I plan 2 by USB parallel port.[code]...
View 2 RepliesI have written a programm with visual basic 2008 express edition and I'd like to use the parallel port to communicate with my self-made circuit. I want to controll 120 LEDs with the parallel port but I don't get it how. I know how to activate the databus but not how to activate the controle lines of the parallel port.
View 5 Repliesi have a program using a select case to convert letters to special charaters. My question is how can I get the code to read upper and lower case letters without having to put the upper case letters in my select case statement. Example: Part of my code is
[Code]...
i want to the textbox that when I start to type in names it should be like this Camille Aisha Cordova, How do I do this?
View 16 RepliesIm using a Random Pool number generator and was wondering how i can make it use upper-case and lower-case letters as well as numbers here is a pic
[Code]...
I want my TextBox to make the text i enter as Sentence Case(ProperCase).. but i dont want to write any code in an event like Lost Focus or KeyPress
Just by default when ever a user enter or types in a textbox the first letter of every word should automatically converted into UpperCase
When my form loads it adds some handles (using AddHandler) to a sub (showStatus). What this sub does is checks which control activated the sub (using sender.Equals) and displays text in the status label (status) accordingly.For this I use an If...Then statement for each possibility. There are many possibilities and my code get cluttered. Is there a way to do the same thing with a Select...Case statement. I tried: Select Case sender Case tbOne : status.Text = "blahblahblahblahblahblah" End Selectwhere: tbOne is a textbox, status is a StatusLabelIt gives me an error though, saying "Operator '=' is not defined for types 'Object' and 'System.Windows.Forms.TextBox'."Any ideas on how I can get this to work with a select case statement?
View 13 Replieshere is my code..
[Code]....
If the result is 86 and it's mod by 43 the answer is 2 Case 2 is not firing. it just goes to the end of the procedure.
It looks like impossible but...
Try
Select Case command
Case 1
smth()
Case 2
[code]....
Firstly Case 2 runs. Throws exception. And right after this debugger shows that next processed statement is Case Else. Only after Case Else throws own exception Catch block start working. I've never seen this trick. Why can this happened?I'm sure the block is entered once (not like this:first enter hit Case 2 and second hit Case Else).
Update:-To Matt Wilko. Thank you for answering. I've switch to Strict On in Options of VS2010 but nothing has changed. Command is variable, not function. Watch tool shows that on each step Command is the same ( Command = 2).
Fixed. Yeeaaaahhh. I simplefy code to
Try
Select Case 2
Case 2
[code]....
and change project to Console app. This works as I mention. The fix was in Release mode. I was debugging in Release mode. When I switch to Debug mode everything goes as it should.
i am using VS 2008 and just started to work with XAML and WPF. while opening in page(.xaml) in design mode i'm getting the error like this "Only TrueType fonts are supported and this is not a TrueType font".
View 7 Replies[Code]...
how can i get this code to return all values instead of just the first value ?
I know that
Public Incognito As Boolean
is a variable called "Incognito" that is class-wide that is a boolean.My question is that is there a form-wide variable form that can like communicate with different forms. So if a variable in form1 is "True" than, how can you make a variable in form2 turns to "True" too?
I need to add Functions for the Case 10 and Case 13 in this code. The code in each select case needs to be moved to the two functions which then returns the code once its called from the Sub Main section. But I am having a really hard time figuring out what exactly gets moved to each function.[code]I'm not sure what exactly to put into the individual Functions and how to change up the Sub Main section.
View 4 RepliesIs there any method to get the 3 char code from System.TimeZoneInfo.Local?e.g. EDT instead of Eastern Daylight time etc.
View 1 RepliesIn VB.NET: If varShort is a Short and varBit is a value from 0 to 15, how can I set the bit in varShort identified by varBit without disturbing any of the other bits in varShort? My problem, of course, is with the most significant bit, bit 15. Since varBit is determined at runtime
View 2 Replieshow can i put short cut ket for the buttons i made?example i made a button name PRINT.how can i make that ctrl + p to be the shorcut key format?
View 8 Replies[code]'when i enter 'Q' key output(textbox1.text) = 'qQ' how Show Q only''' 'and how i can set multi shortkey output = CTRL+TAB+CAPS LOCK,and bla bla , and send to Timer1' End Sub.[code]
View 2 RepliesHow to Covert a long name to short name??? for example: How to convert Visual Basic name into VB
View 1 Replies