vb图片如何设置在不同位置

① VB 拖动图片放到窗体任意位置

Private isMouseDown As Boolean = False
Private isSpaceDown As Boolean = False
Private mouseOffset As Point '记录鼠标指针坐标

Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
mouseOffset.X = e.X
mouseOffset.Y = e.Y
isMouseDown = True
End If
End Sub

Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
If isMouseDown = True And isSpaceDown = True Then
Dim left As Integer = PictureBox1.Left + e.X - mouseOffset.X
Dim top As Integer = PictureBox1.Top + e.Y - mouseOffset.Y
PictureBox1.Location = New Point(left, top)

End If
End Sub

Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
If e.Button = Windows.Forms.MouseButtons.Left Then
isMouseDown = False
End If
End Sub

Private Sub Form1_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Space Then
isSpaceDown = True
End If
End Sub

Private Sub Form1_KeyUp(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
If e.KeyCode = Keys.Space Then
isSpaceDown = False
End If
End Sub

② vb picture加载图片指定位置

VB可PaintPicture 方法在对象上绘制图形。

PaintPicture 方法

用以在 Form, PictureBox 或 Printer
上绘制图形文件（.bmp、.wmf、.emf、.cur、.ico或 .dib）的内容。

③ 如何用VB在指定位置中显示指定图形

你可以用空格来控制字符串的显示位置，具体代码如下

PrivateSubForm_Click()
Print"*******************"
Print"*hello*"
Print"*******************"
EndSub

④ vb6.0中设置一张图片在所有的窗口同一位置都能显示，如何操作

切换窗口就是将本窗口隐藏，另一个窗口显示，比如form2.show:me.hide，什么时候要切换就把代码加哪里。

⑤ vb中，如何将一幅图片定位到一个picture窗口中特定位置处

不需要多少代码~
做一个picture1 大小要大
picture2小点

以下代码可以跟随鼠标来定位图片(请向picture2中载入一张图片)

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture2.Left = X
Picture2.Top = Y
Me.Caption = X & "," & Y
End Sub

⑥ vb多个图片控件如何前后显示，即位置靠下的在前位置靠上的在后，控件数是比较多的

方法：
ReOrder()
'然后就能看到重新排列了的PictureBox。
'如果你所说的“图片控件”是Image的话，就把所有的"PictureBox"替换成"Image"，并且适当修改CtrlIsPictureBox函数。
'如果还不行，就找我。QQ:838816058

Sub ReOrder()
Dim PicCtrl As Control '控件（这是个“代词”，可以指代任何一个控件）
Dim NumOfPics As Long 'PictureBox的数量
Dim Indxs() As Control '把所有PictureBox制成一张表
Dim I&, J& '临时索引
For Each PicCtrl In Form1.Controls
If CtrlIsPictureBox(PicCtrl) Then NumOfPics = NumOfPics + 1 '先统计出共有多少个PictureBox
Next
ReDim Indxs(NumOfPics - 1) '创建数组
I = 0
For Each PicCtrl In Form1.Controls
If CtrlIsPictureBox(PicCtrl) Then
Set Indxs(I) = PicCtrl '制PictureBox表
I = I + 1
End If
Next
For I = 0 To NumOfPics - 1 '分配顺序
For J = 0 To NumOfPics - 1 '分配顺序
If Indxs(I).Top < Indxs(J).Top Then '如果编号I的控件在编号J的控件上方
If I < J Then '如果编号I靠后
Set PicCtrl = Indxs(I)
Set Indxs(I) = Indxs(J)
Set Indxs(J) = PicCtrl '交换PictureBox表项
End If
ElseIf Indxs(I).Top > Indxs(J).Top Then '如果编号I的控件在编号J的控件下方
If I > J Then '如果编号I靠前
Set PicCtrl = Indxs(I)
Set Indxs(I) = Indxs(J)
Set Indxs(J) = PicCtrl '交换PictureBox表项
End If
End If '如果高度相等，不管他
Next
Next
'这时的Indxs数组就是Form1的所有PictureBox的集合（注意！这里说的集合是数学概念，不是Collection类型），并且按从上到下的顺序排列。
For I = 0 To NumOfPics - 1
Indxs(I).ZOrder 1 '依次进行“置前”命令，越靠下的越靠前。
Next
Erase Indxs
End Sub

Function CtrlIsPictureBox(CtrlIn As Control) As Boolean '判断一个控件是不是PictureBox
On Error GoTo Raisederr
CtrlIn.PaintPicture CtrlIn.Image, 0, 0, 15, 15, 0, 0, 15, 15, vbSrcCopy '调用这个控件的函数和属性（调用了Image属性，PaintPicture函数，如果成功，说明是PictureBox。这个调用实际上不起作用。）
CtrlIsPictureBox = True '要是成功，返回True
Raisederr: '要是不成功，直接退出这个函数（如果不设置返回值，VB6默认返回False）
End Function

'ZOrder函数用法：
控件（或窗口）.ZOrder 1或0
比如，Form1里面有两个CommandButton，分别叫CMD1和CMD2。现在CMD2比较靠前，如果要让CMD1靠前，可以这样：
CMD1.ZOrder 1
或者：
CMD2.ZOrder 0
其中前者表示把CMD1往前放一层，后者则把CMD2往后放一层。效果一样的不信你试。

⑦ vb如何产生图片，使它们位置固定但顺序随机

1、每次运行Int(Rnd * 5)，都会获取一个随机数字，你的代码相当于获取了10个随机数
2、只有五张图片，获取五个数字就可以了，简单修改如下：
Private Sub Form_Load()
Randomize
dim m as integer
m=Int(Rnd * 5)
Image1(m).Top = 1560
Image1(m)).Left = 0
m=Int(Rnd * 5)
Image1(Int(Rnd * 5)).Top = 3360
Image1(Int(Rnd * 5)).Left = 3120
m=Int(Rnd * 5)
Image1(Int(Rnd * 5)).Top = 4200
Image1(Int(Rnd * 5)).Left = 6960
m=Int(Rnd * 5)
Image1(m).Top = 3120
Image1(m).Left = 10800
m=Int(Rnd * 5)
Image1(m).Top = 1440
Image1(m).Left = 14040
End Sub

⑧ vb 中插入图片后，如何用语句调整图片位置啊

调整位置,最好用Move方法,这样效率要比直接修改Left和Top属性要高的多

例:
Image1.Move 10000,3000
Picture1.Move 2000,2000

语法
object.Move left, top, width, height
Move 方法的语法包含下列部分：
部分 描述
object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，带有焦点的窗体缺省为 object。
left 必需的。单精度值，指示 object 左边的水平坐标 (x-轴)。
top 可选的。单精度值，指示 object 顶边的垂直坐标 (y-轴)。
width 可选的。单精度值，指示 object 新的宽度。
height 可选的。单精度值，指示 object 新的高度。

⑨ 如何在vb中使图片随机出现在不同位置上

图片放在PictureBox控件中的：

PrivateSubForm_Load()
Randomize
Picture1.Move(Me.ScaleWidth-Picture1.Width)*Rnd,(Me.ScaleHeight-Picture1.Height)*Rnd
EndSub

图片放在Image控件中的：

PrivateSubForm_Load()
Randomize
Image1.Move(Me.ScaleWidth-Image1.Width)*Rnd,(Me.ScaleHeight-Image1.Height)*Rnd
EndSub

不用控件，直接调用图片文件的：

PrivateSubForm_Load()
DimtpAsStdPicture
Randomize
Me.AutoRedraw=True
Settp=LoadPicture("e:	mpcd1.gif")
Me.PaintPicturetp,(Me.ScaleWidth-tp.Width)*Rnd,(Me.ScaleHeight-tp.Height)*Rnd
EndSub

⑩ 在VB中插入图片后,如何能用代码控制具体位置啊

其一：用图片框装上，移动图片框的top和left即可