Byval

[导入]ASP常用函数:SortArray2()

id=446Function SortArray2(ByVal aSortArray(), ByVal iSortColumn, ByVal
·2015-11-10 22:37

[导入]ASP常用函数:TrimLR()

id=443Public Function TrimLR(ByVal sString, ByVal sStr, ByVal sLeftOrRight)    Dim
·2015-11-10 22:36

[置顶] 【VB.NET2010】注册表写入方法

nbsp; Imports Microsoft.Win32 Imports System.Reflection.Assembly   Private Sub SetAuto_Click(ByVal
·2015-11-10 22:31

VB.NET中判断一个数组中是否有重值

 Private Function IsDup(ByVal s() As String) As Boolean        
·2015-11-10 22:49

[2015-11-8 20:00]-{vb.net}可编辑的锁定textbox

示例如下：主要是用keyress参数（无聊时弄的小玩意）直接上源码：Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs
Mine268·2015-11-09 20:00

Asp.net 获取网页源代码

测试环境：VS2008+VB.net 1 Public Shared Function GetWebContent(ByVal sURL As String) As String 2
·2015-11-09 13:39

[VB.NET,C#.NET] - TabControl的Alignment为Left或Right显示TabPage.Text问题

来源：http://topic.csdn.net/t/20050526/17/4038042.html VB.NET Private Sub TabControl1_DrawItem( ByVal
·2015-11-09 13:13

算法的强大——快速计算一个正二进制整数中包含多少个1

以下是这个思路的VB2008代码，不失一般性，将正整数的范围控制在（1~231-1） 　　Private Function GetCount1OfValue(ByVal Value As Integer
·2015-11-09 13:50

vb将窗体中的控件或某种颜色透明

*** Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal
·2015-11-09 13:44

ASP 计算出指定年份生肖

Function Zodiac(ByVal s) If s > 0 Then Dim ZodiacList ZodiacList = Array("猴", "
·2015-11-09 13:54

Request sercued web pages (VB.NET)

nbsp;  Public   Function DownloadFileSecureURL() Function DownloadFileSecureURL(ByVal
·2015-11-09 12:32

vb 垂直滚动条定位

Sub TreeFill3(cTime As String, ByVal cKey As String)       Tree3.Nodes.Clear
·2015-11-08 16:31

excel2013选中框颜色怎么改

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone Target.Interior.ColorIndex
singoe·2015-11-08 16:48

excel2013选中框颜色怎么改

Private Sub Worksheet_SelectionChange(ByVal Target As Range)Cells.Interior.ColorIndex = xlNoneTarget.Interior.ColorIndex
singoe·2015-11-08 16:48

excel2013选中框颜色怎么改

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone Target.Interior.ColorIndex
singoe·2015-11-08 16:48

excel2013选中框颜色怎么改

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone Target.Interior.ColorIndex
singoe·2015-11-08 16:33

excel2013选中框颜色怎么改

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone Target.Interior.ColorIndex
singoe·2015-11-08 16:33

拖动窗体任意位置来移动窗体

nbsp;Point     Private Sub Form1_MouseDown()Sub Form1_MouseDown(ByVal
·2015-11-08 16:39

WebService压缩传输数据 For .NET

nbsp;  Serialize Public Shared Function Serialize()Function Serialize(ByVal
·2015-11-08 16:38

用VB.NET绘制GDI图形

　　下面的例子通过重载Form1窗体的OnPaint()方法绘制GDI图形 Protected Overrides Sub onpaint(ByVal e As System.Windows.Forms.PaintEventArgs
·2015-11-08 16:19

Dir

;    Public   Shared   Function GetDirFile() Function GetDirFile(ByVal
·2015-11-08 16:17

DBFactory

Private   Sub TextBox1_KeyDown() Sub TextBox1_KeyDown(ByVal sender As System.Object
·2015-11-08 16:57

根据条件动态改变GridView某行或某个单元格的背景色---vb.net

;'这是个gridview自带的方法（RowDataBound）     Protected Sub GvStockScheduleList_RowDataBound(ByVal
·2015-11-08 16:44

最近做帐票，要操作xls文件且还要向其里面添加图片。

nbsp;Imports Microsoft.Office.Interop.Excel Imports Microsoft.Office.Core Protected Sub Page_Load(ByVal
·2015-11-08 16:43

Screen print or copy

1.Print screen View Code Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object
·2015-11-08 14:05

查询工具

Region "自定义工具"     '得到所有的odbc名称    Public Function GetODBCDns(ByVal
·2015-11-08 14:18

[导入]ASP常用函数:CheckBoxScript()

id=465Function CheckBoxScript(ByVal FormElement , ByVal ElementValue)    CheckBoxScript
·2015-11-08 14:27

[导入]ASP常用函数:CheckBoxScript()

id=465Function CheckBoxScript(ByVal FormElement , ByVal ElementValue)    CheckBoxScript
·2015-11-08 14:26

VB.Net遍历已安装的程序卸载信息

1 Private Shared Function ProgramExists(ByVal pgName As String) As Boolean 2 Dim temp As String
·2015-11-08 14:26

判断远程图片是否存在的ASP技巧

函数： Function CheckURL(byval A_strUrl) set XMLHTTP = Server.CreateObject("Microsoft.XMLHTTP"
·2015-11-08 13:04

Excle自动增长序号

按“ALT+F11”键进入代码编辑 复制以下代码到编辑窗口内： Private Sub Worksheet_Change(ByVal Target As Range) '工作表变化事件引发下列程序 Application.EnableEvents
·2015-11-08 13:09

hanzi 全拼音 qu de

Function pinyin(ByVal mystr As String, Optional types As Byte = 0) As StringDim temp   As String
·2015-11-08 13:56

百米倒计时小例子

下面是TimerTask类模块中代码： Option Explicit Public Event UpdateTime(ByVal dblJump As Double) Public Event ChangeText
·2015-11-08 13:34

xml操作类

fFileName ,fOpen   Dim XmlDom     '返回节点的缩进字串   Private Property Get TabStr (byVal
·2015-11-08 13:55

防QQ的伸缩菜单。抄袭本园同志的。对不起啊。我仅是记录一下。

Public Class Form2    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As
·2015-11-07 15:07

vba

Function SumString(ByVal str1 As String)    Dim totalsum As Integer   
·2015-11-07 14:11

[导入]ASP常用函数:Del()

id=401Public Function Del(ByVal sFileName)    On Error Resume Next
·2015-11-07 12:07

[导入]ASP常用函数:InArray2()

id=395Function InArray2(ByVal sValue, ByVal aArray(), ByVal iCo
·2015-11-07 12:06

[导入]ASP常用函数:PCase()

id=481Private Function PCase(byVal sString)    Dim Tmp, Word, Tmp1, Tmp2, firstCt
·2015-11-07 12:05

[导入]ASP常用函数:PCase()

id=481Private Function PCase(byVal sString)    Dim Tmp, Word, Tmp1, Tmp2, firstCt
·2015-11-07 12:04

ASP 格式化显示时间为几个月,几天前,几小时前,几分钟前,或几秒前

实现函数代码 Function DateStringFromNow(Byval sTheDate) ' 格式化显示时间为几个月,几天前,几小时前
·2015-11-07 10:06

统计某个单词出现次数

'引用Microsoft VBScript Regular Expressions 1.0'统计单词出现次数 Private Function TongJi(ByVal T_txt As String
·2015-11-05 08:37

vbs中对excel的常用操作

Function DataToExcel(byval filepath,byval filename) Dim objExcel,exlSheet,exlBook,fso,exApp,rows
·2015-11-05 08:46

DevExpress.XtraGrid.view.gridview 属性说明

archive/2012/06/08/ShiL201206081335.html （一）双击展开，收缩字表 ExpandedChild 1 Private Sub ExpandedChild(ByVal
·2015-11-03 20:13

VB.NET使文本框只能输入数字

然后对文本框的KeyPress事件添加以下代码 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As
·2015-11-02 19:47

con.close与con=nothing的区别

今日做系统的时候遇到了这个问题： 首先，先执行了下面的代码   Sub AddQuitRecord(ByVal
·2015-11-02 19:45

[导入]自定义随机化类.net

Private _strin As String Private _strout As String Private _rnd As Random Public Sub New(ByVal
·2015-11-02 19:34

HTML to BB code Converter

social.msdn.microsoft.com/Forums/is/vbgeneral/thread/cb2da3c5-b938-4e74-9df9-c5996f481f60 Public Function ConvertHTML2BB(ByVal
·2015-11-02 18:11

DNN文章模块使用datagrid分页心得

原来将Private Sub dg_PageIndexChnaged(ByVal sour
·2015-11-02 18:21

VB.NET 操作Json 包括嵌套的

System.IO Partial Class _Default Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal
·2015-11-02 17:51
上一页 1 2 3 4 5 6 7 8 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他