|
em.Resources.ResourceManager(GetType(Form1))
Me.components = New System.ComponentModel.Container()
Me.lbpre = New System.WinForms.Label()
Me.lbShow = New System.WinForms.Label()
Me.Label3 = New System.WinForms.Label()
Me.AxAgent1 = New AxAgentObjects.AxAgent()
Me.LinkLabel3 = New System.WinForms.LinkLabel()
Me.lbExit = New System.WinForms.Label()
AxAgent1.BeginInit()
''''@design Me.TrayHeight = 90
''''@design Me.TrayLargeIcon = False
''''@design Me.TrayAutoArrange = True
lbpre.Location = New System.Drawing.Point(32, 72)
lbpre.Text = "窗体"
lbpre.Size = New System.Drawing.Size(64, 24)
lbpre.TabIndex = 10
lbpre.BackColor = System.Drawing.SystemColors.Desktop
lbpre.TextAlign = System.WinForms.HorizontalAlignment.Center
lbShow.Location = New System.Drawing.Point(32, 24)
lbShow.Text = "动画"
lbShow.Size = New System.Drawing.Size(64, 24)
lbShow.TabIndex = 17
lbShow.BackColor = System.Drawing.SystemColors.Desktop
lbShow.TextAlign = System.WinForms.HorizontalAlignment.Center
Label3.Location = New System.Drawing.Point(176, 16)
Label3.Text = " "
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
lbshow.BackColor = system.drawing.Color.Blue ''''设置颜色
lbshow.ForeColor = system.Drawing.Color.AliceBlue ''''设置颜色
End Sub
Public Sub lbpre_MouseUp(ByVal sender As Object, ByVal e As System.WinForms.MouseEventArgs) Handles lbpre.MouseUp
lbpre.BackColor = system.drawing.Color.Black ''''设置颜色
lbpre.ForeColor = system.Drawing.Color.AliceBlue ''''设置颜色
End Sub
Public Sub lbExit_MouseUp(ByVal sender As Object, ByVal e As System.WinForms.MouseEventArgs) Handles lbExit.MouseUp
lbExit.BackColor = system.drawing.Color.Black ''''设置颜色
lbExit.ForeColor = system.Drawing.Color.AliceBlue ''''设置颜色
End Sub
Public Sub lbShow_MouseUp(ByVal sender As Object, ByVal e As System.WinForms.MouseEventArgs) Handles lbShow.MouseUp
lbshow.BackColor = system.drawing.Color.BLack ''''设置颜色
lbshow.ForeColor = system.Drawing.Color.AliceBlue ''''设置颜色
End Sub
''''下面是鼠标离开_MouseLeave时发生的事件了
Public Sub lbShow_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbShow.MouseLeave
lbshow.BackColor = system.drawing.Color.BlanchedAlmond ''''设置颜色
lbshow.ForeColor = system.Drawing.Color.Black ''''设置颜色
End Sub
Public Sub lbExit_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbExit.MouseLeave
lbExit.BackColor = system.drawing.Color.BlanchedAlmond ''''设置颜色
lbExit.ForeColor = system.Drawing.Color.Black ''''设置颜色
End Sub
Public Sub lbpre_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbpre.MouseLeave
lbpre.BackColor = system.drawing.Color.BlanchedAlmond ''''设置颜色
lbpre.ForeColor = system.Drawing.Color.Black ''''设置颜色
End Sub
End Class
''''##############################################################
''''!!!0001!!!04!!!26!!!!!!
''''建议不要修改此模块 以免产生不必要的错误(此代码已相当完美) 如欲修改请先备份 _______VB.Net中文站 hejianzhong
''''此模块可真接粘贴到您的程序中使用。
''''不要删除此信息，我免费为您提供此代码，想得到的回报就是最起码的尊重,虽然最终用户并不能看到，我仍感到欣慰
''''!!!0001!!!04!!!26!!!!!!
Public Module SKin
Public Rect1 As New Rectangle(0, 0, 0, 0)
Public Region1 As New System.Drawing.Region(Rect1)
Public Sub SkinRegion(ByVal SKform As Form, Optional ByVal skinNaSKform As String = Nothing)
Dim X, Y, transPix, opaciPix, BgWidth, BgHeight As Integer
Dim rect2 As New Rectangle()
Dim FirARGB As Integer = getpixel(SKform, 1, 1)
Dim Region1 As New System.Drawing.Region(Rect1)
Rect1 = Nothing
''''SKform.Visible = False
If skinnaSKform <> Nothing Then SKform.BackgroundImage = SKform.BackgroundImage.FromFile(System.WinForms.Application.StartUpPath & "\" & skinNaSKform & ".gif")
BgWidth = SKform.BackgroundImage.Width
BgHeight = SKform.BackgroundImage.Height
SKform.Height = BgHeight
SKform.Width = BgWidth
For Y = 1 To BgHeight - 1 ''''这里参考了VB6中的扫描方法，请参考相关资料
X = 0
Do
X = X + 1
While (getpixel(SKform, X, Y) = FirARGB) And (X < BgWidth)
X = X + 1
End While
transPix = X
While (getpixel(SKform, X, Y) <> FirARGB) And (X < BgWidth)
X = X + 1
End Whi 上一页 [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学以致用网] 
