急求VB小软件一个
急求一个vb程序软件,要求没有vb也能打开,内容是:你是不是猪,是就说...
VBS脚本，创建一个文本文件，复制粘贴如下代码，然后另存为1.vbs就行了on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是只猪，不说就一分钟关你机，不信，试试···"" ",0 ,true d等会说。
SetWindowLong hwnd, GWL_EXSTYLE, rtn SetLayeredWindowAttributes hwnd, vbBlue, 0, LWA_COLORKEY 'vbBule End Sub 加上这堆代码以后，随便在上面加几个生日快乐的image
VBS脚本，创建一个文本文件，复制粘贴如下代码，然后另存为1.vbs就行了on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是只猪，不说就一分钟关你机，不信，试试···"" ",0 ,true d等会说。
SetWindowLong hwnd, GWL_EXSTYLE, rtn SetLayeredWindowAttributes hwnd, vbBlue, 0, LWA_COLORKEY 'vbBule End Sub 加上这堆代码以后，随便在上面加几个生日快乐的image
Dim sFileName As String Dim Search Private Sub dateTimeMenu_Click()Text1.Text = Now End Sub Private Sub deleteMenu_Click()Text1.Text = Left(Text1.Text, Text1.SelStart) + Mid(Text1.Text, Text1.SelStart + Text1.SelLength + 1)End Sub Private Sub findMenu_Click()Search =还有呢？
Text1 = "" '载入时清空End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) '在按键弹起事件里写代码，If Len(Text1) = 3 Then '如果长度=3时，因为你输入的是单数，一个单数后一个+号再一个单数，就有3个数的长度了a = Val(Left(Text1, 1)) 'a是第一个等我继续说。
急求一个下VB程序设计软件网址? -
Visual Basic： . htm MSDN VB6精简版 . htm
学生宿舍管理系统开发环境：vb+sql 摘要：统是采用Visual Basic作为前台开发工具，SQL Server作为后台数据库平台的基于C/S的两层模式的管理系统。宿舍管理系统是目前各所高校后勤管理之中的重要部分，如何能科学有效的开展好宿舍管理部分的工作，是当前高校领导人和后勤管理人员关心的问题。因此，宿舍管理等会说。
急求VB最新版本下载,追+50分 -
3、全部vb6sp5ActiveX控件。>全部vb6sp5ActiveX控件。4、XP可视设计优化。>XP下在设计模式直接显示XP风格控件。5、完整卸载功能。>安装、卸载一条龙。6、EXE特别优化及压缩。>自动压缩EXE文件至最小。序列号： e5kr-jg48a-ab3a3 授权钥匙：h7z-zex 产品编号：CPE1360CPFS180.BCB_6 C++BUILDER 等会说。
VB6.0企业版，精简版是不可以的 VB6.0 企业版+MSDN
急求;VB程序设计,简单计算器,在线等 -
Case vbKeyBack: Command9_Click Case Asc("`"): Command8_Click Case Asc("="): Command6_Click Case 13: Command6_Click End Select KeyAscii = 0 End Sub 以下是图片： 已赞过已踩过< 你对这个回答的评价是？ 评论收起 I多多问题多多 2009-05-24 · TA获得超过370个赞 知道小有建树答主希望你能满意。
WindowsMediaPlayer1.URL = "c:\aaa.mp3"