洪虎专栏

在使用MSHFlexGrid显示数据时，如果先将一个空的Recorde对象绑定到MSHFlexGrid。然后再重新绑定一个有记录的Recorde对象，那么就会出现鼠标无法定位的问题。解决办法是不要让MSHFlexGrid绑定空的Recorde对象。即在绑定前测试Recorde对象是否为空，不为空才能绑定。                                         

有时我们需要让自己的程序判断系统目录和Windows目录的名字。这时可以调用WindowsAPI函数GetSystemDirectory和GetWindowsDirectory。声明： 获取系统目录Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _    (ByVal lp

使用ShellExW.dll中的ShellExecWait函数同步调用DOS命令  在很多项目中都需要调用外部命令，但是使用VFP的RUN命令、VB中的Shell命令或者调用Win32Api的WinExec函数这些方法都是异步执行，不但有些命令难于控制执行窗口的外观，而且使用后不知道执行的结果，往往要采用其他检测的手段才能保证程序正确的运行。现在我们可以使用ShellExW.dll中的ShellE

使用API函数修改注册表 为了让自己的程序成为自动启动需要修改注册表。下面事例可以供参考 Option Explicit Const REG_SZ = 1Global Const HKEY_LOCAL_MACHINE = &H80000002 Public Declare Function RegOpenKey Lib "advapi32" Alias "RegOpenKeyA" _    (By

Option ExplicitPublic Const MAX_PATH = 260                            是由MFC定义的不要更改Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0Public Const INTERNET_OPEN_TYPE_DIRECT = 1Public Const INTERNET_OPEN_TY

VB+VFP联合应用各类语言都有其长处和缺憾，如何取长补短呢？希望这篇文章能起到抛砖引玉的效果。 目标：必须在VFP环境对CSV格式文件中所有的字符“/”替换成“-” 分析：如果在VFP中读入CSV格式文件然后再找字符“/”再替换成“-”，势必比较困难，速度也会很慢。因为不知道字符“/”将出现在那个字段。也不清楚字符“/”出现的位置。而这类问题的处理如果用VB就很简单。可以在VB中正行读入，然后使

用MSHFlexGrid显示小数时，它会显示小数点后很多位。而平时我们只需要精确到小数点后两位即可。下面就用SQL语句来解决这个问题。    Dim sql As String        sql = "select format(折扣,##0.00) as 折扣 from Table1"    rst.CursorLocation = adUseClient    rst.Open s

使用MSHFlexGrid的FormatString属性可以做到一次设置行标题和列标题    Dim sTitle As String        sTitle = ""    sTitle = sTitle + ";|Robert|Jimmy|Bonzo|John Paul"    MSHFlexGrid.FormatString = sTitle 

设置MSHFlexGrid每行的颜色Public Sub SetRowColor(ByRef MSHFlexGrid As Object)    Dim j, i, objName    objName = TypeName(MSHFlexGrid)    If StrConv(Trim(objName), vbUpperCase)         Exit Sub    End If   

很多时候可以利用Excel的数据透视表导出你想要的报表格式。那么在.Net下如何做呢？下面的代码可以从数据库中取出数据然后导入Excel。        Dim excel As Excel.Application        Dim xBk As Excel._Workbook        Dim xSt As Excel._Worksheet        Dim xRange As Ex