林毅洋

'调用XP风格的入口函数，配合.manifest文件可产生更美观的程序Private Declare Sub InitCommonControls Lib "comctl32.dll" ()'声明WIN API，使窗体半透明Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwn

Private Sub txSN_KeyPress(KeyAscii As Integer)Const xStr As String = "0123456789"KeyAscii = IIf(InStr(xStr & Chr(8), Chr(KeyAscii)), KeyAscii, 0)End Sub

'延时Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub Form_Load()'延时1秒=1000毫秒sleep(1000)End Sub

'窗口移动APIPrivate Declare Function ReleaseCapture Lib "user32" () As LongPrivate Declare Function SendMessage Lib "user32" Alias _"SendMessageA" (ByVal hwnd As Long, ByVal _wMsg As Long, ByVal wPara

文字Option Compare TextPrivate Function Test(S1, S2, S3)MsgBox S1 & S2 & S3End FunctionPrivate Sub Form_Load()WebBrowser1.Navigate "e:\1.htm"End SubPrivate Sub WebBrowser1_TitleChange(ByVal

Private Sub Form_Load() Me.WebBrowser1.Navigate2 "about:blank" Do DoEvents Loop Until Me.WebBrowser1.ReadyState = READYSTATE_COMPLETE WebBrowser1.Document.write ""End Sub

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Const WS_EX_LAYERED = &H80000Private Con

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA"

VB 共享软件防破解设计技术初探（三）××××××××××××××××××××××××××××××××××××××××××××××其他文章快速链接：VB 共享软件防破解设计技术初探（一）http://bbs.pediy.com/showthread.php?t=72050VB 共享软件防破解设计技术初探（二）http://bbs.pediy.com/show

VB 共享软件防破解设计技术初探（二）××××××××××××××××××××××××××××××××××××××××××××××其他文章快速链接：VB 共享软件防破解设计技术初探（一）http://bbs.pediy.com/showthread.php?t=72050VB 共享软件防破解设计技术初探（三）http://bbs.pediy.com/show

VB 共享软件防破解设计技术初探（一）××××××××××××××××××××××××××××××××××××××××××××××其他文章快速链接：VB 共享软件防破解设计技术初探（二）http://bbs.pediy.com/showthread.php?t=72204VB 共享软件防破解设计技术初探（三）http://bbs.pediy.com/show

'改了一下，限定图像缩放到Picture1的大小'在PictureBox控件中显示GIF动画（图片）,凡有句柄hwnd的窗体控件均可以Option Explicit '调用运动图像播放类型库Quartz.dll,在c:\windows\system32目录下Private pMC As FilgraphManager '定义pMC为FilgraphManager对象Private pV

On Error GoTo 0 表示禁止当前过程中任何已启动的错误处理程序。        On Error Resume Next 说明当一个运行时错误发生时，控件转到紧接着发生错误的语句之后的语句，并在此继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。        On Error GoTo line 启动错误处理程序，且该例程从必要的 lin

'添加一个shape'添加一个PicturebBox，依它为容器添加一个shape，背景色设为蓝色'添加一个时钟控件Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate

首先创建一个Button空间。然后复制以下代码Option ExplicitRem 转移输入焦点的声明Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)