通過下面的方法進(jìn)行修改:
讓客戶滿意是我們工作的目標(biāo),不斷超越客戶的期望值來自于我們對(duì)這個(gè)行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶,將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長期合作伙伴,公司提供的服務(wù)項(xiàng)目有:域名與空間、虛擬空間、營銷軟件、網(wǎng)站建設(shè)、靜樂網(wǎng)站維護(hù)、網(wǎng)站推廣。
TextBox1.Font = New Font("Arial", 16, FontStyle.Bold) ? ? ? 'Arial字體,大小:16,粗體
'TextBox1.Font = New Font("Arial", 16, FontStyle.Italic) ? ?'Arial字體,大小:16,斜體
'TextBox1.Font = New Font("Arial", 16, FontStyle.Regular) ? 'Arial字體,大小:16,正常
'TextBox1.Font = New Font("Arial", 16, FontStyle.Strikeout) 'Arial字體,大小:16,刪除線
'TextBox1.Font = New Font("Arial", 16, FontStyle.Underline) 'Arial字體,大小:16,下劃線
TextBox1.ForeColor = Color.Red ?'前景色
VB.NET的簡介
VB.net是微軟最新平臺(tái)技術(shù),是.netframeworkSDK的一種語言。VB.net和VC#.net在功能上沒有區(qū)別。編譯以后生成的可執(zhí)行文件被稱為Assembly,即程序集。
VB.net的版本號(hào)是VisualBasic7.0,它的運(yùn)行是建立在CLR(CommonLanguageRuntime)和MSIL(MicrosoftIntermediateLanguage)虛擬器上的。其實(shí),它的機(jī)制和Java差不多。
VB.NET的特點(diǎn)
1.真正成為面向?qū)ο笠约爸С掷^承性的語言。
2.窗體設(shè)計(jì)器支持可視化繼承,并且包含了許多新的特性,比如自動(dòng)改變窗體大小、資源本地化支持、數(shù)據(jù)類工具內(nèi)在支持XML數(shù)據(jù)。
3.直接建立在.NET的框架結(jié)構(gòu)上,因此開發(fā)人員可以充分利用所有.NET平臺(tái)特性,也可以與其他的.NET語言交互。
4.為Windows應(yīng)用程序提供了XCOPY部署,開發(fā)者不再需要為DLL的版本問題擔(dān)憂。
VB.net的語言特點(diǎn):
1.代碼托管。被托管的代碼享受.netframework提供的安全保障和垃圾回收機(jī)制,但是這也同時(shí)表明,你的程序被框在Framework里面了。API變得不太方便。
2.強(qiáng)大的面向?qū)ο筇匦浴,F(xiàn)在VB7已經(jīng)是一個(gè)完全的面向?qū)ο蟪绦颉?/p>
現(xiàn)在VB7已經(jīng)支持類的各種特性:繼承,函數(shù)的覆蓋,重載,虛擬,隱藏??
3.功能強(qiáng)大,程序界面更標(biāo)準(zhǔn)。
4.程序代碼結(jié)構(gòu)化更強(qiáng),開發(fā)環(huán)境舒適體貼。
新建窗口,添加picture控件
利用line()方法畫線
line(開始x坐標(biāo),開始y坐標(biāo))-(結(jié)束x坐標(biāo),結(jié)束y坐標(biāo)),線的顏色,畫線的方式(默認(rèn)為線,B為矩形無填充,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采用的GDI+實(shí)現(xiàn)圖形繪制,不再使用VB6的Print、Line等語句
'改成這樣試試
Sub?Add(ByVal?a?As?Integer,?ByVal?b?As?Integer)
a=a+1
b+b+1
End?Sub