1、加载系统字体 For i = 1 To Printer.FontCount Combo_Font.AddItem Printer.Fonts(i) Next Combo_Font.Text = "宋体"

Option Explicit '对话框句柄 Public hwndMsgBox As Long '自定义类型 Public Type CUSTOM_MSG_PARAMS hOwnerThread As Long hOwnerWindow As Long dwStyle As Long bUs

'******************************************************************************** ' 'Name.......... APIClass 'File.......... APIClass.cls 'Version....... 1.0.0 'Dependencies.. kernel32.DLL

Private Sub Form_Load ( ) Text1.Tag = 0 Text1_LostFocus End Sub Private Sub Text1_GotFocus ( ) Text1.Text = Text1.Tag Text1.SelStart = 0 Text

Private Function NMoneyToSMoney ( NMoney As Variant ) As String If IsNumeric ( NMoney ) = False Then NMoneyToSMoney = "不是数字类型" Exit Function End If

众所周知，微软公开的用来关闭、注销、重新启动计算机的API是ExitWindowsEx。在Windows95/98下，可直接用ExitWindowsEx，即可正确关闭、注销、重新启动计算机；因Windows2000及Windows2000以上的操作系统全都是WindowsNT系统，调用进程必须使用API函数AdjustTokenPrivileges函数获取SE_SHUTDOWN_NAME特权，才能

判断一个窗口是否是活动窗口：IsWindowEnabled函数, L2 d$ ~" W  w+ o( B: ^/ D( a Declare Function IsWindowEnabled Lib "user32" (ByVal hwnd As Long) As Long X = IsWindowEnabled(Form1.hwnd) '函数返回值若非0表示为活动窗口，返回0表示为失效窗口

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

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Lo

'增加一个TextBox(Text1)， 修改BorderStyle 为0-None， MultiLine 为 True。 Const EM_GETLINECOUNT = &HBA Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As L

Private Declare Function ReleaseCapture Lib "user32" () As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, l

'ComboBox主要是由ComboBox和一个Edit类组成的，关键在于要获得那个Edit的句柄并向其发消息，下面的代码是我在XP下调试通过的：获得资源管理器中的那个ComboBox中的内容（运行时先启动一个资源管理器) Option Explicit Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"

下面对VB的几乎所有语句进行简单的分类和介绍。 需要注意的是这里介绍的几乎都是语句，而不是函数，请大家注意VB语句和函数的区别。 一.数据类型、变量、常量类 Dim 模块级或过程级中声明变量 Global 模块级中声明全局变量， private 功能与Dim相同 Static 过程级中声明静态变量 Deftype 设置变量缺省类型 Let或= 赋

概述：这篇文章为计划将他们的应用程序更新到Visual Basic.NET的微软Visual Basic 开发用户提供一些关于XML的建议。主要包括Visual Basic 6和Visual Basic.NET对XML操作的不同之处，以及Visual Basic.NET关于这方面新增工具的应用。 概述：这篇文章为计划将他们的应用程序更新到Visual Basic.NET的微软Visual Ba

［摘要：］在实际开发中，许多人不喜欢使用TreeView，主要是由于默认的TreeView是“只读”的，不支持添加、删除、编辑、调整节点位置等操作。本文通过一个TVEdit工程说明如何解决这些问题。 　　TreeView是最灵活的Windows控件之一，它以分层的形式显示数据，允许用户随意扩展或折叠节点。鉴于实际生活中许多事物有着层次关系，如计算机里的文件夹、人事组织关系、地区从属关系等，T

控件数组有在设计时设置好的，也有在运行中创建的。控件数组一方面使得程序简洁、令代码易于维护，另一方面能使程序具有灵活性。可见，科学地利用控件数组可使编程工作的效率更高。本文是从笔者回答网友的问题中整理出来的，与原来的回答相比略有改动。希望这些"技巧"对大家有些帮助。如有不妥之处，敬请指教。 一、运行中设置数组控件的属性 设窗体上有若干个以 Command1 命名的命令按钮，现要求：点击

方案一 Dim i As Integer Dim ts As String Private Sub Form_Load() Me.Timer1.Enabled = True Me.Timer1.Interval = 500 Me.Label1.Caption = "系统正在加载，请稍等" ts = "系统正在加载，请稍等......" i = 10 End Sub Pr

Vb作为一种流行的可视化编程语言，其强大的界面设计功能为程序设计者省了不少时间。不过在面对大量相同控件的整齐排列时，虽可在设计时排列好，但难免在调试中不小心移动，或后来又增减一些。于是有人用语句在程序中调节，其艰辛是可想而知的(笔者深有体会),即使位置排好了，由于控件添加的先后问题，其索引属性(.TabIndex)往往一片混乱.能不能让控件的位置、索引属性的排序实现自动化呢？经过一番思索，笔者终于

控件数组有在设计时设置好的，也有在运行中创建的。控件数组一方面使得程序简洁、令代码易于维护，另一方面能使程序具有灵活性。可见，科学地利用控件数组可使编程工作的效率更高。本文是从笔者回答网友的问题中整理出来的，与原来的回答相比略有改动。希望这些"技巧"对大家有些帮助。如有不妥之处，敬请指教。 一、运行中设置数组控件的属性 设窗体上有若干个以 Command1 命名的命令按钮，现要求：点击

创建数据驱动窗体 所谓数据驱动窗体就是根据所请求的数据的不同生成相应的窗体。举例来讲，假设你现在有一个数据库，其中有些字段必须根据登录者的身份加以显示，授权级别高的用户可以浏览并修改这些字段的内容；授权级别一般的用户只能浏览这些字段中的数据；授权级别低的用户则不能浏览这些字段中的内 容。要做到这一点就得利用VB动态添加控件的功能。 动态创建控件 无论你想要创建何种类型的数据驱动窗

Private Sub Command1_Click() '把一个文件写入到数据库里 '工程流程: '指定Rfile对象的为adTypeBinary '打开 '加载文件 '查询记录 '新增记录 Dim Conn As New ADODB.Connection Dim Rs As New ADODB.Recor

Private Type LV_ITEM mask As Long iItem As Long iSubItem As Long state As Long stateMask As Long pszText As String cchTextMax As Long iImage As Long lParam As Long

'**************************************************************************** '模块名称：mListBoxComboBoxSearch.bas '发布日期：2009/03/06 '描 述：VB6在ListBox或Combox中搜索字符串项的模块(支持模糊与精确查找) '博 客：http://blog.csdn

VB6引用：Microsoft VBScript Regular Expressions 5.5 Public Function IsUrl(ByVal strTmp As String) As Boolean On Error GoTo Z Dim objIntPattern IsUrl = False Set objIntPattern = New RegE

其实并不是每个人都完全清楚的．．． 扩展名 描述 扩展名 描述 .bas 基本模块 .frm 窗体文件 .cls 类模块 .frx 二进制窗体文件 .res 资源文件 .vbp Visual Basic 工程

获取当前Office版本的函数 Private Sub Command1_Click() MsgBox GetInstalledOfficeVersion() End Sub '本函数运行不需要机器上安装过Office '经典的判断Office版本函数，原创！ '支持到Office 2003 Function GetInstalledOfficeVersion() As String

1．如何限制文本框只能输入数字键？    代码：    Private Sub Text1_KeyPress(KeyAscii As Integer)        If Not (IsNumeric(Chr(KeyAscii)) Or KeyAscii = 8) Then KeyAscii = 0    End Sub 2．如何控制文本框中只可以输入字符，禁止输入汉字？    Tex

Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long Private Declare Function Cre