vbnet编程实例

⑴ 怎么用VB.NET编程实现在桌面随机坐标显示指定的某些图片（随机显示某张图片），望高手帮忙

1.首先建立一个基于Microsoft.NETFramework2.0以上的VB.NET解决方案。
2.在窗体上面添加一个PictureBox控件，并绑定到父容器里面（绑定到父容器的操作伏态可以不去实现）。
3.给PictureBox.Image指定路径，这里以“C:.jpg”为例子，当然这张图片在Windows7旗舰版下面会有的。
4.添加代码：
PublicClassForm1
PrivateSubForm1_Load(senderAsObject,eAsEventArgs)HandlesMyBase.Load
Randomize()
DimxScnAsUInteger=My.Computer.Screen.Bounds.Width
DimyScnAsUInteger=My.Computer.Screen.Bounds.Height
ReLine:
DimxShowAsInteger=Int((xScn+1)*Rnd())-Me.Width
DimyShowAsInteger=Int((yScn+1)*Rnd())-Me.Height
Me.FormBorderStyle=Windows.Forms.FormBorderStyle.None
拍漏PictureBox1.Image=Image.FromFile("C:.jpg")
PictureBox1.SizeMode=PictureBoxSizeMode.StretchImage
IfxShow>=0AndyShow>=0Then
Me.Location=NewPoint(xShow,yShow)
Else
GoToReLine
EndIf
Me.Show()
EndSub
EndClass
5.我是袭厅烂使用VisualStudio2012Ultimate开发的，若有错误请参考请他方法进行修改

⑵ VB.NET 拖动无边框窗体编程实例

Imports System Drawing Imports System Windows Forms 裂搭手 ****************************************** Private oOriginalRegion As Region = Nothing 用于窗体移动 Private bFormDragging As Boolean = False Private oPointClicked As Point ****************************************** Private Sub Form _MouseDown(ByVal sender As Object ByVal e As System Windows Forms MouseEventArgs) Handles MyBase MouseDown Me bFormDragging = True Me oPointClicked = New Point(e X e Y) End Sub ****************************************** Private Sub Form _MouseUp(ByVal sender As Object ByVal e As System Windows Forms MouseEventArgs) Handles MyBase MouseUp Me bFormDragging = False End Sub ****************************************** Private Sub Form _MouseMove(ByVal sender As Object ByVal e As System Windows Forms MouseEventArgs) Handles MyBase MouseMove If Me bFormDragging Then Dim oMoveToPoint As Point 以当前鼠标肆嫌位置为基础 找出目标位置 oMoveToPoint = Me PointToScreen(New Point(e X e Y)) 枝兄 根据开始位置作出调整 oMoveToPoint Offset(Me oPointClicked X * _ (Me oPointClicked Y + _ SystemInformation CaptionHeight + _ SystemInformation BorderSize Height) * ) 移动窗体 Me Location = oMoveToPoint End If

⑶ vb.net的编程

Option Strict Off
Option Explicit On
Friend Class Form1
Inherits System.Windows.Forms.Form
Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
Dim j As Integer
Dim A(9) As Short
Dim D(9) As Short
Dim i As Short
Dim B As Short
Dim C As Short
Dim F As Short
Dim G As Boolean
Dim H() As Short
Dim K As Short
Dim S As String
C = 32767
For i = 1 To 10
A(i - 1) = CShort(InputBox("输入第 " & i & "个数"))
If B < A(i - 1) Then B = A(i - 1)
If C > A(i - 1) Then C = A(i - 1)
D(i - 1) = Int(Rnd() * 100 + 0.5)
If F < D(i - 1) Then F = D(i - 1)
Next i
For i = 2 To 100
For j = 2 To Int(System.Math.Sqrt(i) + 0.5)
'UPGRADE_WARNING: Couldn'山枣t resolve default property of object j. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
'UPGRADE_WARNING: Mod has a new behavior. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'
If i Mod j <> 0 Then
G = True
Else
G = False
Exit For
End If
Next j
If G = True Then
ReDim Preserve H(K)
H(K) = i
K = K + 1
End If
Next i
S = "2;"
For i = 0 To K - 1
S = S & H(i) & ";"
Next i
MsgBox("最大数为：" & B & "；最小数逗敏拆为：" & C)
MsgBox("最大的拿兆随机数为：" & F)
MsgBox("1--100之间共有" & K + 1 & "个素数：" & S)
End Sub
End Class

⑷ VB.net编程。

窗口裂李放一个button(计算),一个combobox框(item属性填男/肆枯迟女),一个textbox1(用于输入身败洞高),另一个textbox2(显示结果)
button的click事件里:
if me.combobox.text="男" then
me.textbox2.text=(cint(me.textbox1.text-100).tostring

else
me.textbox2.text=(cint(me.textbox1.text-105).tostring
endif
完了

⑸ VB.Net编程入门之Hello World(1)

本文介绍了VB NET与VB 的区别 同时介绍了如何使用Visual Studio NET集成开发工具的使用方法

我们将通过一个系列的讲座来向诸位展现Visual Basic Net的独特魅力以及使用它开发应用程序的基本方法 Visual Basic Net是微软公司在 年推出的一种开发基于 Net平台应用程序的开发语言 也是微软公司极力推荐的一种开发 Net平台应用程序的开发语言 首先还是让我们来简单了解一下Visual Basic Net和其前一个版本 也是目前世界上拥有最多使用者的开发语言 Visual Basic 的主要区别

一 Visual Basic和Visual Basic Net的主要区别

虽然说Visual Basic Net是Visual Basic 的后继版本 但在我看来Visual Basic Net除了在语法上还保留Visual Basic原有的踪影以外桥衡核 因为二者几乎在 ％以上保持相似或相同拦扮 但在其他很多方面 Visual Basic Net都和Visual Basic截然不同 也许正是这些不同点 才使得Visual Basic Net功能更强大 更有生命力 但同样也为Visual Basic程序员转型为为Visual Basic Net程序员带来了困难 因为Visual Basic Net提出了很多新的功能 概念和观点 掌握Visual Basic Net不仅要掌握语法 还需要理解并运用这些新的功能 概念和观点 当然也需要掌握 Net框架 理解CLR（Common Language Runtime 通用语言进行时） 下面就从数据访问 Web开发和组件创建三个方面来简要谈谈二者的区别

数据访问

不同点主要表现在 数据访问技术 数据访问具体实现方法和数据绑定上的不同

在数据访问技术上 Visual Basic 是通过ADO（Active X Data Object 即 Active X数据对象）来实现对数据库访问的 同时为了保证对早期版本的兼容 也提供RDO（远程数据对象）和DAO（数据访问对象）二种数据访问技术 在Visual Basic Net中是使用ADO NET来访问数据库 ADO NET是 NET框架的一部分 其对应的类库是 Net FramWork SDK的真子集 ADO和ADO NET这两种技术在概念 功能和实现上都有许多差异 由于篇幅所限 这里就不一一介绍了 其实在Visual Basic Net中也可以使用ADO来访问数据库 但ADO在Visual Basic Net中是以组件的形式出现的 通过添加引用才可以在Visual Basic Net中使用 添加引用的过程 其实就是对组件互操作 经过互操作后的组件 已经并非先前意义上的组件 而是转变成可供Visual Basic Net直接使用的 Net类库

在数据访问的具体实现方法上 Visual Basic 实现数据访问主要是两种方法 其一是在程序设计阶段 可通过把数据源绑定到ADODC控件或使用数据环境 其二在运行时 可以通过编程方式创建记录集RecordSet对象并与记录集对象交换数据 同样在Visual Basic Net中实现数据访问的方法主要也是二种 其一是在程序设计阶段 通过创建 配置数据适配器DataAdapter和生成数据集DataSet 其二在运行中 通过编程方式动态创建 配置数据适配器和创敏掘建 生成数据集

在数据绑定（Data Bind）上 在Visual Basic 中实现数据绑定通过设置控件的下列属性来实现 DataChanged DataField DataFormat DataMember 和 DataSource 通常是把控件的显示属性绑定到数据源中的相应字段 在Visual Basic Net中 数据绑定的应用范围可广泛得多 Visual Basic Net中可以将任何控件的任何属性绑定到包含数据的任何结构中

Web开发

Visual Basic是使用Active Server Page（简称ASP）来创建在 Web应用程序 在ASP中 编写Web页面并非纯正的Visual Basic语言 而是Visual Basic脚本语言 VBs cript 在Visual Basic Net中是使用ASP NET技术来编写Web页面 在ASP NET中使用的也不再是脚本语言 而是真正意义编程语言 其中就可以是Visual Basic Net 开发过ASP页面的朋友都清楚 虽然编写ASP页面对开发工具要求很低 但由于其是面向过程式开发 所以稍微复杂一点的ASP代码都显得杂乱无章 这都给程序设计 调试 修改带来了麻烦 而Visual Basic Net是建立在新的框架结构上 Visual Basic Net完全支持Web编程 凭借ASP NET的Web 应用程序 XML Web services等等基于Web上的功能 使得Visual Basic Net开发Web 页面与开发Windows编程很相似 Web页面代码也不显得有条有理了

组件创建

在使用Visual Basic 和Visual Basic Net编写应用程序时 虽然都可以通过从工具箱中选择组件 通过拖入方式在应用程序中加入组件 但二者在实现机理上却存在根本不同 在Visual Basic 中 应用程序中创建的组件全部是组件 即可在应用程序中使用的ActiveX控件 ActiveX 类型的DLL 和 ActiveX类型的EXE 而在Visual Basic Net中 向窗体中拖入的组件 都是基于继承 从 Net框架提供的SDK中相应的类继承 经过实例化后 通过添加功能才把组件加入到设计窗体中 这些过程都可以在Visual Basic Net的源代码中找到 Visual Basic Net中使用的每一个组件都是从Component或Control基类派生出来的

⑹ 有没有人能详细的说明vb.net 的特点，优缺点及应用领域最好也举个运用VB.NET的例子啊！

Visual Basic .NET Visual Basic.NET是基于微软.NET Framework之上的面向对象的中间解释性语言，可以看作是Visual Basic在.Net Framework平台上的升级版本,增强了对面向对象的支持。但由于改动太大，导致VB.net对VB的向后兼容性不好，在业界引起不小的争议。 大多的VB.Net程序员使用Visual Studio .Net作为IDE（integrated development environment). SharpDevelop是另一种可用配神正的开源的IDE。VB.Net需要在.Net Framework平台上才能执行。 VB.NET的主页 http://msdn.microsoft.com/vbasic 1 目前版本 2005年9月以来，存在三种不同版本的Visual Basic .NET. 1 Visual Basic .NET:是随vc#和ASP.NET一起在2002年发布的最初始的VB.net版本。C#被大力宣传为微软对付JAVA的王牌，受到媒体极力关注。然而VB.NET(有时被称为VB7)影响面不广，这导致VB社区之外很少人关注它。那些试用过此版VB.NET的人在层层幕布下发现一个强大却艰深的语言，而且还有不少弱点，比如它比VB6来有一个大了十倍的进行时(RunTime)，内存footprint也大大增加。 2 Visual Basic .NET 2003:是和.NET Framework 1.1一起发布的。新功能包括对.NET Compact Framework的支持和更好的VB升迁向导。并改进了运行状况，IDE稳定性(尤其是后台编译器)，以及运行时RunTime稳定性。另外，VB.NET 2003还有一个学院版Visual Studio .NET 2003 Academic Edition (VS03AE)，它是分发给各国某些学者免费使用的版本。 3 Visual Basic 2005:VB2005是VB.Net的重大转变，微软决意在其软件名称中去掉了.NET部份。在VB2005中，微软增加了许多新功能，以引用VB对于初学者来说的一些优点： A, Edit and Continue - 也许是从VB那里丢掉的最大的功能，允许代码的编辑和执行立即的执行恢复。 B, Design-time expression evaluation C, My伪命名空间，提供了访问.NET Framework特定域的不需大量编码的简单方式；还能动态产生类(显然的是My.Forms)；提供了改进的VB到VB.NET转换向导；Using 语法，简化了需要部署pattern to free resources的对象的使用；My编码，可隐藏由VB.NET IDE写的模板代码；数据源绑定，简化了数据库C/S开发 上述功能(尤其是My)增强了VB.Net成为快速开发应用平台的可能，并与C#进一步区别开来。参见： 使用My开发 通过My命名空间访问.NET Framework 和项目 Visual Basic 2005 通过增加新功能而填补了和其它所谓更强大的.NET语言的差距。 A, 增加了.NET 2.0语言功能包括：generics和Partial类(在一个文件里定义一个类的某部份然后再添加更多的定义，这个方法在整合用户编码和系统自动生成编码时尤其有培悔用)。 B, XML注释，可以被NDoc等工具处理而自动生成文档 C, operator overloading D, 支持在其它语言中已经瞎辩广泛使用的unsigned integer数据类型。 E, 支持在许多C衍生编程语言已提供的复合操作符如："+=", "-=" 4, IsNot专利：If Not X Is Y表达式被转换成If X IsNot Y。当微软为IsNot申请专利时招致了恶名(尤其来自Real公司)。 5, Visual Basic 2005 Express：作为VS产品线上的一部份,VB2005 Express是专为业余爱好者和新手定制的免费的VS Express系列的一员。Express版本目的定位在帮助人们学习一种语言，所以他们有和标准版一致的用户界面，只是少了一些高级功能。另外，VS 查看更多答案>>

记得采纳啊

⑺ 400分求vb.net,求一个socket的编程实例，详细见问题补充：

至少需要
ImportsSystem
ImportsSystem.Net
ImportsSystem.Net.Sockets
ImportsSystem.Threading
ImportsSystem.Text
还要了解异步与委托
简单点的话
subtcplisten()'监听过程
ConstLPortAsInteger=6850'本地监听端口
DimIPaddAsIPAddress=Dns.GetHostEntry(Dns.GetHostName()).AddressList(1)’本地IP
'addresslist里面包括IPV6和IPV4
DimIPEPAsNewIPEndPoint(IPadd,LPort)'结点
基亏TCPL=NewTcpListener(IPEP)’建立监听实例
TCPL.Start()'开始监听
掘碧IfTCPL.Pending=TrueThen'如果有连接接入
DimTCPLXAsNewSocket(AddressFamily.InterNetwork,SocketType.Stream,ProtocolType.Tcp)'建立一个新的SOCKET
TCPLX=TCPL.Accept()’将第一个接入挂起的连接传给新建SOCKET，因为监听的SOCKET还要继续监听
dimRipepasnewipendpoint=TCPLX.RemoteEndPoint'此时获得远程的ip与端口号
listbox.add(ripep.ip)
dimbuffasbyte()
buff=TCPLX.Receive()'listen>accept>recieve这时候可以接受判锋举数据了
dimsasstring=Encoding.Default.GetString(buff)'转换成文本
msg"s"
TCPLX.send(buff)'这个是发送
endif
EndSub
长时间没写，可能有点小错误，你自己调试调试，大概步骤就是listen>accept>recieve，最好看看msdn，那个学起来才系统

⑻ 关于vb.net中socket编程实例：服务器端的一些问题

Socket类连接后 可以通过类中的 RemoteEndPoint 来获取远程IP和端口信息.
要注意的是.需要将它强制转化为 IPEndPoint类型 然后通过 IPEndPoint.Address以及IPEndPoint.Port来获取对应的IP及端口

例:
Dim REV_SCK As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
'这里创建一个UDP Socket连接的实例 TCP也是一样的

'省略SOCKET连接的代码 当SOCKET连接成功后 可以用下面的语句获取远程信息
Dim IP as string ,Port as integer
'定义IP和Port变量 用来保存地址及端口
IP = IPAddress.Parse(CType(REV_SCK.RemoteEndPoint, IPEndPoint).Address.ToString())
Port = IPAddress.Parse(CType(REV_SCK.RemoteEndPoint, IPEndPoint).Port)