- 日時： 2011/04/05 13:12
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[コントロール共通][基本コード][] *
* キーワード：動的作成,実行時に作成,配列,テキストボックス,ボタン,イベント処理 *
***********************************************************************************
元質問：マウスクリックでテキスト作成 - 川島 2004/04/12-13:52 No.8641
フォーム上で左マウスクリックを押したらテキストエリアを作るようにしたいのですが、マウス周りはなんとなくわかるんですが、どうやったらテキストエリアが作れるのかがわかりません。
----------------------------------------------------------------------------
Re^6: 解決しました。ありがとうございます.. - 川島 2004/04/12-15:52 No.8652
----------------------------------------------------------------------------
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さんの写しですが(笑)
本当に助かりました。
|
マウスクリックでテキスト作成(VB6.0)_4