投稿日 | : 2004/04/12(Mon) 14:22 |
投稿者 | : kamurin |
Eメール | : kamurin@hotmail.com |
URL | : |
タイトル | : Re: マウスクリックでテキスト作成 |
> フォーム上で左マウスクリックを押したら
> テキストエリアを作るようにしたいのですが
> マウス周りはなんとなくわかるんですが
> どうやったらテキストエリアが作れるのかがわかりません。
テキストエリア=テキストボックスでしょうか?
Dim TextIndex As Integer'テキストボックスの数
form_Loadとかで初期化
TextIndex=1
Text(index-1).Visible = False
Private Sub Form_Click()'クリックした時に、テキストボックスを作成
if TextIndex > 1 Then
Load Text(TextIndex-1)'2つ目以降なら作る
End If
Text(index - 1).Visible = True
TextIndex = TextIndex + 1
クリック位置に移動
Text(index - 1).Top=マウスのY座標
Text(index - 1).Left=マウスのX座標
End Sub
でどうでしょう?