ByVal

全硬盘高速查找指定文件

Private Declare Function SearchTreeForFile Lib "ImageHlp.dll" (ByVal lpRoot As String, ByVal
cjc·2007-04-10 11:00

全硬盘高速查找指定文件

Private Declare Function SearchTreeForFile Lib "ImageHlp.dll" (ByVal lpRoot As String, ByVal
eimhee·2007-04-10 11:00

按行获取文本文件的内容

Sub getlines(byval filename as string,byref lines() as string) If Len(Dir(filename)) = 0 Then Exit Sub
cjc·2007-04-08 14:00

按行获取文本文件的内容

Sub getlines(byval filename as string,byref lines() as string) If Len(Dir(filename)) = 0 Then Exit Sub
eimhee·2007-04-08 14:00

按行获取文本文件的内容

Sub getlines(byval filename as string,byref lines() as string) If Len(Dir(filename)) = 0 Then Exit Sub
ihuashao·2007-04-08 14:00

vsgflexgrid控件属性（2）

答案:Private Sub fg_BeforeEdit(ByVal Row As
xiaolei1982·2007-03-06 15:00

VB.NET Winform显示保存在数据库中的图片

Private Sub DataGrid1_DoubleClick()Sub DataGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs
kension·2007-03-06 13:00

VB.NET Winform 中保存图片到数据库中

Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs
kension·2007-03-06 13:00

用VB实现QQ一样的菜单(半透明窗口)

Option Explicit'''窗口半透明声明开始Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal
pzhan·2007-02-16 22:00

用vb实现ftp的上传下载

 Option ExplicitPublic Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _(ByVal 
pzhan·2007-02-16 14:00

DATAGRID導出時要加上EXCEL標識符.不然導出EXCEL會有問題.

Protected Sub DataGridList_ItemDataBound(ByVal sender As System.Object, ByVal e As DataGridItemEventArgs
·2007-02-07 14:00

在mapControl控件上添加feature要素

过程描述 Private Sub MapControl1_OnMouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long,
izuoyan·2007-02-06 16:00

.Net中使用带返回值的存储过程(VB代码)

    Function GetYFJEDX(ByVal yfje As Decimal) As String     &
·2007-02-04 17:00

获取光盘序列号

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal
ihuashao·2007-02-01 11:00

获取光盘序列号

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal
eimhee·2007-02-01 11:00

获取光盘序列号

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal
cjc·2007-02-01 11:00

标记法定义和创建数据库(四)

\SQLExpress;Integrated Security=True")    Private Sub Button2_Click(ByVal sender As System.Obj
水如烟(LzmTW)·2007-01-30 16:00

如何用VB建立快捷方式

Private Declare Function fCreateShellLink()Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName
pzhan·2007-01-28 12:00

例子代码：添加项目到收藏夹

   Declare   Function   SHGetPathFromIDList   Lib   "shell32.dll"   Alias   "SHGetPathFromIDListA"   (ByVal
pzhan·2007-01-28 12:00

获取系统临时目录

Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal
Acylas·2007-01-19 08:00

小数的循环节

  如得出的结果小数部分存在循环，就用括号括起来 ，如1/3=0.（3）；22/5=4.4 ；1/7=（142857） Function xunhuan(ByVal N As Long, ByVal
cjc·2007-01-17 01:00

小数的循环节

  如得出的结果小数部分存在循环，就用括号括起来 ，如1/3=0.（3）；22/5=4.4 ；1/7=（142857） Function xunhuan(ByVal N As Long, ByVal
eimhee·2007-01-17 01:00

小数的循环节

如得出的结果小数部分存在循环，就用括号括起来 ，如1/3=0.（3）；22/5=4.4 ；1/7=（142857） Function xunhuan(ByVal N As Long, ByVal D
ihuashao·2007-01-17 01:00

VB的线程注入核心代码(ZT)

EXPLORER.EXE线程内存保留地址的核心代码.终于突破了`555555Option ExplicitPublic Declare Function OpenProcess Lib "kernel32" (ByVal
酒水不犯茶水·2006-12-29 15:00

vb.net中获取圆角矩形的两种方法

  '方法一    Private Function GetRoundedRectPath()Function GetRoundedRectPath(ByVal rect As Rectangle, ByVal
wzuomin·2006-12-13 11:00

VB中adodc与Adodb版本冲突（显示为“过程声明与同名事件或过程的描述不匹配”）

Private   Sub   Adodc1_MoveComplete(ByVal   adReason   As   ADODB.EventReasonEnum,   ByVal   pError   
chsword·2006-12-05 17:00

.net中的md5函数

     Public Function md5(ByVal str As String, ByVal code As Integer) As String        '---------传说中的MD5
chsword·2006-12-05 15:00

Asp.net2.0 页面缓存技术[转]

stata=的内容分别缓存 下面的方法可以根据内容刷新    Shared Function GetCurrentDate(ByVal context As HttpContext) As String
·2006-11-22 13:00

缩略图不变形

Public Shared Sub MakeSmallImg(ByVal postFile As System.Web.HttpPostedFile, ByVal saveImg As String,
·2006-11-21 10:00

有些时候，独裁是被迫的……

删了又发，我真不懂这个家伙是什么心理里，于是给留言本加了两个功能， 一者屏蔽一些关键词，源码如下： Function CheckBadWords(byVal theString) Dim WordFilterEntry
owlman·2006-11-12 08:00

树和自联表(六)

我的如图：结果是：代码：Public Class FormTree    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e
水如烟(LzmTW)·2006-11-11 20:00

带有消息机制的线程 - CustomMessageQueue

Form1Class Form1    Private myMsgQueue As CustomMessageQueue    Private Sub Button1_Click()Sub Button1_Click(ByVal
wuyazhe·2006-11-09 10:00

.Net读取数据库中的图片并显示

再调用Image.FromStream就OK了,具体代码如下:            Public Shared Function Object2Image()Function Object2Image(ByVal
Red_angelX·2006-11-07 16:00

Compress DataSet with .net 2.0

2     '''  3     '''  4     '''  5     '''  6     '''  7     Public Shared Function CompressDataSet(ByVal
MasterCai·2006-11-01 11:00

Great Common Divisor & Least Common Multiple（最大公约数和最小公倍数）

Function ZDGYS(ByVal m As Long, ByVal n As Long) As Long 'Great Common DivisorZDGYS = mWhile n > 0m
ihuashao·2006-10-19 23:00

在VB.NET中如何使在Webbrowser中实现标签页中打开新链接

PublicClassForm1ClassForm1PrivateSubNewWindow3()SubNewWindow3(ByRefppDispAsObject,ByRefCancelAsBoolean,_ByVal
lovnet·2006-10-02 10:00

asp中Byval与Byref的区别

文件名称:ByVal.aspByRef.asp具体代码:运行结果:56结论:注意:子程序TestBy(ByValT)中T变量声明方式是ByVal运行结果子程序没有影响到A的值注意:子程序TestBy(ByRefT
·2006-10-01 00:00

VB6求两个字符串最长公共子串的问题

Function LCS(ByVal A As String, ByVal B As String) As StringIf Len(A) * Len(B) = 0 Then LCS = "&
ihuashao·2006-09-28 23:00

VB6求两个字符串最长公共子串的问题

Function LCS(ByVal A As String, ByVal B As String) As StringIf Len(A) * Len(B) = 0 Then LCS = "&
eimhee·2006-09-28 23:00

VB6求两个字符串最长公共子串的问题

Function LCS(ByVal A As String, ByVal B As String) As StringIf Len(A) * Len(B) = 0 Then LCS = "&
cjc·2006-09-28 23:00

EXCEL VBA]EXCEL中用递归实现任意n(3≤n≤256)阶幻方

下面代码将实现任意n(3≤n≤256)阶幻方，显示在EXCEL的 A1:IV256中 Sub magicsquare(ByVal n As Long, ByRef matrix())Dim i As
cjc·2006-09-28 22:00

EXCEL VBA]EXCEL中用递归实现任意n(3≤n≤256)阶幻方

下面代码将实现任意n(3≤n≤256)阶幻方，显示在EXCEL的 A1:IV256中 Sub magicsquare(ByVal n As Long, ByRef matrix())Dim i As
ihuashao·2006-09-28 22:00

EXCEL VBA]EXCEL中用递归实现任意n(3≤n≤256)阶幻方

下面代码将实现任意n(3≤n≤256)阶幻方，显示在EXCEL的 A1:IV256中 Sub magicsquare(ByVal n As Long, ByRef matrix())Dim i As
eimhee·2006-09-28 22:00

小TIPS：杀掉指定名称的进程

要杀某个指定名称的进程，用到GetProcesses方法以及kill方法，这点用在杀掉比如VBA编程中的象WORD，EXCEL等进程里是很有效果的 Sub ProcessKill(ByVal ProcessName
jackyrong·2006-09-20 10:00

小TIPS：杀掉指定名称的进程

要杀某个指定名称的进程，用到GetProcesses方法以及kill方法，这点用在杀掉比如VBA编程中的象WORD，EXCEL等进程里是很有效果的 Sub ProcessKill(ByVal ProcessName
jackyrong·2006-09-20 10:00

小TIPS：杀掉指定名称的进程

要杀某个指定名称的进程，用到GetProcesses方法以及kill方法，这点用在杀掉比如VBA编程中的象WORD，EXCEL等进程里是很有效果的 Sub ProcessKill(ByVal ProcessName
jackyrong·2006-09-20 10:00

小TIPS：杀掉指定名称的进程

要杀某个指定名称的进程，用到GetProcesses方法以及kill方法，这点用在杀掉比如VBA编程中的象WORD，EXCEL等进程里是很有效果的 Sub ProcessKill(ByVal ProcessName
jackyrong·2006-09-20 10:00

小TIPS：杀掉指定名称的进程

要杀某个指定名称的进程，用到GetProcesses方法以及kill方法，这点用在杀掉比如VBA编程中的象WORD，EXCEL等进程里是很有效果的 Sub ProcessKill(ByVal ProcessName
jackyrong·2006-09-20 10:00

小TIPS：杀掉指定名称的进程

要杀某个指定名称的进程，用到GetProcesses方法以及kill方法，这点用在杀掉比如VBA编程中的象WORD，EXCEL等进程里是很有效果的 Sub ProcessKill(ByVal ProcessName
jackyrong·2006-09-20 10:00

小tips:善用页面的base类

过期后，要强制引导用户重新返回登陆页面登陆的话,这个时候设计上可以善用页面里继承base类的方法,比如编写一个base类pagabase.vb  Private Sub Page_Init(ByVal
jackyrong·2006-09-14 10:00
上一页 12 13 14 15 16 17 18 19 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他