滑鼠键盘与安装程式.pptVIP

下载本文档

1
0
约4.98千字
约 42页
2018-11-30 发布于天津
举报
版权申诉

滑鼠键盘与安装程式.ppt

1、本文档共42页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

该文档均来自互联网,如果侵犯了您的个人权益,请联系我们将立即删除!

Visual Basic 程式設計講師：戴志華 hana@.tw 國立台灣大學電機工程研究所第十章圖形化使用者介面III、滑鼠、鍵盤與安裝程式 ProgressBar In Microsoft Window Common Controls 6.0 屬性 Min:最小值 Max:最大值 Value:目前進度的值 Scrolling: ccScrollingStandard ccScrollingSmooth ProgressBar(cont’d) Slider Slider(cont’d) Slider(cont’d) Slider(cont’d) Slider(cont’d) Tabbed Dialog In Microsoft Tabbed Dialog Control 6.0 按右鍵出現屬性對話盒 Style: ssStyleTabbedDialog ssStylePropertyPage Tabbed Dialog(cont’d) Tabbed Dialog(cont’d) Orientation:Tab的位置 ssTabOrientation[Top|Bottom|Left|Right] TabCaption:Tab上的文字 Tab Count:Tab的總數 TabsPerRow:每行有幾個Tabs 用法類似Frame 滑鼠滑鼠(cont’d) 滑鼠(cont’d) 滑鼠(cont’d) MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Button: 那個鍵被按 vbRightButton: 2 vbLeftButton: 1 vbMiddleButton: 4 X, Y: 滑鼠的座標值 Shift: 鍵盤特殊鍵的狀況(Ctrl, Shift, Alt) 滑鼠(cont’d) Shift Shift And vbShiftMask Shift And vbCtrlMask Shift And vbAltMask Ex If (shift and vbshiftmask) then … 滑鼠(cont’d) MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single) EX: 簡易小畫家滑鼠(cont’d) Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) CurrentX = X: CurrentY = Y Select Case Button Case vbLeftButton ForeColor = vbBlue Print █ Case vbRightButton ForeColor = vbRed Print █ Case vbMiddleButton ForeColor = BackColor Print █ End Select End Sub 鍵盤 KeyDown(KeyCode As Integer, Shift As Integer) KeyPress(KeyAscii As Integer) 鍵盤(cont’d) KeyCode: 鍵盤代碼鍵盤(cont’d) 鍵盤(cont’d) ←　　　　 37　　　　 vbKeyLeft ↑　　　　 38　　　　 vbKeyUp →　　　　 39　　　　 vbKeyRight ↓　　　　 40　　　　 vbKeyDown 鍵盤(cont’d) 鍵盤(cont’d) 自動轉大寫 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = Asc(a) and KeyAscii Asc(z) Then KeyAscii = Asc(UCase(Chr(KeyAscii))) End If End Sub TextBox只能輸入數字 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii Asc(0) Or KeyAscii Asc(9) Then KeyAscii = 0 End If End Sub 封裝及部署精靈封裝(Package) 把一些專案用得到的檔案封裝起來放置封裝目