作者f94 (舔了會蛀牙的甜蜜寶貝)
看板KS95-318
標題[好人] 贈淫魔(用VB跑的淫魔大字典)
時間Fri Jun 1 19:56:15 2007
Private Sub cboname_change()
If cboname.Text = "中出" Then
Txtdp.Text = "直接射精在女生陰道裡"
ElseIf cboname.Text = "(骨從)" Then
Txtdp.Text = "發音 ㄙㄨㄥˊ 精液"
ElseIf cboname.Text = "調教" Then
Txtdp.Text = "要讓女生習慣一些玩法之前要先作的事 例如 要顏射一個女生
先射在她的 乳房 便是調教"
ElseIf cboname.Text = "鬼畜" Then
Txtdp.Text = "性虐待"
ElseIf cboname.Text = "獵奇" Then
Txtdp.Text = "伴隨著著 肉體傷害的變態性遊戲"
ElseIf cboname.Text = "癡漢" Then
Txtdp.Text = "色情狂 前面加上地方 便是XX癡漢"
Else
Txtdp.Text = "這位哥哥 你想來一炮嗎?"
End If
End Sub
Private Sub cboname_click()
If cboname.Text = "中出" Then
Txtdp.Text = "直接射精在女生陰道裡"
ElseIf cboname.Text = "(骨從)" Then
Txtdp.Text = "發音 ㄙㄨㄥˊ 精液"
ElseIf cboname.Text = "調教" Then
Txtdp.Text = "要讓女生習慣一些玩法之前要先作的事 例如 要顏射一個女生
先射在她的 乳房 便是調教"
ElseIf cboname.Text = "鬼畜" Then
Txtdp.Text = "變態性遊戲"
ElseIf cboname.Text = "獵奇" Then
Txtdp.Text = "伴隨著 肉體傷害的變態性遊戲"
ElseIf cboname.Text = "癡漢" Then
Txtdp.Text = "色情狂 前面加上地方 便是XX癡漢"
Else
Txtdp.Text = "這位哥哥 你想來一炮嗎?"
End If
End Sub
Private Sub cmdend_click()
End
End Sub
要擴充好簡單
ElseIf cboname.Text = "" Then
Txtdp.Text = ""
在""之間輸入名詞 再輸入一組解釋對應即可
這組程式碼是我參考過一些範例 改造而成
科科
--
○ "○ ○" ○"
(|\ (|\ )) ))
/`○rz /`○r27\" ○r27\"
○╭○rz ○rz ○rz-st○
￣′ ○=^
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 125.232.141.226
1F：→ f94:打字典上面沒有收入的詞 會出現 這位哥哥 你想來一炮嗎 科科 06/01 19:56
2F：推 waiwang:最好有人會這樣做字典= =" 06/01 20:12
3F：推 f94:這淫魔字典咩 改成正常的字 便是正常的電子辭典了 科科科 06/01 20:13
4F：推 waiwang:我是指管理資料麻煩 效率又不高XD 06/01 20:24
5F：→ xpp6210:真用心阿....不過我比較希望有附圖 06/01 22:32
6F：推 f94:VB的程式碼 可以去抓圖然後從硬碟出來 不過那種程式碼 換台電 06/01 23:24
7F：→ f94:腦就不行了 這也是VB的敗筆 06/01 23:25
8F：推 waiwang:php+MySQL 科科 06/01 23:58