|
| 开启文件属性窗口 2003-07-21 |
声明： Type SHELLEXECUTEINFO cbSize As Long fMask As Long hwnd As Long lpVerb As String lpFile As String lpParameters As String lpDirectory As String nShow As Long hInstApp As Long lpIDList As Long lpClass As String hkeyClass As Long dwHotKey As Long...[全部内容] |
|
| 用VB实现“百叶窗”的图形特效 2003-07-21 |
在Powerpoint这样的软件中，各种各样的图形特效层出不穷，其中“百叶窗”的切 换效果尤为新颖奇特。在VB中实现这样的图形特效十分简单方便。其方法是调用 WINDOWS的API函数Bitblt。BitBlt函数就类似于C语言中的getimage、putimage两 个函数的组合运用。BitBlt原意是“Bi...[全部内容] |
|
| 像ACDSee一样用鼠标拖曳大于窗体的图片 2003-07-21 |
本站之前也提供了一个类似的程序，但是那个程序限制当图片比窗体小时，必须将图片置于窗体左上角，否则程序执行会有问题。以下提供的程序去除了这个限制，同时当图片比窗体小时会将图片置于窗体中央，这样看起来比较美观。 Option Explicit Private gX As Long, gY As L...[全部内容] |
|
| 用VB绘制正弦动画曲线 2003-07-21 |
VB提供了绘图的基本方法，如Pset、Line、Circle,能够绘出点、直线、圆等基本图形，但没有提供绘曲线的方法。其实，我们可以灵活运用基本绘图方法，来绘出所需要的曲线，甚至达到动画的效果。 一、VB坐标系介绍 VB里有三种坐标系，屏幕坐标系、窗体坐标系和窗...[全部内容] |
|
| 闪烁的标题栏 2003-07-21 |
本例通过调用API函数 FlashWindow 实现了窗体标题栏的闪烁，标题栏的闪烁通常用来引起使用者的注意。 在VB中声明这个API函数的方法是：： Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Lon...[全部内容] |
|
| 何将整个画面暗下来，如同关机前一般 2003-07-21 |
Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long ...[全部内容] |
|
| 开启文件属性窗口 2003-07-21 |
声明： Type SHELLEXECUTEINFO cbSize As Long fMask As Long hwnd As Long lpVerb As String lpFile As String lpParameters As String lpDirectory As String nShow As Long hInstApp As Long lpIDList As Long lpClass As String hkeyClass As Long dwHotKey As Long...[全部内容] |
|
| ListBox中的字符串超长显示的解决方法 2003-07-10 |
使用ToolTip来解决超长文字的显示问题是不错的方案，下面给出了例子的代码。Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate ...[全部内容] |
|
| ListBox中的字符串超长显示的解决方法 2003-07-10 |
使用ToolTip来解决超长文字的显示问题是不错的方案，下面给出了例子的代码。Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate ...[全部内容] |
|
| 如何实现在TextBox中如何得知光标所在位置 2003-07-02 |
'在form中放一个textBox两个label Const EM_GETSEL = &HB0 Const EM_LINEFROMCHAR = &HC9 Const EM_LINEINDEX = &HBB Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ lP...[全部内容] |
