VB.Netの構造体

Question

プログラムとしては自動券売機を作りたいと思ってます

---

public structure DBField
Dim name As String
Dim price As integer
End structure
Dim h As DBField

という構造体をつくりました。

---

そしてform_loadに
with h(0)
.name='コーラ'
.price=150
end with

...

with h(5)
.name='みかんじゅーす'
.price=100
end with

のように6個の情報をいれる？とします

---

FormにButtonを１個配置して、それを押した時
構造体のなかにある6個のジュースのうち
3つをとりだして、Buttonの処理のなかで使いたいです

またそれを3つのうちランダムで出したいと考えてるので
配列に3つの情報をいれて、乱数を使いたいと思ってます

Buttonを押した時に構造体の中身にいれてる
nameとpriceを、Button内で作った配列に
代入することはできないんでしょうか。

---

わかりにくくてすいません。

Comments

[YAmaGNZ]

すみません。イメージがつかめません。ある程度具体的なコードを提示していただけないでしょうか？

[sk7]

申し訳ございません！今から書き直します

Answer 1

質問の意味がよく理解できませんが、オリジナルの配列をいじらず配列のコピーを作りたいということでしょうか？
文字列の引用符は ' ではなく " です。
VB.NET に明るくないのですが、BASIC で ' はコメントではありませんか？
きちんとコンパイル可能な最小のソースを作り、わからないところにコメントを入れて提示すれば解決が早いと思います。

Public Class Form1
    Public Structure DBField
        Public name As String
        Public price As Integer
    End Structure

    Private h(5) As DBField

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        With h(0)
            .name = "コーラ"
            .price = 150
        End With
        With h(1)
            .name = "コーラ"
            .price = 200
        End With
        With h(2)
            .name = "コーラ"
            .price = 300
        End With
        With h(3)
            .name = "コーラ"
            .price = 500
        End With
        With h(4)
            .name = "コーラ"
            .price = 10000
        End With
        With h(5)
            .name = "みかんじゅーす"
            .price = 100
        End With
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i = h.OrderBy(Function(a) Guid.NewGuid()).ToArray()
        Dim j = h.OrderByDescending(Function(a) a.price).ToArray()
        Print("オリジナル", h)
        Print("ランダム", i)
        Print("値段の高い順", j)
    End Sub

    Private Sub Print(title As String, target As IEnumerable(Of DBField))
        Dim s = target.Select(Function(a) String.Format("name={0}, price={1}", a.name, a.price))
        MessageBox.Show(title + vbLf + vbLf + String.Join(vbLf, s))
    End Sub

End Class

Answer 2

それとも、

Dim a(2) As DBField   'Buttonクリックイベントハンドラ内の配列
'h配列よりランダムに3つ選ばれたインデックスが2,3,5だと仮定する

a(0) = h(2)
a(1) = h(3)
a(2) = h(5)

'以下処理を行う

のようなことをやりたいのでしょうか？

Answer 3

どうしてそのような疑問になったのか分かりませんが

Dim a(2) As DBField

a(0).name = h(3).name
a(0).price = h(3).price

こういうことですか？