就是愛~VB - Powered by Discuz! Board

繁體 | 簡體

Sclub交友聊天~加入聊天室當版主

(檢舉)

新浪微博

QQ空间

Facebook

Google+

Plurk

Twitter

Line

標題: [初階] Textbox輸入進入表單 [打印本頁]

作者: MeMoRy 時間: 2012-6-4 21:46 標題: Textbox輸入進入表單

If TextBox1.Text = "1" Then
Form2.Show()
Me.Hide()
ElseIf TextBox1.Text = "2" Then
Form3.Show()
Me.Hide()
End If
'警告訊息
End Sub

複製代碼

附送 Label 文字修改

適用於 command ^_^

Label11.Text = "已經開始倒數"

複製代碼

附送即時通、MSN 多開源碼
啟動即時通多開

Shell("reg add ""HKCU\Software\yahoo\pager\Test"" /v ""plural"" /t REG_DWORD /d 00000001 /f", vbHide)

複製代碼

關閉即時通多開

Shell("reg delete ""HKCU\Software\yahoo\pager\Test"" /v ""plural"" /f", vbHide)

複製代碼

啟動MSN多開

Shell("reg add ""HKEY_LOCAL_MACHINE\Software\Microsoft\Windows Live\Messenger"" /v ""MultipleInstances"" /t REG_DWORD /d 00000001 /f", vbHide)

複製代碼

關閉MSN多開

Shell("reg delete ""HKEY_LOCAL_MACHINE\Software\Microsoft\Windows Live\Messenger"" /v ""MultipleInstances"" /f", vbHide)

複製代碼

完成品:

Yahoo.exe (108.5 KB)

附件: Yahoo.exe (2012-6-5 19:13, 108.5 KB) / 下載次數 98
http://yeazzz3x2c1.weclub.info/attachment.php?aid=214&k=1c382c0a21cd011afde0db1f696b32a6&t=1753304412&sid=CvB8KR

歡迎光臨就是愛~VB (http://yeazzz3x2c1.weclub.info/)