vb.net - 引数として渡すときに変数値を変更する（vb.net）

Question

vb.netでこのようにできる方法はありますか

dim idx = -1
dim a = array(idx = idx + 1)
dim b = array(idx = idx + 1)
dim c = array(idx = idx + 1)
dim d = array(idx = idx + 1)

私が欲しいのは、idxが別の行でインクリメントすることなく、各行の後にインクリメントし続けることです。

ありがとうございました

Answer 1

VB.Netにはそのようなものはないと思いますが、拡張機能を作成してそれに近づけることができます。

Imports System.Runtime.CompilerServices

Public Module Module1

  <Extension()> _
  Public Function UpIndex(ByRef value As Integer) As Integer
    value += 1
    return value
  End Function

End Module

ByRef引数でのの使用に注意してください。

次に、呼び出しは次のようになります。

Dim a = array(idx.UpIndex)
Dim b = array(idx.UpIndex)