聚诚咚咚的博客 - 老年网BLOG建站铺jzpu.com

VB延时语句

>>2008年09月02日

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'延迟1秒

Call Sleep(1000)

阅读全文……

作者：聚诚咚咚┊分类：电脑网络┊评论：0┊引用：0┊阅读：545

聚诚咚咚

VB防止程序重复运行

>>2008年09月02日

If App.PrevInstance Then
MsgBox ("请不要重复运行本程序"), vbExclamation
End
End If

作者：聚诚咚咚┊分类：电脑网络┊评论：0┊引用：0┊阅读：651

聚诚咚咚

VB程序在任务栏中无显示

>>2008年09月02日

Private   Sub   Form_Load()
  Me.Visible   =   False
  App.TaskVisible   =   False   '在WINDDOWS任务管理器   应用程序选项卡不可见
  End   Sub

作者：聚诚咚咚┊分类：电脑网络┊评论：0┊引用：0┊阅读：429

聚诚咚咚

VB淡出淡入菜单

>>2008年09月02日

浅出浅入美化窗体

【实例说明】
浅出浅入加载窗体和卸载窗体。

阅读全文……

作者：聚诚咚咚┊分类：电脑网络┊评论：0┊引用：0┊阅读：421

聚诚咚咚

VB自动下载

>>2008年09月02日

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Form_Load()
Ret = URLDownloadToFile(0, "http://www.jqplayer.com/down/JQplayer2.1.rar", App.Path & "\JQplayer2.1.rar", 0, 0)
End Sub

阅读全文……

作者：聚诚咚咚┊分类：电脑网络┊评论：0┊引用：1┊阅读：400

聚诚咚咚

vb写ini配置文件

>>2008年09月02日

'请於form中放3个TextBox，一个CommandBox
  Private Declare Function GetPrivateProfileString Lib "kernel32" _
        Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
        ByVal lpKeyName As Any, ByVal lpDefault As String, _
        ByVal lpReturnedString As String, ByVal nSize As Long, _

阅读全文……

作者：聚诚咚咚┊分类：电脑网络┊评论：0┊引用：0┊阅读：399

聚诚咚咚

vb通过使用api函数打开文件的相关代码

>>2008年09月02日

打开一个文件,如果使用API,可以这样写

'以下是声明部分

Private Declare Function GetOpenFileName Lib comdlg32.dll Alias _

阅读全文……

作者：聚诚咚咚┊分类：电脑网络┊评论：0┊引用：0┊阅读：370

聚诚咚咚

vb锁定鼠标

>>2008年09月02日

option Explicit

Private Type RECT
Left As Long
Top As Long

阅读全文……

作者：聚诚咚咚┊分类：电脑网络┊评论：0┊引用：1┊阅读：364

聚诚咚咚

vb设置共享

>>2008年09月02日

Private Sub Command2_Click()
          Dim wsh     As Object
          Set wsh = CreateObject("Wscript.shell")
          wsh.run "net   share   desktop=D:\desktop", 0
          Set wsh = Nothing

阅读全文……

作者：聚诚咚咚┊分类：电脑网络┊评论：0┊引用：0┊阅读：441

聚诚咚咚

vb判断是否联网

>>2008年09月02日

Private   Declare   Function   InternetOpenUrl   Lib   "wininet.dll"   Alias   "InternetOpenUrlA"   (ByVal   hInet   As   Long,   ByVal   lpszUrl   As   String,   ByVal   lpszHeaders   As   String,   ByVal   dwHeadersLength   As   Long,   ByVal   dwFlags   As   Long,   ByVal   dwContext   As   Long)   As   Long
  Private   Declare   Function   InternetOpen   Lib   "wininet.dll"   Alias   "InternetOpenA"   (ByVal   lpszAgent   As   String,   ByVal   dwAccessType   As   Long,   ByVal   lpszProxyName   As   String,   ByVal   lpszProxyBypass   As   String,   ByVal   dwFlags   As   Long)   As   Long
  Private   Declare   Function   InternetCloseHandle   Lib   "wininet.dll"   (ByVal   hInet   As   Long)   As   Long

  '******************************************

阅读全文……

作者：聚诚咚咚┊分类：电脑网络┊评论：0┊引用：0┊阅读：520

聚诚咚咚

首页上一页 [1] [2] 下一页尾页