共 14 篇文章 |
|
PostMessage函数的VB声明如下:Declare Function PostMessage Lib "user32" Alias"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParamAs Long, lParam As Any) As Long参数hwnd 是你要发送消息的目标程序上某个控件的句柄,参数wMsg 是消息的类型,表示你要发送什么样的消息,最后wParam 和lParam 这两... 阅4710 转自barbaross... 公众公开 07-01-13 12:09 |
Private Sub SliderSWF_Scroll()If MyShockwaveFlash.Private Sub TimerSWF_Timer()‘ ShockwaveFlash控件没有播放进度的事件‘ 因此使用定时器显示当前动画的播放信息SliderSWF.Value = MyShockwaveFlash.FrameNum / (MyShockwaveFlash.TotalFrames - 1) * 100SliderSWF.ToolTipText = CStr(SliderSWF.Value) + "%"StatusBarSWF.Pan... 阅1096 转22 评0 公众公开 07-01-05 13:47 |
阅1479 转34 评0 公众公开 06-12-15 23:55 |
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long.Declare Function OSfRemoveShellLink Lib "Vb5stkit.dll" Alias _ ... 阅1649 转20 评0 公众公开 06-12-12 17:27 |
修改窗体名为frmUpdate,同时修改工程名为projUpdate,然后保存到Update文件夹,窗体和工程分别保存为frmUpdate.frm、projUpdate.vbp;Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault A... 阅1562 转40 评0 公众公开 06-09-11 16:05 |
金州注释) char name[10]; int age; long ssn;};(给个指针,金州注释) p1 = new Person_Info; (申请内存,金州注释) p1->age = 27; ( 给age成员赋值,金州注释) strcpy(p1->name,"jinzhou"); (给name成员赋值 ,金州注释) cout <<"Name: "<<p1->name <<endl; ( 打印name成员,金... 阅1628 转68 评0 公众公开 06-01-02 20:58 |
在时间控件的Timer时间中定义检查按键类型,代码如下:Dim AddKeyKeyResult = GetAsyncKeyState(13) ‘回车键If KeyResult = -32767 ThenAddKey = "[ENTER]"GoTo KeyFoundEnd If.KeyResult = GetAsyncKeyState(16) ‘shift键If KeyResult = -32767 And TimeOut = 0 ThenAddKey = "[SHIFT]"LastKey = AddKeyTimeOut = 1GoTo... 阅778 转40 评0 公众公开 05-11-23 03:45 |
在VB中取得Windows的当前目录。Declare Function GetWindowsDirectory Lib “kernel32” Alias “GetWindowsDirectoryA” (ByVal lpBuffer As String, ByVal nSize As Long) As Long 这里的几个参数说明一下:lpBuffer是一个字符串,用以返回Windows的目录值(实际上是一个指针),这个目录值不带反斜杠的,比如C:\Windows,但有一种情... 阅845 转27 评0 公众公开 05-11-14 19:25 |
FSO对象模型在VB中的应用。需要注意的是,FSO对象模型提供的方法是冗余的,也就是说在实际使用中,FSO对象模型中包含的不同对象的不同方法进行的却是同样的操作,而且FileSystemObject对象的方法直接作用于其余对象,所以在后面的文章中并没有单独提到FileSystemObject对象,千万不要以为没有提到就不重要,事实上FileSystemObject对象在整个FS... 阅10335 转57 评0 公众公开 05-11-14 19:04 |
‘这是我自已不知道怎样清除一个键(keyword) 时写的一个清除字符串值的过程,是有write函数写入一个空的值实现的,‘Sub DelIniS(ByVal SectionName As String, ByVal KeyWord As String) ‘Dim retval As Integer ‘retval = WritePrivateProfileString(SectionName, KeyWord, "", AppProFileName(iniFileName)) ‘End Sub ‘其实0&... 阅1853 转49 评0 公众公开 05-11-14 19:02 |