- 1、本文档共10页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VisualBasic表单应用.
Visual Basic表單應用
(03)
名詞解釋
(1)、按一下(Click):也就是按一次滑鼠左鍵。
(2)、連按兩下(Double):快速按兩下滑鼠左鍵。
(3)、拖曳(Drag):按住滑鼠左鍵然後移動滑鼠。
(4)、偵測鍵盤(Keypress):若有鍵盤按鍵發生,將自動產生 Keypress 事件,同時所按鍵的 Ascii 碼將傳送到變數 Keyascii 內。
Sub Form_KeyPress(KeyAscii As Integer)
X = Keyascii
End sub
若要將他轉成以字元顯示則使用下列公式:
Y = Chr(Keyascii)
如果字元變回到 Ascii 所表現的碼,用 X = Asc(Y)
例:(vb301)
(a)、物件設定:標籤物件、定時物件
(b)、屬性設定:
Form1.Caption = “電子看版設計”
Label1.Autosize = True
Label1.BackStyle = 0
Label1.Caption = “資料展示電子看版”
Label1.Forecolor = 藍色
(c)、程式設計
Dim g As Integer
Private Sub Form_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = . Then
g = 2
Timer1.Interval = 1
End If
If Chr(KeyAscii) = , Then
g = 1
Timer1.Interval = 1
End If
If KeyAscii = 115 Then
Timer1.Interval = 0
End If
If Chr(KeyAscii) = q Or Chr(KeyAscii) = Q Then
End
End If
End Sub
Private Sub Timer1_Timer()
Select Case g
Case 1
Label1.Left = Label1.Left - 30
Case 2
Label1.Left = Label1.Left + 30
End Select
End Sub
表單處理
註解程式
說明程式的用法,用註解符號 ‘ ,將可讓別人容易瞭解程式運作。
例: ‘ 程式說明
表單視窗更換
在程式設計中,我們可以建立兩個以上視窗(form),分別設計程式,兩個視窗間的切換的作法:
先增加一個視窗 Form :選擇主視窗「專案」、「新增表單」,在「建立」標籤下選「表單」,後按「開啟舊檔」。增加新表單Form。
在某一個物件(按鈕物件)加上下列命令,就可以到第二個視窗
Me.Hide
Form2.Show
在第二個視窗Form加上某一個物件(按鈕)加上下列命令,就可以回第一個視窗。
Me.Hide
Form1.Show
例:(v302)
設計一個視窗內有密碼,來決定是否可以進入第二個視窗。
先建立第二個視窗選擇主視窗「專案」、「新增表單」,在「建立」標籤下選「表單」,後按「開啟舊檔」。增加新表單Form。
在第一個表單視窗上
(a)、物件:兩個標籤物件,一個文字物件與一個命令鈕。
(b)、屬性: label1.Caption=
”嘉師教學系統”
label2.Caption =”請輸入密碼:” Command1.Caption =”結束”
text1.text =”” text1.PasswordC = “X”
(c)、程式部份:
Private Sub Command1_Click()
End
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
判定密碼正確否?
If KeyAscii = 13 Then
If Text1.Text = ncytc Then
Me.Hide
Form2.Show
Else
Text1.Text =
Label2.Caption = 密碼錯誤,請再輸入:
End If
End If
End S
您可能关注的文档
最近下载
- 九年级万唯中考试题研究课示词汇默写配合教材复习使用.pdf
- (必威体育精装版版)50以内加减法混合运算(共1000题,可A4纸直接打印)20.docx VIP
- 辽宁省沈阳市2023-2024学年高一下学期期中考试数学试卷及解析.docx VIP
- 国际金融概论(孟昊 王爱俭)04— 国际资本流动.ppt VIP
- 国际金融概论(孟昊 王爱俭)03—开放经济下的国际金融活动.ppt VIP
- 一年级语文下册(生字练字帖,可直接打印).pdf
- Flexsim中文培训教程.ppt
- 24张架构图讲透数据治理核心内容.docx VIP
- 2015年美赛b题m奖中文版.pdf
- XXX污水管道改造工程施工组织设计.doc
文档评论(0)