vb文档中心

通过调用CreateDataSetfromXml取得XML数据
Imports System.Xml
Public Const FILE_CONFIG = "MZZ.xml"
Public Const PATH_CONFIG = "\XML\"
Dim dstXML As DataSet
Dim tblXML_DB As DataTable
Dim dtCod As New DataTable
Dim strSQL As String = ""

clsPublic.pstrAppPath = System.Windows.Forms.Application.StartupPath'启动程序路径
'启动程序上级目录（InStrRev是取得最后显示\的位置）
clsPublic.pstrAppPath = Mid(clsPublic.pstrAppPath, 1, InStrRev(clsPublic.pstrAppPath, "\", ) - 1)
'只能启动一个程序
If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
Exit Sub
End If
'读取XML数据（QDIS节点，作为一个table,所以是dstXML.Tables(0)）
dstXML = CreateDataSetfromXml(FILE_CONFIG)
tblXML_DB = dstXML.Tables(0)
clsDBBase.Uid = tblXML_DB.Rows(0).Item("UserId")
......

Option Explicit
Private rsMain As ADODB.Recordset
Private rsTerm As ADODB.Recordset
Private strSql As String
Private Sub cmdAbout_Click()
        frmAbout.Show
End Sub
Private Sub cmdAddObject_Click() '程序段
            If rsMain.RecordCount >= MaxRecNumber Then
                    MsgBox "疾病个数不能超过: " & Str(MaxRecNumber) & "个" & vbCrLf & "如果需要增加疾病数量,请与作者联系", vbInformation, "提示"
                    Exit Sub
            End If '判断
            If Trim(txtID.Text) = "" Then
            & ......

转自：http://www.52arm.com/Article_Show.asp?ArticleID=186

作者：weidian ---本站原创点击数：4721 发表时间：2008-5-7 编辑：sanzang

Winsock控件建立在TCP、UDP协议的基础上，完成与远程计算机的通信。即使对TCP/IP不太熟悉的用户，使用该控件也可以在十几分钟内创建一个简单的客户机/服务器程序。下面我们对Winsock控件的事件、方法、属性按其在程序中出现的顺序分别作详细的介绍，以便更好地理解程序源代码。
下面是Winsock控件的相关属性，方法和事件。(略去一些暂用不到的)
*属性
-------------------------------------------------------------------------
LocalHostName | 本地机器名
LocalIP | 本地机器IP地址
LocalPort | 本地机器通信程序的端口(0<端口<65536)
RemoteHost | 远程机器名
RemotePort | 远程机器的通信程序端口
state | 连接的当前状态(文后有详细说明)
Protocal | 使用TCP或UDP协议(这里我们选‘0-sckTCPProtocal’)
--------------------------------------------------------------------- ......

   这段时间在移植项目的过程中，起初我想判断一个字符串中是否存在某字符（串），直接的使用方法是用instr（start，string1，string2，VB compare），但经过分析在VB中可以只用一下方法来判断！
   1.常用的INStr方法
    Function InStr([Start], [String1], [String2], [Compare As VbCompareMethod = vbBinaryCompare])
VBA.Strings 的成员
返回在另一字符串中第一次出现某一字符串的位置

   判断string1中从start开始的位置第一次出现string2的位置

2.使用正则表达式
   在VB中需要引入Library VBScript_RegExp_55
   位置在C:\WINDOWS\System32\vbscript.dll\3
    Microsoft VBScript Regular Expressions 5.5
   当然，你可以直接在项目中引用，使用方法如下：
Dim ResultString As String
Dim myRegExp As RegExp
Dim resultCollection As MatchCollection
Const pattern As String = "^\s*Dim\s+([\w|,|\s]+)(?:\s+As\s+Recordset)"
Public Function executes(SubjectString As String, result As MatchCollection)
Set myRe ......

开始使用vb的时候喜欢用手画出那个控件的位置.然后一个一个的拖动,一点一点的移动.直到感觉满意了为止.如果是控件多了这个就很麻烦了
一不小心可能会将谋个控件拖到一边去
所以,我们在以后的作品中
尽量使用代码来定义控件位置,,要灵活的掌握坐标位置.,可以使用自定义坐标.使用像素来更好的来分区显示控件.

例如:
具体定义方法：
ScaleMode设成0
ScaleHeight窗口的宽度，这个值不会影响窗体的显示大小，只是表示你把窗体垂直方向上分成了多少份
ScaleWidth意义和ScaleHeight一样，是在水平方向上对窗体进行分割
ScaleTop表示窗体的顶部用你的自定义坐标单位来表示是多少
ScaleLeft和ScaleTop一样，用自定义坐标单位表标窗体的左边起点
注意：ScaleWidth和ScaleTop都是指窗体内部空间的位置，不包括标题和窗体边框
举例来讲：
如果窗体大小是（400，300），在没有设成自定义坐标时，默认ScaleMode是1（缇），这时窗体的左上角是（0，0），高度是300，宽度是400，这时的坐标（200，150）是窗体的中心点，（400，300）是窗体的右下角，现在我们改成自定义坐标，设置ScaleWidth=200，ScaleHeight=-200（负值表示从上往下坐标值是递减的）� ......

这一段大家编写程序很多时候都在使用API,它给我们带来了强大的功能.让我们非常惊喜.
但是我们在调试程序的时候有时候总会奔溃.这样很不方便.
其中有些是api惹的祸
使用api注意事项:
首先我说说我的观点.
1:Api是很多系统也在用.我们在设置参数时如果和系统的参数有冲突.就可能引起软件出错
2.api很多都是c语言编写的,c中整型数都是4个字节.这样vb中定义的变量就可能与api冲突.
还有:vb6.0在遇到整型数据时尽量使用Long变量。因为Long变量是32位CPU的本机数据类型，所以处理速度会很快，尤其是在循环体中。
------------------------------------------------------------
使用Integer进行计算在某些极端输入下Integer变量结果溢出，又因为使用了On error resume next 而导致出错未能在程序中运行中提示出错误，所以使用integer 不是一个好习惯

这里提供一个链接.关于使用api的注意事项
......

VB.NET2005读取XML数据

VB.NET2005读取XML数据

求注释VB程序，只要大概整句意思即可，急用！！！

用VB Winsock控件创建TCP/IP客户机/服务器程序

VB中字符串匹配的多种方式

Vb中窗体自定义坐标

VB 6.0使用api