哪位大神可以帮帮我，如何在VB中使两个移动中的image相碰导致程序结束。。？？

1. 哪位大神可以帮帮我，如何在VB中使两个移动中的image相碰导致程序结束。。？？

dim w as long,h as long,
dim w2 as long,h2 as long
w=image1.left+image1.width
h=image1.top+image1.height
h2=image2.top+image2.height
w2=image2.left+image2.width
with image2
' 1 左右碰撞：
if (w>=.left) and (h>=.top and image1.top<=h2) then end
' 2上下碰撞：
if (h>=.top) and (w>=.left and image1.left<=w2) then end
end with

2. 在vb中如何判断一个可移动的控件是否触碰到另一个控件？

'自定义判断函数Function IsTouched(a, b) As BooleanIsTouched = Not ( _    a.Left > b.Left + b.Width Or _    b.Left > a.Left + a.Width Or _    a.Top > b.Top + b.Height Or _    b.Top > a.Top + a.Height)End Function'判断控件是否触碰：If IsTouched(Picture1, Picture2) Then MsgBox "Picture1 碰到 Picture2"

3. 怎样将两个数字、符号或文字重叠在一起？

方法如下：两个数字、符号或文字重叠在一起就是Word里面的阴影效果。
1、打开Word文档，然后输入要制止阴影效果的艺术字，这里以“ 艺术字怎么设置阴影”为例来说明；

2、输入“ 艺术字怎么设置阴影”，然后移动鼠标选择它，选择之后后面才能设置阴影效果。

3、点击菜单栏中的“文字工具”如下图红色方框所示，然后在打开的文字工具菜单列表中选择“阴影”。

4、点击阴影后，就打开所有的预设阴影效果，选择喜欢的阴影效果即可。

5、选择好阴影效果后，Word文档中选择的“ 艺术字怎么设置阴影”就马上设置为选项的阴影效果了。

Microsoft Word 2010 提供了世界上最出色的功能，其增强后的功能可创建专业水准的文档，您可以更加轻松地与他人协同工作并可在任何地点访问您的文件。
Word 2010 旨在向您提供最上乘的文档格式设置工具，利用它还可更轻松、高效地组织和编写文档，并使这些文档唾手可得，无论何时何地灵感迸发，都可捕获这些灵感。

4. VB中的窗口为何不可移动？

设计的时候不需要移动，可以拉大小，运行的时候就可以移动了

5. VB中怎样使得picturebox控件在运行时可以移动

Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Public Const WM_SYSCOMMAND = &H112
Public Const SC_MOVE = &HF012 '移动图片时用

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    '拖动图片框。
    ReleaseCapture
    SendMessage Picture1.hWnd, WM_SYSCOMMAND, SC_MOVE, ByVal 0&
End Sub

用API函数

6. vb中如何可以移动滚动条的滚动框可以扩大或者缩小窗体

form1.width=scrollbar1.value

7. vb中，要使滚动条的初始值为100怎么设，且之后要可以移动，不能只停在100处

HScroll1.Min = 1      '最小值
HScroll1.Max = 200   '最大值
HScroll1.Value = 100   '当前值，也就是你说的初始值。你移动滚动条，这个值也会跟着变的

8. VB中怎么可以做到点击按钮 让按钮朝一个方向移动？

Private Sub Command1_Click()
  If Command1.Left > 0 Then Command1.Left = Command1.Left - 100
End Sub


晕，这年头，捞个分不容易。写好一刷新，就被别人抢沙发了。。。