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)