フォーム上に配置した複数のテキストボックスを複数選択するには？ (ID:112060)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

とりあえず
Option Explicit
Private SelectFlag() As Boolean
Private MoveFlag As Boolean
Private OX As Single
Private OY As Single

Private Sub Form_Load()
ReDim SelectFlag(Text1.UBound)
End Sub

Private Sub Text1_Click(Index As Integer)
        If SelectFlag(Index) Then
            SelectFlag(Index) = False
            Text1(Index).BackColor = RGB(255, 255, 255)
        Else
            SelectFlag(Index) = True
            Text1(Index).BackColor = RGB(255, 0, 0)
        End If
End Sub

Private Sub Text1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    MoveFlag = True
    OX = X
    OY = Y
End Sub

Private Sub Text1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim i As Integer
    If MoveFlag = True Then
        For i = Text1.LBound To Text1.UBound
            If SelectFlag(i) = True Then
            With Text1(i)
                If OX <> X Then .Left = .Left - (OX - X)
                If OY <> Y Then .Top = .Top - (OY - Y)
            End With
            
            End If
                
        Next i
    End If
End Sub

Private Sub Text1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
MoveFlag = False
End Sub

後は自力でどうぞ。

←解決時は質問者本人がここをチェックしてください。

戻る