欲将 TextBox 内的文字向右靠，除了将 Alignment 属性设为「1-靠右对 」之外，亦 将 MultiLine 属性设为 True。 但是若您希望只有单行，不要多行，则必须判断 User 是否按了 Enter Key，那只好在 TextBox 的 KeyPress 中加入以下程序码，以去...
VB二级考试资料
'调用方法Text2 = ChMoney(Val(Text1)) ' 名称： CCh ' 得到一位数字 N1 的汉字大写 ' 0 返回 "" Private Function CCh(N1) As String Select Case N1 Case 0 CCh = "零" Case 1 CCh =...
' * * * * * * * * * * 警告 * * * * * * * * * * * * * ' 对以下代码进行修改将有可能导致不可预料的后果,甚至能使您的VB崩溃! ' 在VB IDE环境中运行本程序之前请先保存您的修改 ' 不要使用断点调试模式,这将导致VB崩溃! ' * * * * *...
WAV 文件基本信息包括如是否立体声，采样频率等。 声明： Public Const RIFF_ID = 1179011410 Public Const RIFF_WAVE = 1163280727 Public Const RIFF_FMT = 544501094 'Typical header ...
Visual Basic for Windowss3.0（简称VB）是目前开发WINDOWS应用软件的最有效工具之一，它综合运用了BAIC语言和新的可视化设计工具，不仅功能强大，而且简单易学。其次，VB具有事件驱动的编程机制，它充分利用WINDOWS图形环境的特点，能让开发人员快速地构造强大的应用程...
Private Declare Function GetDesktopWindow Lib "user32" () As LongPrivate Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongPrivate Decla...
在缺省情况下，应用程序中的第一个窗体被指定为启动窗体。应用程序开始运行时，此窗体就被显示出来(因而最先执行的代码是该窗体Form_Initialize事件中的代码)。如果想在应用程序启动时显示别的窗体，就得改变启动窗体，其方法如下： 1从“工程”菜单中，选劝工程属性”。 2选劝通用”。 3在“...
假设要将 Form2 放在 Form1 中，请在宣告区中宣告： Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long 在 Form2 中的 Form...
以下代码行假设你在文本框中显示错误行，这些代码稍加更改就可以适用其他范围。 首先，在窗体中建立一个“线”控件，并把它的索引号定为0。接着，添加如下的代码： Private Sub SetErrorState(ByVal ErrorState As Boolean, _ ByRef Contr...
以下是在VB中截获WIN2000下TCP/IP包的源代码，在VB6.0,win2000下测试通过，需要注意的地方是，1.必须和本地的一块网卡,2.每次获取数据后必须有一段延时。3.数据取到之后放在Buff的数组中。4.把以下的代码放在一个模块中就可以了。 '------------------...
第一次运行，或通过运行程序的方式来启动ICQ时，随着一声火车的长鸣，我们都能看到一朵背景为透空的大花，这就是ICQ独特的欢迎画面！通常，我们都是用一整个带图形及文字的窗体来做为欢迎画面的。我们要如何去做才能实现类ICQ的欢迎画面呢？这看起来像是件十分复杂的工作，其实，利用了强大的API函数，事情就会...
Visual Basic 提供了过时的FileCopy语句.问题是使用该函数时并不显示文件复制对话框,也就是说,当拷贝一个大文件时,用户看不到Windows的标准 文件复制对话框,无法从进度条上判断当前复制的进度.那么,如何做到这一点呢?请看下面: Public Type SHFILEOPSTRUC...
