投稿日	： 2004/04/12(Mon) 15:52
投稿者	： 川島
ＵＲＬ	：
タイトル	： Re^6: 解決しました。ありがとうございます。

kamurinさんサムさんご協力ありがとうございました。m(_ _)m
とりあえず完成いたしました。

Dim MusX As Single
Dim MusY As Single
Dim Index As Integer 'テキストボックスの数form_Loadとかで初期化
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MusX = X
MusY = Y
End Sub
Private Sub Form_Load()
Index = 1
Text1(Index - 1).Visible = False
End Sub

Private Sub Form_Click() 'クリックした時に、テキストボックスを作成

    If Index > 1 Then
        Load Text1(Index - 1)
        '2つ目以降なら作る
    End If
    
    Text1(Index - 1).Visible = True
    'クリック位置に移動
    Text1(Index - 1).Top = MusY
    Text1(Index - 1).Left = MusX
    Index = Index + 1
End Sub

ほとんどkamurinさんの写しですが(笑)
本当に助かりました。

★ - マウスクリックでテキスト作成 - 川島 04/12-13:52No.8641
• Re: マウスクリックでテキスト作成 - kamurin 04/12-14:22 No.8644
  • Re^2: マウスクリックでテキスト作成 - 川島 04/12-14:35 No.8645
    • Re^3: マウスクリックでテキスト作成 - kamurin 04/12-15:06 No.8647
    • Re^3: マウスクリックでテキスト作成 - サム 04/12-15:14 No.8648
      • Re^4: マウスクリックでテキスト作成 - kamurin 04/12-15:33 No.8650
        • Re^5: マウスクリックでテキスト作成 - 川島 04/12-15:44 No.8651
          • Re^6: 解決しました。ありがとうございます.. - 川島 04/12-15:52 No.8652