国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

在 Windows 應(yīng)用程序中常常要用到時間控制的功能，如在程序界面上顯示當(dāng)前時間，或者每隔多長時間觸發(fā)一個事件，等等。而 Visual Basic 中的 Timer（時間）控制器就是專門解決這方面問題的控件。

Timer 控制器在工具箱面板上的圖標(biāo)如圖一：

圖一

選中時鐘控制器，將鼠標(biāo)移到界面設(shè)計區(qū)，在窗體中拖出一個矩形就可以創(chuàng)建一個 Timer 控件了。跟其他控件不同的是，無論你繪制的矩形有多大，Timer 控件的大小都不會變，如圖二：

圖二

另外，Timer 控件只有在程序設(shè)計過程中看得見，在程序運行時是看不見的。

一、Timer 控件的屬性：
Timer 控件可以使用 Name 屬性與 Enabled 屬性，但最重要的是 Interval 即時間間隔屬性。

Interval 屬性決定了時鐘事件之間的間隔，以毫秒為單位，取值范圍為 0 ～ 65535 ，因此其最大時間間隔不能超過 65 秒，即一分鐘多一點的時間。如果把 Interval 屬性設(shè)置為 1000 ，則表示每秒鐘觸發(fā)一個 Timer 事件。

其語法格式：
Timer.Interval = X ，其中，X 代表具體的時間間隔。

二、Timer 控件的 Timer （定時）事件：
當(dāng)一個 Timer 控件經(jīng)過預(yù)定的時間間隔，將激發(fā)計時器的 Timer 事件。使用 Timer 事件可以完成許多實用功能，如顯示系統(tǒng)時鐘、制作動畫，等等。

三、示例：
有如圖三這樣一個應(yīng)用程序，標(biāo)簽?zāi)軌蜃詣语@示當(dāng)前時間。

圖三

1、創(chuàng)建程序界面：
界面如圖四，為了便于大家觀看，我們將 LblShow 的邊界類型設(shè)為 1 。

另外，別忘了把 Timer1 的 Interval 屬性設(shè)置為 1000 。

圖四

2、在 Timer1 的 Timer 事件中輸入以下代碼：

Private Sub Timer1_Timer()
LblShow.FontSize = 30
LblShow.FontName = "宋體"
LblShow.Caption = "當(dāng)前時間為：" & Time
End Sub

在一個應(yīng)用程序中，對文件的處理是一個比較常用的操作，如打開文件、保存文件，等等。Visual Basic 提供了三個控件對磁盤文件夾與文件進行顯示與操作，它們分別是：DriveListBox（磁盤列表框）控件、DirListBox（文件夾列表框）控件，以及 FileListBox（文件列表框）控件。如圖一：

圖一

一、DriveListBox（磁盤列表框）控件：
在工具箱面板上，DriveListBox 控件的圖標(biāo)如圖二：

圖二

在窗口中創(chuàng)建的磁盤列表框可以自動顯示電腦上或網(wǎng)絡(luò)上的所有磁盤驅(qū)動器，另外，還可以通過語法設(shè)置運行時顯示的驅(qū)動器名稱，這就要用到 Drive 屬性。

磁盤列表框名稱.Drive = Drive（如 C: ，或者 D：，等等）。

比如，要在窗體啟動時把當(dāng)前磁盤改為 F 盤，那么：

Private Sub Form_Load()
　　Drive1.Drive = "F:"
End Sub

圖三

二、DirListBox（文件夾列表框）控件：
在工具箱面板上，DirListBox 控件的圖標(biāo)如圖四：

圖四

文件夾列表框控件可以顯示與設(shè)置文件夾的路徑，當(dāng)用戶在窗口中創(chuàng)建 DirListBox 控件時，雙擊其中的文件夾，不需進行編程就能自動顯示下一級的文件夾，如圖五：

圖五

本控件的主要屬性是 Path 屬性，用來返回或設(shè)置當(dāng)前文件夾的路徑，只能在程序運行中使用，其語法是：

文件夾列表框名稱.Path = 具體的路徑

比如，我們要在窗體啟動時把默認(rèn)顯示的文件夾改為 D:\Mytool\ ，程序可以這樣寫：

Private Sub Form_Load()
Dir1.Path = "D:\Mytool\"
End Sub

三、FileListBox（文件列表框）控件：
跟前面兩個控件一樣，本控件能夠自動顯示符合條件的文件清單。如圖六：

圖六

文件列表框控件主要有兩個屬性，即 Path 屬性與 FileName 屬性，前者代表文件的路徑，從顯示路徑的功能上來說，比后者更簡便一些；后者則用來返回或設(shè)置所選文件的路徑與文件名，其語法是：

文件列表框名稱.FileName = 路徑

比如，我們要在窗體啟動時將 E:\稿件 目錄下的所有 ZIP 文件列出來，程序可以這樣寫：

Private Sub Form_Load()
File1.FileName = "E:\稿件\*.zip"
End Sub

結(jié)果如圖七：

圖七

四、三個控件的連接：
上面我們就三個控件進行了分別的學(xué)習(xí)，在程序中，它們卻是互不關(guān)連的，并不是只要在窗體中創(chuàng)建了它們，然后對某個控件（如磁盤列表框）進行操作，其他控件就會自動顯示相應(yīng)的磁盤下的文件，這需要用程序進行實現(xiàn)。

1、將磁盤列表框的操作賦值給文件夾列表框的 Path 屬性，在磁盤列表框的 Change 事件中輸入如下代碼：

Private Sub Drive1_Change()
　　Dir1.Path = Drive1.Drive
End Sub

2、對文件夾列表框控件進行的操作，直接影響文件列表框所顯示的內(nèi)容：

Private Sub Dir1_Change()
　　File1.Path = Dir1.Path
End Sub

窗體猶如一塊畫布，在設(shè)計時是程序的設(shè)計區(qū)域，而在運行程序時，每個窗體對應(yīng)于一個窗口。

一、窗體的結(jié)構(gòu)：
窗體結(jié)構(gòu)與普通 Windows 下的窗口非常相似，如圖一：

圖一

系統(tǒng)菜單：Form1.ControlBox，點擊它可以彈出菜單命令。

標(biāo)題欄：Form1.Caption，顯示的窗口標(biāo)題，如本例中的“Form1”。

最小化按鈕：Form1.MinButton 。

最大化按鈕：Form1.MaxButton 。

二、窗體的主要屬性：
1、名稱：命名規(guī)則為 FrmX ，如 FrmShow 、FrmFirst ，等等，主要用于程序調(diào)用。

2、AutoRedraw（自動重畫）： 本屬性控制圖像的重建，常用于多窗體程序設(shè)計中，語法如下：

窗體名稱.AutoRedraw = True/False

當(dāng) AutoRedraw 設(shè)置為 True 時，那么本窗體被另外的窗體覆蓋后，又回到此窗體時，將自動重新刷新或重畫窗體上的所有圖形；如果是 False ，則必須通過事件過程來設(shè)置這一操作。

默認(rèn)屬性為 False。如圖二：

圖二

3、BackColor（背景色）與 ForeColor（前景色）：
前者用來指定窗體的背景色，如圖三：

圖三

后者用來指定文本或圖形的前景色，如圖四：

圖四

4、Height（高度）與 Width（寬度）：
這兩個屬性用來指定窗體的高度與寬度，其單位是 Twip ，即 1 點的 1/20 (1/1440 英寸)。

如要讓窗體的高度變?yōu)?200 ，寬度變?yōu)?300 ，那么程序應(yīng)該寫成：

Private Sub Form1_Click()
　Form1.Height = 200
　Form1.Width = 300
End Sub

5、Top（頂部）與 Left（左邊距）屬性：
通過這兩個屬性可以控制窗體的坐標(biāo)位置，默認(rèn)單位是 Twip 。

要注意的是，隨對象的不同，這個 Top 與 Left 的意義不同。當(dāng)對象是窗體，Top 指的是窗體頂部與屏幕頂部的相對距離，Left 指的是窗體左邊界與屏幕左邊界的間距；當(dāng)對象是其他控件時，它們分別表示控件頂部、左邊與窗體頂部、左邊之間的距離，如圖五所示：

圖五

語法示例：

Private Sub Form1_Click()
　Form1.Top = 200
　Form1.Left = 300
End Sub

上面的語句會把 Form1 窗體移動到距屏幕頂部 200 Twip ，距屏幕左邊距 300 Twip 的地方。

6、Visible（可見）屬性：
當(dāng)一個對象的 Visible 屬性設(shè)置為 False 時，程序運行時不能看見；只有當(dāng) Visible 屬性值變?yōu)?True 時，才能被看見。

本屬性雖然簡單，但卻是常常需要用到的，請大家牢記在心。

三、窗體的主要事件：
1、Load（裝入）事件：

窗體最主要的事件，用來在啟動程序時對屬性和變量進行初始化。程序一旦運行，將自動觸發(fā)本事件。

2、UnLoad（卸載）事件：
既然有裝入事件，自然就有卸載事件，它的作用是從內(nèi)存中清除一個窗體。卸載后如果要重新裝入窗體，那么新裝入的窗體上的所有控件都需要重新初始化。

Visual Basic 為編程人員提供了強大的繪圖功能支持，在本章，我們將學(xué)會基本的繪圖方法。

在 VB 中，主要通過兩種辦法進行圖像繪制：一種是利用 ActiveX 控件，如用圖形框顯示圖片；另外一種是通過使用 VB 語言本身的函數(shù)和方法，通過在屏幕上繪制點、線和圖形來制作。

一、圖形框控件的主要屬性：
圖形框控件（PictureBox）可以用來顯示位圖、JPGE、GIF、圖標(biāo)等格式的圖片，在工具箱面板中，圖形框控件的圖標(biāo)如圖一：

圖一

1、Name 屬性：
命名規(guī)則為：PicX ，如 PicMove 、PicShow ，等等。

2、Picture（圖片）屬性：
本屬性用來返回或設(shè)置控件中要顯示的圖片，可以通過屬性窗口進行設(shè)置。如果要在程序運行過程中載入圖片，常常使用 LoadPicture 函數(shù)，其語法規(guī)則為：

對象.Picture = LoadPicture("圖形文件的路徑與名字")

如：PicMove.Picture = Loadpicture("c:\Picts\pen.bmp")

3、AutoSize（自動顯示）屬性：
本屬性決定了圖形框控件是否自動改變大小以顯示圖片的全部內(nèi)容。當(dāng)值為 True ，圖象可以自動改變大小以顯示全部內(nèi)容；當(dāng)值為 False ，則不具備圖象的自我調(diào)節(jié)功能。

二、圖形框控件的主要事件：
它可以接收 Click（單擊）事件與 DblClick（雙擊）事件，還可以在圖片框中使用 Cls（清屏）、Print 方法。在實際使用過程中，它多是作為一種圖形容器出現(xiàn)，所以常常是跟其他控件搭配使用的，如點擊一個按鈕，圖形框自動裝入圖片，等等。

三、圖像框控件（Image）的主要屬性：
跟圖形框一樣，圖像框控件也具有諸如 Name、Picture 等屬性，以及 Loadpicture 的方法，但在圖像自適應(yīng)問題上有所不同。

PictureBox 用 AutoSize 屬性控制圖形的尺寸自動適應(yīng)，而 Image 控件則用 Stretch 屬性對圖片進行大小調(diào)整。如圖二：

圖二

四、圖像框與圖形框控件的區(qū)別：
1、圖形框是“容器”控件，可以作為父控件，而圖像框不能作為父控件，其他控件不能作為圖像框的子控件。

圖形框作為一個“容器”，可以把其他控件放在其內(nèi)作為它的“子控件”，當(dāng)圖形發(fā)生位移，其內(nèi)的子控件也會跟著一起移動。

圖三

2、圖形框可以通過 Print 方法顯示與接收文本，而圖像框不能。

在本節(jié)，我們要實現(xiàn)兩張不同圖片在同一個圖形框內(nèi)的切換，同時可以啟用與禁用圖形框的自動適應(yīng)功能。

圖一（切換前）

圖二（切換后）

一、設(shè)計：
1、創(chuàng)建如圖一的界面：
顯示標(biāo)簽：
Name：LblShow　　Caption：現(xiàn)在顯示的是第一張圖

圖形框控件：
Name：PicShow　　AutoSize：None

自動適應(yīng)復(fù)選框：
Name：ChkAutoSize

圖片切換按鈕：
Name：CmdShow　　Caption：圖片二

2、先在通用區(qū)聲明如下變量：
Dim X As Integer
Dim IWidth As Integer
Dim IHeight As Integer

其中，X 準(zhǔn)備用來做為圖片切換的條件，當(dāng) X 為 1 ，圖片切換按鈕可以切換到圖片二；當(dāng) X 為 2 ，圖片切換按鈕可以切換到圖片一。

IWidth 與 IHeight 準(zhǔn)備用來儲存圖形框的初始寬度與高度，以便在圖形框發(fā)生大小變化后回復(fù)到原樣。

3、程序打開時自動載入圖片一：
這樣，圖片切換按鈕就應(yīng)該能夠切換到圖片二，所以將 1 賦給 X ：

Private Sub Form_Load()
PicShow.Picture = LoadPicture("E:\稿件\Ccidnet\vb\image\vb3-2-1-copy.gif")
X = 1
End Sub

4、自動適應(yīng)功能的實現(xiàn)：
Private Sub ChkStretch_Click()
If ChkStretch.Value = 1 Then
IWidth = PicShow.Width
IHeight = PicShow.Height
PicShow.AutoSize = True
Else
PicShow.AutoSize = False
PicShow.Width = IWidth
PicShow.Height = IHeight
End If
End Sub

上面程序的意思是，如果復(fù)選框被選中，那么先將原始圖形框的寬度與高度賦給 IWidth、IHeight ，然后再通過激活 PicShow 的 AutoSize 功能達到圖形框的自動適應(yīng)；如果復(fù)選框沒被選中，那么禁止 PicShow 的 AutoSize 功能，然后將圖形框原來的高度（現(xiàn)在的 IHeight）和寬度（現(xiàn)在的 IWidth）賦值給圖形框以恢復(fù)原樣。

5、圖片切換：
Private Sub CmdShow_Click()
If X = 1 Then
PicShow.Picture = LoadPicture("E:\稿件\Ccidnet\vb\image\vb3-2-2-copy.gif")
LblShow.Caption = "現(xiàn)在顯示的是第二張圖"
CmdShow.Caption = "圖片一"
X = 2
Else
PicShow.Picture = LoadPicture("E:\稿件\Ccidnet\vb\image\vb3-2-1-copy.gif")
LblShow.Caption = "現(xiàn)在顯示的是第一張圖"
CmdShow.Caption = "圖片二"
X = 1
End If
End Sub

在上面的程序中，先對 X 進行判斷，如果 X 為 1 ，那么圖形框顯示圖片二，顯示標(biāo)簽改變成“現(xiàn)在顯示的是第二張圖”字樣，作為圖形切換的按鈕，
Caption 變成“圖片一”，然后再讓 X 為 2 好進入另外一種情況；當(dāng) X 為 2 ，那么圖形框顯示圖片一，顯示標(biāo)簽與切換按鈕發(fā)生相應(yīng)變化。

二、聯(lián)想：
記得第一次設(shè)計這個程序時，并沒有引入 X 這個輔助變量，而是通過鼠標(biāo)點擊的動作來進行判斷的，即，當(dāng)原始圖形框中顯示的是圖片一，那么鼠標(biāo)點擊一次，即奇數(shù)次，圖形框中會切換到圖片二；當(dāng)鼠標(biāo)點擊第二次，即偶數(shù)次，圖形框可以切換到圖片一；以此類推。所以可以通過次數(shù)取余，如果余數(shù)為 0 ，那么圖形框可以切換到圖片一；余數(shù)為 1 ，圖形框可以切換到圖片二。

利用直線與形狀控件，可以使窗體上顯示的內(nèi)容更為豐富，如在窗體上增加簡單的線條和實心圖形，等等。

利用直線控件，可以建立簡單的直線，通過修改其屬性，還可以改變直線的粗細、色彩，以及線型。

通過設(shè)置形狀的屬性，用戶可以畫出圓、橢圓，以及圓角矩形，同時還能設(shè)置形狀的色彩與填充圖案。

主要屬性：
除了其他通用屬性外，直線與形狀控件還具有一些比較獨特的屬性。

1、BorderStyle（邊框類型），實用于直線與形狀。
TransParent：透明，邊框不可見。
Solid：實心邊框，最常見。
Dash：虛線邊框。
Dot：點線邊框。
Dash-Dot：點劃線邊框。
Dash-Dot-Dot：雙點劃線邊框。
Inside Solid：內(nèi)實線邊框。

2、FillStyle（填充類型），實用于形狀。
Solid：實心填充。
TransParent：透明填充。
Horizontal Line：以水平線進行填充。
Vertical Line：以垂直線進行填充。
Upward Diagonal：向上對角線填充。
Downward Diagonal：向下對角線填充。
Cross：交叉線填充。
Diagonal Cross：對角交叉線填充。

除了前面談到的用控件顯示與繪制圖形的方法外，VB 還提供了一組龐大的方法用來繪制點、線、面，以及設(shè)置前景、背景色等各種方法。

一、設(shè)置當(dāng)前繪圖點：
在 VB 中，可以通過設(shè)置窗體或圖形框的 CurrentX 與 CurrentY 屬性來設(shè)置當(dāng)前繪圖點。CurrentX 與 CurrentY 決定了繪制或顯示的起始坐標(biāo)，在設(shè)計時，這兩個屬性不可用。

二、繪制點、線、面的方法：
1、點的繪制法：
在指定對象（如窗體、圖形框）上的指定位置處繪制點，還可以為點指定顏色，語法如下：

對象名.Pset (X,Y)，[Color]

X ，Y 分別為點的水平與垂直坐標(biāo)，Color 為點的顏色，是可選項。 2、直線的繪制法：

在對象上繪制直線，語法如下：

對象名.Line (X1,y1) - (X2,Y2), [Color]

(X1,Y1) 是直線的起點，(X2,Y2)是直線的終點，Color 為可選項。

如圖一：

圖一

2、圖形框的代碼是：
Private Sub Picture1_Click()
Picture1.Line (350, 1020)-(2050, 1020)
End Sub

3、繪制矩形：
用 Line 方法還可以繪制矩形，語法如下：

對象名.Line (X1,Y1) - (X2,Y2), [Color], B ,[F]

其中，(X1,Y1) 是矩形的左上角座標(biāo)，(X2,Y2)是矩形右下角座標(biāo)，Color 為矩形邊框的顏色，使用參數(shù) B 而不用 F ，那么矩形用當(dāng)前的填充色（FillColor）與填充方式（FillStyle）對矩形進行填充；如果使用了參數(shù) F ，那么矩形以邊框的顏色進行填充。如圖二：

圖二

特別注意，用 Line 畫矩形框，如果不用其他參數(shù)，那么 B 與坐標(biāo)(X2,Y2)之間應(yīng)該有兩個逗點，一個是緊跟坐標(biāo)2，一個表示 Color 省略了，如：Picture1.Line (500,500) - (1000,1000),,B

4、繪制圓、橢圓、?。?br>用 Circle 方法可以繪制圓、橢圓與弧，語法如下：

對象名.Circle (X,Y), Radius, [Color,start,end,aspect]

其中，(X,Y)是圓、橢圓或弧的圓心坐標(biāo)，Radius 是半徑，這兩個參數(shù)是必須項；Color 是圓的輪廓色，Start 與 End 是弧的起點與終點位置。其范圍是 -2 —— 2Pi ；Aspect 是圓的縱橫尺寸比，默認(rèn)值是 1 即圓，如圖三：

圖三

三、顏色、前景與背景色的設(shè)置：
1、顏色函數(shù) RGB()
在前面關(guān)于卷動條控件（綜合示例五）的講解中，我們講述了色彩的設(shè)置問題，而這正是 RGB 顏色函數(shù)的原理所在。色彩設(shè)置的方法如下：

RGB(Red,Green,Blue)

不要忘了，Red、Green、Blue 每種色彩各有 0——255 種成份，三種色彩不同參數(shù)的搭配，就產(chǎn)生了豐富多采的現(xiàn)實世界。

2、前景色的設(shè)置：
通過對 ForeColor（前景色屬性）的設(shè)置，可以返回或設(shè)置對象的前景色。

3、背景色的設(shè)置：
對 BackColor 屬性進行設(shè)置，就可以返回或設(shè)置對象的背景色。

4、圖形的清除：
用 Cls 方法可以清除窗體或圖形框在程序運行中繪制的圖形，語法如下：