[好人] 贈淫魔(用VB跑的淫魔大字典)

[f94 (舔了會蛀牙的甜蜜寶貝)]

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
→ f94:打字典上面沒有收入的詞 會出現 這位哥哥 你想來一炮嗎 科科
推 waiwang:最好有人會這樣做字典= ="
推 f94:這淫魔字典咩　改成正常的字　便是正常的電子辭典了　科科科
推 waiwang:我是指管理資料麻煩 效率又不高XD
→ xpp6210:真用心阿....不過我比較希望有附圖
推 f94:VB的程式碼 可以去抓圖然後從硬碟出來 不過那種程式碼 換台電
→ f94:腦就不行了 這也是VB的敗筆
推 waiwang:php+MySQL 科科