思科网络

    设计方法：        1.在UserControl中添加一个Label控件Label1，将它设为平面，用来做外框。添加两个PictureBox控件PictureBox1做为进度指示，PictureBox2控件做为控件背景。            2.加入以下代码        Option Explicit        定义私有变量用于存储属性值    Private mvarM

日期函数精解示例先看一个小例子 Dim d1 As Date, d2 As Date d1 = DateAdd("m", 1, Date) 下个月今天 d2 = CDate(Year(d1) & "-" & Month(d1)) 下一个月第一天 d3 = DateAdd("d", -1, d2) 本月最后一天 Print d1

【函数】     GetFileVersionInfo         【操作系统】     Win9X:Yes     WinNT:Yes         【声明】     GetFileVersionInfo   Lib   "version.dll"     Alias   "GetFileVersionInfoA"   (ByVal   lptstrFilename   As   Stri

　　 前几天大哥对我说，使用asp真麻烦，编译环境实在是差劲，他总是在vb里面写好调试好代码然后在把代码粘贴到asp程序中，为此，我在这提出一个解决之道。使用VB接替ASP所有的对象，在VB中编写纯粹的ASP程序。  　　大家应该都知道，其实asp中的好多组件都是使用VB编写出来的，但是让大家感到很不方便的是如何使用asp固有的几个组件，例如Response,Request,Applica

★　4个ICON图标搜索引擎a.SearchIcon：这个比较健全的一个搜索引擎，可以搜索到教为丰富的icon，本是国外的，如今有了中文版的！他的图片管理器功能非常不错，在里面可以找到各种文件类型的图标，这样就也可以为你的电脑更换更酷的图标吧！b.IconFinder：这个目前不支持中文，只能用英文搜索！在TAG Cloud（云标签）里找到热门的icon！c.Iconlet：这个也是不错的，但是只

  在工程中添加一个类模块，名为   Selection     然后加入以下代码：         Dim   colRows   As   Collection     Dim   ControlKey   As   Boolean     Public   WithEvents   flx   As   MSFlexGrid         Public   Sub   ToggleSele

　　SQLDMO（SQL Distributed Management Objects，SQL分布式管理对象）封装 Microsoft SQL Server 2000 数据库中的对象。SQL-DMO 允许用支持自动化或 COM 的语言编写应用程序，以管理 SQL Server 安装的所有部分。 SQL-DMO 是 SQL Server 2000 中的 SQL Server 企业管理器所使用的应用程

Private Sub MSHFlexGrid1_Click()If MSHFlexGrid1.Col = 0 Then MSHFlexGrid1.Text = Chr(124 - Asc(MSHFlexGrid1.Text))End SubPrivate Sub Form_Load() Dim i As LongWith MSHFlexGrid1.FixedCols = 0.Cols = 4

Private Sub HFlexgrid_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)    单击选择或不选择    With HFlexgrid        If .rows         If .Row .rows - 1 Then Exit Sub        If .TextMa

大部分的ADO的错误码对应的含义除了在 Error 对象和 Errors 集合中说明的提供者错误之外，ADO 本身也将错误返回到运行时环境的异常处理机制之中。使用编程语言的错误捕获机制（如 Microsoft& Visual Basic& 中的 On Error 语句）可捕获及处理下列错误。下表将同时显示十进制和十六进制错误代码值。 常量名称 编号 说明 adErrInvalidArgumen

      在软件开发中，常常需要为程序建立Sql Server数据库的运行环境。完成如在SQL Server数据库中建立设备，建立数据库，建立表格，分配权限等功能，如何方便的建立应用程序所需Sql Server环境的数据库环境，而不用启动SQL Enterprise Manager呢？ 下面来看：  　　启动VB6.0，新建一个工程,在菜单-工程-引用里选"Microsoft A

 　　在用VB编程中合理的使用第三方控件，往往能够事半功倍。但是使用第三方控件也有不好的地方，那就是为了保证程序正常运行，必须使程序能够在系统目录或程序目录下找到所用的第三方控件。要做到这一点通常有两种办法：一是把控件和程序制成一个压缩包发行，这样的缺点是有可能导致在程序传播过程中丢失控件文件。二是制作安装程序，缺点是制作过程烦琐。而且上面两种办法也不符合绿色软件的要求。所谓的绿色软件是指软件只有

   在VB中编程中，经常需要判断一个文件是否存在，以便执行相应的操作，这可用下列语句进行判断        Dir([pathname],[Attributes as VbFileAttribute=vbNormal]) As String    解释： pathname:文件的绝对路径；     Attributes：文件的属性。     “[]”内为可选项。dir(file)=""表示文件不

 《开发高手》  （发表于《CSDN开发高手》2003年9月号）作者 Mahesh Chand翻译 韩磊 Visual Basic .NET是Microsoft Visual Studio .NET套件中主要组成部分之一。.NET版本的Visual Basic增加了更多特性，而且演化为完全面向对象（就像C++）的编程语言。本文将介绍VB.NET的新特性，并比较V

VB备份ACCESS数据库的方法，代码这个代码其实也适用于其它类型文件的复制，要修改一下其中的语句哦~Private Sub bak_Click()Dim TargetFileName As String 目标文件名On Error Resume NextWith cdlog1 .DialogTitle = "数据备份" .InitDir =

字段名可以在ACCESS的窗口化操作界面或SQL语句来进行修改,但在ADO环境下,则不能修改,下面是变通的办法:         DB.Execute "alter table [表] add [cz_temp] text(50)" 新建临时中转字段cz_temp        DB.Execute "update [表] Set cz_temp=[A]" 把A字段数据复制到临时中转字

在VB中,MSHFEXGRID不支持文本框,为了解决这个问题,一般的方法就是通过一个文本框的显示和隐藏,并获得表格单元的坐标,来实现向MSHFLEXGRID中录入数据的,具体方法我记得在本博中有,就不说了,自己搜一下 今天要说的是在MSFLEXGRID中动态添加多个控件的问题: 先看一个动态添加的例子:Option ExplicitPrivate WithEvents

MSHFLEXGRID也可以用的哦~Public Const STR_SORT_ASC = "△"Public Const STR_SORT_DESC = "▽"//排序函数Public Sub Sort(sgrd As MSHFlexGrid, y As Single) With sgrd If y >= .RowPos(0) And y < .RowPos(1)

VB调用系统的"打印机设置"和"页面设置". Option Explicit Const FW_NORMAL = 400 Const DEFAULT_CHARSET = 1 Const OUT_DEFAULT_PRECIS = 0 Const CLIP_DEFAULT_PRECIS = 0 Const DEFAULT_QUALITY = 0 Const D

打开文本文件是不少程序必须处理的问题。如何更有效地打开文本文件应该是一个值得研究的课题。为此，笔者将自己搜集到的几种方法无私地奉献出来(-_-)，供各位参考。 下面所举的例子均假设F盘下有一个名为d.txt的文本文件，若需要尝试这些例子请作相应的改动。 方法一: 用定长的String变量获取文本内容。由于定长String变量支持的下界为65400,所以在打开超过32K字节的文件时超出部分的字节将无

为了一个gb2312下post中文参数到utf-8页面的程序，随闷的难受，查了一下午资料，大部分是讲Gb2312传到Gb2312页面的UrlEncode，没有提供到Utf-8页面的UrlEncode，后来找到Unicode转Utf-8码的资料，参考之下，终于写出了Utf-8的UrlEncode，这里整理下各种UrlEncode方法，供有需要的朋友参考。详细Utf-8编码规则请百度一下。Un

1. 直接将查询数据填入MSHFLEXGRIDSub QueryFromSybasebyCon(Condition)With QEvent ‘ QEvent为Form名称   Con.Open strConnRemote        rs.CursorLocation = adUseClient        rs.CursorType = adOpenKeyset   

Const ASC As Long = 1 Const DESC As Long = -1 Private SortType As Long Private Sub Command1_Click() SortType = ASC Debug.Print Now MSHFlexGrid1.Sort = 9 Debug.Print Now End Sub P

一、减少加载窗体数目每一个加载的窗体，无论可视与否，都要占据一定数量的内存（其数量随窗体上控件的类型和数量，以及窗体上位图的大小等的不同而变化）。只在需要显示时才加载窗体，不再需要时，卸载窗体（而不是隐藏窗体）。记住，任何对窗体的属性、方法或控件的引用，或对用 New 声明的窗体变量的引用，都会导致 Visual Basic 加载该窗体。当使用 Unload 方法卸载窗体时，只能释放部分窗

Dim aa As StringDim strLocalIP As StringDim winIP As Objectaa = aa & "本机电脑名称:" & Environ("computername") & vbCrLfaa = aa & "本机用户名称:" & Environ("username") & vbCrLfSet winIP = CreateObject("M

Function TodoTaskBySOAP(postURL As String,host As String, n As Integer,FilterItem() As String,OwnerSSICID() As String ,AppID() As String ,ToDoID() As String,Title() As String,Url() As String ,ExpireDa

由于工作需要，需要vb提交xml数据到服务器上，所以，需要找到一个好的方法。　　之前有代码使用了MSXML2.XMLHTTP对象进行xml数据取得，而且链接是https形式的，于是就参照代码提交,写了下面这么一个函数，来进行操作 1 Private Function CallAPI(url1 As String, filePath As String) 2 'load f

普通的讲解WINSOCK控件等网络控件的用法的资料中，无论是使用TCP还是UDP，客户端程序连接服务端程序时，无一例外的要指定IP地址(或机器名)和端口号，那么，在端口已知而服务端程序所在机器地址或名称未知的情况下，怎样实现客户端程序自动取得服务端IP并建立连接呢，笔者在实际编程中遇到了这种情况，并使用以下方法解决了这个问题。这种方法就是服务器端添加两个Winsock控件，一个作为服务端，一个

Option Explicit'Form1上添加1个图片框picture1Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC A

Option ExplicitDim Rs As New ADODB.Recordset'比如给第3列增加内容3Private Sub Command1_Click()   Dim i As Integer   Rs.MoveFirst   For i = 0 To 3       ' Rs.AddNew '加四条记录,即为 DataGrid 添加四

'程序所需控件：Winsock控件，CommandButton控件（默认name），TextBox控件（一个名称为txtMess，另一个名称为txtSend）'程序代码如下：Private Sub Form_Load()Dim my As StringWinsock1.Protocol = sckUDPProtocol '设置为UDP协义Winsock1.LocalPort

Const ASC As Long = 1 Const DESC As Long = -1 Private SortType As Long Private Sub Command1_Click() SortType = ASC Debug.Print Now MSHFlexGrid1.Sort = 9 Debug.Print Now End Sub P

Private Sub Form_Load() 'ListView1.SmallIcons = ImageList1.Object '把ImageList1图标列表控件绑定到 ListView1列表控件中来。 ListView1.ListItems.Clear '清空列表 ListView1.ColumnHeaders.Clear

VB+MODEM 实现来电显示功能

VB6.0和VB.Net的对照表VB6.0VB.NETAddItem Object名.AddItemObject名.Items.AddListBox1.Items.AddComboBox1.Items.AddAbs 函数System.Math.Abs 方法API 函数关系Microsoft Win32和Microsoft .NET Framework API的对应App.Path等<br />1. System.Reflection.Assembly.GetExecutingAssembly.Locatio

<br />'●用Function当成子程序的一个好处，就是Function本身可以传回一个值到上一层呼叫的子程序里，但问题来了，若为了工作上的需要，想一次传回一个以上的值，那该怎么办？<br />Private Sub Command1_Click()<br />MyReturn 5, 6<br />End Sub<br />Private Function MyReturn(X, Y) As Long<br />A = X + Y<br />B = X - Y<br />C = X * Y<br />D

<br />Private Sub mnuDBBackUp_Click() '------------------备份数据库Dim cnbak As New ADODB.ConnectionIf cnbak.State <> 0 Then cnbak.Closecnbak.Open "provider=sqloledb;server=" & strSQLServer & ";user id=" & strSQLUser & ";password=" & strSQLPWDim backupS

<br />Public Function HtmlStr$(URL$)     '提取网页源码函数<br />  Dim XmlHttp<br />  Set XmlHttp = CreateObject("Microsoft.XMLHTTP")<br />  XmlHttp.Open "GET", URL, False<br />  XmlHttp.Send<br />  If XmlHttp.ReadyState = 4 Then HtmlStr = StrConv(XmlHttp.Responseb

<br />VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。<br /><br />一、 VB读写EXCEL表：<br /><br />　　VB本身提自动化功能可以读写EXCEL表，其方法如下：<br /><br />　　1、在工程中引用Micro

'得到当前browser的页面文字内容Public Function getWebContent(browser As WebBrowser) As String Dim doc As Object Dim i As Object Dim strHtml As String Set doc = browser.Document Fo