原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
2019年第11章多媒体程序设计
Begin VB.VScrollBar VScroll1 Height =4650 LargeChange =300 Left =6210 SmallChange =10 TabIndex =3 Top =45 Width =330 End Begin VB.HScrollBar HScroll1 Height =330 LargeChange =300 Left =45 SmallChange =10 TabIndex =2 Top =4365 Width =6090 End Clienttop = 1590 ClientWidth = 5010 LinkTopic = Form1 ScaleHeight = 3540 ScaleWidth = 5010 Begin VB.PictureBox Picture1 Height = 615 Left = 2160 ScaleHeight = 555 ScaleWidth = 675 TabIndex = 0 Top = 1200 Width = 735 Begin VB.PictureBox Picture1 Height = 615 Left = 2160 ScaleHeight = 555 ScaleWidth = 675 Begin VB.PictureBox Picture1 Height = 615 Left = 2160 ScaleHeight = 555 ScaleWidth = 675 TabIndex = 0 Top = 1200 Width = 735 End End 程序代码如下： Private Sub Form_Click() Dim Msg As String 声明变量 On Error Resume Next 设置错误句柄 Height =3990 Width =4890 设置高度和宽度 Picture1.Picture = LoadPicture (App.Path +\arrow.CUR,vbLPCustom,vbLPColor,32,32) 加载光标 If Err Then Msg=Couldnt find the .cur file . MsgBox Msg 显示错误消息 Exit Sub 如果发生错误则退出 End If Msg =Choose OK to clear the bitmap from the form. MsgBox Msg Picture1.Picture = LoadPicture() 清除PictureBox End Sub 11.3.4 Pset、Circle、Line绘图方法 除了图形控件(Line控件、Shape控件)之外，VB还提供了创建图形的一些方法，见表11-2。 表11-2 创建图形方法 在任意位置画出图形 用图形方法创建图形是在代码中进行的，这就意味着，必须运行应用程序才能看到图形方法的结果。因而，对于创建界面的简单设计元素来说，图形方法不能代替图形控件的作用。设计时改变图形控件的外观，比修改并测试图形方法的代码
文档评论（0）