|
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] 下一页
[互联动态]Windows Server 2008 Beta 3官方ISO下载 [聊天工具]体验高速FlashGet1.80beta2评测
[聊天工具]Foxmail 6.0 Beta2最新技巧三则_联络工具_Foxmail… [聊天工具]新浪UC2005III Beta2新鲜试用__天极Yesky
[聊天工具]新浪UC2005III Beta2新功能介绍__天极Yesky [聊天工具]UC2005III Beta2发布 主界面重新设计__天极Yesky
[聊天工具]Yahoo新邮箱Mail Beta界面截图__天极Yesky [聊天工具]试用微软Messenger 8.0 Beta中文版！__天极Yesky
[聊天工具]Yahoo新邮件系统Mail Beta开始测试__天极Yesky [聊天工具]Foxmail 6.0 Beta2实用新功能讲解__天极Yesky
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
