vb.net讀取txt的數(shù)據(jù)作圖問(wèn)題

一、分析：

創(chuàng)新新互聯(lián)，憑借十年的網(wǎng)站設(shè)計(jì)、做網(wǎng)站經(jīng)驗(yàn)，本著真心·誠(chéng)心服務(wù)的企業(yè)理念服務(wù)于成都中小企業(yè)設(shè)計(jì)網(wǎng)站有1000多家案例。做網(wǎng)站建設(shè)，選成都創(chuàng)新互聯(lián)。

1，這一類(lèi)隨時(shí)間而變化的曲線(xiàn)圖，通常把橫軸作為時(shí)間，把縱軸作為相應(yīng)的值，在這里就是密度值。

2，點(diǎn)的集合就是線(xiàn)；一組時(shí)間、密度值，對(duì)應(yīng)一個(gè)點(diǎn)，把點(diǎn)連接起來(lái)就構(gòu)成了線(xiàn)。

二、在VB.NET中作圖，需要知道并解決幾個(gè)問(wèn)題：

1，與VB6一樣，VB.NET中默認(rèn)的坐標(biāo)系統(tǒng)，左上角為坐標(biāo)原點(diǎn)，X軸的正向?yàn)閺淖笙蛴?，Y軸的正向是從上向下。

為了使得它與數(shù)學(xué)中的坐標(biāo)系統(tǒng)相一致，可以使用VB.NET中Graphics類(lèi)的兩個(gè)方法；

1、TranslateTransform----平移變換

格式：Graphics.TranslateTransform(dx,dy)

其中：dx 和 dy分別是Single數(shù)據(jù)類(lèi)型

2、ScaleTransform----縮放變換

格式：Graphics.ScaleTransform(sx,sy)

其中：sx 和 sy分別是Single數(shù)據(jù)類(lèi)型；

例如：為了符合數(shù)學(xué)中的一般格式，可以使用下述代碼：

Graphics.ScaleTransform(1, -1)

這樣就把Y軸的正方向給翻過(guò)來(lái)了。

三、VB.NET中繪制圖形

1，繪制圓或橢圓

'繪制圖形的三步曲

'1，獲得一個(gè)Graphics對(duì)象

Dim MyGraphics As Graphics

MyGraphics = Me.CreateGraphics

'2，定義一個(gè)Pen對(duì)象，用于繪制圖形（輪廓線(xiàn)）

Dim MyPen As New Pen(Color.Black)

'3，定義一個(gè)Brush對(duì)象，用于填充圖形（如果需要填充的話(huà)）

Dim MyBrush As New SolidBrush(Color.Orange)

'繪制一個(gè)實(shí)心圓，該圓在：直線(xiàn)x=200，y=200，x=200+100，y=200+100所劃的矩形區(qū)域內(nèi)

MyGraphics.FillEllipse(Brush, 200, 200, 100, 100)

'繪制一個(gè)空心圓，該圓在：直線(xiàn)x=200，y=200，x=200+100，y=200+100所劃的矩形區(qū)域內(nèi)

MyGraphics.DrawEllipse(Pen, 200, 200, 100, 100)

注意：最后兩個(gè)數(shù)值如果不等，就是繪制橢圓

當(dāng)圓足夠小，就是點(diǎn)了。

2，繪制直線(xiàn)

'1，獲得一個(gè)Graphics對(duì)象

Dim MyGraphics As Graphics

MyGraphics = Me.CreateGraphics

'2，定義一個(gè)Pen對(duì)象，用于繪制圖形（輪廓線(xiàn)）

Dim MyPen As New Pen(Color.Black)

MyGraphics.DrawLine(MyPen, 200, 200, 100, 100)

'或者直接用

Me.CreateGraphics.DrawLine(New Pen(Color.Black), 50, 50, 200, 200)

求造夢(mèng)西游3極品號(hào)

75490135 zxc123

沙僧

賬號(hào)89947587

密碼zxc123

悟空

89944656 密碼123456

八戒

89949753 123456

唐僧

89950130

123456

89924795

90157821

賬號(hào)woduomaini 密碼900628microma``滾球

工具：IE瀏覽器

SOL文件修改器

：先叫厲害號(hào)（我給號(hào)源省略）

我沙僧號(hào)

返圖找脫機(jī)工作點(diǎn)號(hào)打修改器找文件夾 #4399

面號(hào)帳號(hào)進(jìn)發(fā)現(xiàn)SOL文件打所數(shù)據(jù)復(fù)制（Ctrl C）關(guān)閉即

接著打游戲脫機(jī)工作取消進(jìn)入號(hào)

寫(xiě)入題

找要復(fù)制存檔同脫機(jī)、保存返#4399文件夾找號(hào)文件夾（用修改器）同找文件值全部掉復(fù)制（Ctrl V）號(hào)確定刷新游戲等刷新萬(wàn)看看效吧跟號(hào)哈哈遠(yuǎn)起強(qiáng)吧 號(hào)源：

-

沙僧

eNrtWVuP00YUfusDf6EvUd4Bz/iSWFoiFbVISCuotPT2hJzYuXjtJGS8ZB0dEHRpuah0gaXlUgqt2kIphVWXFhZ2gT zjpM/UXXGuWCvnY0N2XYfmmid7OSb882Zc b45Ms7f787RZTj2qemkbLsurYvfTivawUrnSoppibwsrwvbTXmtHRuVyo1RTZhqhSzL12dMwzv85GIuqHYWgMfreX1PtAHnbEalWppCNWsGbqe9N4xuMJcg H6g PQeaWk6gnwbEveVyzqNuYQ3s2h3Vx2ai8Zz0JaW7IcmjPzWmOAN8ofKwbbWyxyUdaDaOrxtHZco1uNxoNNmxRqDWo60vB7jYZiD6AVQqw51SazlWEYtwilL9hbLmC aPQW61/AVjvO6A/Rt693jWL9U3fYgmIF7IP5ejonYm58FDy6vD2r2WPTplCrWo2a8aF3qGJlg2d8umJWLLqaGAlRVwipHNdGpkTQei8CXHSwdjx0/LFWCtYRhcyOjQuNiVZRRxy5TSd/rjCrKpZCj34MfsPw HOIA8RxwAGryFBUDKKdkL0h9ucNssuJLGARJMEPy9BZYmCiFBoRQyMCMxQY4UMjeNMcFPw/VtUM18zhtOGk/TW6vUp1MKuskJJG05kxhcHBEsFuZTO9cjjmnBjoKIoVQGLwR3FsJB8TKcRmF2MjUex1SrFtZhKwx/U9G9smjo2UE9jEsZF87LgH2MNZGrpd7K UZiylRPNUCKODp6asHqwWa8PjspXJUNcwAt3r0uhYJDaqo0NJOrqcWavS2xsPvJjpX7DMod6Fz4AkoowEQoZWNIRoReMFkCUesiL7lAeZjoEIAvD01SKmcdIs6oWTRVI1ThKzVaQXvTC 2gT7xpwA7cVLzs833RfXnEtX2ueugKUaLR1aeVIHcBZXUp3la8DNSxLHyTKIkgys2kqAWEXtPb06N/LKEAgoeg9i72lNdS4 dVavu2uvug vgm4YJmUr6tBeueEs3AtzCjgDAu ZwZ41TJ8xOfuM3aUnzvqz7tnLzvoS2KpeoozNYyMZvel0673pezhW8PlEjAjcPx9Quu7SQnfpO2jphsp8zEfsqCTRqAr0jiVJNCeGezq8mUVwsdvgngygATjWLSbQ/ucQOA/vOPe/7Fxcds5/DmbdZiFv0pC3bzxKdU/dpAs84D2GK4oXbeSlR2YIP4FYcrvP77lX7ziXX7h3HgMxCd8nc1depjrnlykZRx JyXiPjM GyGhitR9/w8jM4mTJRL9nXCCxnHNPNl7c2nh218uwVov0eSPTK mOYhx28vqK8/JH5mTRnrCTfIisfXXNObvGyEr6ZMmE1 ETwf36THfpNDTr89Yk81HCPo72b6fat36lHJY5SQ4s Dg2Vr9311YpBylMkAOLviwA59lq59Ul9/e7bLvs4iR98Wc5uL/cbp 3 PJqxPl4VEo0Zz1585X37JEa9aPlWmqeS TSmwxwCeE YQB31ueWpYMmENB/3CYDw/4Ntavp9x7pzz/DhzguIR8uJeD/rihMBsasE0mSxLcgf5lQUmUJSxmcBJRKSMmUJVkkRNoTf6vtSUxqZST09UWmCqBptpsQlAw2A6tKfkCrVkdTHP02uLLTok0p7dwPegKNUbSuc9G b1JjdE0dbpMu/DEmlyOBXCC8Yty4mAyJ/g3CvY2 zCdzAcpeSBosm6zDx8l80Hk3qQqbLMPh7c/Dip5i5oRlJS5nSEpi/EV3R0FnbykLCSRlOX/JeWApMy 7T/6qXPhj87lB50Ld2G XDb6ckSoq YxE3lEEGXAm7vBaE2C7SD4 lzWW9LW0r15pn3rnHv RndpBeqWatuFgOgS2YEiznug2I1oT3bxcd9edhafuKf/gll74GOos8aIOsfLQL95omyUj9GSS5Do6VPniwV38aK7 MPG m0o270v/JGbmkUCCAI1wbPNja/xiAHK2JKSnEWQZc7Jol9S8pvfTO3RZSMkpXGaae9nCFJrNOzXqungpVKq0m75k3LF0mj9K2j9HytCw7vohN5v8Ll/AK//pds=

悟空

eNrtmu1v00YYwL/tA39FlO8Qn99iaxBpaENCqmBS9/oJObHz4tpJiF1SR9eq5WUURGmh5aVdoWNsdIxBRdmg9AX mTpO/ovd2U7jxE5js0RD2hLJSa7P3e e55577rm7fjJz49PjmnBB k5VYrpRlk7Ez6ZlKaPHYzlBlWiK50/E9cq4FE8dicWOa10yRSRzIl4cVxT77z0lcFujmVJFcsU8gmfG1bRUaQlqCjgH4inieELrK8mGlgTnyJCSyQhtUiEludBtkqEl QhtkqElw2pEhaZToelUaDodms50Sra/tCqcLJUUSSi2auQFLSfp8RR2eL/wqF4pFHMHsuLpYrYUTxzq92VFMKQKOFdKy/08X8l/Iyh4nrEEy3IE2V8/1dCcKcWzgGGZwBqdfU4LOa02ima7W5zoQ8iMV76YKIcyNhIdkS5IKA4kmRBDM1ZQlJGCWkDGZvr3GweozwUdqUoSgDxKgKMEH1Trs0pFMFqVCpqmj4uGjTowfpgYdmjPJ7KKo6a324d1HePPoK/xlCzWoCpqsCpWq7CjduePf62D pgMVbV33/oPVFnSsXvFU2qpOCYZFKRYhnEeJJ/knAeFPhkSAEjzAAJAQ0BQNORZCnIMgFSSgrgcMpCGFPrUNVWZUrNyZiqrFZUpTa1l0UPO9HUAW7O0gfoxuOEvSpI4ko naCKydfGwh6uEeqzFU98PzUVaSlAf5CJRdDg9dB3Y6AOBXDyKDiND14EhPiSWRNHh649yHEQtig5no4SlrsWpVNQrJeVLezUOtZwp45kxUdAFtJyFWGjKgqYVLkg9l5ouk9mmZYJH4aMXDZVleHKMFA2bj/astVfNq7fM2RVY1eQcrKWzMjSvPKvP3obm/GassXEPEhMsSxA8DzmahiRaFjgOAgYS7jsrKJrU84klAExC4hjA3ydpaP35DBN3p82XL t312FNHtOyCFw93xOMG FJl0eFZ9pEAOvLL5rTK9bK5frqrHVtubm4Ccu6aBgZh1rfXDYvrWOpGBJD1FP2y2mGsF/gQNtwbFcWaWvOvTG37ls775vPl6CsKKpjYpfp05Qmk5Cm7EYcfUn0jqItsu/2z42bm/U7y9bKVZhX5Lw7qEsLgUSSJSEDWMijVsCBiaMhzXurSL36g7sQJQHuUPbAOUZt2zMqqrn42tx9azvQIjRE22XbYxiMYymn jGCiUwE0HzxuHH9ZePWs8b1J3Ain1ewPdMQWpvvYo1rG4iFPQT5C0XyEKX7kEFG7XYXvHFxHl4UwKS2tyBPfbhhzr 2Zv6CY0aLs797P2atT9ucU6cI5BIAASjkK2gackEcv05 0Js35pVL1vycNf/T/u5DmDdqNa2XYhya8zSNmqCwggfEYJ3awGNMB9KZ983FS83FH9GkV0QX5xszngMo1CDleJShBseZbrSN49q4/usIWnWkghhPgf5hU8joXwnaWMCmzBdeRdkbYFHw6JiN5uzr/b3V/bdP7GnpGLxahsFeS4QOOcCeUiTVtjXiekN7m4tj/KC5pGeMzedr5tMfGnMb5rWLUC0bsksKjK1RSUnCoyHaj1jb69bSmnkLK4oCj0a5MJ//RoNRNozifDAc4l7dwTA1O1gYQ3SOnSfGtccOB7shjl1Lyfub5rtHWMmsMWAlKR svrRjXt3BsJw84OE7MMgkA62bl5uLM7BantAH6Y8E6WHUf5 ur/6GGLo6SAYFPIz9rQfWzhZiaJlBMkjWO4PfbjXeL1h/PMHmMrKD5Hi9HFq/PqzPPHU4aTE7JJu1HM3c3TZv3MWOVi2fzyNXsz G49i0n0e3eP9w1tI4ISRBZxwk/TyyxfPlDtF4pJOseUIhBH4aGJB2rpfQhy3iXSuzotgrcwrY87GVk9jNTfJ2EUh6yzinjPAkL5NJ2FWR7S5gugvo7gKqu4Ds/IkSGs/P/oplxiudOzUneWrs7VhLmyh5Oi 724iLa9bTbb/hWZStkZy9f2CjbtQ6tmnNO0sodNYfzyFoWm8l2z2ouCrLeXPtqND6/IL5y4q1d89cuI13grqo1LCqWtCKx7C87TEsHuQP241GyEpZFkAGZaUky3qz0r5JcDIgK/VfYfjO7E8WcqO6kJPQ4IeTdg/5QT9p5 YDlYWQda5dtFKlYgRKB92pkJHuVEiGiHCfQgzvJoUhiUiXKeA/cZcS ewwMeS7kwF1KPyFSSL0VUYi2lkniHLWSQ/prJMIf9T4UYlGPetMhDwNIIZ3GpD4P5fxmMGt1voo5IoowH bL gS8uOM5F70 4qPoArO/8Sk/gYpPTvV

八戒

eNrtWltvE0cUfusDL/0Llt BndmLdyWwVNRGQoqgUnp9Qmt7fcv6Eu GxNaAEijlooYkJOGSAinQklIKEaGFkAv8mazX/hc9s vLrteOdxMH8dBYHseTM eb71zHnnw2Pf/5CU0 r/yQU0N6uaicDJ NZZW4Hg6l5JzCsZJ0MqyXxpVw9EgodELrkMmDzMlwflxVrb/3lCiqclkp4XOFWLYh6BAd0UuZfKolqugjsJ/wcY/cmfFcTCk15dTx GhC1uVwlD9xXOujlDL8UtaBBWYQPsqgo4jtvyomp hWGpP9NhQfLw0r5xWwBOqvGoT3VO3ZSCK7p/wXpZJcbopnNE0fT5S10UzLL3v4xuG9PflNJlWbHuOgt5fNKfwZ LW9XZB1Lv3ENuQrILSKfz9YgLHyqFLuHzyFvF4qqF9bedIjgjp8XJQ1LXNe6ellN4BtVKa7/T950W7mcK/JlbV4oaR0LOvuRllVv5G1UTAzQziGMIQWOJKUVU25IMFblnPOiAQJhMfOqQgIYdY5IxDMEyQ5p3g6hSPOKY50oLGdE9j9Frne9rcClJWvJotQEjHD9JeGgFMyiR4m66i26e9klXYBzPuQtmJyOJPL6L6qsxzXLX80kqS1oCV qgA7lfNN bSspRRQTS3jFXZvxZbVCqVS2ZlWve13KpPylPEehYp2yBE76vrYQ XOIV921lT2HOtbEvuURAHQ/UpKviVF35LYN/dIAJ1 rSQE0Il8W96/j/xy593o3ih1Z1c6cTqfLLSSq7tW 4AGc76TZESXUxD4XL8ksTWjIEe/aLpQ0hQW6jDbGDgB8fYQiRCOY0Qi8iIUV0x4ViARjOHJg6hIJIlgwsGTltYLuUIeui8oEXjeHrAUEe2BhVde4gTCSYggxBHEQOGXBBZ0I8JGWCIxBBHAtXTpWk69mEtm4xeTWl69qOUqSRiycR 1s3VSRcLHOapGETH/eV6/Ol9fuFxf JVUsmqCVGLJGCHG7HqotnaHMJOCwDBgLUlERATDIQksxFv9iD6shtMYrQ7UbkNgKIKOwYqmMLSp6tu3xpXL5uyMOfvb7vZDki5XKloD0lx/H6pdXwNIBn6GhogIxgYnEsRKhBdakJ0wztGC5F2QxssntRuvavPPazeeksl0Wu0Fx2IKwxMeQoPpINgdk6I5sFhSf3Brd3O nqp9niGjJWTRYqVJcbinHF51YtIieEINSbX1aDekUq0ATlSf7RjrrwGDxrXlsmElk01AK88r1675XWiKEDII0sJHxTxGNonJpxtkCQFx0QOTOPO/fqLxeqD2wQSCvAmxppG9eBZi5mWkSAp/YBFWia1M6K2s2UurkNGjGVtetVLK azTS cAAGKRboYC4HotRGNmbfGxl1z6wNQJFlVzTUQ1 91JciBQTnWUoItHRgeATluPq7dXK8u3TOXr5K0mk274tSDiAUooHC6pYUOHcis9aXF sJ09ckMWDamp2xP9jItXSqItoZjDL8Py9YX3hjb72iobi QciLbBOxhWWu5wDoRg9GEAvdwzZh9Y07/S0bLzUqzu303ZK5OWXk/NMSAw ATAIbcp VU7FZpuhe2dub7OuE3jqcRPujXDEHagiBA6wMeWBCcbaFvjY4cqIxxtIxxRBSD1pSIo6bYHI3tKePVq rtVaA5qiUbtaUHMFUi4VYGBA3H6uyc8fuyuXPHmLtF9esJtULLi1bsYllesGomIxAU2R9HX8cB1xdG8EmXcRUH49qb3Z37u eWlXC7tUT3XbLdDz23iiymGG23aYB1xkEbVwaDYPGZZzHgxcrxrOfazNrxvVLJFcsZxtI1XsvQ/WpZUAasn72hSTwDoZwWDQ3V83FFWOeEoVOprENMM/JIBgYa4GxogeM9szXSxQslxwsGM 4fecotG3f0Yo7aN9hL8m768b7R5RksjxgkqwHrLq4ZVzdomCp7IDd1zLIBZ6YN3 CPkkmipP64OJRdDiNJ9W/pqr3/wQIPTfIkG83AcDY3Xhgbm0AhhYfKIbrfP9uo/Zhzvz7KbVWOTlIHM6RUcT842F1 pmNE0sMFAdLnjgztjeNX27TOJsojqUh0qyXQcW1O4k4Lx7XxDtg0tLPNRgz7sqEvXi4iec5KwXDw/bhX3D4DXnR0IDYoY4q4ePb EO9ceGDXnBEtXJljFQq TRxf F GNcvwXen5 JkMjVGsnBA6rW/w7yNOYAN3FsAZVo4OrwfA/Ra03EVoiiJ4XQ4yjID9GM3DqcDcwAHBuPA8YfM4cfAHGiGBCOBD9sRZ/eV68FI8IdN4tvAJKAUBHQEH6Ry7HnbyhzSbSvv/7LzkxINcNsqCYIkIvH/O1dfdzfNC1c2wIWrgFBEEsSPdOnafMmk8uDf79MZXYHQjyuNu1bP9BFYYP/3UPQ/fDuyUA==

唐僧沒(méi)說(shuō)哈 - -我給發(fā)

eNrlWmtv01YY/rYP/Ioo32E x5fEGkQa2pCQKpjUXT8hJ3GudhJil9bRAbVcRkGUFlou7QodY6NjDCrKBqUX DN1nPyLneNLYsdOY7O0QiKRnOT09XnO816ec3xOP5u68cVRRTgn/ihLMVWricfip9MlMaPGY3lBFhma54/F1fqYGE8disWOKj02FWxzLF4ZkyTz730tapKgiXV4ppou2YYu01NjclqsO6b1qiQWs/EUdfRzxWc6qtaLlbxjKmTUbwWlHP98gF1ayGdLo5ik3RzCPoJ1Zqy p7WXnlT4XpCIOyEbyNBrLWtKploXQ3kDj1ppRBgJHvfXE7V4ioVUiJFg6xHxnIjjDAYbK WiJI0U5aKKux88cpJ/XwkqcQoF4GEKHKb4oLu rNcFzbmpqCjqWFYzoTo5FSZF9x4K6e4U/tp13x48J3KS5RO3A7G158fHNaDB0aiJKsmigPzx N8cWFori9rgTKtWVFzW35giECqBpLFMOSuoQjzFhEiEmqAoxXNi31Tw9m15ngoO0kdvGkIVJclUxRSgEKAoRCGi3ygnSIp4njebQMLdlrTaKNuQXM4nUM NXG8D29vA9DbQvQ3Q xOgpOtnh1j3S7BPrLkEt7kzqb9qHS/mR1UhL7pTaU9rn8z1qWAyP45a6jxADSX6DOgj4X5LGNqSDmnJhEZnQ1uC0JZchD7Dck9E6DOsl5Kh 4ShLfkIfcLQlh5G/iw9XsUrKKHi3FEQlLyI52FSaX5jr3QUsicruaqj532GYHWoVOt1LUSVWNUKoqz84P6t/FJE5YzN31o315t3Fo2lq/r0692d5d23T1BBKhUaDQU10uM1hPTZ9Vhr7R6iJjiOonjelDL329SsvleAiKBC2jE/T3Dbj3aMlVftq7f06aUu7rhSyg8bF3Zxkf58RX/6c2tmTb92Eck1rWQjNRdfxNqTSxjphPn6IKQE5WIIEG1srhoLK/otQhQpskLbYMb6u1jr2hoGo/ArMhhtgtFJH1j7 ULz1R0CJueGC8ZS3tjNv9a335LYbc93Y6dl9zV2Dsn76/q7R4RkThsySdoH1lzY0q9uEbB8acjh6zgErx2Mm5fb81NovDahDjMfKejCaP412Vz E2Oo8jAxaODC2N14YGxtYAwlM0wMyLkr O1G6/2c8fcT4i4tN0wcd5Yj44 HzamnFk46m9snnzmJpm9v6jfukkQbr50t4FQzP/YnsRk/HuPg/c qJateCIFXB6EfDzp4u9v3Y8bqpMnvxAmKiogHTX7AJYUI NHAkNjZWcI45qF2IdzzLYOMf55h2WztbBkL66hROkvmn1wJNS uGE83/ePjGOzPJAHr1sCAQRILgBK2PxzE9p0FrDDNxzMYNK3mSTaf7YtKbuVsnx6h2A8AdU/u5pxu0dSvPGtO3/YDJhkGQcCgJH74YqPyPAI8TPXtSf3ly bdVcy0rOQspv2ASSe8o5J0RJqAqAEWA2PpcnN52ri22J5fRzU1q2kZ27/ri/ql1WDNAJT5AqGTz8KmOi7WZ97oG/eNrfd41kclSZLtTLIwfUwZmEAMbXZi8YX4HTGorlnfnOw9LAN9CzjanUZ0RP/qLx63rr9s3XrWuv4ETRQKEuGYDlBFGvKI5VjE8gj2OrTzGO tZYLk0mHUfLimz742pv5FZc3B8akTBBgAT90MTtRkEE6AaPiA3rzRr1wyZmeM2V93tx igmYtmgKJJXFVMFgEAE0IdhCDOXUBj7AeSFsD5i 153/BZSFlbThfzPgkwMWIyfEsooMrsRfahEt24QaLoneLmIii6xHEfPKw1WJhLjCxIAcRCzjEY2TQqd1ouazfWyar5Qd38bq8YWtEHzirWruFGjWJQzuf4wBisfMhx7mdPzDWCY8uNGfn9N XjJ17 txtonlqVmqQWUYJWpOzHG y48gm2AfpbojdS2ePn6M4LknBCPv8PAdwVcP92 2PtNWfYD Nvf5UKdtAclZB49nxceTZmB281c4ewN5/Si2XkCwPb2zhjwFScrVSFjUa0RzLWhfIJ5LWBT SQxZiTWJ4LPlYufFSn0E8ngOTLF7mJ2hE2hGLl8k0/lQVWbog50qZCzmlIl3AQpTDl1JmYAK4Dhv2w7sk7P08670Jj0CJp34KF4aKKGZHCljvqQNKkSgcTkbjQB9ImuMUj8JhJBoH7kDigLUkCofvonFgD4QD1sIoHE4PKw4hJifvWSIV5SwxsU9niWz4o7yPyvSTOUt0Por5Cl5l/VAoqiIOdEa0D0V8zYfwDdb/xKT A2liO9Y=

如何在VB.net中用程序控制鼠標(biāo)移動(dòng)和點(diǎn)擊

調(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 '模擬鼠標(biāo)左鍵按下

Public Const MOUSEEVENTF_LEFTUP = H4 ’模擬鼠標(biāo)左鍵釋放

Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模擬鼠標(biāo)中間鍵按下

Public Const MOUSEEVENTF_MIDDLEUP = H40 '模擬鼠標(biāo)中間鍵釋放

Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模擬鼠標(biāo)右鍵按下

Public Const MOUSEEVENTF_RIGHTUP = H10 '模擬鼠標(biāo)右鍵釋放

Public Const MOUSEEVENTF_MOVE = H1 '模擬鼠標(biāo)指針移動(dòng)

例：

mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0

'在（10，10）模擬鼠標(biāo)左鍵按下

VB.net可以開(kāi)發(fā)小型3D圖形顯示軟件嗎？

可以借助DirectX來(lái)編程。免費(fèi)3D引擎可不好找，一般來(lái)說(shuō)速度比不上硬件加速后的DX，尤其令人頭疼的是一般都沒(méi)有針對(duì)VB的文檔，LZ有這方面理想的話(huà)，自己寫(xiě)一個(gè)吧……

我不得不承認(rèn)在VB上寫(xiě)DirectX的教程相當(dāng)難找！如果LZ想深入研究三維圖形問(wèn)題，C++一定要學(xué)，就算不能用C++編程，起碼要能把C++程序翻譯成VB程序。

我自己學(xué)會(huì)DX編程花了兩三個(gè)月（很淺）。編這樣一個(gè)程序難度是有點(diǎn)大的。

工具：DirectX9和其針對(duì)VB的庫(kù)(項(xiàng)目-添加引用。.NET庫(kù)里DX庫(kù)一般都有)，VB不知道現(xiàn)在支不支持DX10以上的版本，不過(guò)9絕對(duì)夠用了。

思路：一切3D圖形都是由三角形拼成的。矩形挖掉一個(gè)圓孔可不是一個(gè)方便畫(huà)的圖形，我估計(jì)至少得有24個(gè)三角形。你需要記錄這些點(diǎn)的坐標(biāo)，或者干脆把它們寫(xiě)在文件里，到時(shí)讀出來(lái)。

這是我的一個(gè)老DX程序的不完全的代碼(顯示一個(gè)黑乎乎的平面)，不一定能編譯，可以參考一下。

Imports Microsoft.DirectX '一定要~

Public Class FormMain

'Direct3D Startup

Dim d3dpp As New Direct3D.PresentParameters 'DX基本參數(shù)，例如全屏還是窗口等

Public MyDevice As Direct3D.Device ‘DX基本設(shè)備，畫(huà)圖就靠它。

'Matrices

Dim matWorld, matView, matProj As Matrix '世界位置矩陣，攝像機(jī)位置矩陣和透視矩陣，數(shù)學(xué)要學(xué)好啊。

'mesh

Public MyPlane as Direct3D.Mesh ’我們的物體

Public VBPlane(3) As Direct3D.CustomVertex.PositionNormalTextured '存放頂點(diǎn)位置的數(shù)組

#Region "DX Core"

Public Sub InitDeviceObjects()

With d3dpp ‘以下請(qǐng)照抄。

.Windowed = True ‘不全屏。

.SwapEffect = Direct3D.SwapEffect.Discard ’雙緩沖交換效果。請(qǐng)百度“雙緩沖”

.BackBufferFormat = Direct3D.Format.Unknown

.EnableAutoDepthStencil = True ’讓DX自動(dòng)管理深度緩沖

.AutoDepthStencilFormat = Direct3D.DepthFormat.D16

End With

MyDevice = New Direct3D.Device(0, Direct3D.DeviceType.Hardware, Me.Handle, Direct3D.CreateFlags.HardwareVertexProcessing, d3dpp) '創(chuàng)建DX設(shè)備啦！以下兩句請(qǐng)照抄。

MyDevice.SetRenderState(Direct3D.RenderStates.ZEnable, True) ‘Z緩沖

MyDevice.SetRenderState(Direct3D.RenderStates.NormalizeNormals, True)'法線(xiàn)歸一化，請(qǐng)看相關(guān)數(shù)學(xué)書(shū)籍。

End Sub

Public Sub RestoreDeviceObjects()

Dim PlaneIB() As Short = {0, 1, 3, 0, 2, 3} ’頂點(diǎn)索引信息。

Dim AttrTable(1) As Direct3D.AttributeRange ‘頂點(diǎn)分組屬性表

AttrTable(0).AttributeId = 0

AttrTable(0).FaceStart = 0

AttrTable(0).FaceCount = 2 ’有兩個(gè)三角形

AttrTable(0).VertexStart = 0

AttrTable(0).VertexCount = 4 ‘四個(gè)點(diǎn)

‘頂點(diǎn)坐標(biāo)信息。

VBPlane(0) = New Direct3D.CustomVertex.PositionNormalTextured(-500, -500, 0, 0, 0, 1, 0, 0)

VBPlane(1) = New Direct3D.CustomVertex.PositionNormalTextured(500, -500, 0, 0, 0, 1, 1, 0)

VBPlane(2) = New Direct3D.CustomVertex.PositionNormalTextured(-500, 500, 0, 0, 0, 1, 0, 1)

VBPlane(3) = New Direct3D.CustomVertex.PositionNormalTextured(500, 500, 0, 0, 0, 1, 1, 1)

MyPlane = New Direct3D.Mesh(2, 4, Direct3D.MeshFlags.Managed, Direct3D.VertexFormats.Position + Direct3D.VertexFormats.Normal + Direct3D.VertexFormats.Texture1, MyDevice) ’創(chuàng)建物體

MyPlane.SetVertexBufferData(VBPlane, Direct3D.LockFlags.None) ‘輸入頂點(diǎn)坐標(biāo)數(shù)據(jù)

MyPlane.SetIndexBufferData(PlaneIB, Direct3D.LockFlags.None) ‘輸入索引數(shù)據(jù)

MyPlane.SetAttributeTable(AttrTable) ‘輸入頂點(diǎn)分組屬性表

End Sub

Public Sub Render() ‘調(diào)用它畫(huà)圖

Dim vlook As New Vector3(1, 0, 0)

Dim vPos As New Vector3(0,0,0)

Dim vUp As New Vector3(0, 0, 1)

MatView = Matrix.LookAtLH(vPos, vlook, vUp) ‘計(jì)算攝像機(jī)位置矩陣

Device.SetTransform(Direct3D.TransformType.View, MatView) ‘設(shè)置當(dāng)前攝像機(jī)位置矩陣為MatView。

Dim fAspect As Single = Me.Width / Me.Height ’窗口長(zhǎng)寬比

matProj = Matrix.PerspectiveFovLH(Math.PI / 4, fAspect, 1.0F, 10001) ‘計(jì)算透視矩陣MatProj。

MyDevice.SetTransform(Direct3D.TransformType.Projection, matProj) ‘設(shè)置當(dāng)前透視矩陣為MatProj。

MyDevice.Clear(Direct3D.ClearFlags.Target + Direct3D.ClearFlags.ZBuffer, Color.Blue, 1.0F, 0) ’先刷藍(lán)屏

MyDevice.BeginScene() ‘開(kāi)始畫(huà)

MatWorld = Matrix.Identity ’物體位于原點(diǎn)，不旋轉(zhuǎn)

Device.SetTransform(Direct3D.TransformType.World, MatWorld) ’設(shè)置物體位置

Me.Mesh.DrawSubset(0) ‘畫(huà)物體

MyDevice.EndScene() ’結(jié)束

MyDevice.Present() ‘顯示在屏幕上

End Sub

Public Sub DeleteDeviceObjects() ’結(jié)束程序時(shí)放掉資源

MyPlane.Dispose()

MyDevice.Dispose()

End Sub

#End Region

Private Sub FormMain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

DeleteDeviceObjects()

Windows.Forms.Cursor.Show()

End Sub

Private Sub FormMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

InitDeviceObjects()

RestoreDeviceObjects()

Windows.Forms.Cursor.Hide()

Render()

End Sub

End Class