ByVal

VBA实现任意n阶幻方的一种填法(n≥3)

参考http://blog.csdn.net/northwolves/archive/2007/09/23/1796696.aspx的思路,拟代码如下: Sub magicsquare(ByVal n
cjc·2007-09-23 21:00

VBA实现任意n阶幻方的一种填法(n≥3)

参考http://blog.csdn.net/northwolves/archive/2007/09/23/1796696.aspx的思路,拟代码如下: Sub magicsquare(ByVal n
eimhee·2007-09-23 21:00

VBA实现任意n阶幻方的一种填法(n≥3)

参考http://blog.csdn.net/northwolves/archive/2007/09/23/1796696.aspx的思路,拟代码如下: Sub magicsquare(ByVal n
ihuashao·2007-09-23 21:00

在VBA中获取“我的文档”的目录路径

读取注册表: Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal
cjc·2007-09-23 14:00

在VBA中获取“我的文档”的目录路径

读取注册表: Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal
eimhee·2007-09-23 14:00

在VBA中获取“我的文档”的目录路径

读取注册表: Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal
ihuashao·2007-09-23 14:00

应用API函数在用户窗体中画圆

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function
ihuashao·2007-09-23 14:00

应用API函数在用户窗体中画圆

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function
cjc·2007-09-23 14:00

应用API函数在用户窗体中画圆

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function
eimhee·2007-09-23 14:00

几种渐变方法对比（含多种颜色水平渐变、中心至四周渐变等）

System.Drawing.Drawing2DPublic Class form1Class form1    Private Sub Button1_Click()Sub Button1_Click(ByVal
wzuomin·2007-09-12 14:00

一元三次方程求解

Sub SolveCubicEquations(ByVal CubicEquation As String, Optional ByVal x As String = "x", Optional
ihuashao·2007-09-11 23:00

一元三次方程求解

Sub SolveCubicEquations(ByVal CubicEquation As String, Optional ByVal x As String = "x", Optional
cjc·2007-09-11 23:00

一元三次方程求解

Sub SolveCubicEquations(ByVal CubicEquation As String, Optional ByVal x As String = "x", Optional
eimhee·2007-09-11 23:00

[转] ACCESS 97 类似 replace 及 split 函數

Function replace(ByVal sstr As String, ByVal stag As String, ByVal srep As String) As String    Dim l1
temptation·2007-09-07 06:00

回溯实现数组元素的排列组合

northwolves/archive/2007/08/29/1764177.aspx中的代码,将字符串数组x取n个元素进行排列组合: Sub getall(ByRef x() As String, ByVal
ihuashao·2007-08-29 17:00

回溯实现数组元素的排列组合

northwolves/archive/2007/08/29/1764177.aspx中的代码,将字符串数组x取n个元素进行排列组合: Sub getall(ByRef x() As String, ByVal
eimhee·2007-08-29 17:00

回溯实现数组元素的排列组合

northwolves/archive/2007/08/29/1764177.aspx中的代码,将字符串数组x取n个元素进行排列组合: Sub getall(ByRef x() As String, ByVal
cjc·2007-08-29 17:00

回溯实现数字的排列组合

从1--m中选n个数字的排列组合的简单实现,速度还可以: Sub getall(ByVal m As Byte, ByVal n As Byte, Optional types As Byte = 0
cjc·2007-08-29 17:00

回溯实现数字的排列组合

从1--m中选n个数字的排列组合的简单实现,速度还可以: Sub getall(ByVal m As Byte, ByVal n As Byte, Optional types As Byte = 0
ihuashao·2007-08-29 17:00

回溯实现数字的排列组合

从1--m中选n个数字的排列组合的简单实现,速度还可以: Sub getall(ByVal m As Byte, ByVal n As Byte, Optional types As Byte = 0
eimhee·2007-08-29 17:00

程序中读取ServerStyle文件

程序中读取ServerStyle文件  Public Sub ReadMarkerSymbolStyle()Sub ReadMarkerSymbolStyle(ByVal serverStyleFile
mydriverc·2007-08-28 14:00

获取鼠标点击DataGridView行各单元格值

获取鼠标点击DataGridView行各单元格值 Private Sub DataGridView1_MouseDown(ByVal sender As System.Object, ByVal e
isiqi·2007-08-26 15:00

类似于vs.net工具箱的菜单

每个Button的dock均设置为top3、在panel1中添加ListBox1，设置Dock为fill4、在代码部分添加以下部分Private Sub btnClick()Sub btnClick(ByVal
wzuomin·2007-08-24 15:00

VB.NET Connect Oracle

configure the TNSNAME.ora Connect oracle database case by OracleConnection: Private Sub BtnOracle_Click(ByVal
aaron_ch·2007-08-16 22:00

VB中一些API的使用

Public Declare Sub Sleep()Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Public Declare Function
Last_Impression·2007-08-14 16:00

vb Winsock控件

客户端程序可以不做改动，而服务器端程序需要略做改动： Private   sub   sckserver_connectrequest(Index   as   Integer,Byval
jackhuang·2007-08-08 19:00

实现TableLayoutPanel控件的行列拆分的Sub过程

拆分后的单元格数,只支持行列数相等的拆分    ''' Author:朱二    Private Sub DrawCell()Sub DrawCell(ByRef tlp As TableLayoutPanel, ByVal
netcoder·2007-07-27 12:00

快速移动图像

 APIModule API    Declare Function CreateCompatibleDC()Function CreateCompatibleDC Lib "gdi32.dll" (ByVal
wzuomin·2007-07-17 16:00

VB+MFTPX.OCX访问ftp服务器的小例子

Private Declare Function ShellExecute()Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal
precipitant·2007-07-17 09:00

asp 模版生成页面类

模板类的实现 　　给出具体代码之前，先把主要函数列出，用过PHPLIB的朋友应该对此很熟悉了：　　1）Public Sub set_root(ByVal Value)　设定模板默认目录　　2）Public
wapysun·2007-07-10 18:00

vb.net的下拉框联动无刷新

Protected dtc As DataTable Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs
wangdetian168·2007-07-04 11:00

小写人民币转换成大写人民币

    Public Function ConvertToRMB()Function ConvertToRMB(ByVal inputString As String) As String        
·2007-06-19 14:00

vb.net后台http下载无提示覆盖文件

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txf2004·2007-06-09 10:00

在vb.net中实现窗体上回车键代替TAB键

在vb.net中实现窗体上回车键代替TAB键，用如下方法： 首先设置窗体的 KeyPreview 属性为true 然后加入以下代码： Private Sub FrmLogin_KeyPress(ByVal
txf2004·2007-06-05 14:00

VB.NET窗口渐淡关闭

Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles
txf2004·2007-06-05 13:00

VB.NET实现关机和重新启动

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Integer, ByVal dwReserved
txf2004·2007-06-05 12:00

VB.NET里的MD5加密函数

Imports System.Security.Cryptography Public Function Md5hash_String(ByVal InputString As String) As
txf2004·2007-06-05 11:00

指针与指针的引用

分别用关键字ByVal和关键字ByRef指出。如果参数是以引用传递的话，函数或过程内部就可以靠这个引用参数来改变外部变量的值。
pleasetojava·2007-05-28 14:00

asp将身份证从15位升级为18位的函数

Function GetNewIDCard(ByVal IDCard As String) As String Dim i, S As Integer Dim Wi() As String =
txf2004·2007-05-28 11:00

比较简短的拼音首字母自定义函数

Function pinyin(ByVal r As Range) As StringConst hanzi = "啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖昔压匝ABCDEFGHJKLMNOPQRSTWXYZZ
cjc·2007-05-24 22:00

比较简短的拼音首字母自定义函数

Function pinyin(ByVal r As Range) As StringConst hanzi = "啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖昔压匝ABCDEFGHJKLMNOPQRSTWXYZZ
ihuashao·2007-05-24 22:00

比较简短的拼音首字母自定义函数

Function pinyin(ByVal r As Range) As StringConst hanzi = "啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖昔压匝ABCDEFGHJKLMNOPQRSTWXYZZ
eimhee·2007-05-24 22:00

DropDownList触发

Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs
txf2004·2007-05-22 09:00

网页起始处理

<script language="vb" runat="server"> Sub page_load(ByVal sender As Object,
txf2004·2007-05-22 09:00

给一个生成随机码的函数

Public Function MakeRndPass(ByVal passlen,ByVal passtype) dim passFull,passNumber,passSpecial,passCharNumber
chengxuetao·2007-04-22 08:00

.NET 窗体应用中的多线程误区~~

设想是实现Form1能像如下方法进行调用：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs
fangxinggood·2007-04-12 18:00

dir()递归 遍历子目录

()递归即可： Private Sub Command1_Click() Listfiles "d:\JAVA", List1 End Sub Sub Listfiles(ByVal
eimhee·2007-04-10 11:00

dir()递归 遍历子目录

()递归即可： Private Sub Command1_Click() Listfiles "d:\JAVA", List1 End Sub Sub Listfiles(ByVal
ihuashao·2007-04-10 11:00

dir()递归 遍历子目录

()递归即可： Private Sub Command1_Click() Listfiles "d:\JAVA", List1 End Sub Sub Listfiles(ByVal
cjc·2007-04-10 11:00

全硬盘高速查找指定文件

Private Declare Function SearchTreeForFile Lib "ImageHlp.dll" (ByVal lpRoot As String, ByVal
ihuashao·2007-04-10 11:00
上一页 11 12 13 14 15 16 17 18 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他