vb常用代码-.pdf
《vb常用代码-.pdf》由会员分享,可在线阅读,更多相关《vb常用代码-.pdf(14页珍藏版)》请在淘文阁 - 分享文档赚钱的网站上搜索。
1、-1-移动无标题栏的窗体(borderstyle=none)dim mouseX as integer dim mouseY as integer dim moveX as integer dim moveY as integer dim down as boolean form_mousedown:mousedown 事件down=true mouseX=x mouseY=y form_mouseup:mouseup 事件down=false form_mousemove if down=true then moveX=me.left-mouseX+X moveY=me.top-mouseY
2、+Y me.move moveX,moveY end if*闪烁控件比如要闪烁一个label(标签)添加一个时钟控件间隔请根据实际需要设置 enabled属性设为 true 代码为:label1.visible=not label1.visible*禁止使用 Alt+F4 关闭窗口Private Declare Function DeleteMenu Lib user32(ByVal hMenu As Long,ByVal nPosition As Long,ByVal wFlags As Long)As Long Private Declare Function GetMenuItemCou
3、nt Lib user32(ByVal hMenu As Long)As Long Private Const MF_BYPOSITION=&H400&Private Sub Form_Load()Dim hwndMenu As Long Dim c As Long hwndMenu=GetSystemMenu(Me.hwnd,0)c=GetMenuItemCount(hwndMenu)DeleteMenu hwndMenu,c-1,MF_BYPOSITION c=GetMenuItemCount(hwndMenu)DeleteMenu hwndMenu,c-1,MF_BYPOSITION E
4、nd Sub*启动控制面板大全打开控制面板Call Shell(rundll32.exe shell32.dll,Control_RunDLL,9)辅助选项属性-键盘Call Shell(rundll32.exe shell32.dll,Control_RunDLL access.cpl,1,9)辅助选项属性-声音Call Shell(rundll32.exe shell32.dll,Control_RunDLL access.cpl,2,9)辅助选项属性-显示Call Shell(rundll32.exe shell32.dll,Control_RunDLL access.cpl,3,9)辅
5、助选项属性-鼠标Call Shell(rundll32.exe shell32.dll,Control_RunDLL access.cpl,4,9)辅助选项属性-常规Call Shell(rundll32.exe shell32.dll,Control_RunDLL access.cpl,5,9)添加/删除程序 属性-安装/卸载Call Shell(rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,1,9)添加/删除程序 属性-Windows 安装程序Call Shell(rundll32.exe shell32.dll,Control_Ru
6、nDLL Appwiz.cpl,2,9)添加/删除程序 属性-启动盘Call Shell(rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,3,9)显示 属性-背景Call Shell(rundll32.exe shell32.dll,Control_RunDLL desk.cpl,0,9)显示 属性-屏幕保护程序Call Shell(rundll32.exe shell32.dll,Control_RunDLL desk.cpl,1,9)显示 属性-外观Call Shell(rundll32.exe shell32.dll,Control_
7、RunDLL desk.cpl,2,9)显示 属性-设置Call Shell(rundll32.exe shell32.dll,Control_RunDLL desk.cpl,3,9)Internet 属性-常规Call Shell(rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,0,9)VB 常用代码-2-Internet 属性-安全Call Shell(rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,1,9)Internet 属性-内容Call Shell(rundll32.ex
8、e shell32.dll,Control_RunDLL Inetcpl.cpl,2,9)Internet 属性-连接Call Shell(rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,3,9)*怎样关闭一个程序你可以使用API 函数 FindWindow 和 PostMessage来寻找一个窗口并且关闭它。下面的范例演示如何关闭一个标题为 Calculator 的窗口。Dim winHwnd As Long Dim RetVal As Long winHwnd=FindWindow(vbNullString,Calculator)De
9、bug.Print winHwnd If winHwnd 0 Then RetVal=PostMessage(winHwnd,WM_CLOSE,0&,0&)If RetVal=0 Then MsgBox Error posting message.End If Else MsgBox The Calculator is not open.End If For this code to work,you must have declared the API functions in a module in your project.You must put the following in th
10、e declarations section of the module.Declare Function FindWindow Lib user32 Alias _ FindWindowA(ByVal lpClassName As String,_ ByVal lpWindowName As String)As Long Declare Function PostMessage Lib user32 Alias _ PostMessageA(ByVal hwnd As Long,ByVal wMsg As Long,_ ByVal wParam As Long,lParam As Any)A
11、s Long Public Const WM_CLOSE=&H10 *如何使 Form 的背景图随Form 大小改变单纯显示图形用Image 即可,而且用 Image 也正好可解决你的问题设定 Image 的 Stretch=true 在加入以下的code Private Sub Form_Resize()Image1.Move 0,0,ScaleWidth,ScaleHeight End Sub 或者使用以下的方式来做也可以Private Sub Form_Paint()Me.PaintPicture Me.Picture,0,0,ScaleWidth,ScaleHeight End Sub
12、*软件的注册可用注册表简单地保存已用的天数或次数次数限制(如次)如下:Private Sub Form_Load()Dim RemainDay As Long RemainDay=GetSetting(MyApp,set,times,0)If RemainDay=30 Then MsgBox 试用次数已满,请注册 Unload Me End If MsgBox 现在剩下:&30-RemainDay&试用次数,好好珍惜!RemainDay=RemainDay+1 SaveSetting MyApp,set,times,RemainDay End Sub 时间限制的(如天)Private Sub
13、Form_Load()Dim RemainDay As Long RemainDay=GetSetting(MyApp,set,day,0)If RemainDay=30 Then MsgBox 试用期已过,请注册 Unload Me End If MsgBox 现在剩下:&30-RemainDay&试用天数,好好珍惜!if day(now)-remainday0 then RemainDay=RemainDay+1 SaveSetting MyApp,set,times,RemainDay End Sub *MMControl控件全屏播放-3-Option Explicit Private
14、Declare Function mciSendString Lib winmm.dll _ Alias mciSendStringA(ByVal lpstrCommand As _ String,ByVal lpstrReturnString As Any,ByVal _ uReturnLength As Long,ByVal hwndCallback As _ Long)As Long Private Declare Function mciSendCommand Lib winmm.dll _ Alias mciSendCommandA(ByVal wDeviceID As Long,_
15、 ByVal uMessage As Long,ByVal dwParam1 As Long,_ dwParam2 As MCI_OVLY_RECT_PARMS)As Long Private Declare Function GetShortPathName Lib kernel32 _ Alias GetShortPathNameA(ByVal lpszLongPath As _ String,ByVal lpszShortPath As String,ByVal _ cchBuffer As Long)As Long Private Type RECT Left As Long Top
16、As Long Right As Long Bottom As Long End Type Private Type MCI_OVLY_RECT_PARMS dwCallback As Long rc As RECT End Type Const MCI_OVLY_WHERE_SOURCE=&H20000 Const MCI_OVLY_WHERE_DESTINATION=&H40000 Const MCI_WHERE=&H843 Dim Play As Boolean Private Sub Form_Load()MMControl1.Wait=True MMControl1.UpdateIn
17、terval=50 MMControl1.hWndDisplay=Picture1.hWnd Picture1.ScaleMode=3 Timer1.Interval=50 End Sub Private Sub Form_Unload(Cancel As Integer)MMControl1.Command=stop MMControl1.Command=close End Sub Private Sub Command1_Click()MMControl1.Command=stop MMControl1.Command=close Play=False CommonDialog1.Filt
18、er=(VB-Dateien(*.avi)|*.avi;)CommonDialog1.InitDir=App.Path CommonDialog1.ShowOpen If CommonDialog1.filename Then MMControl1.DeviceType=avivideo MMControl1.filename=CommonDialog1.filename MMControl1.Command=open MMControl1.Notify=True Label4.Caption=MMControl1.Length If Check2.Value=vbChecked And Op
19、tion2 Then Call AdaptPicture End If If Option3.Value Then Call Option3_Click Me.Caption=CommonDialog1.filename End If End Sub Private Sub Command2_Click()If Not Option3.Value Then If Play=False And MMControl1.filename Then MMControl1.Command=play Play=True End If Else Call Option3_Click End If End S
20、ub-4-Private Sub Command3_Click()Play=False MMControl1.Command=stop End Sub Private Sub Command4_Click()MMControl1.Command=pause End Sub Private Sub MMControl1_Done(NotifyCode As Integer)If Play And Check1.Value=vbChecked Then Play=False MMControl1.Command=stop MMControl1.Command=prev MMControl1.Com
21、mand=play Play=True End If End Sub Private Sub MMControl1_StatusUpdate()Label2.Caption=MMControl1.Position End Sub Private Sub Option1_Click()Check1.Enabled=True Check2.Enabled=False MMControl1.hWndDisplay=0 End Sub Private Sub Option2_Click()Check1.Enabled=True Check2.Enabled=True MMControl1.hWndDi
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 常用 代码
限制150内