vb点虐 桌面编程 vbnet main
怎么用VB.NET编程实现在桌面随机坐标显示指定的某些图片(随机显示某张图片),望高手帮忙
1.首先建立一个基于Microsoft .NET Framework 2.0以上的VB.NET解决方案。
成都创新互联公司是一家业务范围包括IDC托管业务,虚拟主机、主机租用、主机托管,四川、重庆、广东电信服务器租用,成都西云数据中心,成都网通服务器托管,成都服务器租用,业务范围遍及中国大陆、港澳台以及欧美等多个国家及地区的互联网数据服务公司。
2.在窗体上面添加一个PictureBox控件,并绑定到父容器里面(绑定到父容器的操作可以不去实现)。
3.给PictureBox.Image指定路径,这里以“C:\Windows\Web\Wallpaper\Windows\img0.jpg”为例子,当然这张图片在Windows 7旗舰版下面会有的。
4.添加代码:
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Randomize()
Dim xScn As UInteger = My.Computer.Screen.Bounds.Width
Dim yScn As UInteger = My.Computer.Screen.Bounds.Height
ReLine:
Dim xShow As Integer = Int((xScn + 1) * Rnd()) - Me.Width
Dim yShow As Integer = Int((yScn + 1) * Rnd()) - Me.Height
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
PictureBox1.Image = Image.FromFile("C:\Windows\Web\Wallpaper\Windows\img0.jpg")
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
If xShow = 0 And yShow = 0 Then
Me.Location = New Point(xShow, yShow)
Else
GoTo ReLine
End If
Me.Show()
End Sub
End Class
5.我是使用 Visual Studio 2012 Ultimate 开发的,若有错误请参考请他方法进行修改
怎么用VB.NET2005编程实现在桌面随机位置显示随机不同的图片,望高手帮忙
基本搞定,你需要改的是count的值,图片的路径,并记得在Form1中添加一个Timer1,设置Interval的值
我的实现方法是把Form1做成全屏,懒得去碰Window的Screen,挺麻烦的
----------------------------------------------------------------------------------------------------------------------
Public Class Form1
Dim count As Integer = 4
Dim pics(count) As String
Dim x = SystemInformation.PrimaryMonitorSize.Width
Dim y = SystemInformation.PrimaryMonitorSize.Height
Dim ran As Random = New Random()
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
Timer1.Stop()
Me.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
pics(0) = "D:\pics\10-100FQ94307.jpg"
pics(1) = "D:\pics\10-100FQ94310.jpg"
pics(2) = "D:\pics\10-100FQ94316.jpg"
pics(3) = "D:\pics\10-100FQ94317.jpg"
pics(4) = "D:\pics\10-100FQ94324.jpg"
Me.ControlBox = False
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
Me.Text = ""
Me.WindowState = FormWindowState.Maximized
Randomize()
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim tmpPic As PictureBox = New PictureBox()
tmpPic.AutoSize = True
tmpPic.Load(pics(CInt(ran.NextDouble() * count)))
tmpPic.Visible = True
tmpPic.Left = CInt(ran.NextDouble * x)
tmpPic.Height = CInt(ran.NextDouble * y)
Controls.Add(tmpPic)
AddHandler tmpPic.Click, AddressOf Form1_Click
End Sub
End Class
vb点虐 属于什么编程模式
Net 是一个编程框架。
与函数库不同,编程框架指的是一种更高层的抽象,它使使用它的开发人员可以在不用掌握太多基础编程理论时(当然最好是懂一些)就可以开发产品。.Net Framework 的意义是指 .Net 框架。.NET Framework 是可以用来开发应用软件与托管类库的一个平台;它为你提供在生成、调试以及执行托管应用程序时所需要的编译器及工具。可以说 .NET Framework 为你提供了在 Windows 上开发和运行托管应用程序所需的一切条件。因此 .Net 框架也是一种高层次的抽象,它是一种全面支持以面向对象编程的编程方式来进行开发的运行于 Windows NT 系列操作系统上的高层编程框架。
之所以说应用程序是托管的是因为它们的执行过程是由 .NET Framework 管理的。实际上,.NET Framework 通过提供一个可控的运行时环境来管理这些执行过程,此运行时环境提供众多的服务,比如在应用程序运行时载入应用程序、管理内存、监视和维护安全和资源完整性。
在 .NET(以及Java)之前,应用程序未被托管,因为它们不是由可控的运行时环境来执行的。比如之前提到的 C++、VB6 编程语言所提供的编程环境中,操作系统中没有其他组件来提供 .Net 提供的这些服务,应用程序需要自己管理它们的服务,这在有些时候就导致了错误的代码、安全漏洞,以及数据的丢失。
.NET Framework 提供了众多的工具,比如编译器、调试器、编程语言、执行引擎(名为 Common Language Runtime,CLR,公共语言运行时),开发工具,以及大量的预定义的“功能模块”类库。这些类库被称作 Framework Class Libraries(FCLs)。
.Net 支持众多的编程语言,所有的编程语言编写的代码都将最终交给 CLR 来执行,因此 .Net 是“语言无关”的。目前微软推出的用于 .Net 开发的语言有:VB.NET J# C# F#,现在的 VC++ 也支持托管 .Net 编程。
.Net 编程可应用于很多方面,比如桌面应用程序、WEB应用程序、便携设备应用程序、游戏开发、用户界面开发、富互联网开发等。
通过安装一些插件,也可以在 Linux 等操作系统上运行 .Net 程序。
网站标题:vb点虐 桌面编程 vbnet main
文章网址:http://cdiso.cn/article/ddischo.html