vb.net 中，怎麼做拉動線段的功能 ??

效果如圖，代碼如下：

10年積累的成都網(wǎng)站建設(shè)、網(wǎng)站建設(shè)經(jīng)驗，可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認識你，你也不認識我。但先網(wǎng)站設(shè)計后付款的網(wǎng)站建設(shè)流程，更有湖州免費網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

Public?Class?Form1

'Circle類

Class?Circle

? Public?Center?As?Point

? Public?Radius?As?Single

? Public?Sub?New(c?As?Point,?r?As?Single)

? ? ? Center?=?c

? ? ? Radius?=?r

? End?Sub

? '繪制

? Public?Sub?Draw(g?As?Graphics,?pen?As?Pen)

? ? ? g.DrawEllipse(pen,?New?RectangleF(Center.X?-?Radius,?Center.Y?-?Radius,?Radius?*?2,?Radius?*?2))

? End?Sub

End?Class

Private?downPoint?As?Point? ? ? '記錄鼠標(biāo)按下位置

Private?circleList?As?New?List(Of?Circle)? ? ? ?'已存放圓的列表

Private?tmpCircle?As?Circle? ? ?'臨時圓（正在拖動）

Private?Sub?Form1_Load(sender?As?Object,?e?As?EventArgs)?Handles?MyBase.Load

? DoubleBuffered?=?True? ? ? ?'啟用雙緩沖繪圖，避免閃爍

End?Sub

Private?Sub?Form1_MouseDown(sender?As?Object,?e?As?MouseEventArgs)?Handles?Me.MouseDown

? downPoint?=?e.Location? ? ? '記下位置

End?Sub

Private?Sub?Form1_MouseMove(sender?As?Object,?e?As?MouseEventArgs)?Handles?Me.MouseMove

? If?e.Button??Windows.Forms.MouseButtons.Left?Then?Return?'左鍵沒按下則退出

? Dim?r?As?Single?=?Math.Sqrt((e.X?-?downPoint.X)?^?2?+?(e.Y?-?downPoint.Y)?^?2)? '算出半徑

? tmpCircle?=?New?Circle(downPoint,?r)? ? ? ? ? ? '更新臨時圓

? Refresh()? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?'先刷新掉之前繪制的臨時圓

? tmpCircle.Draw(Me.CreateGraphics,?Pens.Black)? ?'繪制臨時圓

End?Sub

Private?Sub?Form1_MouseUp(sender?As?Object,?e?As?MouseEventArgs)?Handles?Me.MouseUp

? circleList.Add(tmpCircle)? ? ? ? ? ?'鼠標(biāo)彈起，把臨時圓加入圓列表

End?Sub

Private?Sub?Form1_Paint(sender?As?Object,?e?As?PaintEventArgs)?Handles?Me.Paint

? For?Each?c?As?Circle?In?circleList

? ? ? c.Draw(e.Graphics,?Pens.Black)? '繪制出每個圓

? Next

End?Sub

End?Class

VB.net的開方運算

VB的運算順序是：先乘除、后加減，有括號的先算括號內(nèi)，有負號的先算負號。

請你比較一下這個運算中x和y的值：

Dim n As Single = 4

Dim x As Single

Dim y As Single

x = n + 1

x = x / n

x = x - 1

x = Math.Sqrt(x)

y = Math.Sqrt((n + 1) / n - 1)

這樣就會發(fā)現(xiàn)，你的代碼中括號的位置錯了。

正確的應(yīng)該是： Math.Sqrt((n + 1) / n - 1)

vb.net求個解個函數(shù)或是過程

我是這么做的，你參考一下：

所有Panel的Visiable屬性都是False

'設(shè)置全局變量

Private lblMenu As Object = Nothing '鼠標(biāo)移動的前一菜單項

Private MenuSelect As Object = Nothing '鼠標(biāo)點擊的前一菜單項

Private FrmShow As Object = Nothing '前一菜單項所指向內(nèi)容

Private Sub MixedControls_Click(sender As System.Object, e As System.EventArgs) Handles _

Label1.Click, Label2.Click, Label3.Click, Label4.Click, Label5.Click, Label6.Click, Label7.Click

If MenuSelect IsNot Nothing Then

MenuSelect.forecolor = Color.White '前面選擇的菜單項前景色變?yōu)榘咨?/p>

End If

If FrmShow IsNot Nothing Then

FrmShow.visible = False '前一菜單項內(nèi)容隱藏

End If

sender.forecolor = Color.Chartreuse '當(dāng)前選擇的菜單項前景色為亮綠色

MenuSelect = sender '保存當(dāng)前選擇菜單項

Select Case sender.name.ToString

Case "Label1"

FrmShow = Panel1 '保存當(dāng)前菜單項選擇

Me.Panel1.Dock = DockStyle.Fill '顯示運行界面

Me.Panel1.Visible = True

Case "Label2"

FrmShow = Panel2 '保存當(dāng)前菜單項選擇

Me.Panel2.Dock = DockStyle.Fill '顯示設(shè)置界面

Me.Panel2.Visible = True

Case "Label3"

FrmShow = Panel3 '保存當(dāng)前菜單項選擇

Me.Panel3.Dock = DockStyle.Fill '顯示關(guān)于界面

Me.Panel3.Visible = True

End Select

End Sub

Private Sub MixedControls_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles _

Label1.MouseDown, Label2.MouseDown, Label3.MouseDown, Label4.MouseDown, Label5.MouseDown, Label6.MouseDown, Label7.MouseDown

sender.BorderStyle = BorderStyle.FixedSingle '鼠標(biāo)按下菜單效果

End Sub

Private Sub MixedControls_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles _

Label1.MouseUp, Label2.MouseUp, Label3.MouseUp, Label4.MouseUp, Label5.MouseUp, Label6.MouseUp, Label7.MouseUp

sender.BorderStyle = BorderStyle.None '鼠標(biāo)抬起取消菜單效果

End Sub

Private Sub MixedControls_MouseEnter(sender As Object, e As System.EventArgs) Handles _

Label1.MouseEnter, Label2.MouseEnter, Label3.MouseEnter, Label4.MouseEnter, Label5.MouseEnter, Label6.MouseEnter, Label7.MouseEnter

If lblMenu IsNot Nothing Then

Call MixedControls_MouseLeave(lblMenu, e) '前一菜單項恢復(fù)初始狀態(tài)

End If

sender.backcolor = Color.DeepSkyBlue '鼠標(biāo)進入菜單范圍的效果：背景色變深藍

lblMenu = sender '保存當(dāng)前進入菜單項

End Sub

Private Sub MixedControls_MouseLeave(sender As Object, e As System.EventArgs) Handles _

Label1.MouseLeave, Label2.MouseLeave, Label3.MouseLeave, Label4.MouseLeave, Label5.MouseLeave, Label6.MouseLeave, Label7.MouseLeave

sender.backcolor = Color.Transparent '鼠標(biāo)離開菜單項恢復(fù)默認效果，背景色透明

sender.BorderStyle = BorderStyle.None '菜單項邊框取消

lblMenu = Nothing '刪除保存的菜單項

End Sub

VB.NET 如何繪制數(shù)學(xué)代數(shù)式（公式、方程、函數(shù)解析式等）？

絕對值是“|”，可以直接顯示，同理對數(shù)可用log(x)代替，根號和其他不支持顯示。

如果要顯示數(shù)學(xué)式子，只能畫吧。

計算時可用“^”求冪或求根，“/”表示除法和分?jǐn)?shù)線，還有math類。

VB.net如何輸出代數(shù)式,比如計算帶參數(shù)的一元二次方程,請寫清程序

額，我可以用vb6.0的語句回答您，給您參考，就是不知道您可以轉(zhuǎn)化成.net語句與否。

'添加text1,text2,text3用于記錄a,b,c的值

Private?Sub?Command1_Click()

On?Error?GoTo?check

Dim?a,?b,?c,?result1,?result2

a?=?Text1.Text

b?=?Text2.Text

c?=?Text3.Text

result1?=?(((-1)?*?b)?+?Sqr(b?^?2?-?4?*?a?*?c))?/?2?*?a

result2?=?(((-1)?*?b)?-?Sqr(b?^?2?-?4?*?a?*?c))?/?2?*?a

MsgBox?"x1=?"??result1??"??x2=?"??result2

Exit?Sub

check:

MsgBox?"error!please?check?your?number!"

End?Sub

VB.NET怎么位運算?

注意只能對整型執(zhí)行按位運算。浮點值必須轉(zhuǎn)換為整型后，才能執(zhí)行按位運算。按位運算采用二進制（以 2 為基）形式計算兩個整數(shù)值。它們比較對應(yīng)位置上的位，然后基于比較的結(jié)果賦值。下面的示例演示了 And 運算符。復(fù)制Dim x As Integerx = 3 And 5 前面的示例將 x 的值設(shè)置為 1。發(fā)生這種情況的原因如下：這些值以二進制形式處理：二進制格式的 3 為 011二進制格式的 5 為 101And 運算符比較這些二進制表示方式，一次比較一個二進制位置（位）。如果給定位置的兩個位都為 1，則將 1 放在結(jié)果中的該位置。如果任何一個位是 0，則將 0 放在結(jié)果中的該位置。在前面的示例中，按如下所示計算結(jié)果：011（二進制格式的 3）101（二進制格式的 5）001（二進制格式的計算結(jié)果）計算結(jié)果以十進制形式處理。值 001 是 1 的二進制表示形式，因此 x = 1。除了在任何一個比較位是 1 或兩個比較位都是 1 的情況下將 1 賦予結(jié)果位以外，按位 Or 運算與此類似。Xor 在比較的位正好只有一個是 1（而不是兩者都是 1）時將 1 賦給結(jié)果位。Not 采用單個操作數(shù)并反轉(zhuǎn)所有位（包括符號位），然后將該值賦予結(jié)果。這意味著，對于有符號正數(shù)，Not 始終返回負值，而對于負數(shù)，Not 始終返回正值或零。AndAlso 和OrElse 運算符不支持按位運算。 追問： 好復(fù)雜啊...還是不會,還有整數(shù)怎么轉(zhuǎn)換為二進制數(shù)? 回答： 為什么一定要用位運算呢，你那個乘法只能通過左移操作符“

文章名稱：vb.net求根號 vb求根代碼
轉(zhuǎn)載來于：http://chinadenli.net/article4/hgsiie.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供用戶體驗、Google、全網(wǎng)營銷推廣、微信小程序、動態(tài)網(wǎng)站、虛擬主機

廣告

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