點(diǎn)虐 2005很容易解決這個(gè)問題,點(diǎn)虐 2010沒用過,你還蠻趕時(shí)髦的嘛...都用2010了..如果點(diǎn)虐 2005你需要的話..加我為好友....我可以寫幾個(gè)函數(shù)給你...
創(chuàng)新互聯(lián)是一家專業(yè)提供資興企業(yè)網(wǎng)站建設(shè),專注與成都做網(wǎng)站、成都網(wǎng)站設(shè)計(jì)、H5高端網(wǎng)站建設(shè)、小程序制作等業(yè)務(wù)。10年已為資興眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)絡(luò)公司優(yōu)惠進(jìn)行中。
繼承（Inherits）控件就可以重寫它的屬性和方法，圖標(biāo)可以在paint中重繪，用gdi，工具主要在drawing和drawing2d中。
combobox彈出的框增加圖標(biāo)嗎？個(gè)人看法可能需要得到那個(gè)句柄，才可以重繪，但那個(gè)好像是一體的，不知道能不能弄到句柄。
textbox可以自定義高度。只是以行高度為單位，改變字體大小即可，沒必要重寫吧。
我也自學(xué)，感覺基礎(chǔ)容易學(xué)，進(jìn)階資料少。循序漸進(jìn)也沒序可循，基本是在摸索。
都是想到什么問題，就立下一個(gè)目標(biāo)，然后攻破他，結(jié)果可能是嘗試幾天后，發(fā)現(xiàn)目標(biāo)超出能力范圍。
晦澀是相對的，實(shí)踐出真知，多動(dòng)手，基礎(chǔ)就好了。
分類: 電腦/網(wǎng)絡(luò) 程序設(shè)計(jì) 其他編程語言
問題描述:
VB6中的form1.circle (100,200),rgb(0,255,0)的語句如何在VB中使用??？
急用?。。。。。。。?！
解析:
VB與VB不同。
VB已經(jīng)有專門繪圖的類。
可以定義筆刷然后用Drawing類中的方法繪制。
Private Sub DrawEllipse()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
Private Sub DrawRectangle()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
Imports System.Drawing
Imports System.Drawing.Drawing2D
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim g As Graphics = PictureBox1.CreateGraphics
Dim hs As HatchStyle = HatchStyle.Cross
Dim sb As HatchBrush = New HatchBrush(hs, Color.Black, Color.White)
Dim p(3) As Point
p(0).X = 100
p(0).Y = 50
p(1).X = 0
p(1).Y = 100
p(2).X = 200
p(2).Y = 100
p(3).X = 100
p(3).Y = 50
g.FillPolygon(sb, p)
g.DrawPolygon(Pens.Black, p)
End Sub
End Class
重慶分公司
重慶分公司
