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

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

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
VB.NET浮動(dòng)窗體創(chuàng)建技巧分享

在VB.NET開(kāi)發(fā)平臺(tái)中，對(duì)于窗體的各種操作有了不小的提升。大家可以隨著自己的需求輕松的創(chuàng)建任何形態(tài)的窗體。比如本文介紹的VB.NET浮動(dòng)窗體等。下面就讓我們一起來(lái)分享一下相關(guān)操作技巧。#t#

創(chuàng)新互聯(lián)建站網(wǎng)站建設(shè)服務(wù)商，為中小企業(yè)提供成都網(wǎng)站建設(shè)、成都做網(wǎng)站服務(wù)，網(wǎng)站設(shè)計(jì)，網(wǎng)站托管、服務(wù)器租用等一站式綜合服務(wù)型公司，專業(yè)打造企業(yè)形象網(wǎng)站，讓您在眾多競(jìng)爭(zhēng)對(duì)手中脫穎而出創(chuàng)新互聯(lián)建站。

本篇文章的主要開(kāi)發(fā)環(huán)境是Visual Studio 2008，Visual Studio系列產(chǎn)品一直以來(lái)都提供了強(qiáng)大的控件功能，然而我們利用這些控件可以編寫出功能強(qiáng)大的應(yīng)用程序。本文主要利用微軟的***.net開(kāi)發(fā)工具為大家展示窗體特效的應(yīng)用方法，為大家介紹創(chuàng)建炫酷的透明化窗體以及浮動(dòng)型窗體的一些技巧。很適合.net開(kāi)發(fā)工具的初學(xué)者，具有一定的實(shí)用價(jià)值。

打開(kāi) Visual Studio 2008在文件 (File) 菜單上，單擊新建項(xiàng)目 (New Project)。 在新建項(xiàng)目 (New Project) 對(duì)話框的模板 (Templates) 窗格中，單擊 Windows 應(yīng)用程序(Windows Application)。單擊確定 (OK)

創(chuàng)建VB.NET浮動(dòng)窗體。

創(chuàng)建新工程后，選擇Form1窗體，添加Timer1和Timer2控件。為窗體選擇一個(gè)好看的背景，當(dāng)然你也可以使用系統(tǒng)默認(rèn)的背景。進(jìn)入代碼編輯器，輸入VB.NET浮動(dòng)窗體的創(chuàng)建代碼：

 
 
 
    
  
  
  
  1. Public Class Form1 
    2. 
  
  
  
  2. Inherits System.Windows.Forms.Form  
    3. 
  
  
  
  3. Private Sub Form1_Load(ByVal sender 
    As System.Object, ByVal e As 
    System.EventArgs) Handles MyBase.Load 
    4. 
  
  
  
  4. Dim pos As Point = New Point(100, 50)  
    5. 
  
  
  
  5. '設(shè)置窗體初始位置 
    6. 
  
  
  
  6. Me.DesktopLocation = pos
    7. 
  
  
  
  7. Timer1.Interval = 10  
    8. 
  
  
  
  8. '設(shè)置Timer的值 
    9. 
  
  
  
  9. Timer1.Enabled = True
    10. 
  
  
  
  10. Timer2.Interval = 10
    11. 
  
  
  
  11. Timer2.Enabled = False
    12. 
  
  
  
  12. End Sub
    13.

進(jìn)入Timer1_Tick事件

 
 
 
    
  
  
  
  1. Private Sub Timer1_Tick(ByVal 
    sender As System.Object, ByVal 
    e As System.EventArgs) Handles 
    Timer1.Tick 
    2. 
  
  
  
  2. Dim pos As Point = New Point
    (Me.DesktopLocation.X + 2, 
    Me.DesktopLocation.Y + 1)  
    3. 
  
  
  
  3. '窗體左上方橫坐標(biāo)的timer1加 
    4. 
  
  
  
  4. If pos.X < 600 Or pos.Y < 400 Then 
    5. 
  
  
  
  5. Me.DesktopLocation = pos
    6. 
  
  
  
  6. Else 
    7. 
  
  
  
  7. Timer1.Enabled = False
    8. 
  
  
  
  8. Timer2.Enabled = True
    9. 
  
  
  
  9. End If 
    10. 
  
  
  
  10. End Sub 
    11.

進(jìn)入Timer2_Tick事件

 
 
 
    
  
  
  
  1. Private Sub Timer2_Tick(ByVal sender 
    As System.Object, ByVal e As 
    System.EventArgs) Handles Timer2.Tick 
    2. 
  
  
  
  2. Dim pos As Point = New Point
    (Me.DesktopLocation.X - 2, Me.
    DesktopLocation.Y - 1) 
    '窗體的左上方橫坐標(biāo)隨著timer2減一 
    3. 
  
  
  
  3. If pos.X > 100 Or pos.Y > 50 Then 
    4. 
  
  
  
  4. Me.DesktopLocation = pos
    5. 
  
  
  
  5. Else 
    6. 
  
  
  
  6. Timer1.Enabled = True
    7. 
  
  
  
  7. Timer2.Enabled = False
    8. 
  
  
  
  8. End If 
    9. 
  
  
  
  9. End Sub
    10.

創(chuàng)建VB.NET浮動(dòng)窗體完成后我們來(lái)運(yùn)行程序測(cè)試一下，測(cè)試成功，程序在屏幕中不斷地來(lái)回走動(dòng)了。


分享標(biāo)題：VB.NET浮動(dòng)窗體創(chuàng)建技巧分享
網(wǎng)站網(wǎng)址：http://www.5511xx.com/article/djigdds.html