隨機畫框排列

我是視覺基礎知識的新手，想知道如何執行以下程式：我有 9 個圖片框和一個“排列”按鈕。對于我的程式，我希望所有圖片框像拼圖一樣隨機組合在一起，形成一個寬度和高度為三個圖片框的正方形。制作的正方形會將所有九個圖片框合二為一，每次單擊“排列”按鈕時，圖片框都會更改為正方形內的隨機位置。到目前為止，我已經寫過所有圖片框的大小都相同，但我不知道如何將它們組合成一個正方形。提前致謝。

Public Class frm1
    Dim Placement As Integer
Private Sub btnArrange_Click(sender As Object, e As EventArgs) Handles btnArrange.Click
    picDeux.Size = picgris.Size
    picTrois.Size = picgris.Size
    picQuatre.Size = picgris.Size
    picCinq.Size = picgris.Size
    picSix.Size = picgris.Size
    picSept.Size = picgris.Size
    picHuit.Size = picgris.Size
    picNeuf.Size = picgris.Size

    lstNum.Items.Clear()
    For i = 1 To 3
        For j = 1 To 3
            Dim L As New Point(picgris.Width * j   100, picgris.Height * i)
            lstNum.Items.Add(L)
        Next
    Next

    For i = 1 To 3
        For j = 1 To 3
            Placement = Int(Rnd() * (lstNum.Items.Count))
        Next
    Next
End Sub
End Class

uj5u.com熱心網友回復：

我在設計時創建了九個圖片框。您將為每個圖片框分配不同的影像。它們都是正方形，大小相同。我的是 100 x 100 以使算術容易。

我制作了一個點陣列作為表單級別變數。這些點將與圖片框形成一個 300 x 300 的正方形。我還宣告了一個PictureBox. 在Form.Load我將圖片框添加到陣列中。

將分配給陣列的圖片框重新定位到串列中。此串列中的專案將被洗掉，因為我們不想將相同的位置分配給更多的一個圖片框。這不會影響原始陣列。

回圈遍歷圖片框，我們為框分配一個隨機位置，然后從串列中洗掉該點。

Public Class PictureSort
    Private Rand As New Random()
    Private PointArray As Point() = {New Point(100, 100), New Point(200, 100), New Point(300, 100), New Point(100, 200), New Point(200, 200), New Point(300, 200), New Point(100, 300), New Point(200, 300), New Point(300, 300)}
    Private PictureBoxArray(8) As PictureBox

    Private Sub PictureSort_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        PictureBoxArray = {PictureBox1, PictureBox2, PictureBox3, PictureBox4, PictureBox5, PictureBox6, PictureBox7, PictureBox8, PictureBox9}
    End Sub
    Private Sub RepositionPictureBoxes()
        Dim lst = PointArray.ToList
        For Each pb In PictureBoxArray
            Dim index = Rand.Next(0, lst.Count)
            pb.Location = lst(index)
            lst.RemoveAt(index)
        Next
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        RepositionPictureBoxes()
    End Sub
End Class

uj5u.com熱心網友回復：

我的建議是使用控制元件陣列- 您在這里有一個示例應該會有所幫助：

Public Class frmPics

    Private pics As New List(Of PictureBox)
    Private Const picture_width As Integer = 100, picture_height As Integer = 50

    Sub New()

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.

        ' instantiate controls
        Dim font As New Font("Arial", 20, FontStyle.Regular, GraphicsUnit.Pixel)

        For i As Integer = 1 To 9
            Dim pic As New PictureBox
            pic.Visible = False
            pic.Name = "pic" & i
            pic.Text = i.ToString
            Console.WriteLine("Create control: name: " & pic.Name)

            ' generate an ad-hoc bitmap image showing the index of the control
            Dim bitmap As New Bitmap(picture_width, picture_height)
            Using g As Graphics = Graphics.FromImage(bitmap)
                Dim width As Integer = CInt(g.MeasureString(Text, font).Width)
                Dim height As Integer = CInt(g.MeasureString(Text, font).Height)
            End Using
            Using g As Graphics = Graphics.FromImage(bitmap)
                g.Clear(Color.Blue)
                g.DrawString(i.ToString, font, New SolidBrush(Color.White), 0, 0)
            End Using

            pic.Image = bitmap

            pics.Add(pic)
            Me.Controls.Add(pic)

        Next

    End Sub

    Private Sub btnShuffle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShuffle.Click
        Dim x As Integer = 10, y As Integer = picture_height
        Dim counter As Integer = 1
        Dim rnd As New Random()

        ' show controls on form
        Console.WriteLine("Show controls on form")
        Me.SuspendLayout()
        For Each item In pics.OrderBy(Function() rnd.Next)
            item.Width = picture_width
            item.Height = picture_height
            item.Location = New Point(x, y)
            item.BorderStyle = BorderStyle.FixedSingle
            item.Visible = True
            Console.WriteLine("counter: " & counter & " - control name" & item.Name & " - position: " & item.Location.X & "/" & item.Location.Y & " text: " & item.Text)

            ' reset X position every 3 iterations
            If counter Mod 3 = 0 Then
                x = 10
                y  = item.Height
            Else
                x  = item.Width
            End If

            counter  = 1
        Next
        Me.ResumeLayout()

    End Sub

End Class

標籤：网络

上一篇：在子表單中發送資料

下一篇：Excel編號和子編號