自己用GDI+畫的 無(wú)論什么什么尺寸的picturebox都行
創(chuàng)新互聯(lián)公司是一家專注于網(wǎng)站建設(shè)、成都網(wǎng)站制作與策劃設(shè)計(jì),襄垣網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)公司做網(wǎng)站,專注于網(wǎng)站建設(shè)十年,網(wǎng)設(shè)計(jì)領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:襄垣等地區(qū)。襄垣做網(wǎng)站價(jià)格咨詢:18982081108
不過別太小了o(∩_∩)o
代碼放在哪里自己決定啊
最好是放在 picturebox的resize時(shí)間里
每次picturebox大小改變都重畫一次坐標(biāo)
Dim b As New Bitmap(PictureBox1.Width, PictureBox1.Height)
Dim g As Graphics = Graphics.FromImage(b)
g.Clear(Color.White)
Dim p As New Pen(Color.Black)
p.EndCap = Drawing2D.LineCap.ArrowAnchor
g.DrawLine(p, 30, PictureBox1.Height - 30, 30, 30)
g.DrawLine(p, 30, PictureBox1.Height - 30, PictureBox1.Width - 30, PictureBox1.Height - 30)
Dim i As Integer
Dim bs As New SolidBrush(Color.Green)
Dim po As New Point
po.X = 0
po.Y = PictureBox1.Height - 35
For i = 700 To 1000 Step 50
g.DrawString(i, Me.Font, bs, po.X, po.Y)
g.DrawLine(p, po.X + 28, po.Y + 5, po.X + 30, po.Y + 5)
po.Y -= (PictureBox1.Height - 100) / 6
Next
po.X = 30
po.Y = PictureBox1.Height - 30
For i = 0 To 40 Step 5
g.DrawString(i, Me.Font, bs, po.X, po.Y + 5)
g.DrawLine(p, po.X, po.Y + 2, po.X, po.Y)
po.X += (PictureBox1.Width - 100) / 8
Next
PictureBox1.Image = b
TranslateTransform方法是用來平移對(duì)象的。如果你學(xué)過計(jì)算機(jī)圖形學(xué),有個(gè)偏移矩陣,就是它了。
你只要知道TranslateTranform(0,240)表示把圖形移動(dòng)到當(dāng)前位置+(0,240)的地方就行了。
ScaleTransform用于縮放對(duì)象,1,1的話表示大小不變。
1.首先建立一個(gè)基于Microsoft?.NET?Framework?2.0以上的VB.NET解決方案。
2.在窗體上面添加一個(gè)PictureBox控件,并綁定到父容器里面(綁定到父容器的操作可以不去實(shí)現(xiàn))。
3.給PictureBox.Image指定路徑,這里以“C:\Windows\Web\Wallpaper\Windows\img0.jpg”為例子,當(dāng)然這張圖片在Windows?7旗艦版下面會(huì)有的。
4.添加代碼:
Public?Class?Form1
Private?Sub?Form1_Load(sender?As?Object,?e?As?EventArgs)?Handles?MyBase.Load
Randomize()
Dim?xScn?As?UInteger?=?My.Computer.Screen.Bounds.Width
Dim?yScn?As?UInteger?=?My.Computer.Screen.Bounds.Height
ReLine:
Dim?xShow?As?Integer?=?Int((xScn?+?1)?*?Rnd())?-?Me.Width
Dim?yShow?As?Integer?=?Int((yScn?+?1)?*?Rnd())?-?Me.Height
Me.FormBorderStyle?=?Windows.Forms.FormBorderStyle.None
PictureBox1.Image?=?Image.FromFile("C:\Windows\Web\Wallpaper\Windows\img0.jpg")
PictureBox1.SizeMode?=?PictureBoxSizeMode.StretchImage
If?xShow?=?0?And?yShow?=?0?Then
Me.Location?=?New?Point(xShow,?yShow)
Else
GoTo?ReLine
End?If
Me.Show()
End?Sub
End?Class
5.我是使用?Visual?Studio?2012?Ultimate?開發(fā)的,若有錯(cuò)誤請(qǐng)參考請(qǐng)他方法進(jìn)行修改
網(wǎng)頁(yè)題目:vb.net輸出坐標(biāo)圖象 vb坐標(biāo)系
網(wǎng)頁(yè)URL:http://muchs.cn/article46/doshgeg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供品牌網(wǎng)站制作、面包屑導(dǎo)航、自適應(yīng)網(wǎng)站、移動(dòng)網(wǎng)站建設(shè)、網(wǎng)站收錄、Google
聲明:本網(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í)需注明來源: 創(chuàng)新互聯(lián)