nbsp; Label3.Size = New System.Drawing.Size(176, 88)
Label3.BorderStyle = System.WinForms.BorderStyle.Fixed3D
Label3.TabIndex = 16
AxAgent1.Size = New System.Drawing.Size(56, 40)
AxAgent1.OcxState = CType(resources.GetObject("AxAgent1.OcxState"), System.WinForms.AxHost.State)
AxAgent1.TabIndex = 1
AxAgent1.Location = New System.Drawing.Point(232, 216)
LinkLabel3.Text = "LinkLabel3"
LinkLabel3.Size = New System.Drawing.Size(0, 16)
LinkLabel3.TabIndex = 15
LinkLabel3.TabStop = True
LinkLabel3.Location = New System.Drawing.Point(352, 88)
lbExit.Location = New System.Drawing.Point(32, 48)
lbExit.Text = "退出"
lbExit.Size = New System.Drawing.Size(64, 24)
lbExit.TabIndex = 11
lbExit.BackColor = System.Drawing.SystemColors.Desktop
lbExit.TextAlign = System.WinForms.HorizontalAlignment.Center
Me.Text = "Form1"
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.BorderStyle = System.WinForms.FormBorderStyle.None
Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
Me.ClientSize = New System.Drawing.Size(392, 288)
Me.Controls.Add(lbShow)
Me.Controls.Add(Label3)
Me.Controls.Add(LinkLabel3)
Me.Controls.Add(lbExit)
Me.Controls.Add(lbpre)
Me.Controls.Add(AxAgent1)
AxAgent1.EndInit()
End Sub
#End Region
''''上面的是非编辑模块,就不用看了
Protected Sub lbExit_Click(ByVal sender As Object, ByVal e As System.EventArgs)
If frmpre <> Nothing Then ''''如果加载了新窗体
frmpre.Dispose() ''''终止新窗体
frmpre = Nothing ''''释放占用的资源
End If
Me.Dispose() ''''终止程序
End ''''彻底终止程序(如果程序无法退出,请使用此关键字)
End Sub
''''下面是动画过程,在前面的文章中很详细,可以不用看了!
Protected Sub lbshow_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
Protected Sub lbpre_Click(ByVal sender As Object, ByVal e As System.EventArgs)
If frmpre <> Nothing Then frmpre.Dispose() ''''如果新窗体已经存在,清除之
Dim strIm As String ''''定义一个字符类型变量
If Imindex <> 6 Then ''''反过来想,就是说如果到了6就从头开始,因这我只有这么几张图片了
imindex = Imindex + 1
Else
IMINDEX = 1 ''''从头开始
End If
strIm = "SK" & imindex.ToString ''''tostring的意思是从字符类型转为数字类型
''''在VB.net中label控件有image控件一样的作用,不但可以显示文本而且可以显示图片,而在VB6中是只能显示图片的
Label3.image = label3.Image.FromFile(System.WinForms.Application.StartUpPath & "\" & strim & ".GIF") ''''formfile是从一个路径装载图片
''''System.WinForms.Application.StartUpPath的意思是当前目录,同VB6中的App.Path
''''请注意调试过程中使用的当前目录是在bin目录下,在下一个版本有可能更改
frmpre = New form1(strim) ''''初始化一个实例(对象)
frmpre.Visible = True ''''显示新窗体,如果没有这个只怕你什么也看不到!
End Sub
''''下面是移动窗体的代码,请参考前面的文章
Private Sub Form1_MouseDown(ByVal eventSender As System.Object, ByVal eventArgs As System.WinForms.MouseEventArgs)
Me.Capture = False ''''释放鼠标捕获
Me.SendMessage(&HA1S, 2, 0) ''''这是VB6中最有名的API消息函数
End Sub
''''下面是鼠标移动_MouseMove时发生的事件了
Public Sub lbpre_MouseMove(ByVal sender As Object, ByVal e As System.WinForms.MouseEventArgs) Handles lbpre.MouseMove
lbpre.BackColor = system.drawing.Color.Black ''''设置颜色
lbpre.ForeColor = system.Drawing.Color.AliceBlue ''''设置颜色
End Sub
Public Sub lbExit_MouseMove(ByVal sender As Object, ByVal e As System.WinForms.MouseEventArgs) Handles lbExit.MouseMove
lbExit.BackColor = system.drawing.Color.Black ''''设置颜色
lbExit.ForeColor = system.Drawing.Color.AliceBlue ''''设置颜色
End Sub
Public Sub lbshow_MouseMove(ByVal sender As Object, ByVal e As System.WinForms.MouseEventArgs) Handles lbshow.MouseMove
lbshow.BackColor = system.drawing.Color.BLack ''''设置颜色
lbshow.ForeColor = system.Drawing.Color.AliceBlue ''''设置颜色
End Sub
''''下面是鼠标按下_MouseMove时发生的事件了
Public Sub lbpre_MouseDown(ByVal sender As Object, ByVal e As System.WinForms.MouseEventArgs) Handles lbpre.MouseDown
lbpre.BackColor = system.drawing.Color.Blue ''''设置颜色
lbpre.ForeColor = system.Drawing.Color.AliceBlue ''''设置颜色
End Sub
Public Sub lbExit_MouseDown(ByVal sender As Object, ByVal e As System.WinForms.MouseEventArgs) Handles lbExit.MouseDown
lbExit.BackColor = system.drawing.Color.Blue ''''设置颜色
lbExit.ForeColor = system.Drawing.Color.AliceBlue ''''设置颜色
End Sub
Public Sub lbShow_MouseDown(ByVal sender As Object, ByVal e As System.WinForms.MouseEventArgs) Handles lbShow.MouseDown
&n 上一页 [1] [2] [3] 下一页 [系统软件]3ds Max Exporter------Skin Bone Animation
|