跪求vb.net代碼

新建窗口，添加picture控件

創(chuàng)新互聯(lián)建站堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：成都網(wǎng)站制作、成都做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時(shí)代的王益網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

利用line()方法畫線

line(開始x坐標(biāo),開始y坐標(biāo))-(結(jié)束x坐標(biāo),結(jié)束y坐標(biāo)),線的顏色，畫線的方式(默認(rèn)為線，B為矩形無(wú)填充，BF為填充的矩形)

For i = 1 To 16

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(255, 0, 0)

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(255, 0, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(0, 255, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(0, 255, 0)

Next i

如果要在窗口上畫也可以調(diào)用窗口的line方法即form.line()

vb.net中,如何實(shí)現(xiàn)鼠標(biāo)在listbox控件上移動(dòng)時(shí),鼠標(biāo)所到的條目背景變黑、字變白；移開后還原?

復(fù)雜的不會(huì)，來(lái)點(diǎn)兒簡(jiǎn)單的，借用在listbox里按下鼠標(biāo)時(shí)再移動(dòng)，會(huì)高亮顯示選擇行，并且會(huì)隨鼠標(biāo)移動(dòng)而變化的這一特點(diǎn)改進(jìn)的，不足之處是在listbox里，此時(shí)處于鼠標(biāo)左鍵在按下狀態(tài)。

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)左鍵按下

Private Sub ListBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseMove

mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)

End Sub

關(guān)于VB中A*尋路算法的提問(wèn)

定理：穿越于一組互不相交的多邊形障礙物S之間、從Pstart通往Pgoal的任何一條最短路徑，都是一條多邊形路徑，其中所有的內(nèi)部頂點(diǎn)都是S的頂點(diǎn)。

推廣：所有最短路徑問(wèn)題。

結(jié)論：只有普遍適用的算法，沒(méi)有普遍適用的代碼。

補(bǔ)充：只有問(wèn)題實(shí)例化才能寫出適用代碼。

你所遇到的可不只是尋路問(wèn)題，二維尋路相對(duì)簡(jiǎn)單點(diǎn)，我猜測(cè)你的問(wèn)題產(chǎn)生在“碰撞”上，建議你多學(xué)習(xí)一下“計(jì)算幾何學(xué)”、“計(jì)算機(jī)圖形學(xué)”、“機(jī)器人運(yùn)動(dòng)學(xué)”等，當(dāng)然，編程的基本功也很重要。其實(shí)，帶有運(yùn)動(dòng)的游戲編程是很復(fù)雜的。你也可以將你的程序包發(fā)給我等我有時(shí)間幫你看看。

一個(gè)VB自動(dòng)實(shí)現(xiàn)最短路徑的程序

最近我也在整這個(gè)呢，據(jù)說(shuō)找最短路徑的是A*算法,不過(guò)我不喜歡看別人的代碼（因?yàn)榭床欢┲豢丛?，你可以找一下AStar算法方面的資料，原理比較簡(jiǎn)單，不過(guò)實(shí)現(xiàn)起來(lái)比較麻煩，我用的是VB.NET實(shí)現(xiàn)的，我用用它來(lái)走迷宮，而且找的是最短路徑，經(jīng)過(guò)幾天努力，基本實(shí)現(xiàn)了（見 ），不過(guò)還有很多有待改進(jìn)的地方。我不是計(jì)算機(jī)專業(yè)的，當(dāng)然也沒(méi)學(xué)過(guò)數(shù)據(jù)結(jié)構(gòu)，你那兩個(gè)問(wèn)題我都搞不懂，不過(guò)有一點(diǎn)提示就是A星算法。

新聞標(biāo)題：vb.net迷宮的簡(jiǎn)單介紹
轉(zhuǎn)載注明：http://jinyejixie.com/article46/doohheg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供用戶體驗(yàn)、網(wǎng)站設(shè)計(jì)公司、靜態(tài)網(wǎng)站、網(wǎng)站設(shè)計(jì)、營(yíng)銷型網(wǎng)站建設(shè)、全網(wǎng)營(yíng)銷推廣

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)