投稿日 | : 2004/04/12(Mon) 14:35 |
投稿者 | : 川島 |
URL | : |
タイトル | : Re^2: マウスクリックでテキスト作成 |
> テキストエリア=テキストボックスでしょうか?
>
> 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
>
> でどうでしょう?
Text(index-1).Visible = False
ここらへんで怒られます。(;_;)
先にテキストボックスを作って非表示にするべきでしょうか?
すいません、初歩的な質問で。