vb点虐 桌面编程 vbnet main-古蔺大橙子建站
RELATEED CONSULTING
相关咨询
选择下列产品马上在线沟通
服务时间:8:30-17:00
你可能遇到了下面的问题
关闭右侧工具栏

新闻中心

这里有您想知道的互联网营销解决方案
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://scgulin.cn/article/ddischo.html