ＶＢ６では、form1.currentx= 300
            form1.currenty=300
            form1.print "日本"
のように表示できたのですが、vb2005では同じような
表示方法があるのでしょうか。
（なお、Textbox、Labelは使用しないことを考えています)
もうひとつですが、フォームをマウスでクリックしたときに
x,yの値を取得できるでしょうか。
よろしくお願いします。

> ＶＢ６では、form1.currentx= 300
>             form1.currenty=300
>             form1.print "日本"
> のように表示できたのですが、vb2005では同じような
> 表示方法があるのでしょうか。

やり方はまったく異なりますが、同じようなこと自体はできます。
例えば、FormのPaintイベントでイベントの引数eのGraphicsプロパティから
Graphicsオブジェクトを取得し、このGraphicsクラスのDrawStringメソッド
を使って描画します。

> （なお、Textbox、Labelは使用しないことを考えています)
> もうひとつですが、フォームをマウスでクリックしたときに
> x,yの値を取得できるでしょうか。

VB2005以降(.NET Framework2.0以降)にはコントロールにMouseClickイベントがあり、
この際のイベントの引数(MouseEventArgsクラス)のプロパティX、Yで取れます。

よねＫＥＮさま

先日アドバイスいただいた後、色々試行錯誤を繰り返しましたが、理解できませんでした。
>FormのPaintイベントでイベントの引数eのGraphicsプロパティから
>Graphicsオブジェクトを取得し、このGraphicsクラスのDrawStringメソッド
>を使って描画します。

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
'xxxxxxxxxxxxx
End Sub

'xxxxxxx　にどんな命令を入れたらよいのか、ご指導ください。

また、
>VB2005以降(.NET Framework2.0以降)にはコントロールにMouseClickイベントがあり、
>この際のイベントの引数(MouseEventArgsクラス)のプロパティX、Yで取れます。

アドバイスいただきましたが、フォームをクリックしたとき、'xxxxxxx にどんな命令を
入力すれば、x,yを取得できるかわかりません。
Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
'xxxxxxxxxxxxxxxx        

End Sub

ここのTips集をご覧下さい。

　http://www.hanatyan.sakura.ne.jp/dotnet/index.html

花ちゃんさま
Tipsを参照させていただき、なんとか実行できました。ありがとうございました。

> ここのTips集をご覧下さい。
>
> 　http://www.hanatyan.sakura.ne.jp/dotnet/index.html

先に、text1(i) のロードの仕方を教わり、３０コのtext1をフォーム上に表示できるように
なりました。このテキストボックスをクリックしたとき、何番目のテキストボックスを
クリックしたのかを知ることはできるでしょうか。

イベントを起こしたコントロールを引数として送る形に
プログラムしたならそのまま取得すればいいし、

クリックした座標しか分からないようなプログラムを
作ったなら、全ての text1(i) のTop Left Width Height
から計算して判定すればいいのでは？

るしぇ さん
> クリックした座標しか分からないようなプログラムを
> 作ったなら、全ての text1(i) のTop Left Width Height
> から計算して判定すればいいのでは？

画面をクリックして、x,y　を取得できますが、text1(i)をクリックしてもx,yの値を取得で
きません。よい方法がないものでしょうか。

>text1(i)をクリックしてもx,yの値を取得できません。
text1(i)のクリックイベントで取得できます。

るしぇさま

text1(i)のクリックイベントを指定できず、あきらめました。
ご指導いただきありがとうございました。
またお世話になるときはよろしくお願いします。

> >text1(i)をクリックしてもx,yの値を取得できません。
> text1(i)のクリックイベントで取得できます。

>  text1(i)のクリックイベントを指定できず、あきらめました。

Private Sub TextBox1_MouseClick(ByVal sender As Object, _
         ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
   Debug.WriteLine("X= " & e.X & "   Y= " & e.Y)

   MessageBox.Show("X 座標 : " & Cursor.Position.X.ToString & "   " & _
                   "Y 座標 : " & Cursor.Position.Y.ToString)
End Sub

花ちゃん さま

活用させていただきます。
ありがとうございました。

> Private Sub TextBox1_MouseClick(ByVal sender As Object, _
>          ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
>    Debug.WriteLine("X= " & e.X & "   Y= " & e.Y)
>
>    MessageBox.Show("X 座標 : " & Cursor.Position.X.ToString & "   " & _
>                    "Y 座標 : " & Cursor.Position.Y.ToString)
> End Sub