VB.net2008精彩實例，窗體應(yīng)用技巧

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

主要從事網(wǎng)頁設(shè)計、PC網(wǎng)站建設(shè)（電腦版網(wǎng)站建設(shè)）、wap網(wǎng)站建設(shè)（手機版網(wǎng)站建設(shè)）、響應(yīng)式網(wǎng)站設(shè)計、程序開發(fā)、微網(wǎng)站、小程序設(shè)計等，憑借多年來在互聯(lián)網(wǎng)的打拼，我們在互聯(lián)網(wǎng)網(wǎng)站建設(shè)行業(yè)積累了豐富的成都網(wǎng)站制作、網(wǎng)站建設(shè)、網(wǎng)絡(luò)營銷經(jīng)驗，集策劃、開發(fā)、設(shè)計、營銷、管理等多方位專業(yè)化運作于一體，具備承接不同規(guī)模與類型的建設(shè)項目的能力。

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

窗體應(yīng)用技巧一 創(chuàng)建浮動窗體

創(chuàng)建新工程后 選擇Form 窗體 添加Timer 和Timer 控件 為窗體選擇一個好看的背景 當(dāng)然你也可以使用系統(tǒng)默認的背景

進入代碼編輯器 輸入代碼

Public Class Form ????Inherits System Windows Forms Form??Private Sub Form _Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load????????Dim pos As Point = New Point( ) 設(shè)置窗體初始位置????????Me DesktopLocation = pos????????Timer Interval = 設(shè)置Timer的值????????Timer Enabled = True????????Timer Interval = ????????Timer Enabled = False????End Sub??? 進入Timer _Tick事件??? ?Private Sub Timer _Tick(ByVal sender As System Object ByVal e As System EventArgs) Handles Timer Tick????????Dim pos As Point = New Point(Me DesktopLocation X + Me DesktopLocation Y + ) 窗體左上方橫坐標的timer 加????????If pos X Or pos Y Then????????????Me DesktopLocation = pos????????Else????????????Timer Enabled = False????????????Timer Enabled = True????????End If????End Sub??? 進入Timer _Tick事件

Private Sub Timer _Tick(ByVal sender As System Object ByVal e As System EventArgs) Handles Timer Tick????????Dim pos As Point = New Point(Me DesktopLocation X Me DesktopLocation Y ) 窗體的左上方橫坐標隨著timer 減一????????If pos X Or pos Y Then????????????Me DesktopLocation = pos????????Else????????????Timer Enabled = True????????????Timer Enabled = False????????End If????End Sub??? 創(chuàng)建完成后我們來運行程序測試一下 測試成功 程序在屏幕中不斷地來回走動了

窗體應(yīng)用技巧二 創(chuàng)建透明的窗體

創(chuàng)建新工程后 選擇Form 窗體 添加Label TrackBar Timer 控件 為了突出效果為窗體選擇一個好看的背景

相關(guān)的屬性設(shè)置如下 ??? TrackBar Value屬性:??? TickFrequency: 屬性:??? Maximum屬性: ??? ??? ??? Label Text屬性: 選擇窗體的透明度:??? Timer Interval屬性:

進入代碼編輯器 輸入代碼

首先進行聲明 ??? ?Public Class Form ????Inherits System Windows Forms Form????Dim tps As IntegerDim bol As Boolean??? 進入TrackBar _Scroll事件? ?Private Sub TrackBar _Scroll(ByVal sender As Object ByVal e As System EventArgs) Handles TrackBar Scroll????????Me Opacity = TrackBar Value / ????????Label Text = 窗體透明度 CStr(Me Opacity * ) % End Sub??? 進入Timer _Tick事件

Private Sub Timer _Tick(ByVal sender As Object ByVal e As System EventArgs) Handles Timer Tick????????If bol = False Then????????????tps = tps + ????????????Me Opacity = tps / ????????????If Me Opacity = Then????????????????Timer Enabled = False????????????????bol = True????????????End If????????Else????????????tps = tps ????????????Me Opacity = tps / ????????????If Me Opacity = Then????????????????Timer Enabled = False????????????????bol = False????????????End If????????End If????End Sub??? 進入Form _Load事件

Private Sub Form _Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load????????Timer Enabled = TrueEnd Sub??? 進入Form _Closing事件? ?Private Sub Form _Closing(ByVal sender As Object ByVal e As System ComponentModel CancelEventArgs) Handles MyBase Closing????????Timer Enabled = True????????If MsgBox( 你確實要關(guān)閉窗體嗎？ MsgBoxStyle OkCancel) = MsgBoxResult Ok Then????????????e Cancel = False????????Else????????????Timer Enabled = False????????????Me Opacity = ????????????tps = ????????????bol = True????????????e Cancel = True????????End IfEnd Sub??? 創(chuàng)建完成后我們來運行程序測試一下 測試成功 程序窗體是不是變得透明了 通過調(diào)節(jié)滾動條我們甚至可以使得窗體消失達到完全隱形的目的 這是不是很神奇呢？

lishixinzhi/Article/program/net/201311/11580

VB.net中類的實例化

1.不正確

Dim abc As myClass，定義一個可以引用myClass類型對象的變量abc。這個abc變量存在于棧上。

abc=New myClass。New myClass創(chuàng)建myClass實例對象，這個對象存在于托管堆上。然后（同時）讓abc引用（指向）這個對象。

abc變量在棧上，而對象在托管堆上。

abc儲存的是對象的地址，而不是對象本身。

看下面的代碼

Dim a As myClass,b As myClass,c As myClass

a=New myClass

b=a

c=a

整個過程中只創(chuàng)建了一個myClass對象，位于托管堆上。

三個myClass類型的變量a、b、c位于棧上，都指向了這一個myClass對象

2.類的成員分 實例成員 和 靜態(tài)成員

實例成員 必須在實例對象上調(diào)用

靜態(tài)成員 可以直接調(diào)用，不需要實例對象。

《AutoCAD VBA & VB.NET開發(fā)基礎(chǔ)與實例教程 pdf

AutoCAD會了，要學(xué)會使用插件。如果自己學(xué)會開發(fā)的話，還是不錯的。教程的文件有些大，看附件下載。

vb.net 如何在一個項目中創(chuàng)建類，并且使用他?

在任意form類或模塊中都可以創(chuàng)建類，跟建立函數(shù)和過程一樣。

示例：

public class form1

‘創(chuàng)建一個屬于form的子類，名稱為【類名】。

public class 類名

’定義類成員text

public text as string

end class

‘定義一個【類名】類的公共變量。

dim 類名1 as 類名

’定義一個過程，使用【類名】類的text成員

public sub 過程

‘實例化【類名1】

類名1=new 類名

類名1.text=“賦值”

’定義一個【新類】類的私用變量，并實例化。

dim 新類1 as new 新類

新類1.name=“一個字符串”

新類1.age=12

end sub

end class

‘’‘創(chuàng)建一個與form同級的類，名稱為【新類】

public class 新類

public sub new（）

end sub

public name as string

public age as integer

end class

在模塊中使用：

public class module1

dim a as new form1.類名

end module

autocad vba&vb.net開發(fā)基礎(chǔ)與實例教程 C#版

一般CAD二次開發(fā)有

1、lisp

2、lisp+DCL

3、vba

4、vba+lisp

5、.net

就易用性的話還是LISP或VBA吧。.net的api每個版本的cad都不相同，難度大。

VBA只有32位及64位之分。

CAD的VBA 的開發(fā)與.net不同用。有心情去搞.net還不如lisp

分享題目：關(guān)于vb.net開發(fā)實例教程的信息
當(dāng)前鏈接：http://m.rwnh.cn/article36/dooposg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)頁設(shè)計公司、搜索引擎優(yōu)化、移動網(wǎng)站建設(shè)、企業(yè)建站、全網(wǎng)營銷推廣、標簽優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)