求助VB.NET 編寫 程序代碼 求代碼

Public Class Form1

網(wǎng)站建設(shè)哪家好，找創(chuàng)新互聯(lián)！專注于網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、微信小程序開發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了興慶免費(fèi)建站歡迎大家使用！

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

? TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)

End Sub

End Class

用vb.net編寫程序

系統(tǒng)托盤里顯示圖標(biāo)的話用NotifyIcon組件，建立一個(gè)ContextMenuStrip控件與之關(guān)聯(lián)。關(guān)聯(lián)的位置在NotifyIcon.ContextMenuStrip。關(guān)機(jī)直接shell 命令列:rundll32.exe user.exe,exitwindows就可以，聲音提示用My.Compurer.Audio.Play ("路徑")，提示消息用Msgbox函數(shù)……通過判斷返回值在確定是否關(guān)機(jī)……手頭沒有VB.Net……大概思路就是這樣，不知道能不能對(duì)你有幫助……如果要代碼的話，不忙的時(shí)候可以給你寫

vb程序設(shè)計(jì)是什么？

1、VB程序設(shè)計(jì)以Visual Basic 6.0簡體中文版為語言背景，深入淺出的介紹Visual Basic 6.0程序設(shè)計(jì)技術(shù)，基本涵蓋了Visual Basic 6.0編程時(shí)的常用內(nèi)容。

2、VB程序設(shè)計(jì)共分14章，主要內(nèi)容包括開發(fā)環(huán)境、語言基礎(chǔ)和數(shù)組與過程、常用控件、菜單設(shè)計(jì)、文件處理、ActiveX控件、數(shù)據(jù)庫程序設(shè)計(jì)、圖形程序設(shè)計(jì)、多媒體編程、網(wǎng)絡(luò)編程、API函數(shù)和注冊(cè)表、安裝程序的制作和綜合實(shí)例。

3、為了方便讀者學(xué)習(xí)，《VB程序設(shè)計(jì)》提供多媒體課件，及例題和練習(xí)題的所有源代碼。

4、VB程序設(shè)計(jì)可以作為大中專院校計(jì)算機(jī)及相關(guān)專業(yè)的教材，適合編程愛好者自學(xué)使用。

用VB.NET編寫以下程序。

using?System;

using?System.Windows.Forms;

namespace?WindowsFormsApplication1

{

public?partial?class?Form1?:?Form

{

Timer?tm?=?new?Timer();//實(shí)例化?timeer?

static?int?timeS?=?0;?//設(shè)置靜態(tài)變量記錄秒數(shù)

TimeSpan?ts?=?new?TimeSpan();?//實(shí)例化?TimeSpan?

public?Form1()

{

InitializeComponent();

}

private?void?button1_Click(object?sender,?EventArgs?e)

{

tm.Interval?=?1000;?//設(shè)置?timeer?1000毫秒執(zhí)行一次

tm.Tick?+=?new?EventHandler(timeer_Tick);?//設(shè)置?timeer?運(yùn)行事件

tm.Start();?//?啟用?timeer

}

private?void?timeer_Tick(object?sender,?EventArgs?e)

{

timeS?+=?1;?//秒數(shù)?+1?

ts?=?new?TimeSpan(0,?0,?timeS);?

label1.Text?=?ts.Hours?+?":"?+?ts.Minutes?+?":"?+?ts.Seconds;

}

private?void?button2_Click(object?sender,?EventArgs?e)

{

tm.Stop();

timeS?=?0;

}

}

}

關(guān)于vb.net中socket編程實(shí)例：服務(wù)器端的一些問題

Socket類連接后 可以通過類中的 RemoteEndPoint 來獲取遠(yuǎn)程IP和端口信息.

要注意的是.需要將它強(qiáng)制轉(zhuǎn)化為 IPEndPoint類型 然后通過 IPEndPoint.Address以及IPEndPoint.Port來獲取對(duì)應(yīng)的IP及端口

例:

Dim REV_SCK As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)

'這里創(chuàng)建一個(gè)UDP Socket連接的實(shí)例 TCP也是一樣的

'省略SOCKET連接的代碼 當(dāng)SOCKET連接成功后 可以用下面的語句獲取遠(yuǎn)程信息

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)