日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
妙用VB.NET窗體實現(xiàn)背景花紋

我們每個都希望程序給我們打來強(qiáng)大的功能，結(jié)合我的一些經(jīng)驗和大家分析探討一下。我們在開發(fā)軟件過程中，為提高軟件的商品化程度，感覺到界面的美觀程度是一個軟件能否獲得成功的一個重要因素，我們仔細(xì)研究了一些成功的商品化軟件，從這些軟件上可以看到,程序窗口背景能顯示出非常美麗的、富有立體感的花紋。而采用VVB.NET窗體設(shè)計，若只按照系統(tǒng)提供的功能，只能從有限的幾種顏色中選擇一種顏色或采用程序繪制一些簡單的線條。而想實現(xiàn)立體感很強(qiáng)的紋理圖案，一般只能采用窗體的PICTURE屬性調(diào)用位圖文件，使用這種方法實現(xiàn)有許多缺點 ,其一是窗體大小受位圖大小的限制，調(diào)整起來麻煩，不具有通用性和靈活性；其二是浪費資源，因為花紋圖案基本上是重復(fù)圖案，采用與窗體同樣大小的位圖是一種浪費。

公司主營業(yè)務(wù)：成都網(wǎng)站設(shè)計、做網(wǎng)站、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。成都創(chuàng)新互聯(lián)公司是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團(tuán)隊有機(jī)會用頭腦與智慧不斷的給客戶帶來驚喜。成都創(chuàng)新互聯(lián)公司推出陽信免費做網(wǎng)站回饋大家。

#T#下面介紹一種VB.NET窗體背景花紋實現(xiàn)的方法。在窗體上建立一個網(wǎng)格控件，設(shè)定網(wǎng)格行不可見，去掉固定行和固定列，用程序?qū)崿F(xiàn)網(wǎng)格控件與VB.NET窗體同樣大小，并隨窗體大小的改變而改變。然后設(shè)計一個花紋圖案，形成BMP位圖文件(本文程序使用文件Pict1.bmp)，或者從其它圖象中截取一段圖案,也可以利用Windows系統(tǒng)提供的圖案（如c:\windows\Tiles.bmp)，將其調(diào)入Picture控件。設(shè)定網(wǎng)格的每個單元與該圖案大小相同，使單元的數(shù)量正好覆蓋整個窗體背景，再將所有單元均顯示該圖案。通過子程序Backpict()實現(xiàn)以上過程，不論圖案大小、窗體大小，程序都能自動調(diào)整網(wǎng)格控件大小和網(wǎng)格單元大小及單元數(shù)量。

該程序在Visual Basic 5.0上調(diào)試成功。

1.新建窗體Form1,屬性如下：

 
 
      
  
  1. Caption =“背景花紋的實現(xiàn)”  
    2.   
  
  2. Borderstyle=3(無***、最小化按鈕） 
    3.

2.建網(wǎng)格控件Grid1,它的位置和大小將在程序中設(shè)置（與Form1同樣大）,屬性為：

 
 
      
  
  1. Enabled = False（焦點不會落在網(wǎng)格控件Grid1上）  
    2.   
  
  2. Fillstyle=1（改變所有單元Text特性）  
    3.   
  
  3. Fixedcols=0（無固定行）  
    4.   
  
  4. Fixedrows=0（無固定列）  
    5.   
  
  5. Gridlines = False（網(wǎng)格行不可見），  
    6.   
  
  6. Visible = True 
    7.

3.建立圖象控件Picture1,程序運行時將背景花紋基本圖案放入其中，屬性為

 
 
      
  
  1. Visible = False（不可見）  
    2.   
  
  2. Autosize = True（自動調(diào)整大?。?nbsp;
    3.

4.控件中加入Sheridan 3D Controls,選取其中的三維命令按鈕SSCommand,建立兩個按鈕

 
 
      
  
  1. SSCommand1.Caption=“退出”  
    2.   
  
  2. SSCommand2.Caption=“更換背景”（演示不同的背景圖案） 
    3.

它們的屬性Picture可調(diào)用與背景相同或不同的圖案，如果使用普通的命令按鈕控件Command也可，只是命令按鈕無背景圖案。

5.建立背景圖案形成子程序：

 
 
      
  
  1. Dim pictfile As String '位圖文件名  
    2.   
  
  2. Dim FILEPATH As String '文件路徑  
    3.   
  
  3. Sub Backpict(pictfile)  
    4.   
  
  4. picture1.ScaleMode = 3 
    5.   
  
  5. Form1.ScaleMode = 3 
    6.   
  
  6. picture1.Picture = LoadPicture(pictfile)  
    7.   
  
  7. '網(wǎng)格控件覆蓋整個窗體背景  
    8.   
  
  8. grid1.Top = -1  
    9.   
  
  9. grid1.Left = -1  
    10.   
  
  10. grid1.Width = Width  
    11.   
  
  11. grid1.Height = Height  
    12.   
  
  12. grid1.Cols=Int(Form1.ScaleWidth/picture1.ScaleWidth) + 1  
    13.   
  
  13. grid1.Rows=Int(Form1.ScaleHeight/picture1.ScaleHeight) + 1  
    14.   
  
  14. '所有單元大小等于基本圖案大小  
    15.   
  
  15. For i = 0 To grid1.Cols - 1  
    16.   
  
  16. For j = 0 To grid1.Rows - 1  
    17.   
  
  17. grid1.ColWidth(i) = picture1.ScaleWidth * 15  
    18.   
  
  18. grid1.RowHeight(j) = picture1.ScaleHeight * 15  
    19.   
  
  19. Next j  
    20.   
  
  20. Next I  
    21.   
  
  21. '選定所有單元  
    22.   
  
  22. grid1.SelStartCol = 0 
    23.   
  
  23. grid1.SelStartRow = 0 
    24.   
  
  24. grid1grid1.SelEndCol = grid1.Cols - 1  
    25.   
  
  25. grid1grid1.SelEndRow = grid1.Rows - 1  
    26.   
  
  26. grid1.Picture = Picture1.Picture  
    27.   
  
  27. End Sub 
    28.

6.窗體主程序

 
 
      
  
  1. Private Sub Form_Load()  
    2.   
  
  2. Private Sub Form_Load()  
    3.   
  
  3. '得到運行程序路徑名，路徑名后帶反斜杠  
    4.   
  
  4. If Right(App.Path, 1) <> "\" Then  
    5.   
  
  5. filePath = App.Path & "\"  
    6.   
  
  6. Else  
    7.   
  
  7. filePath = App.Path  
    8.   
  
  8. End If  
    9.   
  
  9. '窗體初始顯示由Tiles.bmp基本圖案組成的背景  
    10.   
  
  10. pictfile = "c:\windows\Tiles.bmp" 
    11.   
  
  11. backpict (pictfile)  
    12.   
  
  12. End Sub 
    13.

7.退出程序命令按鈕

 
 
      
  
  1. Private Sub SSCommand1_Click()  
    2.   
  
  2. End  
    3.   
  
  3. End Sub 
    4.

8.演示不同的底紋圖案

 
 
      
  
  1. Private Sub SSCommand2_Click()  
    2.   
  
  2. '兩種背景圖案交替演示  
    3.   
  
  3. If pictfile = filePath & "Pict1.bmp" Then  
    4.   
  
  4. pictfile = "c:\windows\Tiles.bmp" 
    5.   
  
  5. Else  
    6.   
  
  6. pictfile = filePath & "Pict1.bmp"  
    7.   
  
  7. End If  
    8.   
  
  8. Backpict (pictfile)  
    9.   
  
  9. End Sub  
    10.

分享題目：妙用VB.NET窗體實現(xiàn)背景花紋
網(wǎng)址分享：http://m.5511xx.com/article/coicjhg.html