vb界面能美化嗎？感覺(jué)新出來(lái)的vb.net的界面明顯比vb美觀，但是vb.net語(yǔ)法還不熟，現(xiàn)在想把vb變得好看一些。

不難的，vb.net的語(yǔ)言比vb的完整些而已。而且一樣可以利用英文的理解方法理解vb.net的代碼，相對(duì)來(lái)說(shuō)，vb.net更容易。語(yǔ)法來(lái)看，vb多數(shù)是用縮寫(xiě)的，而vb.net是用完整的單詞，更便于理解，而且API也簡(jiǎn)化了很多。

成都創(chuàng)新互聯(lián)專注于企業(yè)營(yíng)銷型網(wǎng)站、網(wǎng)站重做改版、趙縣網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、HTML5、商城網(wǎng)站制作、集團(tuán)公司官網(wǎng)建設(shè)、外貿(mào)網(wǎng)站制作、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁(yè)設(shè)計(jì)等建站業(yè)務(wù)，價(jià)格優(yōu)惠性價(jià)比高，為趙縣等各大城市提供網(wǎng)站開(kāi)發(fā)制作服務(wù)。

所以，vb轉(zhuǎn)vb.net是很容易上手的。

關(guān)于VB.NET窗體的問(wèn)題！

你把代碼寫(xiě)在 Activated 事件中試驗(yàn)一下，寫(xiě)在 Load 事件中肯定不能隱藏form1窗體。

Private Sub Form1_Activated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Activated

Me.Hide()

Form2.Show()

End Sub

至于一關(guān)閉form1整個(gè)程序就會(huì)關(guān)閉，是因?yàn)槟愕膄orm1是主窗體，你找到Application.Designer.vb這個(gè)文件，默認(rèn)應(yīng)該都有，這里面有這樣的代碼

Global.System.Diagnostics.DebuggerStepThroughAttribute() _

Protected Overrides Sub OnCreateMainForm()

Me.MainForm = Global.WindowsApplication1.Form1

End Sub

從代碼Me.MainForm = Global.WindowsApplication1.Form1中可以看出Form1()是主窗體，如果你想改變主窗體，那么只要修改對(duì)應(yīng)的Form。

VB.NET怎么調(diào)用其它模塊的過(guò)程？

調(diào)用過(guò)程，調(diào)用過(guò)程有諸多技巧，它們與過(guò)程的類型、位置以及在應(yīng)用程序中的使用方式有關(guān)。下面說(shuō)明如何調(diào)用 Sub 過(guò)程和 Function 過(guò)程。

調(diào)用 Sub 過(guò)程

與 Sub 過(guò)程不同，在表達(dá)式中，Sub 過(guò)程不能用其名字調(diào)用。調(diào)用 Sub 過(guò)程的是一個(gè)獨(dú)立的語(yǔ)句。Sub 過(guò)程還有一點(diǎn)與函數(shù)不一樣，它不會(huì)用名字返回一個(gè)值。但是，與 Function過(guò)程一樣，Sub 過(guò)程也可以修改傳遞給它們的任何變量的值。

調(diào)用 Sub 過(guò)程有兩種方法：

'以下兩個(gè)語(yǔ)句都調(diào)用了名為 MyProc 的 Sub 過(guò)程。

Call MyProc (FirstArgument, SecondArgument)

MyProc FirstArgument, SecondArgument

注意，當(dāng)使用 Call 語(yǔ)法時(shí)，參數(shù)必須在括號(hào)內(nèi)。若省略 Call 關(guān)鍵字，則也必須省略參數(shù)兩邊的括號(hào)

調(diào)用函數(shù)過(guò)程

通常，調(diào)用自行編寫(xiě)的函數(shù)過(guò)程的方法和調(diào)用 Visual Basic 內(nèi)部函數(shù)過(guò)程（例如 Abs）的方法一樣；即在表達(dá)式中寫(xiě)上它的名字。

'下面的語(yǔ)句都調(diào)用函數(shù) ToDec。

Print 10 * ToDec

X = ToDec

If ToDec = 10 Then Debug.Print "Out of Range"

X = AnotherFunction ( 10 * ToDec)

就像調(diào)用 Sub 過(guò)程那樣，也能調(diào)用函數(shù)。下面的語(yǔ)句都調(diào)用同一個(gè)函數(shù)：

Call Year (Now)

Year Now

當(dāng)用這種方法調(diào)用函數(shù)時(shí)，Visual Basic 放棄返回值。

調(diào)用其它模塊中的過(guò)程

在工程中的任何地方都能調(diào)用其它模塊中的公用過(guò)程。可能需要指定這樣的模塊，它包含正在調(diào)用的過(guò)程。調(diào)用其它模塊中的過(guò)程的各種技巧，取決于該過(guò)程是在窗體模塊中、類模塊中還是標(biāo)準(zhǔn)模塊中。

窗體中的過(guò)程

所有窗體模塊的外部調(diào)用必須指向包含此過(guò)程的窗體模塊。如果在窗體模塊 Form1 包含 SomeSub 過(guò)程，則可使用下面的語(yǔ)句調(diào)用 Form1 中的過(guò)程：

Call Form1.SomeSub(arguments)

類模塊中的過(guò)程

與窗體中調(diào)用過(guò)程類似，在類模塊中調(diào)用過(guò)程要調(diào)用與過(guò)程一致并且指向類實(shí)例的變量。例如，DemoClass 是類 Class1 的實(shí)例：

Dim DemoClass as New Class1

DemoClass.SomeSub

但是不同于窗體的是，在引用一個(gè)類的實(shí)例時(shí)，不能用類名作限定符。必須首先聲明類的實(shí)例為對(duì)象變量（在這個(gè)例子中是 DemoClass ）并用變量名引用它。

標(biāo)準(zhǔn)模塊中的過(guò)程

如果過(guò)程名是唯一的，則不必在調(diào)用時(shí)加模塊名。無(wú)論是在模塊內(nèi)，還是在模塊外調(diào)用，結(jié)果總會(huì)引用這個(gè)唯一過(guò)程。如果過(guò)程僅出現(xiàn)在一個(gè)地方，這個(gè)過(guò)程就是唯一的。

如果兩個(gè)以上的模塊都包含同名的過(guò)程，那就有必要用模塊名來(lái)限定了。在同一模塊內(nèi)調(diào)用一個(gè)公共過(guò)程就會(huì)運(yùn)行該模塊內(nèi)的過(guò)程。例如，對(duì)于 Module1 和 Module2 中名為 CommonName 的過(guò)程，從 Module2 中調(diào)用 CommonName 則運(yùn)行 Module2 中的 CommonName 過(guò)程，而不是 Module1 中的 CommonName 過(guò)程。

從其它模塊調(diào)用公共過(guò)程名時(shí)必須指定那個(gè)模塊。例如，若在 Module1 中調(diào)用 Module2 中的 CommonName 過(guò)程，要用下面的語(yǔ)句：

Module2.CommonName (arguments)

Public ? 用于聲明對(duì)所有模塊中的所有其它過(guò)程都可以使用的過(guò)程。?

Private ?用于聲明只能在包含該聲明的模塊中使用的過(guò)程。

vb.net 控件美化

有個(gè)辦法就是用圖片直接當(dāng)按鈕，鼠標(biāo)移到圖上時(shí)顯示一個(gè)圖，鼠標(biāo)移出圖片時(shí)顯示另一個(gè)圖，按下時(shí)顯示一個(gè)圖 把圖的Click事件當(dāng)按鈕的Click來(lái)用，松開(kāi)鼠標(biāo)時(shí)顯示另一個(gè)圖，我以前試過(guò)，效果不錯(cuò)，就是事件處理時(shí)比用按鈕麻煩點(diǎn)，要寫(xiě)鼠標(biāo)移入、移出、按下、松開(kāi)的代碼

vb.net中如何在窗體中調(diào)用模塊

將模塊中的過(guò)程寫(xiě)為Public,在調(diào)用

比如模塊中:

Public Sub text()

......

End Sub

主窗體調(diào)用代碼:

Call text()

vb怎么加載皮膚

轉(zhuǎn)載此出處

說(shuō)到換膚，我們腦子當(dāng)中可能就會(huì)浮現(xiàn)很多商業(yè)軟件那些漂亮的皮膚，自從XP流行以來(lái)，程序的外觀變得比以往更加引人注意，像Office 系列的界面，一直是很多程序員模仿的范例，今天我就利用Xtreme Suite Pro ActiveX 輕松的給自己程序加上皮膚應(yīng)用功能，為我們自己的程序增色。

目標(biāo)：制作一個(gè)具有換膚功能的程序，程序界面模仿Office 2007樣式

一、準(zhǔn)備工作

1、開(kāi)發(fā)工具VB6，當(dāng)然也可以用.Net，這里以VB6做示例

2、Xtreme Suite Pro ActiveX 12英文正式版

下載地址為：

Part1:

Part2:

二、工具安裝

1、VB6的安裝不多說(shuō)

2、將上述下載地址的兩個(gè)文件下載后放在同一個(gè)目錄下，然后解壓Part1，解壓完成后，可以看到一個(gè)setup.exe文件，按提示安裝，其中Sn在對(duì)應(yīng)的文本中，注意我們選用的Sn為Xtreme Suite Pro ActiveX v12.0.1 英文正式版的，Xtreme Toolkit Pro v12.0.1是針對(duì)MFC的，不要輸入錯(cuò)誤。

現(xiàn)在假設(shè)Xtreme Suite Pro ActiveX 按照默認(rèn)方式已安裝成功，那邊我們可以進(jìn)入到下一步了。

三、正式開(kāi)始

1、新建一個(gè)VB6的EXE工程

2、在工具欄上點(diǎn)擊右鍵找到部件，因?yàn)閄treme Suite Pro ActiveX 已安裝成功，所以我們可以看到部件引用中有如下內(nèi)容

（圖1）

勾中xtreme SkinFramework ActiveX Control 12.0.1，此時(shí)我們的界面當(dāng)中應(yīng)該可以看到類似下面的圖片

（圖2）

到這里，我們的準(zhǔn)備工作已完全準(zhǔn)備妥當(dāng)，下面是關(guān)鍵的代碼，我們將其放在Form_Load事件中

Private Sub Form_Load()

Dim FileName as string

Dim IniFile as string

FileName ="C:/Program Files/Codejock Software/ActiveX/Xtreme SuitePro ActiveX v12.0.1/Samples/SkinFramework/Styles/Office2007.cjstyles"

IniFile="NormalBlue.ini"

SkinFramework1.LoadSkin Dlg.FileName, IniFile

SkinFramework1.ApplyWindow Me.hWnd

SkinFramework1.ApplyOptions = SkinFramework1.ApplyOptions Or xtpSkinApplyMetrics

End Sub

這里我們利用SkinFramework的LoadSkin方法找到指定的皮膚文件，然后再調(diào)用ApplyWindow方法，并且設(shè)置了ApplyOptions 屬性，注意這里的設(shè)置其實(shí)就是SkinFramework的默認(rèn)值。

按F5運(yùn)行工程，出現(xiàn)在我們眼前的界面將是下面這個(gè)樣子了

（圖3）

簡(jiǎn)單的引用，簡(jiǎn)單的代碼，出現(xiàn)在我們面前的卻已經(jīng)是如此漂亮的界面，到這里我們已大告功成了。

四、擴(kuò)展

Xtreme Suite Pro ActiveX 的SkinFramework 不但支持以cjstyles為擴(kuò)展的皮膚文件，同時(shí)也支持XP的themes文件，即以msstyles為擴(kuò)展名的文件，知道了這點(diǎn)我們的皮膚來(lái)源就非常廣了。

下面為大家推薦一個(gè)地方，里面有很多免費(fèi)的皮膚

安裝完Xtreme Suite Pro ActiveX ，官方即包含Office2007.cjstyles，Vista.cjstyles，WinXP.Luna.cjstyles，WinXP.Royale.cjstyles四個(gè)皮膚文件，同一個(gè)皮膚文件中可能包含幾個(gè)配置文件，比如Office2007.cjstyles就包含NormalBlue.ini 、NormalAqua.ini 、NormalSilver.ini 、NormalBlack.ini 四個(gè)配置文件，可以放在LoadSkin方法的第二個(gè)參數(shù)中，就可以顯示不同配置文件所達(dá)到的不同皮膚的效果。

為了讀取皮膚文件所包含的配置文件，我們可以用下面的方法

Dim Discription As SkinDescription

Dim i As Integer

Dim FileName as string

FileName ="C:/Program Files/Codejock Software/ActiveX/Xtreme SuitePro ActiveX v12.0.1/Samples/SkinFramework/Styles/Office2007.cjstyles"

Set Discription = SkinFramework1.EnumerateSkinFile(FileName )

For i = 0 To Discription.Count - 1

debug.print "IniFile:" Discription.IniFile(i).IniFileName "/ColorScheme:" Discription.IniFile(i).ColorScheme _

"/FontSize:" Discription.IniFile(i).FontSize

Next

寫(xiě)到這里，我們才真正搞定了皮膚的開(kāi)發(fā)，為了大家的使用方便，我特意寫(xiě)了一個(gè)示例程序

下載地址為：

另外這里包含了幾個(gè)皮膚文件:

有興趣的可以參考一下

文章標(biāo)題：vb.net皮膚模塊,vb皮膚控件
網(wǎng)頁(yè)地址：http://chinadenli.net/article8/dsiooop.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供服務(wù)器托管、品牌網(wǎng)站設(shè)計(jì)、定制開(kāi)發(fā)、網(wǎng)站營(yíng)銷、全網(wǎng)營(yíng)銷推廣、響應(yīng)式網(wǎ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)