• ベストアンサー

pictureBoxそのものの位置を移動させたい

zhaojieの回答

  • ベストアンサー
  • zhaojie
  • ベストアンサー率100% (1/1)
回答No.1

VBのコード： Private Sub Command1_Click() With Me.Picture1 .Left = 460 .Top = 580 End With End Sub ======================= VB.NETのコード： Me.PictureBox1.Location = New System.Drawing.Point(184, 147)

kimbauer
質問者

お礼

zhaojieさま。 VB.NETのコードの方でうまくいきました！ありがとうございます！助かりました。

この回答がついた質問に戻る
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • [続編]　pictureBoxそのものの位置を移動させたい　-- 残像取り除きたい

    以前、『pictureBoxそのものの位置を移動させたい』というタイトルで質問させていただきました。変数iを用意して、iの値が変わるたびにpictureBoxそのものが動いているように見せかけるというもの。これに関しては、zhaojieさまから教えていただき、 Me.PictureBox1.Location = New System.Drawing.Point(i, j) で実現できました。しかしながら、実際に描画させると残像が残ってしまうようです。これをどうにかしたい。添付資料上部は初期状態で、右下に動かしたいピクチャーボックスがあります。これにある処理（グラフをかかせる）をさせながらピクチャーボックスを移動させたのが下部になります。ピクチャーボックスが左に移動しているのがわかると思います。ただ、軌跡が残像として残ってしまいます。これをなくす対処方法があれば教えてください。

  • pictureboxの名前を変数で設定したい

    form1に100個のpicturbox(picturebox1～picturebox100)が乱雑に貼り付けられていて pictuteboxのleftとtopをプログラムで指定したいのですが picturboxの名前を変数でとるにはどうしたらよいでしょうか。 （処理に内容で配置が変わるため変更したい） 下記では上手くできませんでした。 for i=1 to 100 Dim pic As PictureBox = Me.Controls("PictureBox" & i).left=xx(i) next 環境 windows 7 Microsoft Visual 2010 express

  • 変数

    Dim トータル As Integer トータル = 200 Dim 変数１(トータル) As Integer Dim 変数２(トータル) As Integer Dim 変数３(トータル) As Integer Dim 変数４(トータル) As Integer ※変数１～４に同じ数の変数（クローン？？）を用意したいのですがエラーがでます。 このような使い方は出来ないのでしょうか？ なお、VB上ではローマ字で使っています。 変数は６個ぐらいあり　毎回変えるのは面倒なので・・・ （スパイラルモデル方式？？といっても使うのは私自信ですが・・・）

  • VB2005での画像処理

    各ピクセルの色情報を取得し，そのままコピーするプログラムです． 同じ大きさのPictureBox1とPictureBox2，それとButton1があります． エラーや警告は出ませんが，Button1をクリックしてもまったく動きません． 最終的にはPictureBox1を画像処理してPictureBox2に結果を表示させたいのですが，そのままコピーも出来ないため原因を探しています． A = picture1.GetPixel(i, j).ToArgb() picture2.SetPixel(i, j, color.FromArgb(A)) ではだめなのでしょうか．ご教授ください． -----以下プログラム------ Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer Dim j As Integer Dim A As Integer Dim picture1 As New Bitmap(PictureBox1.Image) Dim picture2 As New Bitmap(PictureBox2.Image) For j = 0 To PictureBox1.Width - 1 For i = 0 To PictureBox1.Height - 1 A = picture1.GetPixel(i, j).ToArgb() picture2.SetPixel(i, j, color.FromArgb(A)) Next Next End Sub

  • 「右クリック でドラッグ＆ドロップ」で縦横の移動できるようにしたいです。

    お世話になります。 ＶＢ６で質問です。 　 form [ 1000*1000 ] << A picturebox [300*300 ] << B [A]の真中に[B]を配置して、[B]を「右クリック でドラッグ＆ドロップ」で縦横の移動できるようにしたいです。 下記のようにしたところ、マウスのみで動いてしまい「右クリック」が関連しません。 Private Sub picturebox_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 　picturebox.Top = Y End Sub 　この場合のプログラムを教えて欲しいです。

  • エクセルマクロに関する質問

    最近、エクセルマクロを始めてたのですが、下記のような状態で困っています。 プログラムを実行した際に、Cells((I1 + I5), I6)のセルに計算式がはいって欲しいのですが、 現状では計算結果が入るだけになってしまっています。 また、単純に文字列に変換してしまうだけだと、変数が邪魔になって式になってくれません。 誰かお分かりになる方がいましたら、教えてください。 　Dim I1 As Integer Dim I2 As Integer Dim I3 As Integer Dim I4 As Integer Dim I5 As Integer Dim I6 As Integer Dim I7 As Integer Dim I8 As Integer Cells((I1 + I5), I6) = Cells((I1 + I5) - 2, I6) + Cells((I1 + I5), I6 - 2) - Cells(I1 + I5, I6 - 1)

  • 【Excel_VBA】オブジェクト名の変数

    ExcelVBA（2007）でシートのオブジェクト名を変数で回したく、下記コードを用いたのですがエラーが出現します。 【コード】 Dim i As Integer For i = 1 To 10 Sheet & i.Activate Next i 【エラー内容】 コンパイルエラー： 修正候補：式 この場合、どのような方法を用いたらシートのオブジェクト名を変数でうまく回すことができるのか、ご教授いただければ助かります。 よろしくお願いします。

  • VBAで図のindex番号を変数に挿入したら・・・

    VBAで、オートシェイプのインデックス番号を変数に挿入すると途中で初期化されてしまいました。 VBAのチェックボックスを用いて各チェックボックスごとに、 ある画像の座標からAX,AY+aの位置に幾つかの円を表示し、 チェックを外すと作成した円を削除するプログラムを作っています。 また、最終的にはチェックボックスを複数(10~15)個作ってそれに対応した 円だけを表示するようなプログラムにしたいと考えています。 下のプログラムをデバックすると※2の部分で変数の値が""、 最終的に※3の行で止まってしまいます。 Option Explicit Public i As Long '繰り返し変数定義 Public ix As Integer '繰り返し回数変数定義 Public X As Integer '基準位置情報変数定義(x軸) Public Y As Integer '基準位置情報変数定義(y軸) Public AX As Integer '移動位置情報変数定義(x軸) Public AY As Integer '移動位置情報変数定義(y軸) Private Sub CheckBox1_Click() Static O() As Variant Y = ActiveSheet.Shapes("Picture 1“).Top '図の上端の位置を変数に挿入 X = ActiveSheet.Shapes("Picture 1").Left '図の左端の位置を変数に挿入 i = 0 ix = 3 '繰り返し回数を変数に挿入 ReDim O(ix) AX = X + 500 AY = Y + 280 '--------------------------------------------------- If CheckBox1.Value = True Then 'チェック有 Do Until i = ix ActiveSheet.Shapes.AddShape(msoShapeOval, AX + (i * 24), AY, _ 16, 16).Select O(i) = Selection.Index MsgBox O(i)　※1 i = i + 1 Loop End If MsgBox O(i)　※2 If CheckBox1.Value = False Then 'チェック無 i = 0 Do Until i = ix ActiveSheet.Shapes.Range(O(i)).Delete　※3 i = i + 1 Loop End If End Sub ↑のようなプログラムを組むと、チェック有の If 終了時 ※2のMsgBox O(i)でO(i)が初期化？されて値が表示されなくなってしまっていま す。 IFの処理中(※1)ではO(i)の値が正常に出力されていたので、 IF終了時に値がなくなっていると思うのですが、 どういった現象が起きているのでしょうか？ また、作成した円を上手く削除するにはどうすれば良いでしょうか？ この形にこだわっているわけではないので、もっといい方法があれば ご教授頂けると幸いです。 どうかよろしくお願いします。

  • VB2005のピクチャーボックス内の図形の移動

    VB2005で、formにPictureBox一つと、Button三つをおいて、Button1で、PictureBoxに丸を書いて、Button2とButton3で、PictureBox内で、丸を右左に移動させようと考えています。で丸を書くことと、同じプロシジャー内では、移動させることはできました。が、別のプロシジャーから移動させるってことは出来るのでしょうか？VB2005をやり始めたばかりなのでてんでわかりません。どなたか詳しい方いらっしゃいましたら教えてください。よろしくお願いします。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim g As Graphics = PictureBox1.CreateGraphics() g.Clear(PictureBox1.BackColor) Dim w As Integer = PictureBox1.ClientSize.Width / 3 Dim h As Integer = PictureBox1.ClientSize.Height / 3 g.ResetTransform() g.DrawEllipse(Pens.Black, 0, 0, w, h) g.TranslateTransform(80, 50) g.DrawEllipse(Pens.Black, 0, 0, w, h) g.ResetTransform() g.Dispose() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim g As Graphics = PictureBox1.CreateGraphics() g.TranslateTransform(80, 50) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click End Sub End Class

  • ＶＢＡで縦一列に数字を入力したい

    Private Sub CommandButton1_Click() Dim n As Integer Dim i As Integer Dim x As Integer For i = 1 To n x = i + 3 n = InputBox("層数の値を入力してください") Cells(3, 1).Value = ("基板") Cells(x, 1).Value = i x = x + 1 Next End Sub 上記のようなマクロを組んだのですが、4行目に1が入ってとまってしまいました。 これを完成させるにはどうしたらいいでしょうか？

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する