2017年10月31日 星期二
2017年10月27日 星期五
2017年10月16日 星期一
VB_圖書館資訊系統-寫法2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim id$ = "jack"
Dim pw$ = "luck007"
If TextBox1.Text = id And TextBox2.Text = pw Then
MsgBox("歡迎進入圖書資訊系統", , "系統提示")
Else
MsgBox("帳號或密碼輸入錯誤,請重新輸入", , "系統提示")
End If
2017年10月15日 星期日
2017年10月14日 星期六
VB_圖書館資訊系統
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim id, pw As String
id = TextBox1.Text
pw = TextBox2.Text
If id = "jack" And pw = "luck007" Then
MsgBox("歡迎進入圖書資訊系統", , "系統提示")
Else
MsgBox("帳號或密碼輸入錯誤", , "系統提示")
End If
End Sub
Dim id, pw As String
id = TextBox1.Text
pw = TextBox2.Text
If id = "jack" And pw = "luck007" Then
MsgBox("歡迎進入圖書資訊系統", , "系統提示")
Else
MsgBox("帳號或密碼輸入錯誤", , "系統提示")
End If
End Sub
請注意:密碼欄要隱藏
文書處理快捷鍵應用 Word篇
CH1.
CTRL+SHIFT | 切換輸入法 |
CTRL+SPACE | 切換中英文輸入法 |
CTRL+ALT+, | 開啟標點符號小鍵盤 |
CTRL+S | 儲存檔案 |
CTRL+N | 新增空白文件 |
CTRL+O | 開啟舊檔 |
F12 | 另存新檔 |
CTRL+Z | 復原 |
CTRL+Y | 取消復原 |
CTRL+ALT+P | 切換至整頁模式 |
CTRL+ALT+O | 切換至大綱模式 |
CTRL+ALT+N | 切換至草稿模式 |
SHIFT+TAB | 提升層級 |
TAB | 降低層級 |
BACKSPACE | 刪除左方文字 |
DELETE | 刪除右方文字 |
CTRL+, | , |
CTRL+. | 。 |
CTRL+; | ; |
CTRL+' | 、 |
CTRL+SHIFT+? | ? |
CTRL+SHIFT+! | ! |
CTRL+SHIFT+[ | { |
CTRL+SHIFT+] | } |
CTRL+SHIFT+( | 「 |
CTRL+SHIFT+) | 」 |
CTRL+P | 列印文件 |
CTRL+單按句子任一處 | 一段句子 |
SHIFT+單案文字結尾處 | 連續範圍 |
CTRL+其他範圍 | 不連續範圍 |
ALT+拖曳 | 矩形範圍 |
SHIFT、CTRL長按 | 連續選取物件 |
CTRL+A | 全選 |
CTRL+C | 複製 |
CTRL+V | 貼上 |
CTRL+X | 剪下 |
CTRL+H | 尋找與取代交談窗 |
CTRL+SHIFT+> | 放大字型大小 |
CTRL+SHIFT+< | 縮小字型大小 |
CTRL+B | 粗體 |
CTRL+I | 斜體 |
CTRL+U | 底線 |
CTRL+SHIFT+C | 複製格式 |
CTRL+SHIFT+V | 貼上格式 |
CTRL+D | 開啟字型交談窗 |
ALT+PGUP | 移至表格最上邊儲存格 |
ALT+PGDOWN | 移至表格最下邊儲存格 |
ALT+HOME | 移至表格最左邊儲存格 |
ALT+END | 移至表格最右邊儲存格 |
CTRL+SHIFT+ENTER | 分割表格 |
SHIFT+ENTER | 手動換行 |
CTRL+ENTER | 換至下一頁 |
CTRL+E | 置中對齊 |
CTRL+SHIFT+ENTER | 分到下一欄 |
|
|
2017年10月1日 星期日
訂閱:
文章 (Atom)