作者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