| bsp; Me.Button1 = New System.WinForms.Button()
Me.Button2 = New System.WinForms.Button()
Me.AxAgent1 = New AxAgentObjects.AxAgent()
AxAgent1.BeginInit()
''''@design Me.TrayHeight = 0
''''@design Me.TrayLargeIcon = False
''''@design Me.TrayAutoArrange = True
Button1.Location = New System.Drawing.Point(32, 8)
Button1.Size = New System.Drawing.Size(80, 32)
Button1.TabIndex = 1
Button1.Text = "Button1"
Button2.Location = New System.Drawing.Point(120, 8)
Button2.Size = New System.Drawing.Size(80, 32)
Button2.TabIndex = 2
Button2.Text = "Button2"
AxAgent1.Size = New System.Drawing.Size(56, 40)
AxAgent1.OcxState = CType(resources.GetObject("AxAgent1.OcxState"), System.WinForms.AxHost.State)
AxAgent1.TabIndex = 0
AxAgent1.Location = New System.Drawing.Point(216, 32)
Me.Text = "Form1"
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.Controls.Add(Button2)
Me.Controls.Add(Button1)
Me.Controls.Add(AxAgent1)
AxAgent1.EndInit()
End Sub
#End Region
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Me.Dispose()
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
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请勿生气
''''上面是开一个小玩笑，如果要真正的读中文，就用下面的
''''Genie.Speak("CNstring ",CNstring.wav) ''''这里的CNstring就是中文的语音文件
genie.Hide() ''''使用hide方法隐藏agent
End Sub
Private Sub Form1_MouseDown(ByVal eventSender As Object, B 上一页 [1] [2] [3] 下一页 | 
