boys1999的专栏

、、、、、、、、、、、、、、、

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate Sub Command1_Click()'音

function getTimeStamp(){ var d,s; d=new Date(); s=d.getFullYear()+"-"; s=(Number(d.getMonth())+1)+"-"; s=d.getHours(); s=d.getMinutes(); s=d.getSeconds(); //alert(s); }

Private Sub Form_Resize() If Me.WindowState = 1 Then MsgBox "窗体最小化" End If If Me.WindowState = 2 Then MsgBox "窗体最大化" End If MsgBox Me.Width & "窗体大小变化事件"End Sub

//简体中文 //UTF-8

Response.Cookies("visiter")="aaa" '//设置cookieResponse.write request.Cookies("visiter")'//读取cookie

1.创建一个类，命名为：myfile ，复制下面代码进去 '判断文件是否存在Public Function isFileExis(path As String) As Boolean If Dir(path, vbDirectory) = "" Then '不存在 isFileExis = False Else '存

'/*'类作用：类似html标签，在标签内属性存取内容'约定：'1.：所有标签、属性必须用小写'2.：没有html标签嵌套，仅利用单个标签属性来存取内容'3.：每个标签名字必须都不相同'*/'//////////////////////////// 定义属性Private allContent As String, temp As String'//所有内容Public Fu

Public Sub AddItem(Item As String, Optional Index As String = "") If Len(Index) = 0 Then MsgBox Index Else MsgBox Index End IfEnd SubPrivate Sub Command1_Click() Call

添加一个类模块，命名为：clsClick以下为类代码：Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)Private Const

Private Sub Form_Load()    '//激活按键事件    Me.KeyPreview = TrueEnd SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)    If KeyCode = vbKeyD And Shift = 2 Then 'CTRL+D       

Option ExplicitDim cX As LongDim cY As LongPrivate Sub Form_DragDrop(Source As Control, X As Single, Y As Single) Source.Move X - cX, Y - cYEnd SubPrivate Sub Picture1_MouseDown(Button As Int

'//鼠标右键菜单的apiPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Sub Form_Load()

Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 2"这是 IE 清理文件的的说明 清除Internet临时文件 RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8 清除Cookies RunDll32.exe InetCpl.cpl,ClearMyTracks

Private Function IsCOMRegistered(lpCOM As String) As Boolean Dim PID As Variant Dim RegText As String Dim oText ' IsCOMRegistered = False PID = Shell("cmd.exe /c Reg Query HKCR

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)Private Const MOUSEEVENTF_ABSOLUTE = &H8000

'作用：winHttp的post或者get'参数：postURL，post或get网址'参数：postData，post内容'参数：Method，方法，为"POST"或"GET"'参数：setCookies，post或get带上的cookie'返回：post或get返回的内容Public Function winHttpGetResponse(postURL As String, po

'VB不用API在EXE运行时自由移动窗口上的控件代码：Dim moving As Boolean, X1 As Integer, Y1 As IntegerPrivate Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '鼠标在按钮上点击下去时执行(此时鼠标一直

'//去掉各种回车空格符Public Function replaceEnter(bStr As String) bStr = Replace(bStr, " ", "") bStr = Replace(bStr, vbTab, "") bStr = Replace(bStr, vbCrLf, "") bStr = Replace(bStr, Chr(1

'//去掉源代码中的“//”注释语句Public Function cliearAnnotation(strCode As String) As String Dim arr, a As Integer, strFront As String arr = Split(strCode, vbCrLf) For a = 0 To UBound(arr) If

'函数名字：getTextboxSelLength'函数作用：单击textBox，根据光标所在位置，选中光标前后处指定内容。'strText：textBox控件'numPosition：光标单击位置'strPrev：指定前面内容'strNext：指定后面内容Public Sub getTextboxSelLength(strText As TextBox, numPosition As

'//vb将unicode转成汉字，Public Function unicodeDecode(strCode As String) As String Dim Char As String, arr strCode = Replace(strCode, "U", "u") arr = Split(strCode, "\u") For i = 0 T

'参数：strTime:要转换的时间；intTimeZone：该时间对应的时区'返回值：strTime相对于1970年1月1日午夜0点经过的秒数'示例：ToUnixTime("2008-5-23 10:51:0", +8)，返回值为1211511060Function ToUnixTime(strTime, intTimeZone) If IsEmpty(strTime) Or No

请进行如下操作。打开“菜单编辑器”，按常规方法添加菜单。例如：－－－－－－－－－－－菜单 (名称为mnuPop)....菜单1 (名称为mnuPop1)....菜单2 (名称为mnuPop2)－－－－－－－－－－－把“标题”菜单的“可见”复选框去掉。添加如下代码：Private Sub Form_MouseDown(Button As Integer, Shift As I

转自：http://blog.youkuaiyun.com/sysdzw/article/details/6105567

///////////////////////////////////////////

Dim objControl As Control　　For Each objControl In Me.Controls　　If objControl.Container.Name = \"Frame1\" Then　　Debug.Print objControl.Name　　End IfNext

vb 如何定义一个未知大小一维数组？ 2012-12-09 10:33 酷依航 | 分类：VB | 浏览1941次我是这样定义 dim a(100) as string，但是经常性出现下标越界，又不想定义的范围太大，就想问下可不可以定义一个自适应的一维数组？删除问题举报违规检举侵权投诉|2012-12-09 10:51 提问者采纳可以的，先定义一个动态

Private Sub Form_Load()    Open App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & "E.htm" For Binary As #1        Put #1, , "Name:"    Close #1    WebBrowser1.Navigate App.Path & IIf(Right(A

Private Sub Command5_Click() WebBrowser1.Navigate App.Path & "\e.html"End SubPrivate Sub Command7_Click() '//////////////////////////////////////////////////////////////////////////////////

Private Sub Command1_Click() Dim ScriptControl As Object, Psw As Object, JscriptCode$ JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}" Set ScriptControl = CreateOb