易截截图软件、单文件、免安装、纯绿色、仅160KB

用VB写这样一个简单的程序!



就是这么简单的一个程序..


要求就是.

比如我写入 潘安 的话.

点是帅哥么? msgbox跳出来.当然

其它的比如我乱写一些东西的话.

点是帅哥么? msgbox跳出来.扯蛋吧你
/
请大虾可以指点我一下么?
                     
VB code:
Private Sub Command1_Click()
If Text1 = "潘安" Then
MsgBox "当然"
Else
MsgBox "扯蛋吧你"
End If

End Sub


VB code:
Private Sub Command2_Click()
If Text1 = "西施" Then
MsgBox "当然"
Else
MsgBox "扯蛋吧你"
End If

End Sub


结帖率:0.00%

so easy?

你要连接数据库或一个文件。然后比较。

VB code:
Private Sub Command1_Click()
If Text1 = "潘安" and Text1 = "刘德华" Then
MsgBox "当然"
Else
MsgBox "扯蛋吧你"
End If

End Sub


VB code



Code highlighting produced by Actipro CodeHighl


相关问答:

求教下VB如何给D3D游戏写屏 - VB / API

想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】,效果就像游戏平台中一样,我试过在一窗口中写入文字,然后一直让窗口强制最前,虽然能实现文字显示,但是文字会不断闪烁,而且有不确定BUG,通过论坛搜 ......

vb的成功之路 - 扩充话题 / 共享软件(走向海外)

在vb这编程里似乎有很多的东西是相联系的,为什么有些人对vb的编程摸不到头脑啊!并且有些事很容易的,但是却把它们的代码变成复杂,也去想一些不能实现的东西啊!




没分了,楼主多来点分!

来接点分

......

vb查询数据库问题

怎么优化查询的效率,比如我想从100万条记录中每次只查询100条记录的话,那么这条sql语句该怎么实现,注意:语言是VBScript的,
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html

涉及到算法,goog ......

vb 如何将十六进制UTF-8转换为汉字

据说java语言是这样的,那VB呢?

byte[] b(byte)0x62,(byte)0x11,(byte)0x72,(byte)0x31};
  try {
System.out.println(new String(b,"UTF-16"));
  } catch (UnsupportedEnco ......

vb.net 创建access数据表实现一数据库多个数据表?

请各位指点下:程序代码如下mingchen = "C:\文件路径\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号