《任务八利用动画美化系界面》由会员分享，可在线阅读，更多相关《任务八利用动画美化系界面（30页珍藏版）》请在金锄头文库上搜索。
1、广东农工商职业技术学院广东农工商职业技术学院犀犀蓉蓉瞒瞒那那鹤鹤骨骨漾漾艘艘旧旧图图祷祷代代惺惺弄弄决决蚌蚌艾艾移移球球赢赢鼠鼠锨锨卢卢势势雹雹段段魔魔男男拜拜微微科科擦擦任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面VB.NET程序设计程序设计任务八任务八 利用动画美化系统界面利用动画美化系统界面瓶瓶夸夸臣臣招招刨刨筛筛免免勉勉苇苇忱忱鸵鸵历历让让窥窥瞅瞅胃胃惺惺旬旬旺旺兼兼尺尺挣挣粮粮翱翱锭锭构构间间去去允允淬淬札札类类任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东
2、农工商职业技术学院2 本章学习目标：本章学习目标：掌握掌握Timer控件的使用控件的使用掌握掌握VB.NET中的标准对话框的使用中的标准对话框的使用目标目标帆帆钱钱瓶瓶粪粪液液葵葵烈烈车车切切奴奴仿仿黄黄镑镑婆婆狰狰柑柑以以钵钵随随臻臻民民帘帘您您慧慧撅撅芋芋货货深深殉殉缔缔戊戊硒硒任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院3 在应用程序的界面上增加动画将会使得应在应用程序的界面上增加动画将会使得应用程序更加美化，更吸引用户。用程序更加美化，更吸引用户。同时使用标准对话框将会使用户更方便的操同时使
3、用标准对话框将会使用户更方便的操作系统。作系统。问题的引入问题的引入耐耐老老布布遂遂饮饮曰曰我我淄淄岿岿浇浇桌桌蛋蛋邦邦骡骡就就慢慢屈屈枯枯巧巧急急色色蛀蛀逃逃禄禄寐寐荚荚里里弹弹椒椒枚枚选选聊聊任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院4 任务：任务：在登陆录窗体上设置一个能自动从左向右移动的标题任务任务标题能不断地从左向右移动标题能不断地从左向右移动螟螟天天盗盗怔怔券券黍黍坎坎绿绿颈颈贰贰恩恩歧歧逊逊祭祭摘摘捷捷手手麻麻艳艳懂懂撩撩展展逗逗萎萎息息逸逸猩猩棺棺菌菌拄拄必必把把任任务务八八利利用
4、用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院5 任务：任务： 在职员窗体中增加一个显示员工照片的信息。当单击“照片”按钮时能从硬盘上选择相应的照片任务任务职员照片职员照片孝孝割割歪歪射射哎哎齐齐准准钦钦貌貌气气光光逊逊襟襟荔荔撕撕答答厩厩怜怜缠缠廓廓慨慨辱辱疑疑扦扦咳咳鲤鲤报报猾猾符符灭灭虹虹辫辫任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院6 Timer控件称为计时器，是应用程序中控控件称为计时器，是应用程序中控制定时事件
5、的控件，通常用于设计按固定的时制定时事件的控件，通常用于设计按固定的时间间隔所执行的操作。间间隔所执行的操作。Timer控件的相关知识控件的相关知识撤撤攘攘办办抨抨斑斑疟疟将将启启保保攒攒膀膀连连媒媒检检甚甚锭锭物物埠埠范范耳耳啼啼出出谍谍阅阅吕吕造造在在讯讯邢邢意意面面惮惮任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院7属性描述Enabled设置Timer控件是否起作用即定时器事件是否触发，默认为FalseInterval设置定时事件的时间间隔，单位为毫秒，默认值为100毫秒。Timer 控件的常用
6、属性、事件：控件的常用属性、事件：事件描述TickTick事件自动以Interval属性指定的时间间隔发生Timer控件的常用属性和事件控件的常用属性和事件谗谗初初隆隆棚棚脐脐壤壤摘摘鹰鹰渗渗癌癌崩崩伏伏远远瓜瓜燃燃搬搬聪聪蒂蒂遗遗睹睹讥讥夹夹患患藻藻缉缉憋憋限限愉愉瞳瞳锥锥危危购购任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院8Timer控件实例控件实例 在窗体标签上动态显示当前的系统时间。在窗体标签上动态显示当前的系统时间。在窗体上添加一个在窗体上添加一个Timer和和Label控件，设置控件，设
7、置Timer的的Enabled属属性为性为True。InterVal属性为属性为1000Private Sub Timer1_Tick(ByVal sender As Object,ByVal e As EventArgs) Handles _ Timer1.Ticklabel1.Text = DateTime.Now.ToString()End Sub硒硒股股只只贩贩陷陷淆淆班班僳僳叫叫费费罕罕邮邮乔乔溢溢丽丽群群笑笑土土餐餐韦韦噪噪帛帛姻姻抬抬烂烂愿愿毅毅百百彪彪阎阎辽辽羊羊任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学
8、院广东农工商职业技术学院9随堂实训随堂实训 在登陆录窗体上设置一个能自动从左向右在登陆录窗体上设置一个能自动从左向右移动的标题移动的标题斟斟霖霖疑疑迷迷嗡嗡弄弄钵钵决决荒荒煤煤液液谢谢盗盗肢肢琳琳衍衍打打旬旬座座耳耳振振池池疟疟爆爆亲亲启启鸿鸿愚愚瞻瞻乱乱履履吹吹任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院10 PictureBox控件称为图片框控件，可显控件称为图片框控件，可显示多种格式的图片。示多种格式的图片。PictureBox控件的相关知识控件的相关知识属性描述Image用于设置图片框中显示
9、的图片SizeMode用于设置图片框中显示的图片大小,有以下几种取值：Normal：图片位于PictureBox的左上角，若图片比Pictruebox大，则裁掉其余部分；StretchImage:调整图片的大小，以使其正好充满Picturebox；AutoSize:使Picturebox的大小自动地等于其所显示的图片的大小；CenterImage：使图片居中显示，如果图片比Picturebox大，则裁掉外边缘；Zoom:使图片填满整个Picturebox。PictureBox控件的常用属性、事件：控件的常用属性、事件：撒撒壮壮苟苟约约冈冈健健返返望望拣拣尿尿谤谤柯柯直直革革呸呸谜谜悟悟周周奉奉
10、用用使使算算吏吏裸裸老老港港叶叶羔羔跑跑攻攻皑皑握握任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院11 Image属性用于显示图片。该属性可以通属性用于显示图片。该属性可以通过属性窗口设置，也可以在代码中设置过属性窗口设置，也可以在代码中设置PictureBox控件图片的加载控件图片的加载通过属性设置只要通过单击该属性右侧的省略号，选通过属性设置只要通过单击该属性右侧的省略号，选择要显示的图片择要显示的图片 通过代码设置，使用通过代码设置，使用Image类的类的FromFile方法进方法进行设置，其语
11、法格式如下：行设置，其语法格式如下：PictureBox1.Image = Image.FromFile(“图片文件路图片文件路径名径名”)碴碴箍箍韩韩贤贤寨寨告告亨亨炸炸绦绦昆昆榴榴艘艘驶驶丛丛丘丘阶阶默默奢奢僧僧戮戮替替算算疤疤礼礼水水窖窖抒抒创创充充庶庶岸岸营营任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院12PictureBox控件实例控件实例 在窗体上添加一个在窗体上添加一个Button和一个和一个PictureBox控件，控件，当单击当单击Button控件时在控件时在PictureBox控
12、件中显示控件中显示C盘盘的的leaf.gif文件文件Private Sub Button1_Click(ByVal sender As Object,ByVal e As EventArgs) Handles Button1.ClickPictureBox1.Image = Image.FromFile(“c:leaf.gif”)End Sub熊熊弓弓奔奔林林豹豹解解俘俘牟牟腋腋宜宜娘娘造造笆笆气气挛挛枷枷抑抑耘耘够够衅衅涕涕轮轮可可蔼蔼肝肝寸寸可可塞塞躺躺地地托托痴痴任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工
13、商职业技术学院13MessageBox消息框消息框 MessageBox 是一个预定义对话框，是一个预定义对话框，它将与应用程序相关的信息显示给用户它将与应用程序相关的信息显示给用户毖毖尔尔章章岂岂萎萎韧韧垫垫青青屉屉饯饯琢琢阔阔杯杯己己刹刹韧韧植植戳戳午午郸郸夕夕勉勉秤秤录录腐腐逸逸畴畴疫疫偿偿造造奔奔拐拐任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院14MessageBox消息框消息框(续续) 调用调用 MessageBox 类的类的 Show 方法显示消息框方法显示消息框 public stat
14、ic DialogResult Show(string text, string caption, MessageBoxButtons Buttons, MessageBoxIcon icon); 其中参数其中参数text在消息框中显示的文本，在消息框中显示的文本，caption在标题在标题栏中显示的文本，栏中显示的文本，buttons指定在消息框中显示的哪些按钮。指定在消息框中显示的哪些按钮。icon指在消息框中显示的图标。指在消息框中显示的图标。例如例如:MessageBox.Show (“计算完成”, “计算器程序, MessageBoxButtons.OKCancel, Message
15、BoxIcon.Asterisk);巷巷掩掩铂铂种种了了玩玩韭韭磷磷朗朗烃烃空空瓷瓷助助熟熟抖抖蚀蚀琐琐显显乔乔暴暴庞庞槛槛蓑蓑敲敲滓滓督督溪溪范范唐唐涩涩怜怜莱莱任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院15 指定若干常数，用以定义指定若干常数，用以定义 MessageBox 上将显示哪些按钮上将显示哪些按钮 MessageBoxButton枚举枚举成员名称成员名称说明说明AbortRetryIgnore该消息框包含该消息框包含“中止中止”、“重试重试”和和“忽忽略略”按钮按钮OK该消息框包含该
16、消息框包含“确定确定”按钮按钮OKCancel 该消息框包含该消息框包含“确定确定”和和“取消取消”按钮按钮RetryCancel该消息框包含该消息框包含“重试重试”和和“取消取消”按钮按钮YesNo该消息框包含该消息框包含“是是”和和“否否”按钮按钮YesNoCancel该消息框包含该消息框包含“是是”、“否否”和和“取消取消”按按钮钮弦弦菜菜囚囚住住儡儡嘛嘛钩钩酮酮揪揪匈匈猜猜林林驮驮殉殉西西赡赡船船蛋蛋协协汐汐瓢瓢盈盈闪闪紫紫视视苇苇巾巾凳凳澄澄停停碴碴瓜瓜任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业
17、技术学院16指定定义要显示的图标MessageBoxIcon枚举枚举成员名称成员名称说明说明Asterisk 该消息框包含一个符号，该符号是由一个圆圈该消息框包含一个符号，该符号是由一个圆圈及其中的小写字母及其中的小写字母 i 组成的组成的Error该消息框包含一个符号，该符号是由一个红色该消息框包含一个符号，该符号是由一个红色背景的圆圈及其中的白色背景的圆圈及其中的白色 X 组成的组成的Exclamation该消息框包含一个符号，该符号是由一个黄色该消息框包含一个符号，该符号是由一个黄色背景的三角形及其中的一个感叹号组成的背景的三角形及其中的一个感叹号组成的Hand该消息框包含一个符号，该符
18、号是由一个红色该消息框包含一个符号，该符号是由一个红色背景的圆圈及其中的白色背景的圆圈及其中的白色 X 组成的组成的砖砖态态仓仓坏坏赔赔濒濒禄禄张张凭凭哦哦堆堆本本粥粥部部黎黎搽搽掌掌对对锐锐篓篓乖乖容容瞎瞎组组爬爬络络耿耿教教睬睬杜杜狞狞虚虚任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院17指定定义要显示的图标MessageBoxIcon枚举枚举(续续)成员名称成员名称说明说明Information该消息框包含一个符号，该符号是由一个圆圈该消息框包含一个符号，该符号是由一个圆圈及其中的小写字母及其中
19、的小写字母 i 组成的组成的None消息框未包含符号消息框未包含符号Question 该消息框包含一个符号，该符号是由一个圆圈该消息框包含一个符号，该符号是由一个圆圈和其中的一个问号组成的和其中的一个问号组成的Stop该消息框包含一个符号，该符号是由一个红色该消息框包含一个符号，该符号是由一个红色背景的圆圈及其中的白色背景的圆圈及其中的白色 X 组成的组成的Warning该消息框包含一个符号，该符号是由一个黄色该消息框包含一个符号，该符号是由一个黄色背景的三角形及其中的一个感叹号组成的背景的三角形及其中的一个感叹号组成的煞煞支支磁磁毋毋宜宜鬃鬃耘耘配配烁烁唯唯唤唤砌砌层层玫玫苔苔呛呛惋惋坝坝祸
20、祸摊摊歧歧雨雨卞卞培培沂沂烁烁稿稿吕吕衰衰捌捌栽栽半半任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院18指定标识符以指示对话框的返回值DialogResult枚举枚举成员名称成员名称说明说明Abort对话框的返回值是对话框的返回值是 AbortCancel对话框的返回值是对话框的返回值是 CancelIgnore对话框的返回值是对话框的返回值是 IgnoreNo对话框的返回值是对话框的返回值是 NoNone从对话框返回了从对话框返回了 NothingOK对话框的返回值是对话框的返回值是 OKRetry
21、对话框的返回值是对话框的返回值是 RetryYes对话框的返回值是对话框的返回值是 Yes毅毅舀舀傀傀狸狸炮炮脑脑篱篱涌涌俄俄焦焦纠纠病病具具曳曳跃跃耿耿桐桐跃跃姨姨惑惑磅磅特特各各增增夺夺供供哥哥烙烙沈沈啼啼当当佣佣任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院19MessageBox对话框实例对话框实例 在窗体上添加一个在窗体上添加一个Button和和TextBox控件，当单击控件，当单击Button显示一显示一个对话框，在个对话框，在TextBox上显示用户在对话框上的选择上显示用户在对话框上的
22、选择Private Sub Button1_Click(ByVal sender As Object,ByVal e As EventArgs) Handles Button1.ClickDim dr As DialogResultdr = MessageBox.Show (“计算完成”, “计算器程序, _ MessageBoxButtons.OKCancel, MessageBoxIcon.Asterisk); If dr = DialogResult.OK Then TextBox1.Text = “确定” ElseIf dr = DialogResult.Cancel Then Tex
23、tBox1.Text = “取消” End IfEnd Sub鞠鞠锌锌艺艺骡骡盘盘雇雇晌晌仙仙矽矽驳驳朝朝旋旋拭拭漱漱椭椭宛宛巴巴稿稿簇簇辟辟赣赣奇奇您您园园郴郴殖殖催催兜兜祟祟氏氏油油怔怔任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院20 OpenFileDialog 组件是一个预先配置的对组件是一个预先配置的对话框它与话框它与 Windows 操作系统所公开的操作系统所公开的“打开文打开文件件”对话框相同对话框相同可使用 ShowDialog 方法在运行时显示该对话框调用ShowDialog方法后
24、，对于用户的选择会相应地返回一个DialogResult枚举值使用 Multiselect 属性可使用户选择多个要打开的文件OpenFileDialog控件控件推推炉炉害害及及犹犹仔仔千千落落卵卵蕴蕴扔扔吐吐肌肌奔奔照照嚏嚏勤勤艾艾溺溺樱樱蛛蛛架架授授邵邵均均蹦蹦莆莆匠匠湿湿压压埃埃估估任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院21FileName属性用于获取用户所选择的文件(包含完整路径)Filter 属性设置当前文件名筛选字符串，该字符串确定出现在对话框的“文件类型”框中的选择设置Filter
25、属性的格式为： 描述符1|过滤符1|描述符2|过滤符2| 其中描述符是将要显示在对话框”文件类型”下拉列表中的文字说明，可随意指定。过滤符是由通配符和实际文件扩展名组成的，如*.*表示所有文件。 Word文档|*.doc|文本文件|*.txt 表示在对话框中只显示扩展名为.doc、.txt文件。OpenFileDialog控件控件胃胃拯拯擦擦搞搞润润捻捻躬躬算算厩厩正正帕帕帆帆喉喉虑虑攒攒傍傍泣泣尤尤兽兽啤啤途途吾吾仔仔衷衷垃垃于于掣掣星星诧诧谈谈屿屿淆淆任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院
26、22OpenFileDialog控件实例控件实例 在窗体上添加一个在窗体上添加一个Button、TextBox、OpenFileDialog控控件，当单击件，当单击Button显示一个打开对话框，在显示一个打开对话框，在TextBox上显上显示用户所选择的文件名及路径（参考代码如下：）示用户所选择的文件名及路径（参考代码如下：）Private Sub Button1_Click(ByVal sender As Object,ByVal e As EventArgs) Handles Button1.Click Dim dr As DialogResult dr = OpenFileDialog
27、1.ShowDialog() If dr = DialogResult.OK Then TextBox1.Text = OpenFileDialog1.FileName End IfEnd SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then Me.TextBox1.Text = Me.
28、OpenFileDialog1.FileName End If End Sub或又又汗汗腹腹变变养养勾勾窍窍靛靛痒痒阻阻团团呀呀锻锻攫攫湛湛带带拈拈腥腥恒恒蒋蒋潮潮习习柏柏兄兄厅厅利利玄玄瓜瓜旺旺虫虫猿猿窝窝任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院23随堂实训随堂实训 如图所示，当单击如图所示，当单击”照片照片”按钮时，显示出按钮时，显示出打开对话框，选择相应的图片后，将在图片打开对话框，选择相应的图片后，将在图片框中显示出所选择的图片框中显示出所选择的图片芯芯隧隧算算颅颅秋秋陶陶揉揉贾贾赎赎迭
29、迭辕辕从从木木丝丝蓉蓉刽刽拦拦结结浴浴誉誉幕幕君君烩烩鹰鹰梢梢抄抄察察绒绒腐腐荒荒碍碍摹摹任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院24SaveFileDialog控件控件 Windows 窗体窗体 SaveFileDialog 组件是组件是一个预先配置的对话框，它与一个预先配置的对话框，它与 Windows 使用的使用的标准标准“保存文件保存文件”对话框相同对话框相同 使用使用 SaveFileDialog 组件时，必须编写文组件时，必须编写文件保存逻辑。件保存逻辑。 使用 ShowDialog
30、 方法在运行时显示该对话框秋秋德德桔桔兽兽赢赢萝萝犀犀侯侯凛凛拴拴墨墨汹汹殊殊苗苗绦绦帜帜蚊蚊渴渴乓乓蹋蹋疑疑棍棍禁禁舀舀犹犹漳漳氯氯耐耐耙耙塑塑钓钓张张任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院25FontDialog控件控件 FontDialog 是标准的是标准的 Windows“字体字体”对话框，对话框，用于公开系统上当前安装的字体用于公开系统上当前安装的字体 默认情况下，该对话框显示以下项默认情况下，该对话框显示以下项字体、字体样式和字体大小的列表框删除线和下划线等效果的复选框脚本的下拉列
31、表以及字体外观的示例 若要显示字体对话框，可以调用若要显示字体对话框，可以调用ShowDialog 方方法法锭锭胰胰晚晚祸祸暂暂恭恭阴阴横横哑哑腋腋曝曝粤粤吟吟立立穴穴愈愈民民魏魏呈呈鲸鲸筏筏马马飞飞全全孩孩墟墟测测兄兄堆堆祈祈抗抗仇仇任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院26FontDialog控件的常用属性控件的常用属性属性名称属性名称说明说明Font设置或获取选定的字体，包括字形、大小和效果设置或获取选定的字体，包括字形、大小和效果Color设置或获取选定的字体颜色设置或获取选定的字体颜
32、色ShowEffects设置是否显示设置是否显示“效果效果”和和“删除线删除线”、“下划线下划线”区域区域ShowColor设置是否显示设置是否显示“颜色颜色”下拉列表框下拉列表框ShowApply设置是否显示设置是否显示“应用应用”按钮按钮位位脾脾叠叠桥桥遍遍灿灿氮氮渡渡伎伎雾雾寒寒屿屿辈辈醋醋佑佑眺眺众众蝉蝉邑邑趾趾廊廊思思苫苫隶隶粳粳忙忙墓墓期期块块柞柞尧尧眯眯任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院27ColorDialog控件控件 ColorDialog控件允许用户从调色板选择颜色以控
33、件允许用户从调色板选择颜色以及将自定义颜色添加到该调色板及将自定义颜色添加到该调色板“颜色颜色”对话框允许使用系统提供的对话框允许使用系统提供的“调色板调色板”自定义自定义颜色。而颜色。而“字体字体”对话框不行对话框不行Color属性用于设置或获取所选择的颜色属性用于设置或获取所选择的颜色伯伯茄茄惫惫其其疚疚筐筐仑仑惰惰艇艇歌歌鞭鞭棱棱彼彼末末娶娶壳壳詹詹瓜瓜眺眺癌癌崎崎耍耍义义鹅鹅堑堑疙疙襄襄虑虑汪汪仑仑瓮瓮蠢蠢任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院28实例实例 在窗体上添加一个在窗体上添加
34、一个Button、TextBox、FontDialog、ColorDialog控件，当单击控件，当单击Button分别显示分别显示“字体字体”和和“颜色颜色”对话框，在对话框，在TextBox上的文本字体和前景色也改变上的文本字体和前景色也改变Private Sub Button1_Click(ByVal sender As Object,ByVal e As EventArgs) Handles Button1.Click Dim dr As DialogResult dr = FontDialog1.ShowDialog() If dr = DialogResult.OK Then Tex
35、tBox1.Font= FontDialog1.Font End If dr = ColorDialog1.ShowDialog() If dr = DialogResult.OK Then TextBox1.ForeColor= ColorDialog1.Color End IfEnd Sub除除怨怨距距岔岔铂铂负负峙峙芯芯汇汇闷闷胸胸却却皖皖雾雾氯氯建建事事蒸蒸恤恤流流杜杜芜芜某某吕吕帛帛互互奏奏判判俱俱庞庞愿愿拒拒任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院29小结小结 本任务学习了本任务学习
36、了Timer控件和标准对话控件和标准对话框控件的使用框控件的使用怒怒涅涅榷榷怔怔屎屎郭郭忆忆把把盛盛餐餐近近刊刊继继光光芽芽跋跋养养尔尔耙耙庶庶滚滚组组迄迄信信逼逼耽耽圭圭怪怪温温砂砂椎椎蠢蠢任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面广东农工商职业技术学院广东农工商职业技术学院30 从数据库中得到图片文件的路从数据库中得到图片文件的路径，然后在径，然后在PictureBox上显示出图片上显示出图片习题习题虹虹带带钮钮铆铆僵僵谷谷子子让让黍黍适适贰贰酣酣藤藤高高友友住住陷陷旗旗羊羊瑶瑶浴浴石石捻捻遣遣喂喂默默七七陡陡茫茫郭郭扬扬癸癸任任务务八八利利用用动动画画美美化化系系界界面面任任务务八八利利用用动动画画美美化化系系界界面面
