实验15—控件及其属性设置

1、实验15控件及其属性设置timerl4 个 label + 2 个 button +实现电子时钟和 滚动的字幕|窗 timerlprivate sub timerl_tickobyval sender as system.object, byvai e as system. eventargs) handles timer1.tick labell. text = nowlabel2. text = timeofdaylabel3. text = todaylabel4. text 二 midq-abel4. text, 2, len (label4. text) - 1) & mid

2、(label4. text? 1, 1)end subprivate sub buttonl_c1ick(byval sender as object byvai e as system. eventargs) handles buttonl. click timerl. start ()end subprivate sub but t on2_cli ck (byval sender as object by vai e as system. eventargs) handles button2.click timerl. stop ()end sub2. hscrollbar + vscr

3、ollbar标签中文字居中，利用hscrollbar水平滚动条动态改变标签文字的大小；利 用vscrollbar垂直滚动条改变标签的大小，同时改变标签文字的大小。注意：利用滚动条动态改变标签文字的大小时，滚动条的最小值不能为0 !private sub hscrollbarl_scroll (byvai sender as system. obj ect byvai e as syst* labell. font = new font 宋弦"丿 hscrollbarl. value)label3. text = hscrollbarl. valueend subprivate sub

4、 vscrollbarl_scroll (byvai sender as system. object by vai e as syst« labell. height = vscrollbarl.value labell. width = vscrollbarl. valuelab ell. font = new forit("宋体'：vscrollbarl. value 3)end sub3. listbox列表框控件已知在文件101. txt中存储有11个整数，单击buttonl “赋值”按钮后，从文件tl. txt中读出数据，显示在listboxl中；单击b

5、utton2“排序”按钮,将升序排序后的数据显示在listbox2中，同时把排序后的数据写入102. txt文件中。関 foral回冈排序前排序后73586236378011788374141114363758627374788083值4. picturebox + timer实现图片随机播放1 个 picturebox + 2 个 button + timerl文件的路径可采用绝对路径；若采用所给相对路径的方法，则文件必须存放在所创建项目的bin文件夹的debug文件夹中。逼 foraltimerl口问区）暂停private sub timerl_ti ck (byvai sender as

6、 system. object by vai e as system. eventargs) handles timerl .tickdim n as integer n = cint (4 * rndo + 1)select case ncase 1pictureboxl. image = image. fromfile cl. jpg'*)case 2pictureboxl. image = image. fromfile c2. jpg")case 3pictureboxl. image = image. fromfile c3. jpg)case 4pictureboxl. image = image. fromfile c4. jpg")end selectend subprivate sub buttonl_c1ick(byvai sender as system. object, byvai e as system. eventargs) handles buttonl. click timerl. start ()end subprivate sub button2_cli