在 VB.NET 中只有一行

在 VB.NET 中是否可以执行一行 If 语句? 如果可以,如何执行?

128452 次浏览

Just add Then:

If A = 1 Then A = 2

or:

If A = 1 Then _
A = 2

It's actually pretty simple..

If CONDITION Then ..INSERT CODE HERE..

Or

IIf(CONDITION, TRUE_ACTION, FALSE_ACTION)

You can use the IIf function too:

CheckIt = IIf(TestMe > 1000, "Large", "Small")

At the risk of causing some cringing by purests and c# programmers, you can use multiple statements and else in a one-line if statement in VB. In this example, y ends up 3 and not 7.

i = 1
If i = 1 Then x = 3 : y = 3 Else x = 7 : y = 7

Its simple to use in VB.NET code

Basic Syntax IIF(Expression as Boolean,True Part as Object,False Part as Object)As Object

  1. Using IIF same as Ternary
  2. Dim myVariable as string= " "
  3. myVariable = IIf(Condition, True,False)

Single line

Syntax:

If (condition) Then (do this)

Example:

If flag = true Then i = 1

Multiple ElseIf's

Syntax:

If (condition) Then : (do this)
ElseIf (condition2) Then : (do this)
Else : (do this)
End If

OR

If (condition) Then : (do this) : ElseIf (condition2) Then : (do this) : Else : (do this) : End If

Multiple operations

Syntax:

If (condition) Then : (do this) : (and this) : End If

One Line 'If Statement'

Easier than you think, noticed no-one has put what I've got yet, so I'll throw in my 2-cents.

In my testing you don't need the continuation? semi-colon, you can do without, also you can do it without the End If.

<C#> = Condition.

<R#> = True Return.

<E> = Else Return.

Single Condition

If <C1> Then <R1> Else <E>

Multiple Conditions

If <C1> Then <R1> Else If <C2> Then <R2> Else <E>

Infinite? Conditions

If <C1> Then <R1> Else If <C2> Then <R2> If <C3> Then <R3> If <C4> Then <R4> Else...
' Just keep adding "If <C> Then <R> Else" to get more

-Not really sure how to format this to make it more readable, so if someone could offer a edit, please do-

If (X1= 1) Then : Val1= "Yes" : Else : Val1= "Not" : End If
If (condition, condition_is_true, condition_is_false)

It will look like this in longer version:

If (condition_is_true) Then


Else (condition_is_false)


End If