vb.net皮膚模塊,vb皮膚控件

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

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

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

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

關于VB.NET窗體的問題！

你把代碼寫在 Activated 事件中試驗一下，寫在 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

至于一關閉form1整個程序就會關閉，是因為你的form1是主窗體，你找到Application.Designer.vb這個文件，默認應該都有，這里面有這樣的代碼

Global.System.Diagnostics.DebuggerStepThroughAttribute() _

Protected Overrides Sub OnCreateMainForm()

Me.MainForm = Global.WindowsApplication1.Form1

End Sub

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

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

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

調(diào)用 Sub 過程

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

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

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

Call MyProc (FirstArgument, SecondArgument)

MyProc FirstArgument, SecondArgument

注意，當使用 Call 語法時，參數(shù)必須在括號內(nèi)。若省略 Call 關鍵字，則也必須省略參數(shù)兩邊的括號

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

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

'下面的語句都調(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 過程那樣，也能調(diào)用函數(shù)。下面的語句都調(diào)用同一個函數(shù)：

Call Year (Now)

Year Now

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

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

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

窗體中的過程

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

Call Form1.SomeSub(arguments)

類模塊中的過程

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

Dim DemoClass as New Class1

DemoClass.SomeSub

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

標準模塊中的過程

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

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

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

Module2.CommonName (arguments)

Public ? 用于聲明對所有模塊中的所有其它過程都可以使用的過程。?

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

vb.net 控件美化

有個辦法就是用圖片直接當按鈕，鼠標移到圖上時顯示一個圖，鼠標移出圖片時顯示另一個圖，按下時顯示一個圖 把圖的Click事件當按鈕的Click來用，松開鼠標時顯示另一個圖，我以前試過，效果不錯，就是事件處理時比用按鈕麻煩點，要寫鼠標移入、移出、按下、松開的代碼

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

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

比如模塊中:

Public Sub text()

......

End Sub

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

Call text()

vb怎么加載皮膚

轉(zhuǎn)載此出處

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

目標：制作一個具有換膚功能的程序，程序界面模仿Office 2007樣式

一、準備工作

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

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

下載地址為：

Part1:

Part2:

二、工具安裝

1、VB6的安裝不多說

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

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

三、正式開始

1、新建一個VB6的EXE工程

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

（圖1）

勾中xtreme SkinFramework ActiveX Control 12.0.1，此時我們的界面當中應該可以看到類似下面的圖片

（圖2）

到這里，我們的準備工作已完全準備妥當，下面是關鍵的代碼，我們將其放在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方法，并且設置了ApplyOptions 屬性，注意這里的設置其實就是SkinFramework的默認值。

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

（圖3）

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

四、擴展

Xtreme Suite Pro ActiveX 的SkinFramework 不但支持以cjstyles為擴展的皮膚文件，同時也支持XP的themes文件，即以msstyles為擴展名的文件，知道了這點我們的皮膚來源就非常廣了。

下面為大家推薦一個地方，里面有很多免費的皮膚

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

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

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

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

下載地址為：

另外這里包含了幾個皮膚文件:

有興趣的可以參考一下

網(wǎng)頁名稱：vb.net皮膚模塊,vb皮膚控件
URL鏈接：http://m.jiaotiyi.com/article/dsiooop.html