正文
vb.net实现桌面弹球的简单介绍
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
求大神用VB编写一个随机弹球。。急急急。。。。
'一个timer1控件，一个picture1控件，在picture1控件中再加入一个shape1控件。单击picture1控件可以暂停或继续
Option Explicit
Const offset = 200
Dim flag As Boolean, u, r
Private Sub Form_Load()
With Timer1
.Enabled = False
.Interval = 30
End With
Randomize
u = Int(Rnd * 2): r = Int(Rnd * 2)
End Sub
Private Sub Form_Resize()
With Picture1
.Top = 10
.Left = 10
.Height = Me.ScaleHeight - 2 * .Top
.Width = Me.ScaleWidth - 2 * .Left
End With
With Shape1
.Width = Picture1.Width / 20
.Left = (Picture1.Width - .Width) / 2
.Top = (Picture1.Height - .Height) / 2
.Shape = 3
.FillStyle = 0
.FillColor = vbRed
End With
End Sub
Private Sub Picture1_Click()
flag = Not flag
If flag Then Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If Not flag Then
Timer1.Enabled = False
Exit Sub
End If
With Shape1
If r = 1 And u = 1 Then '右上
.Left = .Left + offset
If .Left + .Width = Picture1.Width Then
.Left = Picture1.Width - .Width
r = 0
End If
.Top = .Top - offset
If .Top = 0 Then
.Top = 0
u = 0
End If
End If
If r = 1 And u = 0 Then '右下
.Left = .Left + offset
If .Left + .Width = Picture1.Width Then
.Left = Picture1.Width - .Width
r = 0
End If
.Top = .Top + offset
If .Top + .Height = Picture1.Height Then
.Top = Picture1.Height - .Height
u = 1
End If
End If
If r = 0 And u = 1 Then '左上
.Left = .Left - offset
If .Left = 0 Then
.Left = 0
r = 1
End If
.Top = .Top - offset
If .Top = 0 Then
.Top = 0
u = 0
End If
End If
If r = 0 And u = 0 Then '左下
.Left = .Left - offset
If .Left = 0 Then
.Left = 0
r = 1
End If
.Top = .Top + offset
If .Top + .Height = Picture1.Height Then
.Top = Picture1.Height - .Height
u = 1
End If
End If
End With
End Sub
相关问答
Q1: VB.net怎么弹出如下类似的对话框（看图）？
可以利用msgbox 实现，也可以通过另外的窗体上画出表格实现
方法一，利用msgbox：
Private Sub Command1_Click()Dim a As Long, b As Long, c As LongMsgBox "┌────┬────┬────┐" vbCrLf _ "│ 库存1 │ 库存2 │ 库存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function
方法二，利用窗体实现：
’新建form2窗体‘将以下代码复制到form2窗体中Private Sub Form_Load()ShowPrint "┌────┬────┬────┐" vbCrLf _ "│ 库存1 │ 库存2 │ 库存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function‘将以下代码复制在form1窗体中Private Sub Command1_Click()Form2.ShowEnd Sub
Q2: VB.NET如何让弹出的窗体显示在所有的窗体的最前面（包括其他程序打开的窗体）
vb.net实现桌面弹球你可以这样做vb.net实现桌面弹球，设置窗体vb.net实现桌面弹球的TopMost 属性为真vb.net实现桌面弹球！
Me.TopMost = True
Form.TopMost 属性
获取或设置一个值vb.net实现桌面弹球，指示该窗体是否应显示为最顶层窗体。
Q3: VB.NET中，如何动态创建非模态窗体，类似于QQ一样，双击一个头像会弹出一个窗口。
做一个窗体模板vb.net实现桌面弹球，假设是Form2
Dim x as New Form2
x.Show()
如果弹出窗口较多vb.net实现桌面弹球，x可以用动态数组替代
Q4: vb.net的弹出式菜单怎么做
工具箱里有ContextMenu（.NET2.0以后名字有点变化，大概差不多），你加入窗体后就可以像编辑普通菜单那样编辑。
编辑好后，选中你要添加菜单的控件。属性窗口里有个ContextMenu属性，在里面选你刚才建立的ContextMenu
关于vb.net实现桌面弹球和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
