te))
Me.Label3.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.Label3.Location = New System.Drawing.Point(200, 16)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(168, 88)
Me.Label3.TabIndex = 4
''''
''''lbExit
''''
Me.lbExit.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte))
Me.lbExit.Location = New System.Drawing.Point(80, 72)
Me.lbExit.Name = "lbExit"
Me.lbExit.Size = New System.Drawing.Size(56, 16)
Me.lbExit.TabIndex = 1
Me.lbExit.Text = "退出程序"
''''
''''lbShow
''''
Me.lbShow.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte))
Me.lbShow.Location = New System.Drawing.Point(80, 24)
Me.lbShow.Name = "lbShow"
Me.lbShow.Size = New System.Drawing.Size(56, 16)
Me.lbShow.TabIndex = 3
Me.lbShow.Text = "散散心吧"
''''
''''lbPre
''''
Me.lbPre.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte))
Me.lbPre.Location = New System.Drawing.Point(80, 48)
Me.lbPre.Name = "lbPre"
Me.lbPre.Size = New System.Drawing.Size(56, 16)
Me.lbPre.TabIndex = 2
Me.lbPre.Text = "外观应用"
''''
''''AxAgent1
''''
Me.AxAgent1.Enabled = True
Me.AxAgent1.Location = New System.Drawing.Point(224, 176)
Me.AxAgent1.Name = "AxAgent1"
Me.AxAgent1.OcxState = CType(resources.GetObject("AxAgent1.OcxState"), System.Windows.Forms.AxHost.State)
Me.AxAgent1.Size = New System.Drawing.Size(56, 40)
Me.AxAgent1.TabIndex = 0
''''
''''Form1
''''
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte))
Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Bitmap)
Me.ClientSize = New System.Drawing.Size(432, 287)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label3, Me.lbShow, Me.lbPre, Me.lbExit, Me.AxAgent1})
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
Me.Text = "Form1"
CType(Me.AxAgent1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
''''&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
''''注意注意beta2这里的变化
''''默认的给了你一个VB6中的load过程
''''&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
End Sub
''''上面的是非编辑模块，就不用看了
Protected Sub lbExit_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbExit.Click
''''&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
''''注意注意beta2这里的变化
''''Click的参数不一样了
''''&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
If Not frmpre Is Nothing Then ''''如果加载了新窗体
''''&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
''''请用Not frmpre Is Nothing 不要使用frmpre<>nothing
''''&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
frmpre.Dispose() ''''终止新窗体
frmpre = Nothing ''''释放占用的资源
End If
Me.Dispose() ''''终止程序
End ''''彻底终止程序（如果程序无法退出，请使用此关键字）
End Sub
''''下面是动画过程，在前面的文章中很详细，可以不用看了！
Protected Sub lbshow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbShow.Click
Genie.Left = 500 ''''设定agent的位置
Genie.Show() ''''使用show方法显示agent
Genie.MoveTo(12, 180) ''''moveto方法是移动agent到一个位置，如果加上定时器，你可以很容易地让他在屏幕上 乱跑()
MessageBox.Show("如果你是MM,请按Ctrl+Alt+Del关闭 " & Chr(10) & Chr(13) & "您真的要继续吗, 等到我不 动再说！")
Genie.Speak("ni hao") ''''发出声音
MessageBox.Show("你好") ''''对话框，更多的参数请看以前的相关文章
Genie.Speak("WO SHI HAO KAN DI") ''''发出声音
MessageBox.Show("我是好看的") ''''对话框，更多的参数请看以前的相关文章
Genie.Speak("NI SHI NAN KAN DI") ''''发出声音
MessageBox.Show("你是难看的") ''''对话框，更多的参数请看以前的相关文章
Genie.Speak("ZIA JIE MIMI ") ''''发出声音
MessageBox.Show("再见 MM") ''''对话框，更多的参数请看以前的相关文章
Genie.Play("Wave") ''''挥手致意
''''众MM请勿生气
''''上面是开一个小玩笑，如果要真正的读中文，就用下面的
& 上一页 [1] [2] [3] [4] [5] [6] 下一页 |
