欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

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

Timer 控制器在工具箱面板上的圖標如圖一：

圖一

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

圖二

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

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

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

其語(yǔ)法格式：
Timer.Interval = X ，其中，X 代表具體的時(shí)間間隔。

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

三、示例：
有如圖三這樣一個(gè)應用程序，標簽能夠自動(dòng)顯示當前時(shí)間。

圖三

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

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

圖四

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

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

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

圖一

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

圖二

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

磁盤(pán)列表框名稱(chēng).Drive = Drive（如 C: ，或者 D：，等等）。

比如，要在窗體啟動(dòng)時(shí)把當前磁盤(pán)改為 F 盤(pán)，那么：

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

圖三

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

圖四

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

圖五

本控件的主要屬性是 Path 屬性，用來(lái)返回或設置當前文件夾的路徑，只能在程序運行中使用，其語(yǔ)法是：

文件夾列表框名稱(chēng).Path = 具體的路徑

比如，我們要在窗體啟動(dòng)時(shí)把默認顯示的文件夾改為 D:\Mytool\ ，程序可以這樣寫(xiě)：

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

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

圖六

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

文件列表框名稱(chēng).FileName = 路徑

比如，我們要在窗體啟動(dòng)時(shí)將 E:\稿件 目錄下的所有 ZIP 文件列出來(lái)，程序可以這樣寫(xiě)：

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

結果如圖七：

圖七

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

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

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

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

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

窗體猶如一塊畫(huà)布，在設計時(shí)是程序的設計區域，而在運行程序時(shí)，每個(gè)窗體對應于一個(gè)窗口。

一、窗體的結構：
窗體結構與普通 Windows 下的窗口非常相似，如圖一：

圖一

系統菜單：Form1.ControlBox，點(diǎn)擊它可以彈出菜單命令。

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

最小化按鈕：Form1.MinButton 。

最大化按鈕：Form1.MaxButton 。

二、窗體的主要屬性：
1、名稱(chēng)：命名規則為 FrmX ，如 FrmShow 、FrmFirst ，等等，主要用于程序調用。

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

窗體名稱(chēng).AutoRedraw = True/False

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

默認屬性為 False。如圖二：

圖二

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

圖三

后者用來(lái)指定文本或圖形的前景色，如圖四：

圖四

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

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

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

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

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

圖五

語(yǔ)法示例：

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

上面的語(yǔ)句會(huì )把 Form1 窗體移動(dòng)到距屏幕頂部 200 Twip ，距屏幕左邊距 300 Twip 的地方。

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

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

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

窗體最主要的事件，用來(lái)在啟動(dòng)程序時(shí)對屬性和變量進(jìn)行初始化。程序一旦運行，將自動(dòng)觸發(fā)本事件。

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

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

在 VB 中，主要通過(guò)兩種辦法進(jìn)行圖像繪制：一種是利用 ActiveX 控件，如用圖形框顯示圖片；另外一種是通過(guò)使用 VB 語(yǔ)言本身的函數和方法，通過(guò)在屏幕上繪制點(diǎn)、線(xiàn)和圖形來(lái)制作。

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

圖一

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

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

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

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

3、AutoSize（自動(dòng)顯示）屬性：
本屬性決定了圖形框控件是否自動(dòng)改變大小以顯示圖片的全部?jì)热?。當值?True ，圖象可以自動(dòng)改變大小以顯示全部?jì)热?；當值?False ，則不具備圖象的自我調節功能。

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

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

PictureBox 用 AutoSize 屬性控制圖形的尺寸自動(dòng)適應，而 Image 控件則用 Stretch 屬性對圖片進(jìn)行大小調整。如圖二：

圖二

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

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

圖三

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

在本節，我們要實(shí)現兩張不同圖片在同一個(gè)圖形框內的切換，同時(shí)可以啟用與禁用圖形框的自動(dòng)適應功能。

圖一（切換前）

圖二（切換后）

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

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

自動(dòng)適應復選框：
Name：ChkAutoSize

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

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

其中，X 準備用來(lái)做為圖片切換的條件，當 X 為 1 ，圖片切換按鈕可以切換到圖片二；當 X 為 2 ，圖片切換按鈕可以切換到圖片一。

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

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

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

4、自動(dòng)適應功能的實(shí)現：
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

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

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

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

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

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

利用直線(xiàn)控件，可以建立簡(jiǎn)單的直線(xiàn)，通過(guò)修改其屬性，還可以改變直線(xiàn)的粗細、色彩，以及線(xiàn)型。

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

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

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

2、FillStyle（填充類(lèi)型），實(shí)用于形狀。
Solid：實(shí)心填充。
TransParent：透明填充。
Horizontal Line：以水平線(xiàn)進(jìn)行填充。
Vertical Line：以垂直線(xiàn)進(jìn)行填充。
Upward Diagonal：向上對角線(xiàn)填充。
Downward Diagonal：向下對角線(xiàn)填充。
Cross：交叉線(xiàn)填充。
Diagonal Cross：對角交叉線(xiàn)填充。

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

一、設置當前繪圖點(diǎn)：
在 VB 中，可以通過(guò)設置窗體或圖形框的 CurrentX 與 CurrentY 屬性來(lái)設置當前繪圖點(diǎn)。CurrentX 與 CurrentY 決定了繪制或顯示的起始坐標，在設計時(shí)，這兩個(gè)屬性不可用。

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

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

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

在對象上繪制直線(xiàn)，語(yǔ)法如下：

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

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

如圖一：

圖一

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

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

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

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

圖二

特別注意，用 Line 畫(huà)矩形框，如果不用其他參數，那么 B 與坐標(X2,Y2)之間應該有兩個(gè)逗點(diǎn)，一個(gè)是緊跟坐標2，一個(gè)表示 Color 省略了，如：Picture1.Line (500,500) - (1000,1000),,B

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

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

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

圖三

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

RGB(Red,Green,Blue)

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

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

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

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