VB.net Socket

麻煩給我發(fā)下vb2010下Socket類的使用方法，最好是有代碼。就是怎樣實現(xiàn)同一臺電腦上兩個程序的通訊，1窗體有按鈕，文本框，2窗體有文本框，當單機1窗體的按鈕時該窗體文本框的內(nèi)容在2窗體的文本框中顯示。。。十萬火急啊。 郵箱523484850@qq.com

在成都網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計中從網(wǎng)站色彩、結(jié)構(gòu)布局、欄目設(shè)置、關(guān)鍵詞群組等細微處著手，突出企業(yè)的產(chǎn)品/服務(wù)/品牌，幫助企業(yè)鎖定精準用戶，提高在線咨詢和轉(zhuǎn)化，使成都網(wǎng)站營銷成為有效果、有回報的無錫營銷推廣。創(chuàng)新互聯(lián)專業(yè)成都網(wǎng)站建設(shè)十年了，客戶滿意度97.8%，歡迎成都創(chuàng)新互聯(lián)客戶聯(lián)系。

vb.net 怎么在屏幕打點

畫點：

在PictureBox的Paint事件里面：

dim myGraphics=e.Graphics

Dim myPointArray As Point() = {New Point(0, 0), New Point(50, 30), New Point(30, 60)}

myGraphics.DrawPolygon(myPen, myPointArray)

畫圓：

Dim g As Graphics

g = PictureBox1.CreateGraphics

g.FillEllipse(Brushes.Red, x, y, 10, 10)

如何在VB.net中用程序控制鼠標移動和點擊

調(diào)用api

在Visual Baisc.net中的聲明：

Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Public Const MOUSEEVENTF_LEFTDOWN = H2 '模擬鼠標左鍵按下

Public Const MOUSEEVENTF_LEFTUP = H4 ’模擬鼠標左鍵釋放

Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模擬鼠標中間鍵按下

Public Const MOUSEEVENTF_MIDDLEUP = H40 '模擬鼠標中間鍵釋放

Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模擬鼠標右鍵按下

Public Const MOUSEEVENTF_RIGHTUP = H10 '模擬鼠標右鍵釋放

Public Const MOUSEEVENTF_MOVE = H1 '模擬鼠標指針移動

例：

mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0

'在（10，10）模擬鼠標左鍵按下