|
nbsp; ''''Genie.Speak("CNstring ",CNstring.wav) ''''这里的CNstring就是中文的语音文件
Genie.Hide() ''''使用hide方法隐藏agent
End Sub
Protected Sub lbpreClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbPre.Click
If Not frmpre Is 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.Windows.Forms.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.Windows.Forms.MouseEventArgs)
Me.Capture = False ''''释放鼠标捕获
'''' Me.SendMessage(&HA1S, 2, 0) ''''这是VB6中最有名的API消息函数
''''&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
''''注意注意beta2这里的变化
''''sendmessage以前的用法不能用了，看了一下MSDN，居然全是Beta1的内容，我倒！
''''&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
End Sub
''''下面是鼠标移动_MouseMove时发生的事件了
Public Sub lbpre_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.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.Windows.Forms.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.Windows.Forms.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.Windows.Forms.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.Windows.Forms.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.Windows.Forms.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.Windows.Forms.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.Windows.Forms.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.Windows.Forms.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
''''&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
''''注意注意beta2这里的变化
''''大家注意到没有？只有这个我写的这个千变万化窗体的模块不需要任何修改，呵呵，可以骄傲一下了
''''&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
''''###################################################################################################################
''''!!!0001!!!04!!!26!!!!!!
''''建议不要修改此模块 以免产生不必要的错误(此代码已相当完美) 如欲修改请先备份 _______VB.Net中文站 hejianzhong
''''此模块可真接粘贴到您的程序中使用。
''''不要删除此信息，我免费为您提供此代码，想得到的回报就是最起码的尊重,虽然最终用户并不能看到，我仍感到欣慰
''''!!!0001!!!04!!!26!!!!!!
Public Module SKin
Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
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
&nb
上一页 [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学以致用网] 
