|
分類:[VB.NET/VB2005 以降]
2009/08/05(Wed) 15:47:10 編集(投稿者)
2009/08/05(Wed) 15:47:05 編集(投稿者)
<pre><pre>お世話になります。
VisualStudio2008Professionalを今日インストールしたばかりの素人です。
(ExcelVBAやAccessVBAでのプログラム作成経験はあります)
とりあえず「何か」を作ってみようと思い下記の様なプログラムを書いてみましたが早速壁に当たりました。
作ろうと思ったのは、フォーム上にラベル(名称:maru，テキスト:●)とSTARTボタンを配置し
STARTボタンが押されたら「●」がフォーム左上から右下へ移動するだけのものです。
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
Dim intFormHeight As Integer
Dim intFormWidth As Integer
Dim x As Integer
Dim y As Integer
Me.btnStart.Visible = False
intFormHeight = Me.Height
intFormWidth = Me.Width
For y = 0 To intFormWidth
For x = 0 To intFormHeight
Me.maru.Location.X = x ←a
Me.maru.Location.X = x ←b
Next
Next
Me.btnStart.Visible = True
End Sub
上記の様に作ってみたのですが、VBEのテキスト上a,bの行に波下線が表示され、そこをポイントすると
「Expressionは値であるため、代入式のターゲットにすることはできません。」
と表示されます。
次に、問題のa,bを
Me.maru.Location= (x,y)
としてみたのですが、
「型'Integer'の値を'System.Drawing.Point'に変換できません。」
と出ます。
これは表記自体問題がある気もしますが．．なんとか'System.Drawing.Point'の型を表記できればクリアできる気もします。
この様な場合、どの様に作れば良いものなんでしょうか？
</pre></pre>
|
