ehung的专栏

Public Function GetPY(a1 As String) As StringDim t1 As StringIf Asc(a1) t1 = Left(a1, 1)If Asc(t1) GetPY = "0"Exit FunctionEnd IfIf Asc(t1) > = Asc("啊") And Asc(t1) GetPY = "A"Exit FunctionEnd IfIf As

先从Ａpi说起：ＳetＷindowsＥx：安装一个钩子　　声明：Private Declare Function SetWindowsHookEx Lib "user32.dll" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As

从VB将数据导出到EXCEL,网上可能有很多这样的代码,但是前提都要安装EXCEL,今天我分享给大家的就是没有安装EXCEL的一样也可以导出.Rem 作者:谢炎锦  创建时间:2002-12-20   Mail:XieYanJin@163.ComRem 内容如下:Rem 引用方式: Export(Ado.Recordset) 或 Export(Rds.RecordSet)Rem 支持 Rds 与

 在VB处理数据显示的时候,使用表格是一种好的方法,虽然DataGrid可以与数据源绑定,但是总有美中不足,就是外观不好看,所以有时应用MsFlexGrid显示数据还是一种比较好的方法,以下几个函数是用来控制MsFlexGrid的程序(本人语言表达能力有限,还请见谅) MsFlexGrid操作函数合并列Public Function MergeCol(GridObj As Object, By

 在VB处理数据显示的时候,使用表格是一种好的方法,虽然DataGrid可以与数据源绑定,但是总有美中不足,就是外观不好看,所以有时应用MsFlexGrid显示数据还是一种比较好的方法,以下几个函数是用来控制MsFlexGrid的程序(本人语言表达能力有限,还请见谅) MsFlexGrid操作函数合并列Public Function MergeCol(GridObj As Object, By

MIS系统在月末由于业务的需要总要汇总当月业务情况，并且导出报盘，我把我的程序中的这一部分功能单拿出来，做成一个小的程序，仅供参考。一般是在ACCESS或是SQLSERVER中查寻，或是汇总，然后生成一个‘记录集’可以显示在GRID里，也可以将这个记录集导出到磁盘中。下面可以导出Xls,DBF,DB,MDB(表）,这些功能是由ISAM数据库接口实现，为了导出各种版本的文件，我在MS网站下载了最新的

自己编程模拟 MouseEnter,MouseExit 事件　很多第三方的控件都提供的 MouseEnter 和 MouseExit 事件来补充 MouseMove 事件的不足（MouseMove 事件不能有效的捕获鼠标是否已在控件外），但是这些控件或要注册，或集合了其他实际没有什么作用控件，另外在程序中加入太多的控件也会影响程序的性能，利用 Windows 的 API 函数，我们可以在 Mous

Option Explicit if True, also fonts are resizedPublic ResizeFont As Boolean if True, forms height/width ratio is preservedPublic KeepRatio As BooleanPrivate Type TcontrolInfoctrl As ControlLeft As

 Public Function IsValidEmail(strEmail As String) As Boolean  Dim names, name, i, c  IsValidEmail = True     names = Split(strEmail, "@")  If UBound(names)     IsValidEmail = False    Exit Function  E

 下面是一个关于VB的农历算法日期数据定义方法如下前12个字节代表1-12月为大月或是小月，1为大月30天，0为小月29天，第13位为闰月的情况，1为大月30天，0为小月29天，第14位为闰月的月份，如果不是闰月为0，否则给出月份，10、11、12分别用A、B、C来表示，即使用16进制。最后4位为当年家农历新年-即农历1月1日所在公历的日期，如0131代表1月31日。GetYLDa

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

Dim title As String    If App.PrevInstance Then        title = App.title        App.title = ""        Me.Caption = ""        AppActivate title        MsgBox "程序已经运行!"        Unload Me        End    En

Private Sub Command1_Click()Dim i As IntegerDim c As StringFor i = 1 To Len(Trim(Text1.Text))    c = Mid(Text1.Text, i, 1)    If Asc(c) 0 Then        MsgBox "单字节"    Else        MsgBox "汉字"    End If

VB简单易用，但功能有时候受限制。VC、Delphi都可以直接在程序中写汇编代码，可恼的是，VB不行。我在网上也看过许多有关于VB嵌入汇编的方法，不过有些方法，过于复杂，而且也没相应的介绍。我这里提供一种方法，也许大家以后可能有用！    基本思路：汇编代码，可以存在一个byte类型的数组中，然后通过某种手段，把系统控制权，转交给这段汇编代码，我们的汇编代码段，就得到了执行。但如何让这段汇编代