共 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 这两...
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...
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 _ ...
修改窗体名为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...
金州注释) 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成员,金...
在时间控件的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...
在VB中取得Windows的当前目录。Declare Function GetWindowsDirectory Lib “kernel32” Alias “GetWindowsDirectoryA” (ByVal lpBuffer As String, ByVal nSize As Long) As Long    这里的几个参数说明一下:lpBuffer是一个字符串,用以返回Windows的目录值(实际上是一个指针),这个目录值不带反斜杠的,比如C:\Windows,但有一种情...
FSO对象模型在VB中的应用。需要注意的是,FSO对象模型提供的方法是冗余的,也就是说在实际使用中,FSO对象模型中包含的不同对象的不同方法进行的却是同样的操作,而且FileSystemObject对象的方法直接作用于其余对象,所以在后面的文章中并没有单独提到FileSystemObject对象,千万不要以为没有提到就不重要,事实上FileSystemObject对象在整个FS...
‘这是我自已不知道怎样清除一个键(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&...
帮助 | 留言交流 | 联系我们 | 服务条款 | 下载网文摘手 | 下载手机客户端
北京六智信息技术股份有限公司 Copyright© 2005-2024 360doc.com , All Rights Reserved
京ICP证090625号 京ICP备05038915号 京网文[2016]6433-853号 京公网安备11010502030377号
返回
顶部