流程控制应用-动画课件

,書式設定,書式設定,第 2,第 3,第 4,第 5,*,*,書式設定,書式設定,第 2,第 3,第 4,第 5,*,*,*,書式設定,書式設定,第 2,第 3,第 4,第 5,*,書式設定,書式設定,第 2,第 3,第 4,第 5,*,書式設定,書式設定,第 2,第 3,第 4,第 5,Ch07 流程控制應用-動畫,視窗程式設計,Ch07 流程控制應用-動畫視窗程式設計,PictureBox,圖片控制項,要加入圖片，可用,PictureBox,圖片控制項載入指定圖片檔。,圖片控制項允許使用的圖形檔格式有：點陣圖,(.bmp),、,GIF,格式圖檔,(,包括,Gif,動畫及背景透空的靜態圖,),、,jpeg,圖形檔、中繼檔,(.wmf),、可攜式網路圖檔,(.png),或圖示格式,(.ico),的圖形。,PictureBox,圖片控制項中的圖片可在設計階段先載入或在程式執行時才讀取檔案。,2024/10/5,2,PictureBox 圖片控制項 要加入圖片，可用 Pict,圖片控制項的常用屬性,1.Image,屬性：,是圖片控制項最重要屬性，用來設定要顯示的圖檔。,2.SizeMode,屬性,(,預設值,Normal),設定圖片在圖片控制項中顯示方式，有五個屬性值：,Normal,圖片以正常大小顯示在圖片方塊的左上角。,StretchImage,圖片自動調整成和圖片控制項一樣大小。,AutoSize,圖片控制項自動調整成和圖片一樣大小。,CenterImage,圖片以正常大小顯示在圖片控制項的中央。,Zoom-,圖片維持等比例依圖片控制項大小自動調整。,在程式執行階段設定,SizeMode,屬性值的語法如下：,PictureBox1.SizeMode=PictureBoxSizeMode.Normal,2024/10/5,3,圖片控制項的常用屬性 1.Image屬性：是圖片控制項最重,圖片控制項的常用屬性,3.BorderStyle,屬性：,設定圖片控制項的外框樣式，屬性值,：,None-,沒有框線（預設值）,FixedSingle-,單線固定,Fixed3D-,立體固定,4.Location.X,、,Location.Y,屬性：,設定圖片控制項左上角相對於容器,(,通常為表單,),的位置。,Location.X,和,Location.Y,兩屬性，分別設定圖片控制項的水平距離 和 垂直距離。,2024/10/5,4,圖片控制項的常用屬性 3.BorderStyle屬性：設定,圖片控制項的常用屬性,5.Left,、,Top,屬性,Left,屬性相當於,Location.X,屬性,Top,屬性相當於,Location.Y,屬性,Left,和,Top,屬性只能在程式執行階段使用。,6.Size.Width,、,Size.Height,屬性,設定圖片控制項的大小。,Size.Width,和,Size.Height,兩個屬性，分別設定圖片控制項寬度,(,可縮寫為,Width,),和高度,(,可縮寫為,Height,),。,2024/10/5,5,圖片控制項的常用屬性 5.Left、Top屬性Left,圖片的載入及清除,1.,設計階段載入圖片,圖片的載入及清除 1.設計階段載入圖片,2.,設計階段清除圖片,選取,Image,屬性欄後按 鍵，或直接在屬性視窗的,Image,屬性值上按右鍵，選取 即可。,2024/10/5,7,2.設計階段清除圖片2022/10/117,3.,在執行階段載入圖片,使用,Image,類別的,FromFile,方法設定,Image,屬性。,語法：,PictureBox1.Image=Image.FromFile(,包含路徑的圖檔名稱,),將,D:ch05,飛碟,.gif,圖形檔載入,pic1,圖片控制項中：,pic1.Image=Image.FromFile(d:ch05,飛碟,.gif),也可用,New,建立,Bitmap,物件來載入圖檔：,pic1.Image=New Bitmap(d:ch05,飛碟,.gif),4.,執行階段清除圖片,PictureBox.Image=Nothing,2024/10/5,8,3.在執行階段載入圖片2022/10/118,圖片位置和尺寸的調整,程式執行階段調整圖片控制項位置和尺寸，可產生動畫效果。,1.Point,物件,改變圖片控制項的,Location,屬性可用,Point,物件，語法：,Object.Location=New Point(X,Y),例,將,pic1,圖片控制項移動到,X,座標,66,、,Y,座標,88,位置。,pic1.Location=New Point(66,88),不用,Point,物件，也可直接改變,Left,（,=Location.X,）和,Top,（,=Location.Y,）屬性，寫法：,pic1.Left=66,pic1.Top=88,2024/10/5,9,圖片位置和尺寸的調整程式執行階段調整圖片控制項位置和尺寸，可,2.Size,物件,程式執行階段，可用,Size,物件來設定圖片大小,。,SizeMode,屬性設為,StretchImage,或,Zoom,（等比例）圖片自動調整成和圖片控制項一樣大小。,使用,Size,物件語法：,PictureBox.Size=New Size(Width,Height),例,將,pic1,圖片控制項的寬度和高度各縮小一半。,pic1.Size=New Size(pic1.Width/2,pic1.Height/2),如不用,Size,物件，也可直接改變,Size,的,Width,和,Height,屬性值，寫法：,pic1.Width=pic1.Width/2,pic1.Height=pic1.Height/2,2024/10/5,10,2.Size物件2022/10/1110,2024/10/5,11,2022/10/1111,Step1,建立輸出入介面,2024/10/5,12,Step1 建立輸出入介面2022/10/1112,FileName:poker.sln,01 Dim num1,num2 As Integer,02 Private Sub Form1_Load(ByVal sender )Handles MyBase.Load,03 pic1.Enabled=False,04 pic2.Enabled=False,05 pic1.SizeMode=PictureBoxSizeMode.AutoSize,06 pic2.SizeMode=PictureBoxSizeMode.AutoSize,07 pic1.Image=New Bitmap(c:/vb2008/ch05/image/Pokerbk.jpg),08 pic2.Image=New Bitmap(c:/vb2008/ch05/image/Pokerbk.jpg),09 lblMsg.Text=,按洗牌鈕遊戲開始,.,10 End Sub,2024/10/5,13,FileName:poker.sln2022/10/111,01,Private Sub btnShuffle_Click(ByVal sender )Handles btnShuffle.Click,02 pic1.Enabled=True,03 pic2.Enabled=True,04 btnShuffle.Enabled=False,05 pic1.Image=New Bitmap(c:/vb2008/ch05/image/Pokerbk.jpg),06 pic2.Image=New Bitmap(c:/vb2008/ch05/image/Pokerbk.jpg),07 Randomize(),08 num1=Int(Rnd()*13)+1,09 num2=Int(Rnd()*13)+1,10 lblMsg.Text=,請在撲克牌上按一下選取,.,11 End Sub,2024/10/5,14,01 Private Sub btnShuffle_Cli,01 Private Sub pic1_Click(ByVal sender)Handles pic1.Click,02,pic1.Image=New Bitmap(c:/vb2008/ch05/image/Poker&num1&.jpg),03,pic2.Image=New Bitmap(c:/vb2008/ch05/image/Poker&num2&.jpg),04 If num1 num2 Then,05 lblMsg.Text=,你贏了,!,按洗牌鈕 重玩,.,06 Else,07 If num1=num2 Then,08 lblMsg.Text=,平 手,!,按洗牌鈕 重玩,.,09 Else,10 lblMsg.Text=,你輸了,!,按洗牌鈕 重玩,.,11 End If,12 End If,13 pic1.Enabled=False,14 pic2.Enabled=False,15 btnShuffle.Enabled=True,16 End Sub,2024/10/5,15,01 Private Sub pic1_Click(ByVa,01 Private Sub pic2_Click(ByVal sender )Handles pic2.Click,02,pic1.Image=New Bitmap(c:/vb2008/ch05/image/Poker&num1&.jpg),03,pic2.Image=New Bitmap(c:/vb2008/ch05/image/Poker&num2&.jpg),04 If num2 num1 Then,05 lblMsg.Text=,你贏了,!,按洗牌鈕 重玩,.,06 Else,07 If num2=num1 Then,08 lblMsg.Text=,平 手,!,按洗牌鈕 重玩,.,09 Else,10 lblMsg.Text=,你輸了,!,按洗牌鈕 重玩,.,11 End If,12 End If,13 pic1.Enabled=False,14 pic2.Enabled=False,15 btnShuffle.Enabled=True,16 End Sub,17,18 Private Sub btnQuit_Click(ByVal sender)Handles btnQuit.Click,19 End,20 End Sub,2024/10/5,16,01 Private Sub pic2_Click(ByVa,Image List,影像列示控制項,ImageList,影像列示控制項屬幕後執行控制項，程式執行時表單上看不到，編輯階段顯示在表單正下方。,無法直接在表單上顯示圖形,，,可同時載入多張圖片，以方便在表單使用影像列示清單控制項來共用圖片。,如按鈕、選項鈕、核取方塊、標籤等控制項，都具,ImageList,屬性，只要將該屬性值設定為影像列示控制項，就可顯示圖片。,圖片控制項物件的,Image,屬性值，也可指定等於影像列示控制項的,Images,屬性值。只要傳圖片的索引值（索引值由,0,開始）就改變圖片，可將不同圖片檔名置入影像列示控制項，存取時透過索引值，程式碼可更簡化。,2024/10/5,17,Image List 影像列示控制項ImageList 影像,PictureBox1,圖片控制項的,Image,屬性由影像列示控制項圖片的,Index,索引值取得圖片的語法如下：,PictureBox1.Image=ImageList1.Images(Index),如,Button1,按鈕控制項上面要顯示影像列示控制項,ImageList1,的第,2,張圖片，寫法：,Button1.ImageList=ImageList1,Button1.ImageIndex=1,2024/10/5,18,PictureBox1 圖片控制項的 Image