yeuego
- 浏览: 167822 次
- 性别:
- 来自: 广州
-
最新评论
-
xiangyufangai：
很好很强大膜拜中哈哈！！
VB 两个字符串处理函数(类似Left/Mid/Right/Split的结合) -
hellohank：
这个……叫摘要算法，不叫加密算法~
Java实现的加密工具类（支持MD5和SHA） -
NIUCH1029291561：
接口有问题奥
网银在线支付接口和应用 -
yeuego：
能幫你就行了
MySQL索引分析 -
ForgiDaved：
很给力的介绍。记得前段时间给一个系统加功能，设计的表没有 ...
MySQL索引分析
文章列表
'VB也可以使用CallBack，下面是一个例子： '先把下面的代码放入BAS模块： Option Explicit 'common to both methods Public Type BROWSEINFO hOwner As Long pidlRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type Public Declare Function SHBrowseForFolder Lib _ ...
'窗体代码Private Sub Form_Load()HookMouse Me.hwndEnd SubPrivate Sub Form_Unload(Cancel As Integer)UnHookMouse Me.hwndEnd Sub
'模块代码'***********************************************************'mMouseWheel'鼠标滚轮的事件检测'***********************************************************Option ExplicitPriv ...
【方法一】
StrComp(string1, String2, [Compare])'函数功能：比较字符串string1和string2。'返回说明：返回整数值：当string1string2时，返回值>0。这种比较是按照字符的字典序进行比较。
【方法二】
Declare Function lstrcmp Lib "kernel32" Alias "lstrcmpA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long'或者用API的lstrcmp也能很 ...
'#############################'**'** 文件 frmDownLoad.frm 的内容'**'#############################VERSION 5.00Begin VB.Form frmDownLoad BorderStyle = 1 'Fixed SingleCaption = "Form1"ClientHeight = 2880ClientLeft = 45ClientTop = 330ClientWidth = 6375BeginProperty Font Name = "宋体"Size ...
VB提供了API函数SetWindowLong和GetWindowLong，可以让我们很容易取得对窗口的操作；通过对窗口属性的操作，可以更改窗口的显示风格。有些看来是正常情况下无法实现的窗口，现在你可以很容易的实现。只要你想到，更多希奇古怪的你也能做到。快试试下面的例子吧。
'以下例子中可能用到的API声明和常量、变量声明Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Lon ...
'任务栏高度[此部分相关代码转载自 枕善居]Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As LongPrivate Const SPI_GETWORKAREA = 48Private Type RECTLeft As LongTop ...
例子1：Dim aa(10) As StringDim bbDim i As IntegerFor i = 0 To 9aa(i) = "aa" + Str(i)Nextbb = Filter(aa, "aa")Label1.Caption = bb(0)Label2.Caption = bb(1)Label3.Caption = bb(2)'这时Label1显示aa 0,Label2显示aa 1,Label3显示aa 2。bb我也不知设为什么类型，所以就没设定。例子2：Dim b() As StringDim a(10) As StringDim i A ...
重点为：向系统注册“TaskbarCreated”消息
Public Function Wndproc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongIf Msg = lngMsgBarRester Then '重建托盘图标FrmMain.cTray.InTray = FalseFrmMain.cTray.InTray = TrueEnd If'交还控制权给系统继续监测热键Wndproc = CallWindowProc(preWinProc, hwnd, ...
Shell 调用程序后等待该程序结束后返回继续
- 博客分类：
- vb
方法1：
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Function ShellExecuteEx Lib "shell32.dll" ...
'最简单的WAV声音或音乐文件播放的代码'API声明Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long'常量Const SND_SYNC = &H0Const SND_ASYNC = &H1Const SND_NODEFAULT = &H2Const SND_LOOP = &H8Const SND ...
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As LongPublic Declare Function mciGetDeviceID Lib "winmm.dll" Alias ...
Written By Microsoft MVP: Eric DeBrosseIn this article, I will explain how to save a screen shot from a Visual Basic 6 Direct3D8 application. This could be difficult to figure out on your own, since the VB SDK documentation does not mention the SaveSurfaceToFile method of the D3DX8 class. One thing t ...
Option Explicit Public 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) Public Const MOUSEEVENTF_ABSOLUTE = &H8000 ' absolute move Public Const MOUSEEVENTF_LEFTDOWN = &H2 ' left but ...
MAPI 控件多收件人/多附件
- 博客分类：
- vb
多收件人
frmMain.mapMess.ComposefrmMain.mapMess.AddressResolveUI = FalsefrmMain.mapMess.MsgSubject = "This is a subject."frmMain.mapMess.MsgNoteText = "This is a body."frmMain.mapMess.RecipIndex = 0frmMain.mapMess.RecipType = 1frmMain.mapMess.RecipAddress = "me@here.com" ...
Option Explicit Sub SendMail(Optional ByVal sSubject As String, Optional ByVal sBody As String, Optional ByVal sFileName As String) Dim Jmail Set Jmail = CreateObject( "jmail.Message ") If sFileName < > " " Then Jmail.AddAttachment sFileName '附件 Jmail.Charset = "gb23 ...